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