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 stumpwm
1613   (package
1614     (name "stumpwm")
1615     (version "20.11")
1616     (source
1617      (origin
1618        (method git-fetch)
1619        (uri (git-reference
1620              (url "https://github.com/stumpwm/stumpwm")
1621              (commit version)))
1622        (file-name (git-file-name "stumpwm" version))
1623        (sha256
1624         (base32 "1ghs6ihvmb3bz4q4ys1d3h6rdi96xyiw7l2ip7jh54c25049aymf"))))
1625     (build-system asdf-build-system/sbcl)
1626     (native-inputs `(("fiasco" ,sbcl-fiasco)
1627                      ("texinfo" ,texinfo)
1628
1629                      ;; To build the manual.
1630                      ("autoconf" ,autoconf)
1631                      ("automake" ,automake)))
1632     (inputs `(("cl-ppcre" ,sbcl-cl-ppcre)
1633               ("clx" ,sbcl-clx)
1634               ("alexandria" ,sbcl-alexandria)))
1635     (outputs '("out" "lib"))
1636     (arguments
1637      '(#:asd-systems '("stumpwm")
1638        #:phases
1639        (modify-phases %standard-phases
1640          (add-after 'create-asdf-configuration 'build-program
1641            (lambda* (#:key outputs #:allow-other-keys)
1642              (build-program
1643               (string-append (assoc-ref outputs "out") "/bin/stumpwm")
1644               outputs
1645               #:entry-program '((stumpwm:stumpwm) 0))))
1646          (add-after 'build-program 'create-desktop-file
1647            (lambda* (#:key outputs #:allow-other-keys)
1648              (let* ((out (assoc-ref outputs "out"))
1649                     (xsessions (string-append out "/share/xsessions")))
1650                (mkdir-p xsessions)
1651                (call-with-output-file
1652                    (string-append xsessions "/stumpwm.desktop")
1653                  (lambda (file)
1654                    (format file
1655                     "[Desktop Entry]~@
1656                      Name=stumpwm~@
1657                      Comment=The Stump Window Manager~@
1658                      Exec=~a/bin/stumpwm~@
1659                      TryExec=~@*~a/bin/stumpwm~@
1660                      Icon=~@
1661                      Type=Application~%"
1662                     out)))
1663                #t)))
1664          (add-after 'install 'install-manual
1665            (lambda* (#:key (make-flags '()) outputs #:allow-other-keys)
1666              (let* ((out  (assoc-ref outputs "out"))
1667                     (info (string-append out "/share/info")))
1668                (invoke "./autogen.sh")
1669                (invoke "sh" "./configure" "SHELL=sh")
1670                (apply invoke "make" "stumpwm.info" make-flags)
1671                (install-file "stumpwm.info" info)
1672                #t))))))
1673     (synopsis "Window manager written in Common Lisp")
1674     (description "Stumpwm is a window manager written entirely in Common Lisp.
1675 It attempts to be highly customizable while relying entirely on the keyboard
1676 for input.  These design decisions reflect the growing popularity of
1677 productive, customizable lisp based systems.")
1678     (home-page "https://github.com/stumpwm/stumpwm")
1679     (license license:gpl2+)
1680     (properties `((cl-source-variant . ,(delay cl-stumpwm))))))
1681
1682 (define-public sbcl-stumpwm
1683   (deprecated-package "sbcl-stumpwm" stumpwm))
1684
1685 (define-public cl-stumpwm
1686   (package
1687     (inherit (sbcl-package->cl-source-package stumpwm))
1688     (name "cl-stumpwm")))
1689
1690 (define-public stumpwm+slynk
1691   (package
1692     (inherit stumpwm)
1693     (name "stumpwm-with-slynk")
1694     (outputs '("out"))
1695     (inputs
1696      `(("stumpwm" ,stumpwm "lib")
1697        ("slynk" ,sbcl-slynk)))
1698     (arguments
1699      (substitute-keyword-arguments (package-arguments stumpwm)
1700        ((#:phases phases)
1701         `(modify-phases ,phases
1702            (replace 'build-program
1703              (lambda* (#:key inputs outputs #:allow-other-keys)
1704                (let* ((out (assoc-ref outputs "out"))
1705                       (program (string-append out "/bin/stumpwm")))
1706                  (setenv "HOME" "/tmp")
1707                  (build-program program outputs
1708                                 #:entry-program '((stumpwm:stumpwm) 0)
1709                                 #:dependencies '("stumpwm" "slynk")
1710                                 #:dependency-prefixes
1711                                 (map (lambda (input) (assoc-ref inputs input))
1712                                      '("stumpwm" "slynk")))
1713                  #t)))
1714            (delete 'copy-source)
1715            (delete 'build)
1716            (delete 'check)
1717            (delete 'cleanup)))))))
1718
1719 (define stumpwm-contrib
1720   (let ((commit "920f8fc1488f7953f205e1dda4c2ecbbbda56d63")
1721         (revision "2"))
1722     (package
1723       (name "stumpwm-contrib")
1724       (version (git-version "0.0.1" revision commit)) ;no upstream release
1725       (source
1726        (origin
1727          (method git-fetch)
1728          (uri (git-reference
1729                (url "https://github.com/stumpwm/stumpwm-contrib")
1730                (commit commit)))
1731          (file-name (git-file-name name version))
1732          (sha256
1733           (base32 "0giac390bq95ag41xkxqp8jjrhfx1wpgglz7jg5rkm0wjhcwmyml"))))
1734       (build-system asdf-build-system/sbcl)
1735       (inputs
1736        `(("stumpwm" ,stumpwm "lib")))
1737       (home-page "https://github.com/stumpwm/stumpwm-contrib")
1738       (synopsis "StumpWM interactive shell")
1739       (description "This package provides a StumpWM interactive shell.")
1740       (license (list license:gpl2+ license:gpl3+ license:bsd-2)))))
1741
1742 (define-public stumpish
1743   (package
1744     (inherit stumpwm-contrib)
1745     (name "stumpish")
1746     (inputs
1747      `(("bash" ,bash)
1748        ("rlwrap" ,rlwrap)
1749        ("xprop" ,xprop)))
1750     (build-system trivial-build-system)
1751     (arguments
1752      '(#:modules ((guix build utils))
1753        #:builder
1754        (begin
1755          (use-modules (guix build utils))
1756          (copy-recursively (assoc-ref %build-inputs "source") ".")
1757          (chdir "util/stumpish")
1758          (substitute* "stumpish"
1759            (("rlwrap") (string-append (assoc-ref %build-inputs "rlwrap")
1760                                       "/bin/rlwrap"))
1761            (("xprop") (string-append (assoc-ref %build-inputs "xprop")
1762                                       "/bin/xprop"))
1763            (("/bin/sh") (string-append (assoc-ref %build-inputs "bash")
1764                                        "/bin/bash")))
1765          (install-file "stumpish" (string-append %output "/bin")))))
1766     (home-page "https://github.com/stumpwm/stumpwm-contrib")
1767     (synopsis "StumpWM interactive shell")
1768     (description "This package provides a StumpWM interactive shell.")
1769     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
1770
1771 (define-public sbcl-stumpwm+slynk
1772   (deprecated-package "sbcl-stumpwm-with-slynk" stumpwm+slynk))
1773
1774 (define-public sbcl-stumpwm-ttf-fonts
1775   (package
1776     (inherit stumpwm-contrib)
1777     (name "sbcl-stumpwm-ttf-fonts")
1778     (inputs
1779      `(("stumpwm" ,stumpwm "lib")
1780        ("clx-truetype" ,sbcl-clx-truetype)))
1781     (arguments
1782      '(#:asd-systems '("ttf-fonts")
1783        #:tests? #f
1784        #:phases
1785        (modify-phases %standard-phases
1786          (add-after 'unpack 'chdir
1787            (lambda _ (chdir "util/ttf-fonts") #t)))))
1788     (home-page "https://github.com/stumpwm/stumpwm-contrib")
1789     (synopsis "Implementation of TTF font rendering for Lisp")
1790     (description "This package provides a Lisp implementation of TTF font
1791 rendering.")
1792     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
1793
1794 (define-public sbcl-stumpwm-pass
1795   (package
1796     (inherit stumpwm-contrib)
1797     (name "sbcl-stumpwm-pass")
1798     (arguments
1799      '(#:asd-systems '("pass")
1800        #:tests? #f
1801        #:phases
1802        (modify-phases %standard-phases
1803          (add-after 'unpack 'chdir
1804            (lambda _ (chdir "util/pass") #t)))))
1805     (home-page "https://github.com/stumpwm/stumpwm-contrib")
1806     (synopsis "Integrate @code{pass} with StumpWM")
1807     (description "This package provides an interface which integrates
1808 password-store into StumpWM.")
1809     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
1810
1811 (define-public sbcl-stumpwm-globalwindows
1812   (package
1813     (inherit stumpwm-contrib)
1814     (name "sbcl-stumpwm-globalwindows")
1815     (arguments
1816      '(#:asd-systems '("globalwindows")
1817        #:tests? #f
1818        #:phases
1819        (modify-phases %standard-phases
1820          (add-after 'unpack 'chdir
1821            (lambda _ (chdir "util/globalwindows") #t)))))
1822     (home-page "https://github.com/stumpwm/stumpwm-contrib")
1823     (synopsis "Manipulate all windows in the current X session")
1824     (description "This package provides a StumpWM module to manipulate all
1825 windows in the current X session.")
1826     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
1827
1828 (define-public sbcl-stumpwm-swm-gaps
1829   (package
1830     (inherit stumpwm-contrib)
1831     (name "sbcl-stumpwm-swm-gaps")
1832     (arguments
1833      '(#:asd-systems '("swm-gaps")
1834        #:tests? #f
1835        #:phases
1836        (modify-phases %standard-phases
1837          (add-after 'unpack 'chdir
1838            (lambda _ (chdir "util/swm-gaps") #t)))))
1839     (home-page "https://github.com/stumpwm/stumpwm-contrib")
1840     (synopsis "Gaps between windows for StumpWM")
1841     (description "This package provides a StumpWM module which adds gaps
1842 between windows.")
1843     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
1844
1845 (define-public sbcl-stumpwm-net
1846   (package
1847     (inherit stumpwm-contrib)
1848     (name "sbcl-stumpwm-net")
1849     (arguments
1850      '(#:asd-systems '("net")
1851        #:tests? #f
1852        #:phases
1853        (modify-phases %standard-phases
1854          (add-after 'unpack 'chdir (lambda _ (chdir "modeline/net") #t)))))
1855     (home-page
1856      "https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/net")
1857     (synopsis "Modeline support for network connectivity")
1858     (description "Modeline support for network connectivity.")
1859     (supported-systems
1860      (filter (lambda (a) (string-contains a "linux")) %supported-systems))
1861     (license license:gpl3+)))
1862
1863 (define-public sbcl-stumpwm-wifi
1864   (package
1865     (inherit stumpwm-contrib)
1866     (name "sbcl-stumpwm-wifi")
1867     (arguments
1868      '(#:asd-systems '("wifi")
1869        #:tests? #f
1870        #:phases
1871        (modify-phases %standard-phases
1872          (add-after 'unpack 'chdir (lambda _ (chdir "modeline/wifi") #t)))))
1873     (home-page
1874      "https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/wifi")
1875     (synopsis "Modeline support for wifi connectivity")
1876     (description "Modeline support for wifi connectivity.")
1877     (supported-systems
1878      (filter (lambda (a) (string-contains a "linux")) %supported-systems))
1879     (license license:gpl3+)))
1880
1881 (define-public sbcl-stumpwm-stumptray
1882   (package
1883     (inherit stumpwm-contrib)
1884     (name "sbcl-stumpwm-stumptray")
1885     (arguments
1886      '(#:asd-systems '("stumptray")
1887        #:tests? #f
1888        #:phases
1889        (modify-phases %standard-phases
1890          (add-after 'unpack 'chdir (lambda _ (chdir "modeline/stumptray") #t)))))
1891     (inputs
1892      `(("stumpwm" ,stumpwm "lib")
1893        ("xembed" ,sbcl-clx-xembed)
1894        ("alexandria" ,sbcl-alexandria)))
1895     (home-page
1896      "https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/stumptray")
1897     (synopsis "Modeline support for stumptray connectivity")
1898     (description "Modeline support for stumptray connectivity.")
1899     (supported-systems
1900      (filter (lambda (a) (string-contains a "linux")) %supported-systems))
1901     (license license:gpl3+)))
1902
1903 (define-public sbcl-stumpwm-kbd-layouts
1904   (package
1905     (inherit stumpwm-contrib)
1906     (name "sbcl-stumpwm-kbd-layouts")
1907     (arguments
1908      '(#:asd-systems '("kbd-layouts")
1909        #:tests? #f
1910        #:phases
1911        (modify-phases %standard-phases
1912          (add-after 'unpack 'chdir (lambda _ (chdir "util/kbd-layouts") #t)))))
1913     (home-page
1914      "https://github.com/stumpwm/stumpwm-contrib/tree/master/util/kbd-layouts")
1915     (synopsis "Keyboard layout switcher for StumpWM")
1916     (description "Keyboard layout switcher for StumpWM")
1917     (license license:gpl3+)))
1918
1919 (define-public sbcl-stumpwm-numpad-layouts
1920   (package
1921     (inherit stumpwm-contrib)
1922     (name "sbcl-stumpwm-numpad-layouts")
1923     (arguments
1924      '(#:asd-systems '("numpad-layouts")
1925        #:tests? #f
1926        #:phases
1927        (modify-phases %standard-phases
1928          (add-after 'unpack 'chdir
1929            (lambda _
1930              (chdir "util/numpad-layouts"))))))
1931     (home-page
1932      "https://github.com/stumpwm/stumpwm-contrib/tree/master/util/numpad-layouts")
1933     (synopsis "Keyboard numpad layouts for StumpWM")
1934     (description "This is a module for handling different keyboards numpad
1935 layouts in StumpWM.")
1936     (license license:gpl3+)))
1937
1938 (define-public sbcl-stumpwm-cpu
1939   (package
1940     (inherit stumpwm-contrib)
1941     (name "sbcl-stumpwm-cpu")
1942     (arguments
1943      '(#:asd-systems '("cpu")
1944        #:tests? #f
1945        #:phases
1946        (modify-phases %standard-phases
1947          (add-after 'unpack 'chdir
1948            (lambda _
1949              (chdir "modeline/cpu"))))))
1950     (home-page
1951      "https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/cpu")
1952     (synopsis "Modeline support for CPU info")
1953     (description "Modeline support for CPU info.")
1954     (license license:gpl3+)))
1955
1956 (define-public sbcl-stumpwm-mem
1957   (package
1958     (inherit stumpwm-contrib)
1959     (name "sbcl-stumpwm-mem")
1960     (arguments
1961      '(#:asd-systems '("mem")
1962        #:tests? #f
1963        #:phases
1964        (modify-phases %standard-phases
1965          (add-after 'unpack 'chdir
1966            (lambda _
1967              (chdir "modeline/mem"))))))
1968     (home-page
1969      "https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/mem")
1970     (synopsis "Modeline support for memory info")
1971     (description "Modeline support for memory info.")
1972     (license license:gpl3+)))
1973
1974 (define-public sbcl-stumpwm-winner-mode
1975   (package
1976     (inherit stumpwm-contrib)
1977     (name "sbcl-stumpwm-winner-mode")
1978     (arguments
1979      '(#:asd-systems '("winner-mode")
1980        #:tests? #f
1981        #:phases
1982        (modify-phases %standard-phases
1983          (add-after 'unpack 'chdir
1984            (lambda _
1985              (chdir "util/winner-mode"))))))
1986     (home-page
1987      "https://github.com/stumpwm/stumpwm-contrib/tree/master/util/winner-mode")
1988     (synopsis "Emacs' winner-mode for StumpWM")
1989     (description "This module provides a winner-mode for StumpWM similar to the
1990 one in Emacs.")
1991     (license license:gpl3+)))
1992
1993 (define-public sbcl-stumpwm-screenshot
1994   (package
1995     (inherit stumpwm-contrib)
1996     (name "sbcl-stumpwm-screenshot")
1997     (inputs
1998      `(("stumpwm" ,stumpwm "lib")
1999        ("zpng" ,sbcl-zpng)))
2000     (arguments
2001      '(#:asd-systems '("screenshot")
2002        #:tests? #f
2003        #:phases
2004        (modify-phases %standard-phases
2005          (add-after 'unpack 'chdir
2006            (lambda _
2007              (chdir "util/screenshot")))
2008          (add-after 'chdir 'fix-build
2009            (lambda _
2010              (substitute* "screenshot.asd"
2011                (("#:zpng")
2012                 "#:stumpwm #:zpng")))))))
2013     (home-page
2014      "https://github.com/stumpwm/stumpwm-contrib/tree/master/util/screenshot")
2015     (synopsis "Screenshots for StumpWM")
2016     (description "This StumpWM module can take screenshots and store them as
2017 PNG files.")
2018     (license license:gpl3+)))
2019
2020 (define-public lemonbar
2021   (let ((commit "35183ab81d2128dbb7b6d8e119cc57846bcefdb4")
2022         (revision "1"))
2023     (package
2024       (name "lemonbar")
2025       (version (git-version "1.3" revision commit))
2026       (source (origin
2027                 (method git-fetch)
2028                 (uri (git-reference
2029                       (url "https://github.com/LemonBoy/bar")
2030                       (commit commit)))
2031                 (file-name (git-file-name name version))
2032                 (sha256
2033                  (base32
2034                   "1wwqbph392iwz8skaqxb0xpklb1l6yganqz80g4x1fhrnz7idmlh"))))
2035       (build-system gnu-build-system)
2036       (arguments
2037        `(#:tests? #f                    ; no test suite
2038          #:make-flags
2039          (list ,(string-append "CC=" (cc-for-target))
2040                (string-append "PREFIX=" %output))
2041          #:phases
2042          (modify-phases %standard-phases
2043            (delete 'configure))))
2044       (inputs
2045        `(("libxcb" ,libxcb)))
2046       (native-inputs
2047        `(("perl" ,perl)))
2048       (home-page "https://github.com/LemonBoy/bar")
2049       (synopsis "Featherweight status bar")
2050       (description
2051        "@code{lemonbar} (formerly known as @code{bar}) is a lightweight
2052 bar entirely based on XCB.  Provides full UTF-8 support, basic
2053 formatting, RandR and Xinerama support and EWMH compliance without
2054 wasting your precious memory.")
2055       (license license:x11))))
2056
2057 (define-public lemonbar-xft
2058   ;; Upstream v2.0 tag is several years behind HEAD
2059   (let ((commit "481e12363e2a0fe0ddd2176a8e003392be90ed02"))
2060     (package
2061       (inherit lemonbar)
2062       (name "lemonbar-xft")
2063       (version (string-append "2.0." (string-take commit 7)))
2064       (source (origin
2065                 (method git-fetch)
2066                 (uri (git-reference
2067                       (url "https://github.com/drscream/lemonbar-xft")
2068                       (commit commit)))
2069                 (file-name (git-file-name name version))
2070                 (sha256
2071                  (base32
2072                   "0588g37h18lv50h7w8vfbwhvc3iajh7sdr53848spaif99nh3mh4"))))
2073       (inputs
2074        `(("freetype" ,freetype)
2075          ("libxft" ,libxft)
2076          ("libx11" ,libx11)
2077          ,@(package-inputs lemonbar)))
2078       (arguments
2079        (substitute-keyword-arguments (package-arguments lemonbar)
2080          ((#:make-flags make-flags)
2081           `(append
2082             ,make-flags
2083             (list (string-append
2084                    "CFLAGS="
2085                    (string-join
2086                     (list (string-append
2087                            "-I" (assoc-ref %build-inputs "freetype")
2088                            "/include/freetype2")
2089                           (string-append
2090                            "-D" "VERSION="
2091                            (format #f "'~s'" ,version))))))))))
2092       (home-page "https://github.com/drscream/lemonbar-xft")
2093       (synopsis
2094        (string-append
2095         (package-synopsis lemonbar)
2096         " with fontconfig support"))
2097       (description
2098        (string-append
2099         (package-description lemonbar)
2100         "This is a fork of the @code{lemonbar} package that adds fontconfig
2101 support, for easier unicode usage.")))))
2102
2103 (define-public xclickroot
2104   (package
2105     (name "xclickroot")
2106     (version "1.2")
2107     (source (origin
2108               (method git-fetch)
2109               (uri (git-reference
2110                     (url "https://github.com/phillbush/xclickroot")
2111                     (commit (string-append "v" version))))
2112               (file-name (git-file-name name version))
2113               (sha256
2114                (base32
2115                 "1nd5qz0qz5j7gx2jsbcp234giwaa0xmg42vrcjrcf587q9ivakfl"))))
2116     (build-system gnu-build-system)
2117     (inputs
2118      `(("libx11" ,libx11)))
2119     (arguments
2120      `(#:tests? #f ;no test suite
2121        #:make-flags
2122        (list ,(string-append "CC=" (cc-for-target))
2123              (string-append "PREFIX=" %output))
2124        #:phases
2125        (modify-phases %standard-phases
2126          (delete 'configure))))
2127     (home-page "https://github.com/phillbush/xclickroot")
2128     (synopsis "Run a command when a mouse button is pressed on the root window")
2129     (description "@code{xclickroot} runs a command every time a given mouse
2130 button is pressed on the root window.")
2131     (license license:public-domain)))
2132
2133 (define-public xmenu
2134   (package
2135     (name "xmenu")
2136     (version "4.4.1")
2137     (source (origin
2138               (method git-fetch)
2139               (uri (git-reference
2140                     (url "https://github.com/phillbush/xmenu")
2141                     (commit (string-append "v" version))))
2142               (file-name (git-file-name name version))
2143               (sha256
2144                (base32
2145                 "1s70zvsaqnsjqs298vw3py0vcvia68xlks1wcz37pb88bwligz1x"))))
2146     (build-system gnu-build-system)
2147     (inputs
2148      `(("libx11" ,libx11)
2149        ("libxinerama" ,libxinerama)
2150        ("libxft" ,libxft)
2151        ("freetype" ,freetype)
2152        ("imlib2" ,imlib2)))
2153     (arguments
2154      `(#:tests? #f ;no test suite
2155        #:make-flags
2156        (list (string-append "CC=" ,(cc-for-target))
2157              (string-append "PREFIX=" %output)
2158              (string-append "CFLAGS="
2159                             "-I" (assoc-ref %build-inputs "freetype")
2160                             "/include/freetype2"))
2161        #:phases
2162        (modify-phases %standard-phases
2163          (delete 'configure))))
2164     (home-page "https://github.com/phillbush/xmenu")
2165     (synopsis "Menu utility for X")
2166     (description "@code{xmenu} receives a menu specification in stdin, shows
2167 a menu for the user to select one of the options, and outputs the option
2168 selected to stdout.  It can be controlled both via mouse and via keyboard.")
2169     (license license:public-domain)))
2170
2171 (define-public idesk
2172   (package
2173     (name "idesk")
2174     (version "0.7.5")
2175     (source
2176      (origin
2177        (method url-fetch)
2178        (uri (string-append
2179              "mirror://sourceforge/idesk/idesk/idesk-" version
2180              "/idesk-" version ".tar.bz2"))
2181        (sha256
2182         (base32
2183          "1lxk2yvgysxwl514zc82lwr1dwc8cd62slgr5lzdhjbdrxfymdyl"))
2184        (modules '((guix build utils)
2185                   (ice-9 format)))
2186        (snippet
2187         '(let* ((file     "src/DesktopConfig.cpp")
2188                 (template (string-append file ".XXXXXX"))
2189                 (out      (mkstemp! template))
2190                 (st       (stat file))
2191                 (mode     (stat:mode st)))
2192            (call-with-ascii-input-file file
2193              (lambda (p)
2194                (format out "~{~a~%~}" '("#include <unistd.h>"
2195                                         "#include <sys/stat.h>"
2196                                         "#include <sys/types.h>"))
2197                (dump-port p out)
2198                (close out)
2199                (chmod template mode)
2200                (rename-file template file)
2201                #t))))))
2202     (build-system gnu-build-system)
2203     (inputs
2204      `(("libx11" ,libx11)
2205        ("libxft" ,libxft)
2206        ("libxpm" ,libxpm)
2207        ("libpng" ,libpng)
2208        ("freetype" ,freetype)
2209        ("imlib2" ,imlib2)
2210        ("sed" ,sed)))
2211     (native-inputs
2212      `(("pkg-config" ,pkg-config)))
2213     (arguments
2214      `(#:tests? #f)) ;no test suite
2215     (home-page "https://sourceforge.net/projects/idesk/")
2216     (synopsis "Add icons on X desktop and set background image for wallpaper")
2217     (description "Idesk is program that draws desktop icons.  Each icon will
2218 execute a shell command on a configurable action.  The icons can be moved on
2219 the desktop by dragging them, and the icons will remember their positions on
2220 start-up.")
2221     (license license:bsd-3)))
2222
2223 (define-public xnotify
2224   (package
2225     (name "xnotify")
2226     (version "0.7.3")
2227     (source (origin
2228               (method git-fetch)
2229               (uri (git-reference
2230                     (url "https://github.com/phillbush/xnotify")
2231                     (commit version)))
2232               (file-name (git-file-name name version))
2233               (sha256
2234                (base32
2235                 "09s29m8z4x3mc3wja2587ik3f6zg16b40adr3nllnpyy1mqnprq5"))))
2236     (build-system gnu-build-system)
2237     (inputs
2238      `(("libx11" ,libx11)
2239        ("libxft" ,libxft)
2240        ("libxinerama" ,libxinerama)
2241        ("imlib2" ,imlib2)))
2242     (arguments
2243      `(#:make-flags
2244        (list (string-append "CC=" ,(cc-for-target))
2245              (string-append "PREFIX=" %output)
2246              (string-append "CFLAGS="
2247                             "-I" (assoc-ref %build-inputs "freetype")
2248                             "/include/freetype2"))
2249        #:tests? #f ;no test suite
2250        #:phases
2251        (modify-phases %standard-phases
2252          (delete 'configure))))
2253     (home-page "https://github.com/phillbush/xnotify")
2254     (synopsis "Displays a notification on the screen")
2255     (description "XNotify receives a notification specification in stdin and
2256 shows a notification for the user on the screen.")
2257     (license license:expat)))