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