gnu/packages/wm.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
   3 ;;; Copyright © 2015 Siniša Biđin <sinisa@bidin.eu>
   4 ;;; Copyright © 2015, 2016 Eric Bavier <bavier@member.fsf.org>
   5 ;;; Copyright © 2015 xd1le <elisp.vim@gmail.com>
   6 ;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
   7 ;;; Copyright © 2016 Danny Milosavljevic <dannym@scratchpost.org>
   8 ;;; Copyright © 2016, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
   9 ;;; Copyright © 2016 Al McElrath <hello@yrns.org>
  10 ;;; Copyright © 2016 Carlo Zancanaro <carlo@zancanaro.id.au>
  11 ;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
  12 ;;; Copyright © 2016, 2017, 2018, 2020 Nikita <nikita@n0.is>
  13 ;;; Copyright © 2016 doncatnip <gnopap@gmail.com>
  14 ;;; Copyright © 2016 Ivan Vilata i Balaguer <ivan@selidor.net>
  15 ;;; Copyright © 2017 Mekeor Melire <mekeor.melire@gmail.com>
  16 ;;; Copyright © 2017, 2019, 2020 Marius Bakke <marius@gnu.org>
  17 ;;; Copyright © 2017, 2020 Oleg Pykhalov <go.wigust@gmail.com>
  18 ;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
  19 ;;; Copyright © 2018 Pierre-Antoine Rouby <contact@parouby.fr>
  20 ;;; Copyright © 2018, 2019 Meiyo Peng <meiyo@riseup.net>
  21 ;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com>
  22 ;;; Copyright © 2019 Timothy Sample <samplet@ngyro.com>
  23 ;;; Copyright © 2019 Gábor Boskovits <boskovits@gmail.com>
  24 ;;; Copyright © 2019 Kyle Andrews <kyle.c.andrews@gmail.com>
  25 ;;; Copyright © 2019 Ingo Ruhnke <grumbel@gmail.com>
  26 ;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org>
  27 ;;; Copyright © 2019 John Soo <jsoo1@asu.edu>
  28 ;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com>
  29 ;;; Copyright © 2016, 2017 Andy Patterson <ajpatter@uwaterloo.ca>
  30 ;;; Copyright © 2019 Evan Straw <evan.straw99@gmail.com>
  31 ;;; Copyright © 2019 Brett Gilio <brettg@gnu.org>
  32 ;;; Copyright © 2019 Noodles! <nnoodle@chiru.no>
  33 ;;; Copyright © 2019, 2020 Alexandru-Sergiu Marton <brown121407@member.fsf.org>
  34 ;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
  35 ;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re>
  36 ;;; Copyright © 2020 Boris A. Dekshteyn <harlequin78@gmail.com>
  37 ;;; Copyright © 2020 Marcin Karpezo <sirmacik@wioo.waw.pl>
  38 ;;; Copyright © 2020 EuAndreh <eu@euandre.org>
  39 ;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
  40 ;;; Copyright © 2020 Guillaume Le Vaillant <glv@posteo.net>
  41 ;;; Copyright © 2020 B. Wilson <elaexuotee@wilsonb.com>
  42 ;; Copyright © 2020 Niklas Eklund <niklas.eklund@posteo.net>
  43 ;;; Copyright © 2020 Robert Smith <robertsmith@posteo.net>
  44 ;;;
  45 ;;; This file is part of GNU Guix.
  46 ;;;
  47 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  48 ;;; under the terms of the GNU General Public License as published by
  49 ;;; the Free Software Foundation; either version 3 of the License, or (at
  50 ;;; your option) any later version.
  51 ;;;
  52 ;;; GNU Guix is distributed in the hope that it will be useful, but
  53 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  54 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  55 ;;; GNU General Public License for more details.
  56 ;;;
  57 ;;; You should have received a copy of the GNU General Public License
  58 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  59
  60 (define-module (gnu packages wm)
  61   #:use-module ((guix licenses) #:prefix license:)
  62   #:use-module (guix packages)
  63   #:use-module (guix download)
  64   #:use-module (guix git-download)
  65   #:use-module (guix build-system asdf)
  66   #:use-module (guix build-system cmake)
  67   #:use-module (guix build-system gnu)
  68   #:use-module (guix build-system haskell)
  69   #:use-module (guix build-system meson)
  70   #:use-module (guix build-system perl)
  71   #:use-module (guix build-system python)
  72   #:use-module (guix build-system trivial)
  73   #:use-module (guix utils)
  74   #:use-module (gnu packages)
  75   #:use-module (gnu packages bash)
  76   #:use-module (gnu packages autotools)
  77   #:use-module (gnu packages base)
  78   #:use-module (gnu packages bison)
  79   #:use-module (gnu packages build-tools) ;for meson-0.55
  80   #:use-module (gnu packages calendar)
  81   #:use-module (gnu packages docbook)
  82   #:use-module (gnu packages documentation)
  83   #:use-module (gnu packages fontutils)
  84   #:use-module (gnu packages freedesktop)
  85   #:use-module (gnu packages fribidi)
  86   #:use-module (gnu packages gawk)
  87   #:use-module (gnu packages gcc)
  88   #:use-module (gnu packages gl)
  89   #:use-module (gnu packages glib)
  90   #:use-module (gnu packages gperf)
  91   #:use-module (gnu packages gtk)
  92   #:use-module (gnu packages haskell-check)
  93   #:use-module (gnu packages haskell-web)
  94   #:use-module (gnu packages haskell-xyz)
  95   #:use-module (gnu packages image)
  96   #:use-module (gnu packages imagemagick)
  97   #:use-module (gnu packages libevent)
  98   #:use-module (gnu packages linux)
  99   #:use-module (gnu packages lisp-xyz)
 100   #:use-module (gnu packages logging)
 101   #:use-module (gnu packages lua)
 102   #:use-module (gnu packages m4)
 103   #:use-module (gnu packages man)
 104   #:use-module (gnu packages maths)
 105   #:use-module (gnu packages mpd)
 106   #:use-module (gnu packages pcre)
 107   #:use-module (gnu packages perl)
 108   #:use-module (gnu packages pkg-config)
 109   #:use-module (gnu packages pretty-print)
 110   #:use-module (gnu packages pulseaudio)
 111   #:use-module (gnu packages python)
 112   #:use-module (gnu packages readline)
 113   #:use-module (gnu packages serialization)
 114   #:use-module (gnu packages sphinx)
 115   #:use-module (gnu packages suckless)
 116   #:use-module (gnu packages texinfo)
 117   #:use-module (gnu packages textutils)
 118   #:use-module (gnu packages video)
 119   #:use-module (gnu packages web)
 120   #:use-module (gnu packages xdisorg)
 121   #:use-module (gnu packages xml)
 122   #:use-module (gnu packages xorg))
 123
 124 (define-public bspwm
 125   (package
 126     (name "bspwm")
 127     (version "0.9.10")
 128     (source
 129      (origin
 130        (method git-fetch)
 131        (uri (git-reference
 132              (url "https://github.com/baskerville/bspwm")
 133              (commit version)))
 134        (file-name (git-file-name name version))
 135        (sha256
 136         (base32 "0qlv7b4c2mmjfd65y100d11x8iqyg5f6lfiws3cgmpjidhdygnxc"))))
 137     (build-system gnu-build-system)
 138     (inputs
 139      `(("libxcb" ,libxcb)
 140        ("libxinerama" ,libxinerama)
 141        ("sxhkd" ,sxhkd)
 142        ("xcb-util" ,xcb-util)
 143        ("xcb-util-keysyms" ,xcb-util-keysyms)
 144        ("xcb-util-wm" ,xcb-util-wm)))
 145     (arguments
 146      '(#:phases
 147        (modify-phases %standard-phases
 148          (delete 'configure))           ; no configure script
 149        #:tests? #f                      ; no check target
 150        #:make-flags
 151        (list "CC=gcc"
 152              (string-append "PREFIX=" %output))))
 153     (home-page "https://github.com/baskerville/bspwm")
 154     (synopsis "Tiling window manager based on binary space partitioning")
 155     (description "bspwm is a tiling window manager that represents windows as
 156 the leaves of a full binary tree.")
 157     (license license:bsd-2)))
 158
 159 (define-public herbstluftwm
 160   (package
 161     (name "herbstluftwm")
 162     (version "0.8.3")
 163     (source
 164      (origin
 165        (method url-fetch)
 166        (uri (string-append "https://herbstluftwm.org/tarballs/herbstluftwm-"
 167                            version ".tar.gz"))
 168        (sha256
 169         (base32 "1qmb4pjf2f6g0dvcg11cw9njwmxblhqzd70ai8qnlgqw1iz3nkm1"))
 170        (file-name (string-append "herbstluftwm-" version ".tar.gz"))))
 171     (build-system cmake-build-system)
 172     (inputs
 173      `(("dzen"        ,dzen)
 174        ("dmenu"       ,dmenu)
 175        ("glib"        ,glib)
 176        ("glibmm"      ,glibmm)
 177        ("xterm"       ,xterm)
 178        ("xsetroot"    ,xsetroot)
 179        ("libx11"      ,libx11)
 180        ("libxext"     ,libxext)
 181        ("libxinerama" ,libxinerama)
 182        ("libxrandr"   ,libxrandr)))
 183     (native-inputs
 184      `(("asciidoc"   ,asciidoc)
 185        ("pkg-config" ,pkg-config)))
 186     (arguments
 187      '(#:tests? #f
 188        #:configure-flags
 189        (let ((out (assoc-ref %outputs "out")))
 190          (list "-DCC=gcc"
 191                (string-append "-DCMAKE_INSTALL_SYSCONF_PREFIX=" out "/etc")
 192                (string-append "-DBASHCOMPLETIONDIR=" out "/etc/bash_completion.d")))
 193        #:phases
 194        (modify-phases %standard-phases
 195          (add-after 'install 'install-xsession
 196            (lambda* (#:key outputs #:allow-other-keys)
 197              (let* ((out (assoc-ref outputs "out"))
 198                     (xsessions (string-append out "/share/xsessions")))
 199                (mkdir-p xsessions)
 200                (call-with-output-file
 201                    (string-append xsessions "/herbstluftwm.desktop")
 202                  (lambda (port)
 203                    (format port "~
 204                      [Desktop Entry]~@
 205                      Name=herbstluftwm~@
 206                      Comment=Manual tiling window manager~@
 207                      Exec=~a/bin/herbstluftwm~@
 208                      Type=XSession~%" out)))
 209                #t))))))
 210     (synopsis "Tiling window manager for X11")
 211     (description "herbstluftwm is a manual tiling window manager for X11 using
 212 Xlib and GLib.  Its main features are:
 213
 214 @itemize
 215 @item
 216 The layout is based on splitting frames into subframes which can be split
 217 again or can be filled with windows (similar to i3 or musca).
 218
 219 @item
 220 Tags (or workspaces or virtual desktops or …) can be added/removed at runtime.
 221 Each tag contains an own layout.
 222
 223 @item
 224 Exactly one tag is viewed on each monitor.  The tags are monitor independent
 225 (similar to Xmonad).
 226
 227 @item
 228 It is configured at runtime via IPC calls from @command{herbstclient}.  So the
 229 configuration file is just a script which is run on startup (similar to wmii
 230 or musca).
 231
 232 @end itemize")
 233     (home-page "https://herbstluftwm.org")
 234     (license license:bsd-2)))
 235
 236 (define-public i3status
 237   (package
 238     (name "i3status")
 239     (version "2.13")
 240     (source (origin
 241               (method url-fetch)
 242               (uri (string-append "https://i3wm.org/i3status/i3status-"
 243                                   version ".tar.bz2"))
 244               (sha256
 245                (base32
 246                 "0rhlzb96mw64z2jnhwz9nibc7pxg549626lz5642xxk5hpzwk2ff"))))
 247     (build-system gnu-build-system)
 248     (arguments
 249      `(;; XXX: Do an "out of source" build to work around
 250        ;; <https://github.com/i3/i3status/issues/339>.
 251        #:out-of-source? #t
 252        #:tests? #f)) ; no test suite
 253     (inputs
 254      `(("openlibm" ,openlibm)
 255        ("libconfuse" ,libconfuse)
 256        ("libyajl" ,libyajl)
 257        ("alsa-lib" ,alsa-lib)
 258        ("pulseaudio" ,pulseaudio)
 259        ("libnl" ,libnl)
 260        ("libcap" ,libcap)
 261        ("asciidoc" ,asciidoc)))
 262     (native-inputs
 263      `(("pkg-config" ,pkg-config)
 264        ("docbook-xsl" ,docbook-xsl)
 265        ("libxml2" ,libxml2)             ;for XML_CATALOG_FILES
 266        ("xmlto" ,xmlto)))
 267     (home-page "https://i3wm.org/i3status/")
 268     (synopsis "Status bar for i3bar, dzen2, xmobar or similar programs")
 269     (description "i3status is a small program for generating a status bar for
 270 i3bar, dzen2, xmobar or similar programs.  It is designed to be very efficient
 271 by issuing a very small number of system calls, as one generally wants to
 272 update such a status line every second.  This ensures that even under high
 273 load, your status bar is updated correctly.  Also, it saves a bit of energy by
 274 not hogging your CPU as much as spawning the corresponding amount of shell
 275 commands would.")
 276     (license license:bsd-3)))
 277
 278 (define-public i3-wm
 279   (package
 280     (name "i3-wm")
 281     (version "4.18.3")
 282     (source (origin
 283               (method url-fetch)
 284               (uri (string-append "https://i3wm.org/downloads/i3-"
 285                                   version ".tar.bz2"))
 286               (sha256
 287                (base32
 288                 "03dijnwv2n8ak9jq59fhq0rc80m5wjc9d54fslqaivnnz81pkbjk"))))
 289     (build-system gnu-build-system)
 290     (arguments
 291      `(#:configure-flags
 292        ;; The build system tries to build in a separate directory, but that
 293        ;; seems to be unnecessary.
 294        (list "--disable-builddir")
 295
 296        ;; The test suite requires the unpackaged Xephyr X server.
 297        #:tests? #f
 298        #:phases
 299        (modify-phases %standard-phases
 300          (add-after 'install 'patch-session-file
 301            (lambda* (#:key outputs #:allow-other-keys)
 302              (let* ((out (assoc-ref outputs "out"))
 303                     (i3 (string-append out "/bin/i3"))
 304                     (i3-with-shmlog (string-append out "/bin/i3-with-shmlog")))
 305                (substitute* (string-append out "/share/xsessions/i3.desktop")
 306                  (("Exec=i3") (string-append "Exec=" i3)))
 307                (substitute* (string-append out "/share/xsessions/i3-with-shmlog.desktop")
 308                  (("Exec=i3-with-shmlog") (string-append "Exec=" i3-with-shmlog)))
 309                #t))))))
 310     (inputs
 311      `(("libxcb" ,libxcb)
 312        ("xcb-util" ,xcb-util)
 313        ("xcb-util-cursor" ,xcb-util-cursor)
 314        ("xcb-util-keysyms" ,xcb-util-keysyms)
 315        ("xcb-util-wm" ,xcb-util-wm)
 316        ("xcb-util-xrm" ,xcb-util-xrm)
 317        ("libxkbcommon" ,libxkbcommon)
 318        ("libev" ,libev)
 319        ("libyajl" ,libyajl)
 320        ("asciidoc" ,asciidoc)
 321        ("xmlto" ,xmlto)
 322        ("perl-pod-simple" ,perl-pod-simple)
 323        ("libx11" ,libx11)
 324        ("pcre" ,pcre)
 325        ("startup-notification" ,startup-notification)
 326        ("pango" ,pango)
 327        ("cairo" ,cairo)))
 328     (native-inputs
 329      `(("which" ,which)
 330        ("perl" ,perl)
 331        ("pkg-config" ,pkg-config)
 332        ;; For building the documentation.
 333        ("libxml2" ,libxml2)
 334        ("docbook-xsl" ,docbook-xsl)))
 335     (home-page "https://i3wm.org/")
 336     (synopsis "Tiling window manager")
 337     (description "i3 is a tiling X11 window manager that dynamically manages
 338 tiled, stacked, and tabbed window layouts.
 339
 340 i3 primarily targets advanced users.  Windows are managed manually and organised
 341 inside containers, which can be split vertically or horizontally, and optionally
 342 resized.
 343
 344 i3 uses a plain-text configuration file, and can be extended and controlled from
 345 many programming languages.")
 346     (license license:bsd-3)))
 347
 348 (define-public i3-gaps
 349   (package (inherit i3-wm)
 350            (name "i3-gaps")
 351            (version "4.18.3")
 352            (source (origin
 353                      (method url-fetch)
 354                      (uri (string-append
 355                            "https://github.com/Airblader/i3/releases/download/"
 356                            version "/i3-" version ".tar.bz2"))
 357                      (sha256
 358                       (base32
 359                        "1hcakwyz78lgp8mhqv7pw86jlb3m415pfql1q19rkijnhm3fn3ci"))))
 360            (home-page "https://github.com/Airblader/i3")
 361            (synopsis "Tiling window manager with gaps")
 362            (description "i3-gaps is a fork of i3wm, a tiling window manager
 363 for X11.  It is kept up to date with upstream, adding a few additional
 364 features such as gaps between windows.
 365
 366 i3 is a tiling X11 window manager that dynamically manages tiled, stacked,
 367 and tabbed window layouts.
 368
 369 i3 primarily targets advanced users.  Windows are managed manually and
 370 organised inside containers, which can be split vertically or horizontally,
 371 and optionally resized.
 372
 373 i3 uses a plain-text configuration file, and can be extended and controlled
 374 from many programming languages.")
 375            (license license:bsd-3)))
 376
 377 (define-public i3lock
 378   (package
 379     (name "i3lock")
 380     (version "2.11.1")
 381     (source (origin
 382               (method url-fetch)
 383               (uri (string-append "https://i3wm.org/i3lock/i3lock-"
 384                                   version ".tar.bz2"))
 385               (sha256
 386                (base32
 387                 "015dn534m7cxjvqdncpvaq9p8b2r4w5hp1yanbdy2abmhbcc7a7j"))))
 388     (build-system gnu-build-system)
 389     (native-inputs
 390      `(("pkg-config" ,pkg-config)))
 391     (inputs
 392      `(("cairo" ,cairo)
 393        ("libev" ,libev)
 394        ("linux-pam" ,linux-pam)
 395        ("libxcb" ,libxcb)
 396        ("libxkbcommon" ,libxkbcommon)
 397        ("xcb-util" ,xcb-util)
 398        ("xcb-util-image" ,xcb-util-image)
 399        ("xcb-util-xrm" ,xcb-util-xrm)))
 400     (home-page "https://i3wm.org/i3lock/")
 401     (synopsis "Lightweight screen locker")
 402     (description
 403      "i3lock is a simple X11 screen locker developed alongside the i3 project.
 404 Despite the name it should work with any X11 window manager.")
 405     (license license:bsd-3)))
 406
 407 (define-public i3blocks
 408   (package
 409     (name "i3blocks")
 410     (version "1.5")
 411     (source (origin
 412               (method git-fetch)
 413               (uri (git-reference
 414                     (url "https://github.com/vivien/i3blocks")
 415                     (commit version)))
 416               (sha256
 417                (base32
 418                 "0v8mwnm8qzpv6xnqvrk43s4b9iyld4naqzbaxk4ldq1qkhai0wsv"))
 419               (file-name (git-file-name name version))))
 420     (build-system gnu-build-system)
 421     (native-inputs
 422      `(("autoconf" ,autoconf)
 423        ("automake" ,automake)
 424        ("pkg-config" ,pkg-config)))
 425     (home-page "https://github.com/vivien/i3blocks")
 426     (synopsis "Minimalist scheduler for status bar scripts")
 427     (description "i3blocks executes your command lines and generates a
 428 status line from their output.  The generated line is meant to be displayed by
 429 the i3 window manager through its i3bar component, as an alternative to
 430 i3status.")
 431     (license license:gpl3+)))
 432
 433 (define-public perl-anyevent-i3
 434   (package
 435     (name "perl-anyevent-i3")
 436     (version "0.17")
 437     (source (origin
 438               (method url-fetch)
 439               (uri (string-append "mirror://cpan/authors/id/M/MS/MSTPLBG/"
 440                                   "AnyEvent-I3-" version ".tar.gz"))
 441               (sha256
 442                (base32
 443                 "0qvd9bq16jyy7v3ma82qcnvz9j503bw0mh7h55gkjf7ir62ck0jk"))))
 444     (build-system perl-build-system)
 445     (propagated-inputs
 446      `(("perl-anyevent" ,perl-anyevent)
 447        ("perl-json-xs" ,perl-json-xs)))
 448     (home-page "https://metacpan.org/release/AnyEvent-I3")
 449     (synopsis
 450      "Communicate with the i3 window manager through perl")
 451     (description
 452      "This module connects to the i3 window manager using the UNIX socket
 453 based IPC interface it provides (if enabled in the configuration file).
 454 You can then subscribe to events or send messages and receive their replies.")
 455     ;; Can be used with either license.
 456     (license (list license:gpl3+ license:perl-license))))
 457
 458 (define-public python-i3-py
 459   (package
 460     (name "python-i3-py")
 461     (version "0.6.5")
 462     (source
 463      (origin
 464        ;; The latest release is not tagged in Git nor has an entry in PyPi,
 465        ;; but there is still a clear commit for it, and it's been the last one
 466        ;; for years.
 467        (method git-fetch)
 468        (uri (git-reference
 469              (url "https://github.com/ziberna/i3-py")
 470              (commit "27f88a616e9ecc340e7d041d3d00782f8a1964c1")))
 471        (sha256
 472         (base32
 473          "1nm719dc2xqlll7vj4c4m7mpjb27lpn3bg3c66gajvnrz2x1nmxs"))
 474        (file-name (string-append name "-" version "-checkout"))))
 475     (build-system python-build-system)
 476     (arguments
 477      `(#:tests? #f ; no tests yet
 478        #:phases (modify-phases %standard-phases
 479                   (add-after 'install 'install-doc
 480                     ;; Copy readme file to documentation directory.
 481                     (lambda* (#:key outputs #:allow-other-keys)
 482                       (let ((doc (string-append (assoc-ref outputs "out")
 483                                                 "/share/doc/" ,name)))
 484                         (install-file "README.md" doc)
 485                         ;; Avoid unspecified return value.
 486                         #t))))))
 487     (propagated-inputs
 488      `(("i3-wm" ,i3-wm)))
 489     (home-page "https://github.com/ziberna/i3-py")
 490     (synopsis "Python interface to the i3 window manager")
 491     (description "This package allows you to interact from a Python program
 492 with the i3 window manager via its IPC socket.  It can send commands and other
 493 kinds of messages to i3, select the affected containers, filter results and
 494 subscribe to events.")
 495     (license license:gpl3+)))
 496
 497 (define-public python2-i3-py
 498   (package-with-python2 python-i3-py))
 499
 500 (define-public quickswitch-i3
 501   (let ((commit "ed692b1e8f43b95bd907ced26238ce8ccb2ed28f")
 502         (revision "1")) ; Guix package revision
 503     (package
 504       (name "quickswitch-i3")
 505       (version (string-append "2.2-" revision "."
 506                               (string-take commit 7)))
 507       (source
 508        (origin
 509          ;; The latest commit is a few years old and just a couple commits
 510          ;; after the last tagged release, so we use that latest commit
 511          ;; instead of the release.
 512          (method git-fetch)
 513          (uri (git-reference
 514                (url "https://github.com/proxypoke/quickswitch-for-i3")
 515                (commit commit)))
 516          (sha256
 517           (base32
 518            "0447077sama80jcdg5p64zjsvafmz5rbdrirhm1adcdjhkh6iqc5"))
 519          (patches (search-patches "quickswitch-fix-dmenu-check.patch"))
 520          (file-name (string-append name "-" version "-checkout"))))
 521       (build-system python-build-system)
 522       (arguments
 523        `(#:tests? #f ; no tests yet
 524          #:phases (modify-phases %standard-phases
 525                     (add-after 'install 'install-doc
 526                       ;; Copy readme file to documentation directory.
 527                       (lambda* (#:key outputs #:allow-other-keys)
 528                         (let ((doc (string-append (assoc-ref outputs "out")
 529                                                   "/share/doc/" ,name)))
 530                           (install-file "README.rst" doc)
 531                           ;; Avoid unspecified return value.
 532                           #t))))))
 533       (inputs
 534        `(("python-i3-py" ,python-i3-py)
 535          ("dmenu" ,dmenu)))
 536       (home-page "https://github.com/proxypoke/quickswitch-for-i3")
 537       (synopsis "Quickly change to and locate windows in the i3 window manager")
 538       (description
 539        "This utility for the i3 window manager allows you to quickly switch to
 540 and locate windows on all your workspaces, using an interactive dmenu
 541 prompt.")
 542       (license license:wtfpl2))))
 543
 544 (define-public i3lock-color
 545   (package
 546     (name "i3lock-color")
 547     (version "2.12.c")
 548     (source
 549      (origin
 550        (method git-fetch)
 551        (uri (git-reference
 552              (url "https://github.com/PandorasFox/i3lock-color")
 553              (commit version)))
 554        (file-name (git-file-name name version))
 555        (sha256
 556         (base32 "08fhnchf187b73h52xgzb86g6byzxz085zs9galsvl687g5zxk34"))))
 557     (build-system gnu-build-system)
 558     (arguments
 559      `(#:tests? #f))                    ; no tests included
 560     (inputs
 561      `(("cairo" ,cairo)
 562        ("libev" ,libev)
 563        ("libjpeg" ,libjpeg-turbo)
 564        ("libxcb" ,libxcb)
 565        ("libxkbcommon" ,libxkbcommon)
 566        ("linux-pam" ,linux-pam)
 567        ("xcb-util" ,xcb-util)
 568        ("xcb-util-image" ,xcb-util-image)
 569        ("xcb-util-xrm" ,xcb-util-xrm)))
 570     (native-inputs
 571      `(("autoconf" ,autoconf)
 572        ("automake" ,automake)
 573        ("pkg-config" ,pkg-config)))
 574     (home-page "https://github.com/PandorasFox/i3lock-color")
 575     (synopsis "Screen locker with color configuration support")
 576     (description
 577      "i3lock-color is a simpler X11 screen locker derived from i3lock.
 578 Features include:
 579
 580 @enumerate
 581 @item forking process, the locked screen is preserved when you suspend to RAM;
 582 @item specify background color or image to be displayed in the lock screen;
 583 @item many additional color options.
 584 @end enumerate")
 585     (license license:bsd-3)))
 586
 587 (define-public i3lock-fancy
 588   (package
 589     (name "i3lock-fancy")
 590     (version "0.2")
 591     (source
 592      (origin
 593        (method git-fetch)
 594        (uri (git-reference
 595              (url "https://github.com/meskarune/i3lock-fancy")
 596              (commit version)))
 597        (file-name (git-file-name name version))
 598        (sha256
 599         (base32 "11g2kkim33ra38d1m897sq1ifajw17iyw9mr7sg1q8i2ibl4lfsi"))))
 600     (build-system gnu-build-system)
 601     (arguments
 602      `(#:tests? #f                      ; no tests included
 603        #:phases
 604        (modify-phases %standard-phases
 605          (replace 'configure
 606            (lambda* (#:key inputs outputs #:allow-other-keys)
 607              (let* ((out (assoc-ref outputs "out"))
 608                     (icons (string-append out "/share/i3lock-fancy/icons/"))
 609                     (wmctrl (string-append (assoc-ref inputs "wmctrl")
 610                                            "/bin/wmctrl"))
 611                     (mconvert (string-append (assoc-ref inputs "imagemagick")
 612                                              "/bin/convert"))
 613                     (mimport (string-append (assoc-ref inputs "imagemagick")
 614                                             "/bin/import"))
 615                     (awk (string-append (assoc-ref inputs "gawk")
 616                                         "/bin/gawk")))
 617
 618                (substitute* "lock"
 619                  (("\\$\\(command -V wmctrl\\)") wmctrl)
 620                  (("convert") mconvert)
 621                  (("shot=\\(import") (string-append "shot=\(" mimport))
 622                  (("awk -F") (string-append awk " -F"))
 623                  ((" awk") awk)
 624                  (("\\$scriptpath/icons/") icons))
 625                #t)))
 626          (delete 'build)
 627          (replace 'install
 628            (lambda* (#:key inputs outputs #:allow-other-keys)
 629              (let* ((out (assoc-ref outputs "out"))
 630                     (bin (string-append out "/bin"))
 631                     (icons (string-append out "/share/i3lock-fancy/icons/")))
 632
 633                (install-file "lock" bin)
 634                (rename-file (string-append bin "/lock")
 635                             (string-append bin "/i3lock-fancy"))
 636                (copy-recursively "icons" icons)
 637                #t))))))
 638     (inputs
 639      `(("imagemagick" ,imagemagick)
 640        ("wmctrl" ,wmctrl)
 641        ("gawk" ,gawk)))
 642     (home-page "https://github.com/meskarune/i3lock-fancy")
 643     (synopsis "Screen locker with screenshot function")
 644     (description
 645      "@code{i3lock-fancy} is a Bash script that takes a screenshot of
 646 the desktop, blurs the background and adds a lock icon and text.
 647 It requires @code{i3lock-color} or @code{i3lock} and can optionally
 648 be passed any screenshot util like @code{scrot}.
 649 This screen locker can be used with any window manager or
 650 desktop environment.")
 651     (license license:expat)))
 652
 653 (define-public xmonad
 654   (package
 655     (name "xmonad")
 656     (version "0.15")
 657     (synopsis "Tiling window manager")
 658     (source (origin
 659               (method url-fetch)
 660               (uri (string-append "mirror://hackage/package/xmonad/"
 661                                   "xmonad-" version ".tar.gz"))
 662               (sha256
 663                (base32
 664                 "0a7rh21k9y6g8fwkggxdxjns2grvvsd5hi2ls4klmqz5xvk4hyaa"))
 665               (patches (search-patches "xmonad-dynamic-linking.patch"))))
 666     (build-system haskell-build-system)
 667     (inputs
 668      `(("ghc-extensible-exceptions" ,ghc-extensible-exceptions)
 669        ("ghc-quickcheck"            ,ghc-quickcheck)
 670        ("ghc-semigroups"            ,ghc-semigroups)
 671        ("ghc-setlocale"             ,ghc-setlocale)
 672        ("ghc-utf8-string"           ,ghc-utf8-string)
 673        ("ghc-x11"                   ,ghc-x11)))
 674     (arguments
 675      `(#:phases
 676        (modify-phases %standard-phases
 677          (add-after
 678           'install 'install-xsession
 679           (lambda _
 680             (let* ((xsessions (string-append %output "/share/xsessions")))
 681               (mkdir-p xsessions)
 682               (call-with-output-file
 683                   (string-append xsessions "/xmonad.desktop")
 684                 (lambda (port)
 685                   (format port "~
 686                     [Desktop Entry]~@
 687                     Name=~a~@
 688                     Comment=~a~@
 689                     Exec=~a/bin/xmonad~@
 690                     Type=Application~%" ,name ,synopsis %output)))))))))
 691     (home-page "https://xmonad.org")
 692     (description
 693      "Xmonad is a tiling window manager for X.  Windows are arranged
 694 automatically to tile the screen without gaps or overlap, maximising screen
 695 use.  All features of the window manager are accessible from the keyboard: a
 696 mouse is strictly optional.  Xmonad is written and extensible in Haskell.
 697 Custom layout algorithms, and other extensions, may be written by the user in
 698 config files.  Layouts are applied dynamically, and different layouts may be
 699 used on each workspace.  Xinerama is fully supported, allowing windows to be
 700 tiled on several screens.")
 701     (license license:bsd-3)))
 702
 703 (define-public xmobar
 704   (package
 705     (name "xmobar")
 706     (version "0.34")
 707     (source (origin
 708               (method url-fetch)
 709               (uri (string-append "mirror://hackage/package/xmobar/"
 710                                   "xmobar-" version ".tar.gz"))
 711               (sha256
 712                (base32
 713                 "0x09xbz7y9ay0046j1xpr9jjk5jqivqi06vm3q6mhcrgc4y922rx"))))
 714     (build-system haskell-build-system)
 715     (native-inputs
 716      `(("ghc-hspec" ,ghc-hspec)
 717        ("hspec-discover" ,hspec-discover)))
 718     (inputs
 719      `(("ghc-alsa-core" ,ghc-alsa-core)
 720        ("ghc-alsa-mixer" ,ghc-alsa-mixer)
 721        ("ghc-dbus" ,ghc-dbus)
 722        ("ghc-hinotify" ,ghc-hinotify)
 723        ("ghc-http" ,ghc-http)
 724        ("ghc-http-conduit" ,ghc-http-conduit)
 725        ("ghc-http-types" ,ghc-http-types)
 726        ("ghc-iwlib" ,ghc-iwlib)
 727        ("ghc-libmpd" ,ghc-libmpd)
 728        ("ghc-old-locale" ,ghc-old-locale)
 729        ("ghc-parsec-numbers" ,ghc-parsec-numbers)
 730        ("ghc-regex-compat" ,ghc-regex-compat)
 731        ("ghc-temporary" ,ghc-temporary)
 732        ("ghc-timezone-olson" ,ghc-timezone-olson)
 733        ("ghc-x11" ,ghc-x11)
 734        ("ghc-x11-xft" ,ghc-x11-xft)
 735        ("libxpm" ,libxpm)))
 736     (arguments
 737      `(#:configure-flags (list "--flags=all_extensions")
 738        #:phases
 739        (modify-phases %standard-phases
 740          (add-before 'build 'patch-test-shebang
 741            (lambda* (#:key inputs #:allow-other-keys)
 742              (substitute* "test/Xmobar/Plugins/Monitors/AlsaSpec.hs"
 743                (("/bin/bash") (which "bash")))
 744              #t)))))
 745     (home-page "https://xmobar.org")
 746     (synopsis "Minimalistic text based status bar")
 747     (description
 748      "@code{xmobar} is a lightweight, text-based, status bar written in
 749 Haskell.  It was originally designed to be used together with Xmonad, but it
 750 is also usable with any other window manager.  While xmobar is written in
 751 Haskell, no knowledge of the language is required to install and use it.")
 752     (license license:bsd-3)))
 753
 754 (define-public yeganesh
 755   (package
 756     (name "yeganesh")
 757     (version "2.4")
 758     (source
 759      (origin
 760
 761        (method url-fetch)
 762        (uri (string-append "http://dmwit.com/yeganesh/yeganesh-" version ".tar.gz"))
 763        (sha256
 764         (base32 "04djfyjab3c5y9z9x8zd0xcx0jyy35zq7cl9ddr4ppf6k5ky6iky"))))
 765     (build-system haskell-build-system)
 766     (inputs
 767      `(("ghc-strict" ,ghc-strict)
 768        ("ghc-xdg-basedir" ,ghc-xdg-basedir)))
 769     (home-page "http://dmwit.com/yeganesh/")
 770     (synopsis "Small wrapper around dmenu")
 771     (description "@code{yeganesh} is a small wrapper around demnu.  Like
 772 dmenu, it accepts input on stdin and writes the chosen result on stdout.
 773 Unlike dmenu, it mangles the input before it presents its choices.  In
 774 particular, it displays commonly-chosen options before uncommon ones.")
 775     (license license:bsd-3)))
 776
 777 (define-public ghc-xmonad-contrib
 778   (package
 779     (name "ghc-xmonad-contrib")
 780     (version "0.16")
 781     (source
 782      (origin
 783        (method url-fetch)
 784        (uri (string-append "mirror://hackage/package/xmonad-contrib/"
 785                            "xmonad-contrib-" version ".tar.gz"))
 786        (sha256
 787         (base32 "1pddgkvnbww28wykncc7j0yb0lv15bk7xnnhdcbrwkxzw66w6wmd"))))
 788     (build-system haskell-build-system)
 789     (propagated-inputs
 790      `(("ghc-old-time" ,ghc-old-time)
 791        ("ghc-random" ,ghc-random)
 792        ("ghc-utf8-string" ,ghc-utf8-string)
 793        ("ghc-extensible-exceptions" ,ghc-extensible-exceptions)
 794        ("ghc-semigroups" ,ghc-semigroups)
 795        ("ghc-x11" ,ghc-x11)
 796        ("ghc-x11-xft" ,ghc-x11-xft)
 797        ("xmonad" ,xmonad)))
 798     (home-page "https://xmonad.org")
 799     (synopsis "Third party extensions for xmonad")
 800     (description
 801      "Third party tiling algorithms, configurations, and scripts to Xmonad, a
 802 tiling window manager for X.")
 803     (license license:bsd-3)))
 804
 805 (define-public evilwm
 806   (package
 807     (name "evilwm")
 808     (version "1.1.1")
 809     (source
 810      (origin
 811        (method url-fetch)
 812        (uri (string-append "http://www.6809.org.uk/evilwm/evilwm-"
 813                            version ".tar.gz"))
 814        (sha256
 815         (base32
 816          "0ak0yajzk3v4dg5wmaghv6acf7v02a4iw8qxmq5yw5ard8lrqn3r"))
 817        (patches (search-patches "evilwm-lost-focus-bug.patch"))))
 818     (build-system gnu-build-system)
 819     (inputs
 820      `(("libx11" ,libx11)
 821        ("libxext" ,libxext)
 822        ("libxrandr" ,libxrandr)))
 823     (arguments
 824      `(#:modules ((srfi srfi-26)
 825                   (guix build utils)
 826                   (guix build gnu-build-system))
 827        #:make-flags (let ((inputs (map (cut assoc-ref %build-inputs <>)
 828                                        '("libx11" "libxext" "libxrandr")))
 829                           (join (lambda (proc strs)
 830                                   (string-join (map proc strs) " ")))
 831                           (dash-I (cut string-append "-I" <> "/include"))
 832                           (dash-L (cut string-append "-L" <> "/lib")))
 833                       `("desktopfilesdir=$(prefix)/share/xsessions"
 834                         ,(string-append "prefix=" (assoc-ref %outputs "out"))
 835                         ,(string-append "CPPFLAGS=" (join dash-I inputs))
 836                         ,(string-append "LDFLAGS=" (join dash-L inputs))))
 837        #:tests? #f                      ;no tests
 838        #:phases (modify-phases %standard-phases
 839                   (delete 'configure)))) ;no configure script
 840     (home-page "http://www.6809.org.uk/evilwm/")
 841     (synopsis "Minimalist window manager for the X Window System")
 842     (description
 843      "evilwm is a minimalist window manager based on aewm, extended to feature
 844 many keyboard controls with repositioning and maximize toggles, solid window
 845 drags, snap-to-border support, and virtual desktops.")
 846     (license (license:x11-style "file:///README"))))
 847
 848 (define-public fluxbox
 849   (package
 850     (name "fluxbox")
 851     (version "1.3.7")
 852     (synopsis "Small and fast window manager")
 853     (source (origin
 854               (method url-fetch)
 855               (uri (string-append "mirror://sourceforge/fluxbox/fluxbox/"
 856                                   version "/fluxbox-" version ".tar.xz"))
 857               (sha256
 858                (base32
 859                 "1h1f70y40qd225dqx937vzb4k2cz219agm1zvnjxakn5jkz7b37w"))))
 860     (build-system gnu-build-system)
 861     (arguments
 862      `(#:make-flags '("CPPFLAGS=-U__TIME__") ;ugly, but for reproducibility
 863        #:phases
 864        (modify-phases %standard-phases
 865          (add-after 'install 'install-vim-files
 866            (lambda* (#:key outputs #:allow-other-keys)
 867              (let* ((out (assoc-ref outputs "out"))
 868                     (syntax (string-append out "/share/vim/vimfiles/syntax")))
 869                (copy-recursively "3rd/vim/vim/syntax" syntax)
 870                #t)))
 871          (add-after 'install 'install-xsession
 872            (lambda* (#:key outputs #:allow-other-keys)
 873              (let* ((out (assoc-ref outputs "out"))
 874                     (xsessions (string-append out "/share/xsessions")))
 875                (mkdir-p xsessions)
 876                (call-with-output-file
 877                  (string-append xsessions "/fluxbox.desktop")
 878                  (lambda (port)
 879                    (format port "~
 880                      [Desktop Entry]~@
 881                      Name=~a~@
 882                      Comment=~a~@
 883                      Exec=~a/bin/startfluxbox~@
 884                      Type=Application~%" ,name ,synopsis out)))
 885                #t))))))
 886     (native-inputs
 887      `(("pkg-config" ,pkg-config)))
 888     (inputs
 889      `(("freetype" ,freetype)
 890        ("fribidi" ,fribidi)
 891        ("imlib2" ,imlib2)
 892        ("libx11" ,libx11)
 893        ("libxext" ,libxext)
 894        ("libxft" ,libxft)
 895        ("libxinerama" ,libxinerama)
 896        ("libxpm"  ,libxpm)
 897        ("libxrandr" ,libxrandr)
 898        ("libxrender" ,libxrender)))
 899     (description "Fluxbox is a window manager.  It is light on resources
 900 and easy to handle yet full of features to make an easy and fast desktop
 901 experience.")
 902     (home-page "http://fluxbox.org/")
 903     (license license:expat)))
 904
 905 (define-public awesome
 906   (package
 907     (name "awesome")
 908     (version "4.3")
 909     (source
 910      (origin
 911        (method url-fetch)
 912        (uri (string-append
 913              "https://github.com/awesomeWM/awesome-releases/raw/master/"
 914              "awesome-" version ".tar.xz"))
 915        (sha256
 916         (base32 "0lqpw401mkkmp9wgbvrmm45bqq2j9357l4irwdqv6l1305pls9kq"))
 917        (modules '((guix build utils)
 918                   (srfi srfi-19)))
 919        (snippet
 920         '(begin
 921            ;; Remove non-reproducible timestamp and use the date of
 922            ;; the source file instead.
 923            (substitute* "common/version.c"
 924              (("__DATE__ \" \" __TIME__")
 925               (date->string
 926                (time-utc->date
 927                 (make-time time-utc 0 (stat:mtime (stat "awesome.c"))))
 928                "\"~c\"")))
 929            #t))
 930        (patches
 931         (search-patches "awesome-reproducible-png.patch"))))
 932     (build-system cmake-build-system)
 933     (native-inputs
 934      `(("asciidoc" ,asciidoc)
 935        ("docbook-xsl" ,docbook-xsl)
 936        ("doxygen" ,doxygen)
 937        ("gperf" ,gperf)
 938        ("imagemagick" ,imagemagick)
 939        ("libxml2" ,libxml2)             ;for XML_CATALOG_FILES
 940        ("lua-ldoc" ,lua-ldoc)
 941        ("pkg-config" ,pkg-config)
 942        ("xmlto" ,xmlto)))
 943     (inputs
 944      `(("cairo" ,cairo)
 945        ("dbus" ,dbus)
 946        ("gdk-pixbuf" ,gdk-pixbuf)
 947        ("glib" ,glib)
 948        ("gobject-introspection" ,gobject-introspection)
 949        ("imlib2" ,imlib2)
 950        ("libev" ,libev)
 951        ("libxcb" ,libxcb)
 952        ("libxcursor" ,libxcursor)
 953        ("libxdg-basedir" ,libxdg-basedir)
 954        ("libxkbcommon" ,libxkbcommon)
 955        ("lua" ,lua)
 956        ("lua-lgi" ,lua-lgi)
 957        ("pango" ,pango)
 958        ("startup-notification" ,startup-notification)
 959        ("xcb-util" ,xcb-util)
 960        ("xcb-util-cursor" ,xcb-util-cursor)
 961        ("xcb-util-image" ,xcb-util-image)
 962        ("xcb-util-keysyms" ,xcb-util-keysyms)
 963        ("xcb-util-renderutil" ,xcb-util-renderutil)
 964        ("xcb-util-xrm" ,xcb-util-xrm)
 965        ("xcb-util-wm" ,xcb-util-wm)))
 966     (arguments
 967      `(#:modules ((guix build cmake-build-system)
 968                   (guix build utils)
 969                   (ice-9 match))
 970        ;; Let compression happen in our 'compress-documentation' phase
 971        ;; so that '--no-name' is used, which removes timestamps from
 972        ;; gzip output.
 973        #:configure-flags
 974        '("-DCOMPRESS_MANPAGES=off")
 975        ;; Building awesome in its source directory is no longer
 976        ;; supported.
 977        #:out-of-source? #t
 978        #:phases
 979        (modify-phases %standard-phases
 980          (add-before 'configure 'set-paths
 981            (lambda* (#:key inputs #:allow-other-keys)
 982              (substitute* "lib/awful/completion.lua"
 983                (("/usr/bin/env")
 984                 ""))
 985              ;; The build process needs to load Cairo dynamically.
 986              (let* ((cairo (string-append (assoc-ref inputs "cairo") "/lib"))
 987                     (lua-version ,(version-major+minor (package-version lua)))
 988                     (lua-dependencies
 989                      (filter (match-lambda
 990                                ((label . _) (string-prefix? "lua-" label)))
 991                              inputs))
 992                     (lua-path
 993                      (string-join
 994                       (map (match-lambda
 995                              ((_ . dir)
 996                               (string-append
 997                                dir "/share/lua/" lua-version "/?.lua;"
 998                                dir "/share/lua/" lua-version "/?/?.lua")))
 999                            lua-dependencies)
1000                       ";"))
1001                     (lua-cpath
1002                      (string-join
1003                       (map (match-lambda
1004                              ((_ . dir)
1005                               (string-append
1006                                dir "/lib/lua/" lua-version "/?.so;"
1007                                dir "/lib/lua/" lua-version "/?/?.so")))
1008                            lua-dependencies)
1009                       ";")))
1010                (setenv "LD_LIBRARY_PATH" cairo)
1011                (setenv "LUA_PATH" (string-append "?.lua;" lua-path))
1012                (setenv "LUA_CPATH" lua-cpath)
1013                #t)))
1014          (replace 'check
1015            (lambda _
1016              ;; There aren't any tests, so just make sure the binary
1017              ;; gets built and can be run successfully.
1018              (invoke "../build/awesome" "-v")))
1019          (add-after 'install 'patch-session-file
1020            (lambda* (#:key outputs #:allow-other-keys)
1021              (let* ((out (assoc-ref outputs "out"))
1022                     (awesome (string-append out "/bin/awesome")))
1023                (substitute* (string-append out "/share/xsessions/awesome.desktop")
1024                  (("Exec=awesome") (string-append "Exec=" awesome)))
1025                #t)))
1026          (add-after 'install 'wrap
1027            (lambda* (#:key inputs outputs #:allow-other-keys)
1028              (let* ((awesome (assoc-ref outputs "out"))
1029                     (cairo (string-append (assoc-ref inputs "cairo") "/lib"))
1030                     (lua-version ,(version-major+minor (package-version lua)))
1031                     (lua-lgi (assoc-ref inputs "lua-lgi")))
1032                (wrap-program (string-append awesome "/bin/awesome")
1033                  `("LUA_PATH" ";" suffix
1034                    (,(format #f "~a/share/lua/~a/?.lua" lua-lgi lua-version)))
1035                  `("LUA_CPATH" ";" suffix
1036                    (,(format #f "~a/lib/lua/~a/?.so" lua-lgi lua-version)))
1037                  `("GI_TYPELIB_PATH" ":" prefix (,(getenv "GI_TYPELIB_PATH")))
1038                  `("LD_LIBRARY_PATH" suffix (,cairo)))
1039                #t))))))
1040     (home-page "https://awesomewm.org/")
1041     (synopsis "Highly configurable window manager")
1042     (description
1043      "Awesome has been designed as a framework window manager.  It is fast, small,
1044 dynamic and extensible using the Lua programming language.")
1045     (license license:gpl2+)))
1046
1047 (define-public menumaker
1048   (package
1049     (name "menumaker")
1050     (version "0.99.12")
1051     (source
1052      (origin
1053        (method url-fetch)
1054        (uri (string-append "mirror://sourceforge/menumaker/"
1055                            "menumaker-" version ".tar.gz"))
1056        (sha256
1057         (base32 "034v5204bsgkzzk6zfa5ia63q95gln47f7hwf96yvad5hrhmd8z3"))))
1058     (build-system gnu-build-system)
1059     (inputs
1060      `(("python" ,python)))
1061     (synopsis "Heuristics-driven menu generator")
1062     (description
1063      "MenuMaker is a menu generation utility for a number of X window
1064 managers and desktop environments.  It is capable of finding lots of
1065 installed programs and generating a root menu consistent across all
1066 supported window managers, so one will get (almost) the same menu in
1067 all of them.  Currently supported window managers include:
1068
1069 @enumerate
1070 @item BlackBox
1071 @item Deskmenu
1072 @item FluxBox
1073 @item IceWM
1074 @item OpenBox
1075 @item PekWM
1076 @item WindowMaker
1077 @item XFCE
1078 @end enumerate\n")
1079     (home-page "http://menumaker.sourceforge.net/")
1080     (license license:bsd-2)))
1081
1082 (define-public keybinder
1083   (package
1084     (name "keybinder")
1085     (version "0.3.1")
1086     (source
1087      (origin
1088        (method url-fetch)
1089        (uri (string-append "https://github.com/kupferlauncher/keybinder"
1090                            "/releases/download/v" version "/keybinder-"
1091                            version ".tar.gz"))
1092        (file-name (string-append name "-" version ".tar.gz"))
1093        (sha256
1094         (base32
1095          "0h52hj3ay8mfhwvmfxbxlfyq74hifdk8wxgxp7fr4iy6189hg7w7"))))
1096     (build-system gnu-build-system)
1097     (inputs
1098      `(("python-2" ,python-2)
1099        ("gtk+-2" ,gtk+-2)))
1100     (native-inputs
1101      `(("python2-pygtk" ,python2-pygtk)
1102        ("gtk-doc" ,gtk-doc)
1103        ("pkg-config" ,pkg-config)))
1104     (synopsis "Library for registering global keyboard shortcuts")
1105     (description
1106      "Keybinder is a library for registering global keyboard shortcuts.
1107 Keybinder works with GTK-based applications using the X Window System.")
1108     (home-page "https://github.com/kupferlauncher/keybinder")
1109     (license license:gpl2+)))
1110
1111 (define-public keybinder-3.0
1112   (package
1113     (name "keybinder-3.0")
1114     (version "0.3.2")
1115     (source
1116      (origin
1117        (method url-fetch)
1118        (uri (string-append "https://github.com/kupferlauncher/keybinder"
1119                            "/releases/download/" name "-v" version "/" name "-"
1120                            version ".tar.gz"))
1121        (file-name (string-append name "-" version ".tar.gz"))
1122        (sha256
1123         (base32
1124          "0830ihwnalw59pp1xzrp37dn58n8vwb8zasnm4a1h81v3x7dxqz6"))))
1125     (build-system gnu-build-system)
1126     (inputs
1127      `(("gtk+" ,gtk+)
1128        ("gobject-introspection" ,gobject-introspection)))
1129     (native-inputs
1130      `(("gtk-doc" ,gtk-doc)
1131        ("pkg-config" ,pkg-config)))
1132     (synopsis "Library for registering global keyboard shortcuts, Gtk3 version")
1133     (description
1134      "Keybinder is a library for registering global keyboard shortcuts.
1135 Keybinder works with GTK-based applications using the X Window System.")
1136     (home-page "https://github.com/kupferlauncher/keybinder")
1137     (license license:x11)))
1138
1139 (define-public spectrwm
1140   (package
1141     (name "spectrwm")
1142     (version "3.2.0")
1143     (source
1144      (origin
1145        (method git-fetch)
1146        (uri (git-reference
1147              (url "https://github.com/conformal/spectrwm")
1148              (commit
1149               (string-append "SPECTRWM_"
1150                              (string-join (string-split version #\.) "_")))))
1151        (file-name (git-file-name name version))
1152        (sha256
1153         (base32 "1dfqy5f0s1nv6rqkz9lj006vypmp4rwxd5vczfk3ndzqgnh19kw6"))))
1154     (build-system gnu-build-system)
1155     (arguments
1156      `(#:make-flags (let ((pkg-config (lambda (flag)
1157                                         (string-append
1158                                          "$(shell pkg-config " flag " "
1159                                          "xft fontconfig x11 libpng)"))))
1160                       (list
1161                        "CC=gcc"
1162                        (string-append "PREFIX=" %output)
1163                        (string-append "INCS=-I. " (pkg-config "--cflags"))
1164                        (string-append "LIBS=" (pkg-config "--libs") " -lm")))
1165        #:tests? #f                      ;no test suite
1166        #:phases
1167        (modify-phases %standard-phases
1168          (add-before 'build 'change-dir
1169            (lambda _
1170              (chdir "linux") #t))
1171          (add-after 'change-dir 'patch-makefile
1172            (lambda _
1173              (substitute* "Makefile"
1174                (("-g") ""))))
1175          (delete 'configure))))         ;no 'configure' exists
1176     (inputs
1177      `(("freetype" ,freetype)
1178        ("fontconfig" ,fontconfig)
1179        ("libx11" ,libx11)
1180        ("libxcursor" ,libxcursor)
1181        ("libxrandr" ,libxrandr)
1182        ("libxtst" ,libxtst)
1183        ("libxft" ,libxft)
1184        ("xcb-util" ,xcb-util)
1185        ("xcb-util-wm" ,xcb-util-wm)
1186        ("xcb-util-keysyms" ,xcb-util-keysyms)))
1187     (native-inputs
1188      `(("libxt" ,libxt)
1189        ("pkg-config" ,pkg-config)))
1190     (synopsis "Minimalistic automatic tiling window manager")
1191     (description
1192      "Spectrwm is a small dynamic tiling and reparenting window manager for X11.
1193 It is inspired by Xmonad and dwm.  Its major features include:
1194
1195 @itemize
1196 @item Navigation anywhere on all screens with either the keyboard or mouse
1197 @item Customizable status bar
1198 @item Restartable without losing state
1199 @item Quick launch menu
1200 @item Many screen layouts possible with a few simple key strokes
1201 @item Move/resize floating windows
1202 @item Extended Window Manager Hints (@dfn{EWMH}) support
1203 @item Configurable tiling
1204 @item Adjustable tile gap allows for a true one pixel border
1205 @item Customizable colors and border width
1206 @end itemize\n")
1207     (home-page "https://github.com/conformal/spectrwm")
1208     (license license:isc)))
1209
1210 (define-public cwm
1211   (package
1212     (name "cwm")
1213     (version "6.7")
1214     (source
1215      (origin
1216        (method url-fetch)
1217        (uri (string-append "https://leahneukirchen.org/releases/cwm-"
1218                            version ".tar.gz"))
1219        (sha256
1220         (base32 "022zld29qawd8gl700g4m24qa89il3aks397zkhh66wvzssdblzx"))))
1221     (build-system gnu-build-system)
1222     (arguments
1223      `(#:make-flags (list (string-append "CC=" ,(cc-for-target))
1224                           (string-append "PREFIX=" %output))
1225        #:tests? #f
1226        #:phases
1227        (modify-phases %standard-phases
1228          (delete 'configure)
1229          (add-after 'build 'install-xsession
1230            (lambda* (#:key outputs #:allow-other-keys)
1231              ;; Add a .desktop file to xsessions.
1232              (let* ((output (assoc-ref outputs "out"))
1233                     (xsessions (string-append output "/share/xsessions")))
1234                (mkdir-p xsessions)
1235                (with-output-to-file
1236                    (string-append xsessions "/cwm.desktop")
1237                  (lambda _
1238                    (format #t
1239                            "[Desktop Entry]~@
1240                      Name=cwm~@
1241                      Comment=OpenBSD Calm Window Manager fork~@
1242                      Exec=~a/bin/cwm~@
1243                      TryExec=~@*~a/bin/cwm~@
1244                      Icon=~@
1245                      Type=Application~%"
1246                            output)))
1247                #t))))))
1248     (inputs
1249      `(("libxft" ,libxft)
1250        ("libxrandr" ,libxrandr)
1251        ("libxinerama" ,libxinerama)))
1252     (native-inputs
1253      `(("pkg-config" ,pkg-config)
1254        ("bison" ,bison)))
1255     (home-page "https://github.com/leahneukirchen/cwm")
1256     (synopsis "OpenBSD fork of the calmwm window manager")
1257     (description "Cwm is a stacking window manager for X11.  It is an OpenBSD
1258 project derived from the original Calm Window Manager.")
1259     (license license:isc)))
1260
1261 (define-public nitrogen
1262   (package
1263     (name "nitrogen")
1264     (version "1.6.1")
1265     (source (origin
1266               (method url-fetch)
1267               (uri (string-append "http://github.com/l3ib/nitrogen/"
1268                                   "releases/download/" version "/"
1269                                   name "-" version ".tar.gz"))
1270               (sha256
1271                (base32
1272                 "0zc3fl1mbhq0iyndy4ysmy8vv5c7xwf54rbgamzfhfvsgdq160pl"))))
1273     (build-system gnu-build-system)
1274     (inputs
1275      `(("gtk+" ,gtk+-2)
1276        ("gtkmm" ,gtkmm-2)
1277        ("glib" ,glib)
1278        ("glibmm" ,glibmm)))
1279     (native-inputs
1280      `(("pkg-config" ,pkg-config)))
1281     (home-page "http://projects.l3ib.org/nitrogen/")
1282     (synopsis "Background browser and setter for X windows")
1283     (description
1284      "This package is a background browser and setter for X windows.  It's
1285 features are:
1286
1287 @itemize
1288 @item Multihead and Xinerama aware
1289 @item Recall mode to used via startup script
1290 @item Uses freedesktop.org standard for thumbnails
1291 @item Can set GNOME background
1292 @item Command lie set modes for script use
1293 @item Inotify monitoring of browse directory
1294 @item Lazy loading of thumbnails - conserves memory
1295 @item \"Automatic\" set mode - determines best mode to set an image based on
1296 its size
1297 @item Display preview images in a tiled icon layout
1298 @end itemize")
1299     (license license:gpl2+)))
1300
1301 (define-public polybar
1302   (package
1303     (name "polybar")
1304     (version "3.4.3")
1305     (source
1306      (origin
1307        (method url-fetch)
1308        (uri (string-append "https://github.com/polybar/polybar/releases/"
1309                            "download/" version "/polybar-" version ".tar"))
1310        (sha256
1311         (base32 "0bw22qvbcdvyd0qv3ax48r34rnclbbb6dyb8h8zljq1r3lf15vfl"))))
1312     (build-system cmake-build-system)
1313     (arguments
1314      ;; Test is disabled because it requires downloading googletest from the
1315      ;; Internet.
1316      '(#:tests? #f))
1317     (inputs
1318      `(("alsa-lib" ,alsa-lib)
1319        ("cairo" ,cairo)
1320        ("i3-wm" ,i3-wm)
1321        ("jsoncpp" ,jsoncpp)
1322        ("libmpdclient" ,libmpdclient)
1323        ("libnl" ,libnl)
1324        ("libxcb" ,libxcb)
1325        ("pulseaudio" ,pulseaudio)
1326        ("xcb-proto" ,xcb-proto)
1327        ("xcb-util" ,xcb-util)
1328        ("xcb-util-cursor" ,xcb-util-cursor)
1329        ("xcb-util-image" ,xcb-util-image)
1330        ("xcb-util-wm" ,xcb-util-wm)
1331        ("xcb-util-xrm" ,xcb-util-xrm)))
1332     (native-inputs
1333      `(("pkg-config" ,pkg-config)
1334        ("python-sphinx" ,python-sphinx) ; for the manual
1335        ;; XXX: "python" input must be located after "python-2", or the package
1336        ;; fails to build with "missing required python module: xcbgen".
1337        ("python-2" ,python-2)           ; lib/xpp depends on python 2
1338        ("python" ,python)))             ; xcb-proto depends on python 3
1339     (home-page "https://polybar.github.io/")
1340     (synopsis "Fast and easy-to-use status bar")
1341     (description "Polybar aims to help users build beautiful and highly
1342 customizable status bars for their desktop environment.  It has built-in
1343 functionality to display information about the most commonly used services.")
1344     (license license:expat)))
1345
1346 (define-public wlroots
1347   (package
1348     (name "wlroots")
1349     (version "0.12.0")
1350     (source
1351      (origin
1352        (method git-fetch)
1353        (uri (git-reference
1354              (url "https://github.com/swaywm/wlroots")
1355              (commit version)))
1356        (file-name (git-file-name name version))
1357        (sha256
1358         (base32 "01j38lmgs2c6fq68v8b75pkilia2wsgzgp46ivfbi9hhx47kgcfn"))))
1359     (build-system meson-build-system)
1360     (arguments
1361      `(#:configure-flags '("-Dlogind-provider=elogind")
1362        #:meson ,meson-0.55
1363        #:phases
1364        (modify-phases %standard-phases
1365          (add-before 'configure 'hardcode-paths
1366            (lambda* (#:key inputs #:allow-other-keys)
1367              (substitute* "xwayland/server.c"
1368                (("Xwayland") (string-append (assoc-ref inputs
1369                                                        "xorg-server-xwayland")
1370                                             "/bin/Xwayland")))
1371              #t)))))
1372     (propagated-inputs
1373      `(;; As required by wlroots.pc.
1374        ("elogind" ,elogind)
1375        ("eudev" ,eudev)
1376        ("libinput" ,libinput)
1377        ("libxkbcommon" ,libxkbcommon)
1378        ("mesa" ,mesa)
1379        ("pixman" ,pixman)
1380        ("wayland" ,wayland)
1381        ("xcb-util-errors" ,xcb-util-errors)
1382        ("xcb-util-wm" ,xcb-util-wm)
1383        ("xorg-server-xwayland" ,xorg-server-xwayland)))
1384     (native-inputs
1385      `(("pkg-config" ,pkg-config)
1386        ("wayland-protocols" ,wayland-protocols)))
1387     (home-page "https://github.com/swaywm/wlroots")
1388     (synopsis "Pluggable, composable, unopinionated modules for building a
1389 Wayland compositor")
1390     (description "wlroots is a set of pluggable, composable, unopinionated
1391 modules for building a Wayland compositor.")
1392     (license license:expat)))  ; MIT license
1393
1394 (define-public sway
1395   (package
1396     (name "sway")
1397     (version "1.5.1")
1398     (source
1399      (origin
1400        (method git-fetch)
1401        (uri (git-reference
1402              (url "https://github.com/swaywm/sway")
1403              (commit version)))
1404        (file-name (git-file-name name version))
1405        (sha256
1406         (base32 "1xsa3h8zhf29p0mi90baxpr76jkd9pd1gr97ky8cnjbcs4isj9j0"))))
1407     (build-system meson-build-system)
1408     (arguments
1409      `(#:phases
1410        (modify-phases %standard-phases
1411          (add-before 'configure 'hardcode-paths
1412            (lambda* (#:key inputs #:allow-other-keys)
1413              ;; Hardcode path to swaybg.
1414              (substitute* "sway/config.c"
1415                (("strdup..swaybg..")
1416                 (string-append "strdup(\"" (assoc-ref inputs "swaybg")
1417                                "/bin/swaybg\")")))
1418              ;; Hardcode path to scdoc.
1419              (substitute* "meson.build"
1420                (("scdoc.get_pkgconfig_variable..scdoc..")
1421                 (string-append "'" (assoc-ref inputs "scdoc")
1422                                "/bin/scdoc'")))
1423              #t)))))
1424     (inputs `(("cairo" ,cairo)
1425               ("elogind" ,elogind)
1426               ("gdk-pixbuf" ,gdk-pixbuf)
1427               ("json-c" ,json-c)
1428               ("libevdev" ,libevdev)
1429               ("libinput" ,libinput)
1430               ("libxkbcommon" ,libxkbcommon)
1431               ("pango" ,pango)
1432               ("swaybg" ,swaybg)
1433               ("wayland" ,wayland)
1434               ("wlroots" ,wlroots)))
1435     (native-inputs
1436      `(("linux-pam" ,linux-pam)
1437        ("mesa" ,mesa)
1438        ("pkg-config" ,pkg-config)
1439        ("scdoc" ,scdoc)
1440        ("wayland-protocols" ,wayland-protocols)))
1441     (home-page "https://github.com/swaywm/sway")
1442     (synopsis "Wayland compositor compatible with i3")
1443     (description "Sway is a i3-compatible Wayland compositor.")
1444     (license license:expat)))
1445
1446 (define-public swayidle
1447   (package
1448     (name "swayidle")
1449     (version "1.6")
1450     (source
1451      (origin
1452        (method git-fetch)
1453        (uri (git-reference
1454              (url "https://github.com/swaywm/swayidle")
1455              (commit version)))
1456        (file-name (git-file-name name version))
1457        (sha256
1458         (base32 "1nd3v8r9549lykdwh4krldfl59lzaspmmai5k1icy7dvi6kkr18r"))))
1459     (build-system meson-build-system)
1460     (arguments
1461      `(#:configure-flags '("-Dlogind-provider=elogind")))
1462     (inputs `(("elogind" ,elogind)
1463               ("wayland" ,wayland)))
1464     (native-inputs `(("pkg-config" ,pkg-config)
1465                      ("scdoc" ,scdoc)
1466                      ("wayland-protocols" ,wayland-protocols)))
1467     (home-page "https://github.com/swaywm/sway")
1468     (synopsis "Idle management daemon for Wayland compositors")
1469     (description "Swayidle is a idle management daemon for Wayland compositors.")
1470     (license license:expat))) ; MIT license
1471
1472 (define-public swaylock
1473   (package
1474     (name "swaylock")
1475     (version "1.5")
1476     (source
1477      (origin
1478        (method git-fetch)
1479        (uri (git-reference
1480              (url "https://github.com/swaywm/swaylock")
1481              (commit version)))
1482        (file-name (git-file-name name version))
1483        (sha256
1484         (base32 "0r95p4w11dwm5ra614vddz83r8j7z6gd120z2vcchy7m9b0f15kf"))))
1485     (build-system meson-build-system)
1486     (inputs `(("cairo" ,cairo)
1487               ("gdk-pixbuf" ,gdk-pixbuf)
1488               ("libxkbcommon" ,libxkbcommon)
1489               ;("linux-pam" ,linux-pam) ; FIXME: Doesn't work.
1490               ("wayland" ,wayland)))
1491     (native-inputs `(("pango" ,pango)
1492                      ("pkg-config" ,pkg-config)
1493                      ("scdoc" ,scdoc)
1494                      ("wayland-protocols" ,wayland-protocols)))
1495     (home-page "https://github.com/swaywm/sway")
1496     (synopsis "Screen locking utility for Wayland compositors")
1497     (description "Swaylock is a screen locking utility for Wayland compositors.")
1498     (license license:expat))) ; MIT license
1499
1500 (define-public swaybg
1501   (package
1502     (name "swaybg")
1503     (version "1.0")
1504     (source
1505      (origin
1506        (method git-fetch)
1507        (uri (git-reference
1508              (url "https://github.com/swaywm/swaybg")
1509              (commit version)))
1510        (file-name (git-file-name name version))
1511        (sha256
1512         (base32 "1lmqz5bmig90gq2m7lwf02d2g7z4hzf8fhqz78c8vk92c6p4xwbc"))))
1513     (build-system meson-build-system)
1514     (inputs `(("cairo" ,cairo)
1515               ("gdk-pixbuf" ,gdk-pixbuf)
1516               ("wayland" ,wayland)))
1517     (native-inputs `(("pkg-config" ,pkg-config)
1518                      ("scdoc" ,scdoc)
1519                      ("wayland-protocols" ,wayland-protocols)))
1520     (home-page "https://github.com/swaywm/sway")
1521     (synopsis "Screen wallpaper utility for Wayland compositors")
1522     (description "Swaybg is a wallpaper utility for Wayland compositors.")
1523     (license license:expat))) ; MIT license
1524
1525 (define-public waybar
1526   (package
1527     (name "waybar")
1528     (version "0.9.4")
1529     (source
1530      (origin
1531        (method git-fetch)
1532        (uri (git-reference
1533              (url "https://github.com/Alexays/Waybar")
1534              (commit version)))
1535        (file-name (git-file-name name version))
1536        (sha256
1537         (base32 "038vnma7y7z81caywp45yr364bc1aq8d01j5vycyiyfv33nm76fy"))))
1538     (build-system meson-build-system)
1539     (inputs `(("date" ,date)
1540               ("fmt" ,fmt-6)
1541               ("gtk-layer-shell" ,gtk-layer-shell)
1542               ("gtkmm" ,gtkmm)
1543               ("jsoncpp" ,jsoncpp)
1544               ("libdbusmenu" ,libdbusmenu)
1545               ("libinput" ,libinput)
1546               ("libmpdclent" ,libmpdclient)
1547               ("libnl" ,libnl)
1548               ("pulseaudio" ,pulseaudio)
1549               ("spdlog" ,spdlog)
1550               ("wayland" ,wayland)))
1551     (native-inputs
1552      `(("gcc" ,gcc-8)                   ; for #include <filesystem>
1553        ("glib:bin" ,glib "bin")
1554        ("pkg-config" ,pkg-config)
1555        ("scdoc" ,scdoc)
1556        ("wayland-protocols" ,wayland-protocols)))
1557     (home-page "https://github.com/Alexays/Waybar")
1558     (synopsis "Wayland bar for Sway and Wlroots based compositors")
1559     (description "Waybar is a highly customisable Wayland bar for Sway and
1560 Wlroots based compositors.")
1561     (license license:expat))) ; MIT license
1562
1563 (define-public wlr-randr
1564   (package
1565     (name "wlr-randr")
1566     (version "0.1.0")
1567     (source
1568      (origin
1569        (method git-fetch)
1570        (uri (git-reference
1571              (url "https://github.com/emersion/wlr-randr")
1572              (commit (string-append "v" version))))
1573        (file-name (git-file-name name version))
1574        (sha256
1575         (base32 "10c8zzp78s5bw34vvjhilipa28bsdx3jbyhnxgp8f8kawh3cvgsc"))))
1576     (build-system meson-build-system)
1577     (inputs `(("wayland" ,wayland)))
1578     (native-inputs `(("pkg-config" ,pkg-config)))
1579     (home-page "https://github.com/emersion/wlr-randr")
1580     (synopsis "Utility to manage Wayland compositor outputs")
1581     (description "wlr-randr is a utility to manage outputs of a Wayland compositor.")
1582     (license license:expat))) ; MIT license
1583
1584 (define-public mako
1585   (package
1586     (name "mako")
1587     (version "1.4.1")
1588     (source
1589      (origin
1590        (method git-fetch)
1591        (uri (git-reference
1592              (url "https://github.com/emersion/mako")
1593              (commit (string-append "v" version))))
1594        (file-name (git-file-name name version))
1595        (sha256
1596         (base32 "0hwvibpnrximb628w9dsfjpi30b5jy7nfkm4d94z5vhp78p43vxh"))))
1597     (build-system meson-build-system)
1598     (inputs `(("cairo" ,cairo)
1599               ("elogind" ,elogind)
1600               ("gdk-pixbuf" ,gdk-pixbuf)
1601               ("pango" ,pango)
1602               ("wayland" ,wayland)))
1603     (native-inputs `(("pkg-config" ,pkg-config)
1604                      ("scdoc" ,scdoc)
1605                      ("wayland-protocols" ,wayland-protocols)))
1606     (home-page "https://wayland.emersion.fr/mako")
1607     (synopsis "Lightweight Wayland notification daemon")
1608     (description "Mako is a lightweight notification daemon for Wayland
1609 compositors that support the layer-shell protocol.")
1610     (license license:expat))) ; MIT license
1611
1612 (define-public kanshi
1613   (package
1614     (name "kanshi")
1615     (version "1.1.0")
1616     (source
1617      (origin
1618        (method git-fetch)
1619        (uri (git-reference
1620              (url "https://github.com/emersion/kanshi")
1621              (commit (string-append "v" version))))
1622        (file-name (git-file-name name version))
1623        (sha256
1624         (base32 "0nbpgm8qnn7ljsg9vgs35kl8l4rrk542vdcbx8wrn9r909ld3x92"))))
1625     (build-system meson-build-system)
1626     (inputs `(("wayland" ,wayland)))
1627     (native-inputs `(("pkg-config" ,pkg-config)
1628                      ("scdoc" ,scdoc)))
1629     (home-page "https://wayland.emersion.fr/kanshi")
1630     (synopsis "Hotswappable output profiles for Wayland")
1631     (description "Kanshi allows you to define output profiles that are
1632 automatically enabled and disabled on hotplug.  Kanshi can be used with
1633 Wayland compositors supporting the wlr-output-management protocol.")
1634     (license license:expat))) ; MIT license
1635
1636 (define-public stumpwm
1637   (package
1638     (name "stumpwm")
1639     (version "20.11")
1640     (source
1641      (origin
1642        (method git-fetch)
1643        (uri (git-reference
1644              (url "https://github.com/stumpwm/stumpwm")
1645              (commit version)))
1646        (file-name (git-file-name "stumpwm" version))
1647        (sha256
1648         (base32 "1ghs6ihvmb3bz4q4ys1d3h6rdi96xyiw7l2ip7jh54c25049aymf"))))
1649     (build-system asdf-build-system/sbcl)
1650     (native-inputs `(("fiasco" ,sbcl-fiasco)
1651                      ("texinfo" ,texinfo)
1652
1653                      ;; To build the manual.
1654                      ("autoconf" ,autoconf)
1655                      ("automake" ,automake)))
1656     (inputs `(("cl-ppcre" ,sbcl-cl-ppcre)
1657               ("clx" ,sbcl-clx)
1658               ("alexandria" ,sbcl-alexandria)))
1659     (outputs '("out" "lib"))
1660     (arguments
1661      '(#:asd-systems '("stumpwm")
1662        #:phases
1663        (modify-phases %standard-phases
1664          (add-after 'create-asdf-configuration 'build-program
1665            (lambda* (#:key outputs #:allow-other-keys)
1666              (build-program
1667               (string-append (assoc-ref outputs "out") "/bin/stumpwm")
1668               outputs
1669               #:entry-program '((stumpwm:stumpwm) 0))))
1670          (add-after 'build-program 'create-desktop-file
1671            (lambda* (#:key outputs #:allow-other-keys)
1672              (let* ((out (assoc-ref outputs "out"))
1673                     (xsessions (string-append out "/share/xsessions")))
1674                (mkdir-p xsessions)
1675                (call-with-output-file
1676                    (string-append xsessions "/stumpwm.desktop")
1677                  (lambda (file)
1678                    (format file
1679                     "[Desktop Entry]~@
1680                      Name=stumpwm~@
1681                      Comment=The Stump Window Manager~@
1682                      Exec=~a/bin/stumpwm~@
1683                      TryExec=~@*~a/bin/stumpwm~@
1684                      Icon=~@
1685                      Type=Application~%"
1686                     out)))
1687                #t)))
1688          (add-after 'install 'install-manual
1689            (lambda* (#:key (make-flags '()) outputs #:allow-other-keys)
1690              (let* ((out  (assoc-ref outputs "out"))
1691                     (info (string-append out "/share/info")))
1692                (invoke "./autogen.sh")
1693                (invoke "sh" "./configure" "SHELL=sh")
1694                (apply invoke "make" "stumpwm.info" make-flags)
1695                (install-file "stumpwm.info" info)
1696                #t))))))
1697     (synopsis "Window manager written in Common Lisp")
1698     (description "Stumpwm is a window manager written entirely in Common Lisp.
1699 It attempts to be highly customizable while relying entirely on the keyboard
1700 for input.  These design decisions reflect the growing popularity of
1701 productive, customizable lisp based systems.")
1702     (home-page "https://github.com/stumpwm/stumpwm")
1703     (license license:gpl2+)
1704     (properties `((cl-source-variant . ,(delay cl-stumpwm))))))
1705
1706 (define-public sbcl-stumpwm
1707   (deprecated-package "sbcl-stumpwm" stumpwm))
1708
1709 (define-public cl-stumpwm
1710   (package
1711     (inherit (sbcl-package->cl-source-package stumpwm))
1712     (name "cl-stumpwm")))
1713
1714 (define-public stumpwm+slynk
1715   (package
1716     (inherit stumpwm)
1717     (name "stumpwm-with-slynk")
1718     (outputs '("out"))
1719     (inputs
1720      `(("stumpwm" ,stumpwm "lib")
1721        ("slynk" ,sbcl-slynk)))
1722     (arguments
1723      (substitute-keyword-arguments (package-arguments stumpwm)
1724        ((#:phases phases)
1725         `(modify-phases ,phases
1726            (replace 'build-program
1727              (lambda* (#:key inputs outputs #:allow-other-keys)
1728                (let* ((out (assoc-ref outputs "out"))
1729                       (program (string-append out "/bin/stumpwm")))
1730                  (setenv "HOME" "/tmp")
1731                  (build-program program outputs
1732                                 #:entry-program '((stumpwm:stumpwm) 0)
1733                                 #:dependencies '("stumpwm" "slynk")
1734                                 #:dependency-prefixes
1735                                 (map (lambda (input) (assoc-ref inputs input))
1736                                      '("stumpwm" "slynk")))
1737                  #t)))
1738            (delete 'copy-source)
1739            (delete 'build)
1740            (delete 'check)
1741            (delete 'cleanup)))))))
1742
1743 (define stumpwm-contrib
1744   (let ((commit "920f8fc1488f7953f205e1dda4c2ecbbbda56d63")
1745         (revision "2"))
1746     (package
1747       (name "stumpwm-contrib")
1748       (version (git-version "0.0.1" revision commit)) ;no upstream release
1749       (source
1750        (origin
1751          (method git-fetch)
1752          (uri (git-reference
1753                (url "https://github.com/stumpwm/stumpwm-contrib")
1754                (commit commit)))
1755          (file-name (git-file-name name version))
1756          (sha256
1757           (base32 "0giac390bq95ag41xkxqp8jjrhfx1wpgglz7jg5rkm0wjhcwmyml"))))
1758       (build-system asdf-build-system/sbcl)
1759       (inputs
1760        `(("stumpwm" ,stumpwm "lib")))
1761       (home-page "https://github.com/stumpwm/stumpwm-contrib")
1762       (synopsis "StumpWM interactive shell")
1763       (description "This package provides a StumpWM interactive shell.")
1764       (license (list license:gpl2+ license:gpl3+ license:bsd-2)))))
1765
1766 (define-public stumpish
1767   (package
1768     (inherit stumpwm-contrib)
1769     (name "stumpish")
1770     (inputs
1771      `(("bash" ,bash)
1772        ("rlwrap" ,rlwrap)
1773        ("xprop" ,xprop)))
1774     (build-system trivial-build-system)
1775     (arguments
1776      '(#:modules ((guix build utils))
1777        #:builder
1778        (begin
1779          (use-modules (guix build utils))
1780          (copy-recursively (assoc-ref %build-inputs "source") ".")
1781          (chdir "util/stumpish")
1782          (substitute* "stumpish"
1783            (("rlwrap") (string-append (assoc-ref %build-inputs "rlwrap")
1784                                       "/bin/rlwrap"))
1785            (("xprop") (string-append (assoc-ref %build-inputs "xprop")
1786                                       "/bin/xprop"))
1787            (("/bin/sh") (string-append (assoc-ref %build-inputs "bash")
1788                                        "/bin/bash")))
1789          (install-file "stumpish" (string-append %output "/bin")))))
1790     (home-page "https://github.com/stumpwm/stumpwm-contrib")
1791     (synopsis "StumpWM interactive shell")
1792     (description "This package provides a StumpWM interactive shell.")
1793     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
1794
1795 (define-public sbcl-stumpwm+slynk
1796   (deprecated-package "sbcl-stumpwm-with-slynk" stumpwm+slynk))
1797
1798 (define-public sbcl-stumpwm-ttf-fonts
1799   (package
1800     (inherit stumpwm-contrib)
1801     (name "sbcl-stumpwm-ttf-fonts")
1802     (inputs
1803      `(("stumpwm" ,stumpwm "lib")
1804        ("clx-truetype" ,sbcl-clx-truetype)))
1805     (arguments
1806      '(#:asd-systems '("ttf-fonts")
1807        #:tests? #f
1808        #:phases
1809        (modify-phases %standard-phases
1810          (add-after 'unpack 'chdir
1811            (lambda _ (chdir "util/ttf-fonts") #t)))))
1812     (home-page "https://github.com/stumpwm/stumpwm-contrib")
1813     (synopsis "Implementation of TTF font rendering for Lisp")
1814     (description "This package provides a Lisp implementation of TTF font
1815 rendering.")
1816     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
1817
1818 (define-public sbcl-stumpwm-pass
1819   (package
1820     (inherit stumpwm-contrib)
1821     (name "sbcl-stumpwm-pass")
1822     (arguments
1823      '(#:asd-systems '("pass")
1824        #:tests? #f
1825        #:phases
1826        (modify-phases %standard-phases
1827          (add-after 'unpack 'chdir
1828            (lambda _ (chdir "util/pass") #t)))))
1829     (home-page "https://github.com/stumpwm/stumpwm-contrib")
1830     (synopsis "Integrate @code{pass} with StumpWM")
1831     (description "This package provides an interface which integrates
1832 password-store into StumpWM.")
1833     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
1834
1835 (define-public sbcl-stumpwm-globalwindows
1836   (package
1837     (inherit stumpwm-contrib)
1838     (name "sbcl-stumpwm-globalwindows")
1839     (arguments
1840      '(#:asd-systems '("globalwindows")
1841        #:tests? #f
1842        #:phases
1843        (modify-phases %standard-phases
1844          (add-after 'unpack 'chdir
1845            (lambda _ (chdir "util/globalwindows") #t)))))
1846     (home-page "https://github.com/stumpwm/stumpwm-contrib")
1847     (synopsis "Manipulate all windows in the current X session")
1848     (description "This package provides a StumpWM module to manipulate all
1849 windows in the current X session.")
1850     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
1851
1852 (define-public sbcl-stumpwm-swm-gaps
1853   (package
1854     (inherit stumpwm-contrib)
1855     (name "sbcl-stumpwm-swm-gaps")
1856     (arguments
1857      '(#:asd-systems '("swm-gaps")
1858        #:tests? #f
1859        #:phases
1860        (modify-phases %standard-phases
1861          (add-after 'unpack 'chdir
1862            (lambda _ (chdir "util/swm-gaps") #t)))))
1863     (home-page "https://github.com/stumpwm/stumpwm-contrib")
1864     (synopsis "Gaps between windows for StumpWM")
1865     (description "This package provides a StumpWM module which adds gaps
1866 between windows.")
1867     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
1868
1869 (define-public sbcl-stumpwm-net
1870   (package
1871     (inherit stumpwm-contrib)
1872     (name "sbcl-stumpwm-net")
1873     (arguments
1874      '(#:asd-systems '("net")
1875        #:tests? #f
1876        #:phases
1877        (modify-phases %standard-phases
1878          (add-after 'unpack 'chdir (lambda _ (chdir "modeline/net") #t)))))
1879     (home-page
1880      "https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/net")
1881     (synopsis "Modeline support for network connectivity")
1882     (description "Modeline support for network connectivity.")
1883     (supported-systems
1884      (filter (lambda (a) (string-contains a "linux")) %supported-systems))
1885     (license license:gpl3+)))
1886
1887 (define-public sbcl-stumpwm-wifi
1888   (package
1889     (inherit stumpwm-contrib)
1890     (name "sbcl-stumpwm-wifi")
1891     (arguments
1892      '(#:asd-systems '("wifi")
1893        #:tests? #f
1894        #:phases
1895        (modify-phases %standard-phases
1896          (add-after 'unpack 'chdir (lambda _ (chdir "modeline/wifi") #t)))))
1897     (home-page
1898      "https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/wifi")
1899     (synopsis "Modeline support for wifi connectivity")
1900     (description "Modeline support for wifi connectivity.")
1901     (supported-systems
1902      (filter (lambda (a) (string-contains a "linux")) %supported-systems))
1903     (license license:gpl3+)))
1904
1905 (define-public sbcl-stumpwm-stumptray
1906   (package
1907     (inherit stumpwm-contrib)
1908     (name "sbcl-stumpwm-stumptray")
1909     (arguments
1910      '(#:asd-systems '("stumptray")
1911        #:tests? #f
1912        #:phases
1913        (modify-phases %standard-phases
1914          (add-after 'unpack 'chdir (lambda _ (chdir "modeline/stumptray") #t)))))
1915     (inputs
1916      `(("stumpwm" ,stumpwm "lib")
1917        ("xembed" ,sbcl-clx-xembed)
1918        ("alexandria" ,sbcl-alexandria)))
1919     (home-page
1920      "https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/stumptray")
1921     (synopsis "Modeline support for stumptray connectivity")
1922     (description "Modeline support for stumptray connectivity.")
1923     (supported-systems
1924      (filter (lambda (a) (string-contains a "linux")) %supported-systems))
1925     (license license:gpl3+)))
1926
1927 (define-public sbcl-stumpwm-kbd-layouts
1928   (package
1929     (inherit stumpwm-contrib)
1930     (name "sbcl-stumpwm-kbd-layouts")
1931     (arguments
1932      '(#:asd-systems '("kbd-layouts")
1933        #:tests? #f
1934        #:phases
1935        (modify-phases %standard-phases
1936          (add-after 'unpack 'chdir (lambda _ (chdir "util/kbd-layouts") #t)))))
1937     (home-page
1938      "https://github.com/stumpwm/stumpwm-contrib/tree/master/util/kbd-layouts")
1939     (synopsis "Keyboard layout switcher for StumpWM")
1940     (description "Keyboard layout switcher for StumpWM")
1941     (license license:gpl3+)))
1942
1943 (define-public sbcl-stumpwm-numpad-layouts
1944   (package
1945     (inherit stumpwm-contrib)
1946     (name "sbcl-stumpwm-numpad-layouts")
1947     (arguments
1948      '(#:asd-systems '("numpad-layouts")
1949        #:tests? #f
1950        #:phases
1951        (modify-phases %standard-phases
1952          (add-after 'unpack 'chdir
1953            (lambda _
1954              (chdir "util/numpad-layouts"))))))
1955     (home-page
1956      "https://github.com/stumpwm/stumpwm-contrib/tree/master/util/numpad-layouts")
1957     (synopsis "Keyboard numpad layouts for StumpWM")
1958     (description "This is a module for handling different keyboards numpad
1959 layouts in StumpWM.")
1960     (license license:gpl3+)))
1961
1962 (define-public sbcl-stumpwm-cpu
1963   (package
1964     (inherit stumpwm-contrib)
1965     (name "sbcl-stumpwm-cpu")
1966     (arguments
1967      '(#:asd-systems '("cpu")
1968        #:tests? #f
1969        #:phases
1970        (modify-phases %standard-phases
1971          (add-after 'unpack 'chdir
1972            (lambda _
1973              (chdir "modeline/cpu"))))))
1974     (home-page
1975      "https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/cpu")
1976     (synopsis "Modeline support for CPU info")
1977     (description "Modeline support for CPU info.")
1978     (license license:gpl3+)))
1979
1980 (define-public sbcl-stumpwm-mem
1981   (package
1982     (inherit stumpwm-contrib)
1983     (name "sbcl-stumpwm-mem")
1984     (arguments
1985      '(#:asd-systems '("mem")
1986        #:tests? #f
1987        #:phases
1988        (modify-phases %standard-phases
1989          (add-after 'unpack 'chdir
1990            (lambda _
1991              (chdir "modeline/mem"))))))
1992     (home-page
1993      "https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/mem")
1994     (synopsis "Modeline support for memory info")
1995     (description "Modeline support for memory info.")
1996     (license license:gpl3+)))
1997
1998 (define-public sbcl-stumpwm-winner-mode
1999   (package
2000     (inherit stumpwm-contrib)
2001     (name "sbcl-stumpwm-winner-mode")
2002     (arguments
2003      '(#:asd-systems '("winner-mode")
2004        #:tests? #f
2005        #:phases
2006        (modify-phases %standard-phases
2007          (add-after 'unpack 'chdir
2008            (lambda _
2009              (chdir "util/winner-mode"))))))
2010     (home-page
2011      "https://github.com/stumpwm/stumpwm-contrib/tree/master/util/winner-mode")
2012     (synopsis "Emacs' winner-mode for StumpWM")
2013     (description "This module provides a winner-mode for StumpWM similar to the
2014 one in Emacs.")
2015     (license license:gpl3+)))
2016
2017 (define-public sbcl-stumpwm-screenshot
2018   (package
2019     (inherit stumpwm-contrib)
2020     (name "sbcl-stumpwm-screenshot")
2021     (inputs
2022      `(("stumpwm" ,stumpwm "lib")
2023        ("zpng" ,sbcl-zpng)))
2024     (arguments
2025      '(#:asd-systems '("screenshot")
2026        #:tests? #f
2027        #:phases
2028        (modify-phases %standard-phases
2029          (add-after 'unpack 'chdir
2030            (lambda _
2031              (chdir "util/screenshot")))
2032          (add-after 'chdir 'fix-build
2033            (lambda _
2034              (substitute* "screenshot.asd"
2035                (("#:zpng")
2036                 "#:stumpwm #:zpng")))))))
2037     (home-page
2038      "https://github.com/stumpwm/stumpwm-contrib/tree/master/util/screenshot")
2039     (synopsis "Screenshots for StumpWM")
2040     (description "This StumpWM module can take screenshots and store them as
2041 PNG files.")
2042     (license license:gpl3+)))
2043
2044 (define-public lemonbar
2045   (let ((commit "35183ab81d2128dbb7b6d8e119cc57846bcefdb4")
2046         (revision "1"))
2047     (package
2048       (name "lemonbar")
2049       (version (git-version "1.3" revision commit))
2050       (source (origin
2051                 (method git-fetch)
2052                 (uri (git-reference
2053                       (url "https://github.com/LemonBoy/bar")
2054                       (commit commit)))
2055                 (file-name (git-file-name name version))
2056                 (sha256
2057                  (base32
2058                   "1wwqbph392iwz8skaqxb0xpklb1l6yganqz80g4x1fhrnz7idmlh"))))
2059       (build-system gnu-build-system)
2060       (arguments
2061        `(#:tests? #f                    ; no test suite
2062          #:make-flags
2063          (list ,(string-append "CC=" (cc-for-target))
2064                (string-append "PREFIX=" %output))
2065          #:phases
2066          (modify-phases %standard-phases
2067            (delete 'configure))))
2068       (inputs
2069        `(("libxcb" ,libxcb)))
2070       (native-inputs
2071        `(("perl" ,perl)))
2072       (home-page "https://github.com/LemonBoy/bar")
2073       (synopsis "Featherweight status bar")
2074       (description
2075        "@code{lemonbar} (formerly known as @code{bar}) is a lightweight
2076 bar entirely based on XCB.  Provides full UTF-8 support, basic
2077 formatting, RandR and Xinerama support and EWMH compliance without
2078 wasting your precious memory.")
2079       (license license:x11))))
2080
2081 (define-public lemonbar-xft
2082   ;; Upstream v2.0 tag is several years behind HEAD
2083   (let ((commit "481e12363e2a0fe0ddd2176a8e003392be90ed02"))
2084     (package
2085       (inherit lemonbar)
2086       (name "lemonbar-xft")
2087       (version (string-append "2.0." (string-take commit 7)))
2088       (source (origin
2089                 (method git-fetch)
2090                 (uri (git-reference
2091                       (url "https://github.com/drscream/lemonbar-xft")
2092                       (commit commit)))
2093                 (file-name (git-file-name name version))
2094                 (sha256
2095                  (base32
2096                   "0588g37h18lv50h7w8vfbwhvc3iajh7sdr53848spaif99nh3mh4"))))
2097       (inputs
2098        `(("freetype" ,freetype)
2099          ("libxft" ,libxft)
2100          ("libx11" ,libx11)
2101          ,@(package-inputs lemonbar)))
2102       (arguments
2103        (substitute-keyword-arguments (package-arguments lemonbar)
2104          ((#:make-flags make-flags)
2105           `(append
2106             ,make-flags
2107             (list (string-append
2108                    "CFLAGS="
2109                    (string-join
2110                     (list (string-append
2111                            "-I" (assoc-ref %build-inputs "freetype")
2112                            "/include/freetype2")
2113                           (string-append
2114                            "-D" "VERSION="
2115                            (format #f "'~s'" ,version))))))))))
2116       (home-page "https://github.com/drscream/lemonbar-xft")
2117       (synopsis
2118        (string-append
2119         (package-synopsis lemonbar)
2120         " with fontconfig support"))
2121       (description
2122        (string-append
2123         (package-description lemonbar)
2124         "This is a fork of the @code{lemonbar} package that adds fontconfig
2125 support, for easier unicode usage.")))))
2126
2127 (define-public xclickroot
2128   (package
2129     (name "xclickroot")
2130     (version "1.2")
2131     (source (origin
2132               (method git-fetch)
2133               (uri (git-reference
2134                     (url "https://github.com/phillbush/xclickroot")
2135                     (commit (string-append "v" version))))
2136               (file-name (git-file-name name version))
2137               (sha256
2138                (base32
2139                 "1nd5qz0qz5j7gx2jsbcp234giwaa0xmg42vrcjrcf587q9ivakfl"))))
2140     (build-system gnu-build-system)
2141     (inputs
2142      `(("libx11" ,libx11)))
2143     (arguments
2144      `(#:tests? #f ;no test suite
2145        #:make-flags
2146        (list ,(string-append "CC=" (cc-for-target))
2147              (string-append "PREFIX=" %output))
2148        #:phases
2149        (modify-phases %standard-phases
2150          (delete 'configure))))
2151     (home-page "https://github.com/phillbush/xclickroot")
2152     (synopsis "Run a command when a mouse button is pressed on the root window")
2153     (description "@code{xclickroot} runs a command every time a given mouse
2154 button is pressed on the root window.")
2155     (license license:public-domain)))
2156
2157 (define-public xmenu
2158   (package
2159     (name "xmenu")
2160     (version "4.4.1")
2161     (source (origin
2162               (method git-fetch)
2163               (uri (git-reference
2164                     (url "https://github.com/phillbush/xmenu")
2165                     (commit (string-append "v" version))))
2166               (file-name (git-file-name name version))
2167               (sha256
2168                (base32
2169                 "1s70zvsaqnsjqs298vw3py0vcvia68xlks1wcz37pb88bwligz1x"))))
2170     (build-system gnu-build-system)
2171     (inputs
2172      `(("libx11" ,libx11)
2173        ("libxinerama" ,libxinerama)
2174        ("libxft" ,libxft)
2175        ("freetype" ,freetype)
2176        ("imlib2" ,imlib2)))
2177     (arguments
2178      `(#:tests? #f ;no test suite
2179        #:make-flags
2180        (list (string-append "CC=" ,(cc-for-target))
2181              (string-append "PREFIX=" %output)
2182              (string-append "CFLAGS="
2183                             "-I" (assoc-ref %build-inputs "freetype")
2184                             "/include/freetype2"))
2185        #:phases
2186        (modify-phases %standard-phases
2187          (delete 'configure))))
2188     (home-page "https://github.com/phillbush/xmenu")
2189     (synopsis "Menu utility for X")
2190     (description "@code{xmenu} receives a menu specification in stdin, shows
2191 a menu for the user to select one of the options, and outputs the option
2192 selected to stdout.  It can be controlled both via mouse and via keyboard.")
2193     (license license:public-domain)))
2194
2195 (define-public idesk
2196   (package
2197     (name "idesk")
2198     (version "0.7.5")
2199     (source
2200      (origin
2201        (method url-fetch)
2202        (uri (string-append
2203              "mirror://sourceforge/idesk/idesk/idesk-" version
2204              "/idesk-" version ".tar.bz2"))
2205        (sha256
2206         (base32
2207          "1lxk2yvgysxwl514zc82lwr1dwc8cd62slgr5lzdhjbdrxfymdyl"))
2208        (modules '((guix build utils)
2209                   (ice-9 format)))
2210        (snippet
2211         '(let* ((file     "src/DesktopConfig.cpp")
2212                 (template (string-append file ".XXXXXX"))
2213                 (out      (mkstemp! template))
2214                 (st       (stat file))
2215                 (mode     (stat:mode st)))
2216            (call-with-ascii-input-file file
2217              (lambda (p)
2218                (format out "~{~a~%~}" '("#include <unistd.h>"
2219                                         "#include <sys/stat.h>"
2220                                         "#include <sys/types.h>"))
2221                (dump-port p out)
2222                (close out)
2223                (chmod template mode)
2224                (rename-file template file)
2225                #t))))))
2226     (build-system gnu-build-system)
2227     (inputs
2228      `(("libx11" ,libx11)
2229        ("libxft" ,libxft)
2230        ("libxpm" ,libxpm)
2231        ("libpng" ,libpng)
2232        ("freetype" ,freetype)
2233        ("imlib2" ,imlib2)
2234        ("sed" ,sed)))
2235     (native-inputs
2236      `(("pkg-config" ,pkg-config)))
2237     (arguments
2238      `(#:tests? #f)) ;no test suite
2239     (home-page "https://sourceforge.net/projects/idesk/")
2240     (synopsis "Add icons on X desktop and set background image for wallpaper")
2241     (description "Idesk is program that draws desktop icons.  Each icon will
2242 execute a shell command on a configurable action.  The icons can be moved on
2243 the desktop by dragging them, and the icons will remember their positions on
2244 start-up.")
2245     (license license:bsd-3)))
2246
2247 (define-public xnotify
2248   (package
2249     (name "xnotify")
2250     (version "0.7.3")
2251     (source (origin
2252               (method git-fetch)
2253               (uri (git-reference
2254                     (url "https://github.com/phillbush/xnotify")
2255                     (commit version)))
2256               (file-name (git-file-name name version))
2257               (sha256
2258                (base32
2259                 "09s29m8z4x3mc3wja2587ik3f6zg16b40adr3nllnpyy1mqnprq5"))))
2260     (build-system gnu-build-system)
2261     (inputs
2262      `(("libx11" ,libx11)
2263        ("libxft" ,libxft)
2264        ("libxinerama" ,libxinerama)
2265        ("imlib2" ,imlib2)))
2266     (arguments
2267      `(#:make-flags
2268        (list (string-append "CC=" ,(cc-for-target))
2269              (string-append "PREFIX=" %output)
2270              (string-append "CFLAGS="
2271                             "-I" (assoc-ref %build-inputs "freetype")
2272                             "/include/freetype2"))
2273        #:tests? #f ;no test suite
2274        #:phases
2275        (modify-phases %standard-phases
2276          (delete 'configure))))
2277     (home-page "https://github.com/phillbush/xnotify")
2278     (synopsis "Displays a notification on the screen")
2279     (description "XNotify receives a notification specification in stdin and
2280 shows a notification for the user on the screen.")
2281     (license license:expat)))