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 ;;; 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     (build-system haskell-build-system)
 660     (inputs
 661      `(("ghc-extensible-exceptions" ,ghc-extensible-exceptions)
 662        ("ghc-quickcheck"            ,ghc-quickcheck)
 663        ("ghc-semigroups"            ,ghc-semigroups)
 664        ("ghc-setlocale"             ,ghc-setlocale)
 665        ("ghc-utf8-string"           ,ghc-utf8-string)
 666        ("ghc-x11"                   ,ghc-x11)))
 667     (arguments
 668      `(#:phases
 669        (modify-phases %standard-phases
 670          (add-after
 671           'install 'install-xsession
 672           (lambda _
 673             (let* ((xsessions (string-append %output "/share/xsessions")))
 674               (mkdir-p xsessions)
 675               (call-with-output-file
 676                   (string-append xsessions "/xmonad.desktop")
 677                 (lambda (port)
 678                   (format port "~
 679                     [Desktop Entry]~@
 680                     Name=~a~@
 681                     Comment=~a~@
 682                     Exec=~a/bin/xmonad~@
 683                     Type=Application~%" ,name ,synopsis %output)))))))))
 684     (home-page "https://xmonad.org")
 685     (description
 686      "Xmonad is a tiling window manager for X.  Windows are arranged
 687 automatically to tile the screen without gaps or overlap, maximising screen
 688 use.  All features of the window manager are accessible from the keyboard: a
 689 mouse is strictly optional.  Xmonad is written and extensible in Haskell.
 690 Custom layout algorithms, and other extensions, may be written by the user in
 691 config files.  Layouts are applied dynamically, and different layouts may be
 692 used on each workspace.  Xinerama is fully supported, allowing windows to be
 693 tiled on several screens.")
 694     (license license:bsd-3)))
 695
 696 (define-public xmobar
 697   (package
 698     (name "xmobar")
 699     (version "0.34")
 700     (source (origin
 701               (method url-fetch)
 702               (uri (string-append "mirror://hackage/package/xmobar/"
 703                                   "xmobar-" version ".tar.gz"))
 704               (sha256
 705                (base32
 706                 "0x09xbz7y9ay0046j1xpr9jjk5jqivqi06vm3q6mhcrgc4y922rx"))))
 707     (build-system haskell-build-system)
 708     (native-inputs
 709      `(("ghc-hspec" ,ghc-hspec)
 710        ("hspec-discover" ,hspec-discover)))
 711     (inputs
 712      `(("ghc-alsa-core" ,ghc-alsa-core)
 713        ("ghc-alsa-mixer" ,ghc-alsa-mixer)
 714        ("ghc-dbus" ,ghc-dbus)
 715        ("ghc-hinotify" ,ghc-hinotify)
 716        ("ghc-http" ,ghc-http)
 717        ("ghc-http-conduit" ,ghc-http-conduit)
 718        ("ghc-http-types" ,ghc-http-types)
 719        ("ghc-iwlib" ,ghc-iwlib)
 720        ("ghc-libmpd" ,ghc-libmpd)
 721        ("ghc-old-locale" ,ghc-old-locale)
 722        ("ghc-parsec-numbers" ,ghc-parsec-numbers)
 723        ("ghc-regex-compat" ,ghc-regex-compat)
 724        ("ghc-temporary" ,ghc-temporary)
 725        ("ghc-timezone-olson" ,ghc-timezone-olson)
 726        ("ghc-x11" ,ghc-x11)
 727        ("ghc-x11-xft" ,ghc-x11-xft)
 728        ("libxpm" ,libxpm)))
 729     (arguments
 730      `(#:configure-flags (list "--flags=all_extensions")
 731        #:phases
 732        (modify-phases %standard-phases
 733          (add-before 'build 'patch-test-shebang
 734            (lambda* (#:key inputs #:allow-other-keys)
 735              (substitute* "test/Xmobar/Plugins/Monitors/AlsaSpec.hs"
 736                (("/bin/bash") (which "bash")))
 737              #t)))))
 738     (home-page "https://xmobar.org")
 739     (synopsis "Minimalistic text based status bar")
 740     (description
 741      "@code{xmobar} is a lightweight, text-based, status bar written in
 742 Haskell.  It was originally designed to be used together with Xmonad, but it
 743 is also usable with any other window manager.  While xmobar is written in
 744 Haskell, no knowledge of the language is required to install and use it.")
 745     (license license:bsd-3)))
 746
 747 (define-public yeganesh
 748   (package
 749     (name "yeganesh")
 750     (version "2.4")
 751     (source
 752      (origin
 753
 754        (method url-fetch)
 755        (uri (string-append "http://dmwit.com/yeganesh/yeganesh-" version ".tar.gz"))
 756        (sha256
 757         (base32 "04djfyjab3c5y9z9x8zd0xcx0jyy35zq7cl9ddr4ppf6k5ky6iky"))))
 758     (build-system haskell-build-system)
 759     (inputs
 760      `(("ghc-strict" ,ghc-strict)
 761        ("ghc-xdg-basedir" ,ghc-xdg-basedir)))
 762     (home-page "http://dmwit.com/yeganesh/")
 763     (synopsis "Small wrapper around dmenu")
 764     (description "@code{yeganesh} is a small wrapper around demnu.  Like
 765 dmenu, it accepts input on stdin and writes the chosen result on stdout.
 766 Unlike dmenu, it mangles the input before it presents its choices.  In
 767 particular, it displays commonly-chosen options before uncommon ones.")
 768     (license license:bsd-3)))
 769
 770 (define-public ghc-xmonad-contrib
 771   (package
 772     (name "ghc-xmonad-contrib")
 773     (version "0.16")
 774     (source
 775      (origin
 776        (method url-fetch)
 777        (uri (string-append "mirror://hackage/package/xmonad-contrib/"
 778                            "xmonad-contrib-" version ".tar.gz"))
 779        (sha256
 780         (base32 "1pddgkvnbww28wykncc7j0yb0lv15bk7xnnhdcbrwkxzw66w6wmd"))))
 781     (build-system haskell-build-system)
 782     (propagated-inputs
 783      `(("ghc-old-time" ,ghc-old-time)
 784        ("ghc-random" ,ghc-random)
 785        ("ghc-utf8-string" ,ghc-utf8-string)
 786        ("ghc-extensible-exceptions" ,ghc-extensible-exceptions)
 787        ("ghc-semigroups" ,ghc-semigroups)
 788        ("ghc-x11" ,ghc-x11)
 789        ("ghc-x11-xft" ,ghc-x11-xft)
 790        ("xmonad" ,xmonad)))
 791     (home-page "https://xmonad.org")
 792     (synopsis "Third party extensions for xmonad")
 793     (description
 794      "Third party tiling algorithms, configurations, and scripts to Xmonad, a
 795 tiling window manager for X.")
 796     (license license:bsd-3)))
 797
 798 (define-public evilwm
 799   (package
 800     (name "evilwm")
 801     (version "1.1.1")
 802     (source
 803      (origin
 804        (method url-fetch)
 805        (uri (string-append "http://www.6809.org.uk/evilwm/evilwm-"
 806                            version ".tar.gz"))
 807        (sha256
 808         (base32
 809          "0ak0yajzk3v4dg5wmaghv6acf7v02a4iw8qxmq5yw5ard8lrqn3r"))
 810        (patches (search-patches "evilwm-lost-focus-bug.patch"))))
 811     (build-system gnu-build-system)
 812     (inputs
 813      `(("libx11" ,libx11)
 814        ("libxext" ,libxext)
 815        ("libxrandr" ,libxrandr)))
 816     (arguments
 817      `(#:modules ((srfi srfi-26)
 818                   (guix build utils)
 819                   (guix build gnu-build-system))
 820        #:make-flags (let ((inputs (map (cut assoc-ref %build-inputs <>)
 821                                        '("libx11" "libxext" "libxrandr")))
 822                           (join (lambda (proc strs)
 823                                   (string-join (map proc strs) " ")))
 824                           (dash-I (cut string-append "-I" <> "/include"))
 825                           (dash-L (cut string-append "-L" <> "/lib")))
 826                       `("desktopfilesdir=$(prefix)/share/xsessions"
 827                         ,(string-append "prefix=" (assoc-ref %outputs "out"))
 828                         ,(string-append "CPPFLAGS=" (join dash-I inputs))
 829                         ,(string-append "LDFLAGS=" (join dash-L inputs))))
 830        #:tests? #f                      ;no tests
 831        #:phases (modify-phases %standard-phases
 832                   (delete 'configure)))) ;no configure script
 833     (home-page "http://www.6809.org.uk/evilwm/")
 834     (synopsis "Minimalist window manager for the X Window System")
 835     (description
 836      "evilwm is a minimalist window manager based on aewm, extended to feature
 837 many keyboard controls with repositioning and maximize toggles, solid window
 838 drags, snap-to-border support, and virtual desktops.")
 839     (license (license:x11-style "file:///README"))))
 840
 841 (define-public fluxbox
 842   (package
 843     (name "fluxbox")
 844     (version "1.3.7")
 845     (synopsis "Small and fast window manager")
 846     (source (origin
 847               (method url-fetch)
 848               (uri (string-append "mirror://sourceforge/fluxbox/fluxbox/"
 849                                   version "/fluxbox-" version ".tar.xz"))
 850               (sha256
 851                (base32
 852                 "1h1f70y40qd225dqx937vzb4k2cz219agm1zvnjxakn5jkz7b37w"))))
 853     (build-system gnu-build-system)
 854     (arguments
 855      `(#:make-flags '("CPPFLAGS=-U__TIME__") ;ugly, but for reproducibility
 856        #:phases
 857        (modify-phases %standard-phases
 858          (add-after 'install 'install-vim-files
 859            (lambda* (#:key outputs #:allow-other-keys)
 860              (let* ((out (assoc-ref outputs "out"))
 861                     (syntax (string-append out "/share/vim/vimfiles/syntax")))
 862                (copy-recursively "3rd/vim/vim/syntax" syntax)
 863                #t)))
 864          (add-after 'install 'install-xsession
 865            (lambda* (#:key outputs #:allow-other-keys)
 866              (let* ((out (assoc-ref outputs "out"))
 867                     (xsessions (string-append out "/share/xsessions")))
 868                (mkdir-p xsessions)
 869                (call-with-output-file
 870                  (string-append xsessions "/fluxbox.desktop")
 871                  (lambda (port)
 872                    (format port "~
 873                      [Desktop Entry]~@
 874                      Name=~a~@
 875                      Comment=~a~@
 876                      Exec=~a/bin/startfluxbox~@
 877                      Type=Application~%" ,name ,synopsis out)))
 878                #t))))))
 879     (native-inputs
 880      `(("pkg-config" ,pkg-config)))
 881     (inputs
 882      `(("freetype" ,freetype)
 883        ("fribidi" ,fribidi)
 884        ("imlib2" ,imlib2)
 885        ("libx11" ,libx11)
 886        ("libxext" ,libxext)
 887        ("libxft" ,libxft)
 888        ("libxinerama" ,libxinerama)
 889        ("libxpm"  ,libxpm)
 890        ("libxrandr" ,libxrandr)
 891        ("libxrender" ,libxrender)))
 892     (description "Fluxbox is a window manager.  It is light on resources
 893 and easy to handle yet full of features to make an easy and fast desktop
 894 experience.")
 895     (home-page "http://fluxbox.org/")
 896     (license license:expat)))
 897
 898 (define-public awesome
 899   (package
 900     (name "awesome")
 901     (version "4.3")
 902     (source
 903      (origin
 904        (method url-fetch)
 905        (uri (string-append
 906              "https://github.com/awesomeWM/awesome-releases/raw/master/"
 907              "awesome-" version ".tar.xz"))
 908        (sha256
 909         (base32 "0lqpw401mkkmp9wgbvrmm45bqq2j9357l4irwdqv6l1305pls9kq"))
 910        (modules '((guix build utils)
 911                   (srfi srfi-19)))
 912        (snippet
 913         '(begin
 914            ;; Remove non-reproducible timestamp and use the date of
 915            ;; the source file instead.
 916            (substitute* "common/version.c"
 917              (("__DATE__ \" \" __TIME__")
 918               (date->string
 919                (time-utc->date
 920                 (make-time time-utc 0 (stat:mtime (stat "awesome.c"))))
 921                "\"~c\"")))
 922            #t))
 923        (patches
 924         (search-patches "awesome-reproducible-png.patch"))))
 925     (build-system cmake-build-system)
 926     (native-inputs
 927      `(("asciidoc" ,asciidoc)
 928        ("docbook-xsl" ,docbook-xsl)
 929        ("doxygen" ,doxygen)
 930        ("gperf" ,gperf)
 931        ("imagemagick" ,imagemagick)
 932        ("libxml2" ,libxml2)             ;for XML_CATALOG_FILES
 933        ("lua-ldoc" ,lua-ldoc)
 934        ("pkg-config" ,pkg-config)
 935        ("xmlto" ,xmlto)))
 936     (inputs
 937      `(("cairo" ,cairo)
 938        ("dbus" ,dbus)
 939        ("gdk-pixbuf" ,gdk-pixbuf)
 940        ("glib" ,glib)
 941        ("gobject-introspection" ,gobject-introspection)
 942        ("imlib2" ,imlib2)
 943        ("libev" ,libev)
 944        ("libxcb" ,libxcb)
 945        ("libxcursor" ,libxcursor)
 946        ("libxdg-basedir" ,libxdg-basedir)
 947        ("libxkbcommon" ,libxkbcommon)
 948        ("lua" ,lua)
 949        ("lua-lgi" ,lua-lgi)
 950        ("pango" ,pango)
 951        ("startup-notification" ,startup-notification)
 952        ("xcb-util" ,xcb-util)
 953        ("xcb-util-cursor" ,xcb-util-cursor)
 954        ("xcb-util-image" ,xcb-util-image)
 955        ("xcb-util-keysyms" ,xcb-util-keysyms)
 956        ("xcb-util-renderutil" ,xcb-util-renderutil)
 957        ("xcb-util-xrm" ,xcb-util-xrm)
 958        ("xcb-util-wm" ,xcb-util-wm)))
 959     (arguments
 960      `(#:modules ((guix build cmake-build-system)
 961                   (guix build utils)
 962                   (ice-9 match))
 963        ;; Let compression happen in our 'compress-documentation' phase
 964        ;; so that '--no-name' is used, which removes timestamps from
 965        ;; gzip output.
 966        #:configure-flags
 967        '("-DCOMPRESS_MANPAGES=off")
 968        ;; Building awesome in its source directory is no longer
 969        ;; supported.
 970        #:out-of-source? #t
 971        #:phases
 972        (modify-phases %standard-phases
 973          (add-before 'configure 'set-paths
 974            (lambda* (#:key inputs #:allow-other-keys)
 975              ;; The build process needs to load Cairo dynamically.
 976              (let* ((cairo (string-append (assoc-ref inputs "cairo") "/lib"))
 977                     (lua-version ,(version-major+minor (package-version lua)))
 978                     (lua-dependencies
 979                      (filter (match-lambda
 980                                ((label . _) (string-prefix? "lua-" label)))
 981                              inputs))
 982                     (lua-path
 983                      (string-join
 984                       (map (match-lambda
 985                              ((_ . dir)
 986                               (string-append
 987                                dir "/share/lua/" lua-version "/?.lua;"
 988                                dir "/share/lua/" lua-version "/?/?.lua")))
 989                            lua-dependencies)
 990                       ";"))
 991                     (lua-cpath
 992                      (string-join
 993                       (map (match-lambda
 994                              ((_ . dir)
 995                               (string-append
 996                                dir "/lib/lua/" lua-version "/?.so;"
 997                                dir "/lib/lua/" lua-version "/?/?.so")))
 998                            lua-dependencies)
 999                       ";")))
1000                (setenv "LD_LIBRARY_PATH" cairo)
1001                (setenv "LUA_PATH" (string-append "?.lua;" lua-path))
1002                (setenv "LUA_CPATH" lua-cpath)
1003                #t)))
1004          (replace 'check
1005            (lambda _
1006              ;; There aren't any tests, so just make sure the binary
1007              ;; gets built and can be run successfully.
1008              (invoke "../build/awesome" "-v")))
1009          (add-after 'install 'patch-session-file
1010            (lambda* (#:key outputs #:allow-other-keys)
1011              (let* ((out (assoc-ref outputs "out"))
1012                     (awesome (string-append out "/bin/awesome")))
1013                (substitute* (string-append out "/share/xsessions/awesome.desktop")
1014                  (("Exec=awesome") (string-append "Exec=" awesome)))
1015                #t)))
1016          (add-after 'install 'wrap
1017            (lambda* (#:key inputs outputs #:allow-other-keys)
1018              (let* ((awesome (assoc-ref outputs "out"))
1019                     (cairo (string-append (assoc-ref inputs "cairo") "/lib"))
1020                     (lua-version ,(version-major+minor (package-version lua)))
1021                     (lua-lgi (assoc-ref inputs "lua-lgi")))
1022                (wrap-program (string-append awesome "/bin/awesome")
1023                  `("LUA_PATH" suffix
1024                    (,(format #f "~a/share/lua/~a/?.lua" lua-lgi lua-version)))
1025                  `("LUA_CPATH" suffix
1026                    (,(format #f "~a/lib/lua/~a/?.so" lua-lgi lua-version)))
1027                  `("GI_TYPELIB_PATH" ":" prefix (,(getenv "GI_TYPELIB_PATH")))
1028                  `("LD_LIBRARY_PATH" suffix (,cairo)))
1029                #t))))))
1030     (home-page "https://awesomewm.org/")
1031     (synopsis "Highly configurable window manager")
1032     (description
1033      "Awesome has been designed as a framework window manager.  It is fast, small,
1034 dynamic and extensible using the Lua programming language.")
1035     (license license:gpl2+)))
1036
1037 (define-public menumaker
1038   (package
1039     (name "menumaker")
1040     (version "0.99.12")
1041     (source
1042      (origin
1043        (method url-fetch)
1044        (uri (string-append "mirror://sourceforge/menumaker/"
1045                            "menumaker-" version ".tar.gz"))
1046        (sha256
1047         (base32 "034v5204bsgkzzk6zfa5ia63q95gln47f7hwf96yvad5hrhmd8z3"))))
1048     (build-system gnu-build-system)
1049     (inputs
1050      `(("python" ,python)))
1051     (synopsis "Heuristics-driven menu generator")
1052     (description
1053      "MenuMaker is a menu generation utility for a number of X window
1054 managers and desktop environments.  It is capable of finding lots of
1055 installed programs and generating a root menu consistent across all
1056 supported window managers, so one will get (almost) the same menu in
1057 all of them.  Currently supported window managers include:
1058
1059 @enumerate
1060 @item BlackBox
1061 @item Deskmenu
1062 @item FluxBox
1063 @item IceWM
1064 @item OpenBox
1065 @item PekWM
1066 @item WindowMaker
1067 @item XFCE
1068 @end enumerate\n")
1069     (home-page "http://menumaker.sourceforge.net/")
1070     (license license:bsd-2)))
1071
1072 (define-public keybinder
1073   (package
1074     (name "keybinder")
1075     (version "0.3.1")
1076     (source
1077      (origin
1078        (method url-fetch)
1079        (uri (string-append "https://github.com/kupferlauncher/keybinder"
1080                            "/releases/download/v" version "/keybinder-"
1081                            version ".tar.gz"))
1082        (file-name (string-append name "-" version ".tar.gz"))
1083        (sha256
1084         (base32
1085          "0h52hj3ay8mfhwvmfxbxlfyq74hifdk8wxgxp7fr4iy6189hg7w7"))))
1086     (build-system gnu-build-system)
1087     (inputs
1088      `(("python-2" ,python-2)
1089        ("gtk+-2" ,gtk+-2)))
1090     (native-inputs
1091      `(("python2-pygtk" ,python2-pygtk)
1092        ("gtk-doc" ,gtk-doc)
1093        ("pkg-config" ,pkg-config)))
1094     (synopsis "Library for registering global keyboard shortcuts")
1095     (description
1096      "Keybinder is a library for registering global keyboard shortcuts.
1097 Keybinder works with GTK-based applications using the X Window System.")
1098     (home-page "https://github.com/kupferlauncher/keybinder")
1099     (license license:gpl2+)))
1100
1101 (define-public keybinder-3.0
1102   (package
1103     (name "keybinder-3.0")
1104     (version "0.3.2")
1105     (source
1106      (origin
1107        (method url-fetch)
1108        (uri (string-append "https://github.com/kupferlauncher/keybinder"
1109                            "/releases/download/" name "-v" version "/" name "-"
1110                            version ".tar.gz"))
1111        (file-name (string-append name "-" version ".tar.gz"))
1112        (sha256
1113         (base32
1114          "0830ihwnalw59pp1xzrp37dn58n8vwb8zasnm4a1h81v3x7dxqz6"))))
1115     (build-system gnu-build-system)
1116     (inputs
1117      `(("gtk+" ,gtk+)
1118        ("gobject-introspection" ,gobject-introspection)))
1119     (native-inputs
1120      `(("gtk-doc" ,gtk-doc)
1121        ("pkg-config" ,pkg-config)))
1122     (synopsis "Library for registering global keyboard shortcuts, Gtk3 version")
1123     (description
1124      "Keybinder is a library for registering global keyboard shortcuts.
1125 Keybinder works with GTK-based applications using the X Window System.")
1126     (home-page "https://github.com/kupferlauncher/keybinder")
1127     (license license:x11)))
1128
1129 (define-public spectrwm
1130   (package
1131     (name "spectrwm")
1132     (version "3.2.0")
1133     (source
1134      (origin
1135        (method git-fetch)
1136        (uri (git-reference
1137              (url "https://github.com/conformal/spectrwm")
1138              (commit
1139               (string-append "SPECTRWM_"
1140                              (string-join (string-split version #\.) "_")))))
1141        (file-name (git-file-name name version))
1142        (sha256
1143         (base32 "1dfqy5f0s1nv6rqkz9lj006vypmp4rwxd5vczfk3ndzqgnh19kw6"))))
1144     (build-system gnu-build-system)
1145     (arguments
1146      `(#:make-flags (let ((pkg-config (lambda (flag)
1147                                         (string-append
1148                                          "$(shell pkg-config " flag " "
1149                                          "xft fontconfig x11 libpng)"))))
1150                       (list
1151                        "CC=gcc"
1152                        (string-append "PREFIX=" %output)
1153                        (string-append "INCS=-I. " (pkg-config "--cflags"))
1154                        (string-append "LIBS=" (pkg-config "--libs") " -lm")))
1155        #:tests? #f                      ;no test suite
1156        #:phases
1157        (modify-phases %standard-phases
1158          (add-before 'build 'change-dir
1159            (lambda _
1160              (chdir "linux") #t))
1161          (add-after 'change-dir 'patch-makefile
1162            (lambda _
1163              (substitute* "Makefile"
1164                (("-g") ""))))
1165          (delete 'configure))))         ;no 'configure' exists
1166     (inputs
1167      `(("freetype" ,freetype)
1168        ("fontconfig" ,fontconfig)
1169        ("libx11" ,libx11)
1170        ("libxcursor" ,libxcursor)
1171        ("libxrandr" ,libxrandr)
1172        ("libxtst" ,libxtst)
1173        ("libxft" ,libxft)
1174        ("xcb-util" ,xcb-util)
1175        ("xcb-util-wm" ,xcb-util-wm)
1176        ("xcb-util-keysyms" ,xcb-util-keysyms)))
1177     (native-inputs
1178      `(("libxt" ,libxt)
1179        ("pkg-config" ,pkg-config)))
1180     (synopsis "Minimalistic automatic tiling window manager")
1181     (description
1182      "Spectrwm is a small dynamic tiling and reparenting window manager for X11.
1183 It is inspired by Xmonad and dwm.  Its major features include:
1184
1185 @itemize
1186 @item Navigation anywhere on all screens with either the keyboard or mouse
1187 @item Customizable status bar
1188 @item Restartable without losing state
1189 @item Quick launch menu
1190 @item Many screen layouts possible with a few simple key strokes
1191 @item Move/resize floating windows
1192 @item Extended Window Manager Hints (@dfn{EWMH}) support
1193 @item Configurable tiling
1194 @item Adjustable tile gap allows for a true one pixel border
1195 @item Customizable colors and border width
1196 @end itemize\n")
1197     (home-page "https://github.com/conformal/spectrwm")
1198     (license license:isc)))
1199
1200 (define-public cwm
1201   (package
1202     (name "cwm")
1203     (version "6.6")
1204     (source
1205      (origin
1206        (method url-fetch)
1207        (uri (string-append "https://leahneukirchen.org/releases/cwm-"
1208                            version ".tar.gz"))
1209        (sha256
1210         (base32
1211          "0p350pbfn92m21jiq4i324sdskxhs71p435g0mgz7cmzprnhhg92"))))
1212     (build-system gnu-build-system)
1213     (arguments
1214      `(#:make-flags (list "CC=gcc"
1215                           (string-append "PREFIX=" %output))
1216        #:tests? #f
1217        #:phases
1218        (modify-phases %standard-phases
1219          (delete 'configure)
1220          (add-after 'build 'install-xsession
1221            (lambda* (#:key outputs #:allow-other-keys)
1222              ;; Add a .desktop file to xsessions.
1223              (let* ((output (assoc-ref outputs "out"))
1224                     (xsessions (string-append output "/share/xsessions")))
1225                (mkdir-p xsessions)
1226                (with-output-to-file
1227                    (string-append xsessions "/cwm.desktop")
1228                  (lambda _
1229                    (format #t
1230                            "[Desktop Entry]~@
1231                      Name=cwm~@
1232                      Comment=OpenBSD Calm Window Manager fork~@
1233                      Exec=~a/bin/cwm~@
1234                      TryExec=~@*~a/bin/cwm~@
1235                      Icon=~@
1236                      Type=Application~%"
1237                            output)))
1238                #t))))))
1239     (inputs
1240      `(("libxft" ,libxft)
1241        ("libxrandr" ,libxrandr)
1242        ("libxinerama" ,libxinerama)))
1243     (native-inputs
1244      `(("pkg-config" ,pkg-config)
1245        ("bison" ,bison)))
1246     (home-page "https://github.com/leahneukirchen/cwm")
1247     (synopsis "OpenBSD fork of the calmwm window manager")
1248     (description "Cwm is a stacking window manager for X11.  It is an OpenBSD
1249 project derived from the original Calm Window Manager.")
1250     (license license:isc)))
1251
1252 (define-public nitrogen
1253   (package
1254     (name "nitrogen")
1255     (version "1.6.1")
1256     (source (origin
1257               (method url-fetch)
1258               (uri (string-append "http://github.com/l3ib/nitrogen/"
1259                                   "releases/download/" version "/"
1260                                   name "-" version ".tar.gz"))
1261               (sha256
1262                (base32
1263                 "0zc3fl1mbhq0iyndy4ysmy8vv5c7xwf54rbgamzfhfvsgdq160pl"))))
1264     (build-system gnu-build-system)
1265     (inputs
1266      `(("gtk+" ,gtk+-2)
1267        ("gtkmm" ,gtkmm-2)
1268        ("glib" ,glib)
1269        ("glibmm" ,glibmm)))
1270     (native-inputs
1271      `(("pkg-config" ,pkg-config)))
1272     (home-page "http://projects.l3ib.org/nitrogen/")
1273     (synopsis "Background browser and setter for X windows")
1274     (description
1275      "This package is a background browser and setter for X windows.  It's
1276 features are:
1277
1278 @itemize
1279 @item Multihead and Xinerama aware
1280 @item Recall mode to used via startup script
1281 @item Uses freedesktop.org standard for thumbnails
1282 @item Can set GNOME background
1283 @item Command lie set modes for script use
1284 @item Inotify monitoring of browse directory
1285 @item Lazy loading of thumbnails - conserves memory
1286 @item \"Automatic\" set mode - determines best mode to set an image based on
1287 its size
1288 @item Display preview images in a tiled icon layout
1289 @end itemize")
1290     (license license:gpl2+)))
1291
1292 (define-public polybar
1293   (package
1294     (name "polybar")
1295     (version "3.4.3")
1296     (source
1297      (origin
1298        (method url-fetch)
1299        (uri (string-append "https://github.com/polybar/polybar/releases/"
1300                            "download/" version "/polybar-" version ".tar"))
1301        (sha256
1302         (base32 "0bw22qvbcdvyd0qv3ax48r34rnclbbb6dyb8h8zljq1r3lf15vfl"))))
1303     (build-system cmake-build-system)
1304     (arguments
1305      ;; Test is disabled because it requires downloading googletest from the
1306      ;; Internet.
1307      '(#:tests? #f))
1308     (inputs
1309      `(("alsa-lib" ,alsa-lib)
1310        ("cairo" ,cairo)
1311        ("i3-wm" ,i3-wm)
1312        ("jsoncpp" ,jsoncpp)
1313        ("libmpdclient" ,libmpdclient)
1314        ("libnl" ,libnl)
1315        ("libxcb" ,libxcb)
1316        ("pulseaudio" ,pulseaudio)
1317        ("xcb-proto" ,xcb-proto)
1318        ("xcb-util" ,xcb-util)
1319        ("xcb-util-cursor" ,xcb-util-cursor)
1320        ("xcb-util-image" ,xcb-util-image)
1321        ("xcb-util-wm" ,xcb-util-wm)
1322        ("xcb-util-xrm" ,xcb-util-xrm)))
1323     (native-inputs
1324      `(("pkg-config" ,pkg-config)
1325        ("python-sphinx" ,python-sphinx) ; for the manual
1326        ;; XXX: "python" input must be located after "python-2", or the package
1327        ;; fails to build with "missing required python module: xcbgen".
1328        ("python-2" ,python-2)           ; lib/xpp depends on python 2
1329        ("python" ,python)))             ; xcb-proto depends on python 3
1330     (home-page "https://polybar.github.io/")
1331     (synopsis "Fast and easy-to-use status bar")
1332     (description "Polybar aims to help users build beautiful and highly
1333 customizable status bars for their desktop environment.  It has built-in
1334 functionality to display information about the most commonly used services.")
1335     (license license:expat)))
1336
1337 (define-public wlroots
1338   (package
1339     (name "wlroots")
1340     (version "0.10.1")
1341     (source
1342      (origin
1343        (method git-fetch)
1344        (uri (git-reference
1345              (url "https://github.com/swaywm/wlroots")
1346              (commit version)))
1347        (file-name (git-file-name name version))
1348        (sha256
1349         (base32 "0j2lh9vc92zhn44rjbia5aw3y1rpgfng1x1h17lcvj5m4i6vj0pc"))))
1350     (build-system meson-build-system)
1351     (arguments
1352      `(#:configure-flags '("-Dlogind-provider=elogind")
1353        #:phases
1354        (modify-phases %standard-phases
1355          (add-before 'configure 'hardcode-paths
1356            (lambda* (#:key inputs #:allow-other-keys)
1357              (substitute* "xwayland/xwayland.c"
1358                (("Xwayland") (string-append (assoc-ref inputs
1359                                                        "xorg-server-xwayland")
1360                                             "/bin/Xwayland")))
1361              #t)))))
1362     (inputs `(("elogind" ,elogind)
1363               ("eudev" ,eudev)
1364               ("libinput" ,libinput)
1365               ("libxkbcommon" ,libxkbcommon)
1366               ("mesa" ,mesa)
1367               ("pixman" ,pixman)
1368               ("wayland" ,wayland)
1369               ("xorg-server-xwayland" ,xorg-server-xwayland)))
1370     (native-inputs `(("ffmpeg" ,ffmpeg)
1371                      ("libcap" ,libcap)
1372                      ("libpng" ,libpng)
1373                      ("pkg-config" ,pkg-config)
1374                      ("wayland-protocols" ,wayland-protocols)))
1375     (home-page "https://github.com/swaywm/wlroots")
1376     (synopsis "Pluggable, composable, unopinionated modules for building a
1377 Wayland compositor")
1378     (description "wlroots is a set of pluggable, composable, unopinionated
1379 modules for building a Wayland compositor.")
1380     (license license:expat)))  ; MIT license
1381
1382 (define-public sway
1383   (package
1384     (name "sway")
1385     (version "1.4")
1386     (source
1387      (origin
1388        (method git-fetch)
1389        (uri (git-reference
1390              (url "https://github.com/swaywm/sway")
1391              (commit version)))
1392        (file-name (git-file-name name version))
1393        (sha256
1394         (base32 "11qf89y3q92g696a6f4d23qb44gqixg6qxq740vwv2jw59ms34ja"))))
1395     (build-system meson-build-system)
1396     (arguments
1397      `(#:phases
1398        (modify-phases %standard-phases
1399          (add-before 'configure 'hardcode-paths
1400            (lambda* (#:key inputs #:allow-other-keys)
1401              ;; Hardcode path to swaybg.
1402              (substitute* "sway/config.c"
1403                (("strdup..swaybg..")
1404                 (string-append "strdup(\"" (assoc-ref inputs "swaybg")
1405                                "/bin/swaybg\")")))
1406              ;; Hardcode path to scdoc.
1407              (substitute* "meson.build"
1408                (("scdoc.get_pkgconfig_variable..scdoc..")
1409                 (string-append "'" (assoc-ref inputs "scdoc")
1410                                "/bin/scdoc'")))
1411              #t)))))
1412     (inputs `(("cairo" ,cairo)
1413               ("elogind" ,elogind)
1414               ("gdk-pixbuf" ,gdk-pixbuf)
1415               ("json-c" ,json-c)
1416               ("libevdev" ,libevdev)
1417               ("libinput" ,libinput)
1418               ("libxkbcommon" ,libxkbcommon)
1419               ("pango" ,pango)
1420               ("swaybg" ,swaybg)
1421               ("wayland" ,wayland)
1422               ("wlroots" ,wlroots)))
1423     (native-inputs `(("libcap" ,libcap)
1424                      ("linux-pam" ,linux-pam)
1425                      ("mesa" ,mesa)
1426                      ("pkg-config" ,pkg-config)
1427                      ("scdoc" ,scdoc)
1428                      ("wayland-protocols" ,wayland-protocols)))
1429     (home-page "https://github.com/swaywm/sway")
1430     (synopsis "Wayland compositor compatible with i3")
1431     (description "Sway is a i3-compatible Wayland compositor.")
1432     (license license:expat)))       ; MIT license
1433
1434 (define-public swayidle
1435   (package
1436     (name "swayidle")
1437     (version "1.5")
1438     (source
1439      (origin
1440        (method git-fetch)
1441        (uri (git-reference
1442              (url "https://github.com/swaywm/swayidle")
1443              (commit version)))
1444        (file-name (git-file-name name version))
1445        (sha256
1446         (base32 "05qi96j58xqxjiighay1d39rfanxcpn6vlynj23mb5dymxvlaq9n"))))
1447     (build-system meson-build-system)
1448     (arguments
1449      `(#:configure-flags '("-Dlogind-provider=elogind")))
1450     (inputs `(("elogind" ,elogind)
1451               ("wayland" ,wayland)))
1452     (native-inputs `(("pkg-config" ,pkg-config)
1453                      ("scdoc" ,scdoc)
1454                      ("wayland-protocols" ,wayland-protocols)))
1455     (home-page "https://github.com/swaywm/sway")
1456     (synopsis "Idle management daemon for Wayland compositors")
1457     (description "Swayidle is a idle management daemon for Wayland compositors.")
1458     (license license:expat))) ; MIT license
1459
1460 (define-public swaylock
1461   (package
1462     (name "swaylock")
1463     (version "1.4")
1464     (source
1465      (origin
1466        (method git-fetch)
1467        (uri (git-reference
1468              (url "https://github.com/swaywm/swaylock")
1469              (commit version)))
1470        (file-name (git-file-name name version))
1471        (sha256
1472         (base32 "1ii9ql1mxkk2z69dv6bg1x22nl3a46iww764wqjiv78x08xpk982"))))
1473     (build-system meson-build-system)
1474     (inputs `(("cairo" ,cairo)
1475               ("gdk-pixbuf" ,gdk-pixbuf)
1476               ("libxkbcommon" ,libxkbcommon)
1477               ;("linux-pam" ,linux-pam) ; FIXME: Doesn't work.
1478               ("wayland" ,wayland)))
1479     (native-inputs `(("pango" ,pango)
1480                      ("pkg-config" ,pkg-config)
1481                      ("scdoc" ,scdoc)
1482                      ("wayland-protocols" ,wayland-protocols)))
1483     (home-page "https://github.com/swaywm/sway")
1484     (synopsis "Screen locking utility for Wayland compositors")
1485     (description "Swaylock is a screen locking utility for Wayland compositors.")
1486     (license license:expat))) ; MIT license
1487
1488 (define-public swaybg
1489   (package
1490     (name "swaybg")
1491     (version "1.0")
1492     (source
1493      (origin
1494        (method git-fetch)
1495        (uri (git-reference
1496              (url "https://github.com/swaywm/swaybg")
1497              (commit version)))
1498        (file-name (git-file-name name version))
1499        (sha256
1500         (base32 "1lmqz5bmig90gq2m7lwf02d2g7z4hzf8fhqz78c8vk92c6p4xwbc"))))
1501     (build-system meson-build-system)
1502     (inputs `(("cairo" ,cairo)
1503               ("gdk-pixbuf" ,gdk-pixbuf)
1504               ("wayland" ,wayland)))
1505     (native-inputs `(("pkg-config" ,pkg-config)
1506                      ("scdoc" ,scdoc)
1507                      ("wayland-protocols" ,wayland-protocols)))
1508     (home-page "https://github.com/swaywm/sway")
1509     (synopsis "Screen wallpaper utility for Wayland compositors")
1510     (description "Swaybg is a wallpaper utility for Wayland compositors.")
1511     (license license:expat))) ; MIT license
1512
1513 (define-public waybar
1514   (package
1515     (name "waybar")
1516     (version "0.9.3")
1517     (source
1518      (origin
1519        (method git-fetch)
1520        (uri (git-reference
1521              (url "https://github.com/Alexays/Waybar")
1522              (commit version)))
1523        (file-name (git-file-name name version))
1524        (sha256
1525         (base32 "0ks719khhg2zwpyiwa2079i6962qcxpapm28hmr4ckpsp2n659ck"))))
1526     (build-system meson-build-system)
1527     (inputs `(("date" ,date)
1528               ("fmt" ,fmt)
1529               ("gtk-layer-shell" ,gtk-layer-shell)
1530               ("gtkmm" ,gtkmm)
1531               ("jsoncpp" ,jsoncpp)
1532               ("libdbusmenu" ,libdbusmenu)
1533               ("libinput" ,libinput)
1534               ("libmpdclent" ,libmpdclient)
1535               ("libnl" ,libnl)
1536               ("pulseaudio" ,pulseaudio)
1537               ("spdlog" ,spdlog)
1538               ("wayland" ,wayland)))
1539     (native-inputs
1540      `(("gcc" ,gcc-8)                   ; for #include <filesystem>
1541        ("glib:bin" ,glib "bin")
1542        ("pkg-config" ,pkg-config)
1543        ("scdoc" ,scdoc)
1544        ("wayland-protocols" ,wayland-protocols)))
1545     (home-page "https://github.com/Alexays/Waybar")
1546     (synopsis "Wayland bar for Sway and Wlroots based compositors")
1547     (description "Waybar is a highly customisable Wayland bar for Sway and
1548 Wlroots based compositors.")
1549     (license license:expat))) ; MIT license
1550
1551 (define-public mako
1552   (package
1553     (name "mako")
1554     (version "1.4")
1555     (source
1556      (origin
1557        (method git-fetch)
1558        (uri (git-reference
1559              (url "https://github.com/emersion/mako")
1560              (commit (string-append "v" version))))
1561        (file-name (git-file-name name version))
1562        (sha256
1563         (base32 "11ymiq6cr2ma0iva1mqybn3j6k73bsc6lv6pcbdq7hkhd4f9b7j9"))))
1564     (build-system meson-build-system)
1565     (inputs `(("cairo" ,cairo)
1566               ("elogind" ,elogind)
1567               ("gdk-pixbuf" ,gdk-pixbuf)
1568               ("pango" ,pango)
1569               ("wayland" ,wayland)))
1570     (native-inputs `(("pkg-config" ,pkg-config)
1571                      ("scdoc" ,scdoc)
1572                      ("wayland-protocols" ,wayland-protocols)))
1573     (home-page "https://wayland.emersion.fr/mako")
1574     (synopsis "Lightweight Wayland notification daemon")
1575     (description "Mako is a lightweight notification daemon for Wayland
1576 compositors that support the layer-shell protocol.")
1577     (license license:expat))) ; MIT license
1578
1579 (define-public stumpwm
1580   (package
1581     (name "stumpwm")
1582     (version "19.11")
1583     (source
1584      (origin
1585        (method git-fetch)
1586        (uri (git-reference
1587              (url "https://github.com/stumpwm/stumpwm")
1588              (commit version)))
1589        (file-name (git-file-name "stumpwm" version))
1590        (sha256
1591         (base32 "1ha8803ll7472kqxsy2xz0v5d4sv8apmc9z631d67m31q0z1m9rz"))))
1592     (build-system asdf-build-system/sbcl)
1593     (native-inputs `(("fiasco" ,sbcl-fiasco)
1594                      ("texinfo" ,texinfo)))
1595     (inputs `(("cl-ppcre" ,sbcl-cl-ppcre)
1596               ("clx" ,sbcl-clx)
1597               ("alexandria" ,sbcl-alexandria)))
1598     (outputs '("out" "lib"))
1599     (arguments
1600      '(#:asd-system-name "stumpwm"
1601        #:phases
1602        (modify-phases %standard-phases
1603          (add-after 'create-symlinks 'build-program
1604            (lambda* (#:key outputs #:allow-other-keys)
1605              (build-program
1606               (string-append (assoc-ref outputs "out") "/bin/stumpwm")
1607               outputs
1608               #:entry-program '((stumpwm:stumpwm) 0))))
1609          (add-after 'build-program 'create-desktop-file
1610            (lambda* (#:key outputs #:allow-other-keys)
1611              (let* ((out (assoc-ref outputs "out"))
1612                     (xsessions (string-append out "/share/xsessions")))
1613                (mkdir-p xsessions)
1614                (call-with-output-file
1615                    (string-append xsessions "/stumpwm.desktop")
1616                  (lambda (file)
1617                    (format file
1618                     "[Desktop Entry]~@
1619                      Name=stumpwm~@
1620                      Comment=The Stump Window Manager~@
1621                      Exec=~a/bin/stumpwm~@
1622                      TryExec=~@*~a/bin/stumpwm~@
1623                      Icon=~@
1624                      Type=Application~%"
1625                     out)))
1626                #t)))
1627          (add-after 'install 'install-manual
1628            (lambda* (#:key outputs #:allow-other-keys)
1629              ;; The proper way to the manual is bootstrapping a full autotools
1630              ;; build system and running ‘./configure && make stumpwm.info’ to
1631              ;; do some macro substitution.  We can get away with much less.
1632              (let* ((out  (assoc-ref outputs "out"))
1633                     (info (string-append out "/share/info")))
1634                (invoke "makeinfo" "stumpwm.texi.in")
1635                (install-file "stumpwm.info" info)
1636                #t))))))
1637     (synopsis "Window manager written in Common Lisp")
1638     (description "Stumpwm is a window manager written entirely in Common Lisp.
1639 It attempts to be highly customizable while relying entirely on the keyboard
1640 for input.  These design decisions reflect the growing popularity of
1641 productive, customizable lisp based systems.")
1642     (home-page "https://github.com/stumpwm/stumpwm")
1643     (license license:gpl2+)
1644     (properties `((cl-source-variant . ,(delay cl-stumpwm))))))
1645
1646 (define-public sbcl-stumpwm
1647   (deprecated-package "sbcl-stumpwm" stumpwm))
1648
1649 (define-public cl-stumpwm
1650   (package
1651     (inherit (sbcl-package->cl-source-package stumpwm))
1652     (name "cl-stumpwm")))
1653
1654 (define-public stumpwm+slynk
1655   (package
1656     (inherit stumpwm)
1657     (name "stumpwm-with-slynk")
1658     (outputs '("out"))
1659     (inputs
1660      `(("stumpwm" ,stumpwm "lib")
1661        ("slynk" ,sbcl-slynk)))
1662     (arguments
1663      (substitute-keyword-arguments (package-arguments stumpwm)
1664        ((#:phases phases)
1665         `(modify-phases ,phases
1666            (replace 'build-program
1667              (lambda* (#:key inputs outputs #:allow-other-keys)
1668                (let* ((out (assoc-ref outputs "out"))
1669                       (program (string-append out "/bin/stumpwm")))
1670                  (build-program program outputs
1671                                 #:entry-program '((stumpwm:stumpwm) 0)
1672                                 #:dependencies '("stumpwm"
1673                                                  ,@(@@ (gnu packages lisp-xyz) slynk-systems))
1674                                 #:dependency-prefixes
1675                                 (map (lambda (input) (assoc-ref inputs input))
1676                                      '("stumpwm" "slynk")))
1677                  ;; Remove unneeded file.
1678                  (delete-file (string-append out "/bin/stumpwm-exec.fasl"))
1679                  #t)))
1680            (delete 'copy-source)
1681            (delete 'build)
1682            (delete 'check)
1683            (delete 'create-asd-file)
1684            (delete 'cleanup)
1685            (delete 'create-symlinks)))))))
1686
1687 (define stumpwm-contrib
1688   (let ((commit "920f8fc1488f7953f205e1dda4c2ecbbbda56d63")
1689         (revision "2"))
1690     (package
1691       (name "stumpwm-contrib")
1692       (version (git-version "0.0.1" revision commit)) ;no upstream release
1693       (source
1694        (origin
1695          (method git-fetch)
1696          (uri (git-reference
1697                (url "https://github.com/stumpwm/stumpwm-contrib")
1698                (commit commit)))
1699          (file-name (git-file-name name version))
1700          (sha256
1701           (base32 "0giac390bq95ag41xkxqp8jjrhfx1wpgglz7jg5rkm0wjhcwmyml"))))
1702       (build-system asdf-build-system/sbcl)
1703       (inputs
1704        `(("stumpwm" ,stumpwm "lib")))
1705       (home-page "https://github.com/stumpwm/stumpwm-contrib")
1706       (synopsis "StumpWM interactive shell")
1707       (description "This package provides a StumpWM interactive shell.")
1708       (license (list license:gpl2+ license:gpl3+ license:bsd-2)))))
1709
1710 (define-public stumpish
1711   (package
1712     (inherit stumpwm-contrib)
1713     (name "stumpish")
1714     (inputs
1715      `(("bash" ,bash)
1716        ("rlwrap" ,rlwrap)))
1717     (build-system trivial-build-system)
1718     (arguments
1719      '(#:modules ((guix build utils))
1720        #:builder
1721        (begin
1722          (use-modules (guix build utils))
1723          (copy-recursively (assoc-ref %build-inputs "source") ".")
1724          (chdir "util/stumpish")
1725          (substitute* "stumpish"
1726            (("rlwrap") (string-append (assoc-ref %build-inputs "rlwrap")
1727                                       "/bin/rlwrap"))
1728            (("/bin/sh") (string-append (assoc-ref %build-inputs "bash")
1729                                        "/bin/bash")))
1730          (install-file "stumpish" (string-append %output "/bin")))))
1731     (home-page "https://github.com/stumpwm/stumpwm-contrib")
1732     (synopsis "StumpWM interactive shell")
1733     (description "This package provides a StumpWM interactive shell.")
1734     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
1735
1736 (define-public sbcl-stumpwm+slynk
1737   (deprecated-package "sbcl-stumpwm-with-slynk" stumpwm+slynk))
1738
1739 (define-public sbcl-stumpwm-ttf-fonts
1740   (package
1741     (inherit stumpwm-contrib)
1742     (name "sbcl-stumpwm-ttf-fonts")
1743     (inputs
1744      `(("stumpwm" ,stumpwm "lib")
1745        ("clx-truetype" ,sbcl-clx-truetype)))
1746     (arguments
1747      '(#:asd-system-name "ttf-fonts"
1748        #:tests? #f
1749        #:phases
1750        (modify-phases %standard-phases
1751          (add-after 'unpack 'chdir
1752            (lambda _ (chdir "util/ttf-fonts") #t)))))
1753     (home-page "https://github.com/stumpwm/stumpwm-contrib")
1754     (synopsis "Implementation of TTF font rendering for Lisp")
1755     (description "This package provides a Lisp implementation of TTF font
1756 rendering.")
1757     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
1758
1759 (define-public sbcl-stumpwm-pass
1760   (package
1761     (inherit stumpwm-contrib)
1762     (name "sbcl-stumpwm-pass")
1763     (arguments
1764      '(#:asd-system-name "pass"
1765        #:tests? #f
1766        #:phases
1767        (modify-phases %standard-phases
1768          (add-after 'unpack 'chdir
1769            (lambda _ (chdir "util/pass") #t)))))
1770     (home-page "https://github.com/stumpwm/stumpwm-contrib")
1771     (synopsis "Integrate @code{pass} with StumpWM")
1772     (description "This package provides an interface which integrates
1773 password-store into StumpWM.")
1774     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
1775
1776 (define-public sbcl-stumpwm-globalwindows
1777   (package
1778     (inherit stumpwm-contrib)
1779     (name "sbcl-stumpwm-globalwindows")
1780     (arguments
1781      '(#:asd-system-name "globalwindows"
1782        #:tests? #f
1783        #:phases
1784        (modify-phases %standard-phases
1785          (add-after 'unpack 'chdir
1786            (lambda _ (chdir "util/globalwindows") #t)))))
1787     (home-page "https://github.com/stumpwm/stumpwm-contrib")
1788     (synopsis "Manipulate all windows in the current X session")
1789     (description "This package provides a StumpWM module to manipulate all
1790 windows in the current X session.")
1791     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
1792
1793 (define-public sbcl-stumpwm-swm-gaps
1794   (package
1795     (inherit stumpwm-contrib)
1796     (name "sbcl-stumpwm-swm-gaps")
1797     (arguments
1798      '(#:asd-system-name "swm-gaps"
1799        #:tests? #f
1800        #:phases
1801        (modify-phases %standard-phases
1802          (add-after 'unpack 'chdir
1803            (lambda _ (chdir "util/swm-gaps") #t)))))
1804     (home-page "https://github.com/stumpwm/stumpwm-contrib")
1805     (synopsis "Gaps between windows for StumpWM")
1806     (description "This package provides a StumpWM module which adds gaps
1807 between windows.")
1808     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
1809
1810 (define-public sbcl-stumpwm-net
1811   (package
1812     (inherit stumpwm-contrib)
1813     (name "sbcl-stumpwm-net")
1814     (arguments
1815      '(#:asd-system-name "net"
1816        #:tests? #f
1817        #:phases
1818        (modify-phases %standard-phases
1819          (add-after 'unpack 'chdir (lambda _ (chdir "modeline/net") #t)))))
1820     (home-page
1821      "https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/net")
1822     (synopsis "Modeline support for network connectivity")
1823     (description "Modeline support for network connectivity.")
1824     (supported-systems
1825      (filter (lambda (a) (string-contains a "linux")) %supported-systems))
1826     (license license:gpl3+)))
1827
1828 (define-public sbcl-stumpwm-wifi
1829   (package
1830     (inherit stumpwm-contrib)
1831     (name "sbcl-stumpwm-wifi")
1832     (arguments
1833      '(#:asd-system-name "wifi"
1834        #:tests? #f
1835        #:phases
1836        (modify-phases %standard-phases
1837          (add-after 'unpack 'chdir (lambda _ (chdir "modeline/wifi") #t)))))
1838     (home-page
1839      "https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/wifi")
1840     (synopsis "Modeline support for wifi connectivity")
1841     (description "Modeline support for wifi connectivity.")
1842     (supported-systems
1843      (filter (lambda (a) (string-contains a "linux")) %supported-systems))
1844     (license license:gpl3+)))
1845
1846 (define-public sbcl-stumpwm-stumptray
1847   (package
1848     (inherit stumpwm-contrib)
1849     (name "sbcl-stumpwm-stumptray")
1850     (arguments
1851      '(#:asd-system-name "stumptray"
1852        #:tests? #f
1853        #:phases
1854        (modify-phases %standard-phases
1855          (add-after 'unpack 'chdir (lambda _ (chdir "modeline/stumptray") #t)))))
1856     (inputs
1857      `(("stumpwm" ,stumpwm "lib")
1858        ("xembed" ,sbcl-clx-xembed)
1859        ("alexandria" ,sbcl-alexandria)))
1860     (home-page
1861      "https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/stumptray")
1862     (synopsis "Modeline support for stumptray connectivity")
1863     (description "Modeline support for stumptray connectivity.")
1864     (supported-systems
1865      (filter (lambda (a) (string-contains a "linux")) %supported-systems))
1866     (license license:gpl3+)))
1867
1868 (define-public sbcl-stumpwm-kbd-layouts
1869   (package
1870     (inherit stumpwm-contrib)
1871     (name "sbcl-stumpwm-kbd-layouts")
1872     (arguments
1873      '(#:asd-system-name "kbd-layouts"
1874        #:tests? #f
1875        #:phases
1876        (modify-phases %standard-phases
1877          (add-after 'unpack 'chdir (lambda _ (chdir "util/kbd-layouts") #t)))))
1878     (home-page
1879      "https://github.com/stumpwm/stumpwm-contrib/tree/master/util/kbd-layouts")
1880     (synopsis "Keyboard layout switcher for StumpWM")
1881     (description "Keyboard layout switcher for StumpWM")
1882     (license license:gpl3+)))
1883
1884 (define-public lemonbar
1885   (let ((commit "35183ab81d2128dbb7b6d8e119cc57846bcefdb4")
1886         (revision "1"))
1887     (package
1888       (name "lemonbar")
1889       (version (git-version "1.3" revision commit))
1890       (source (origin
1891                 (method git-fetch)
1892                 (uri (git-reference
1893                       (url "https://github.com/LemonBoy/bar")
1894                       (commit commit)))
1895                 (file-name (git-file-name name version))
1896                 (sha256
1897                  (base32
1898                   "1wwqbph392iwz8skaqxb0xpklb1l6yganqz80g4x1fhrnz7idmlh"))))
1899       (build-system gnu-build-system)
1900       (arguments
1901        `(#:tests? #f                    ; no test suite
1902          #:make-flags
1903          (list ,(string-append "CC=" (cc-for-target))
1904                (string-append "PREFIX=" %output))
1905          #:phases
1906          (modify-phases %standard-phases
1907            (delete 'configure))))
1908       (inputs
1909        `(("libxcb" ,libxcb)))
1910       (native-inputs
1911        `(("perl" ,perl)))
1912       (home-page "https://github.com/LemonBoy/bar")
1913       (synopsis "Featherweight status bar")
1914       (description
1915        "@code{lemonbar} (formerly known as @code{bar}) is a lightweight
1916 bar entirely based on XCB.  Provides full UTF-8 support, basic
1917 formatting, RandR and Xinerama support and EWMH compliance without
1918 wasting your precious memory.")
1919       (license license:x11))))
1920
1921 (define-public xclickroot
1922   (let ((commit "309fd17174dba4149b5ea66654c6fd02cfcf7c9a")
1923         (revision "1"))
1924     (package
1925       (name "xclickroot")
1926       (version (git-version "0.0.1" revision commit)) ;no upstream release
1927       (source (origin
1928                 (method git-fetch)
1929                 (uri (git-reference
1930                       (url "https://github.com/phillbush/xclickroot")
1931                       (commit commit)))
1932                 (file-name (git-file-name name version))
1933                 (sha256
1934                  (base32
1935                   "0fjqkg3wnyks0my1vrzhxfjicsfy8xwnijaazmpz6mhilcqkpvnd"))))
1936       (build-system gnu-build-system)
1937       (inputs
1938        `(("libx11" ,libx11)))
1939       (arguments
1940        `(#:tests? #f ;no test suite
1941          #:make-flags
1942          (list ,(string-append "CC=" (cc-for-target))
1943                (string-append "PREFIX=" %output))
1944          #:phases
1945          (modify-phases %standard-phases
1946            (delete 'configure))))
1947       (home-page "https://github.com/phillbush/xclickroot")
1948       (synopsis "Run a command when a mouse button is pressed on the root window")
1949       (description "@code{xclickroot} runs a command every time a given mouse
1950 button is pressed on the root window.")
1951       (license license:public-domain))))
1952
1953 (define-public xmenu
1954   (package
1955     (name "xmenu")
1956     (version "3.4")
1957     (source (origin
1958               (method git-fetch)
1959               (uri (git-reference
1960                     (url "https://github.com/phillbush/xmenu")
1961                     (commit (string-append "v" version))))
1962               (file-name (git-file-name name version))
1963               (sha256
1964                (base32
1965                 "1sw9l87fh03jp03a2v7rhgpyx29yg2x9blzfzp40jwad2whs7m7n"))))
1966     (build-system gnu-build-system)
1967     (inputs
1968      `(("libx11" ,libx11)
1969        ("libxft" ,libxft)
1970        ("freetype" ,freetype)
1971        ("imlib2" ,imlib2)))
1972     (arguments
1973      `(#:tests? #f ;no test suite
1974        #:make-flags
1975        (list (string-append "CC=" ,(cc-for-target))
1976              (string-append "PREFIX=" %output)
1977              (string-append "CFLAGS="
1978                             "-I" (assoc-ref %build-inputs "freetype")
1979                             "/include/freetype2"))
1980        #:phases
1981        (modify-phases %standard-phases
1982          (delete 'configure))))
1983     (home-page "https://github.com/phillbush/xmenu")
1984     (synopsis "Menu utility for X")
1985     (description "@code{xmenu} receives a menu specification in stdin, shows
1986 a menu for the user to select one of the options, and outputs the option
1987 selected to stdout.  It can be controlled both via mouse and via keyboard.")
1988     (license license:public-domain)))
1989
1990 (define-public idesk
1991   (package
1992     (name "idesk")
1993     (version "0.7.5")
1994     (source
1995      (origin
1996        (method url-fetch)
1997        (uri (string-append
1998              "mirror://sourceforge/idesk/idesk/idesk-" version
1999              "/idesk-" version ".tar.bz2"))
2000        (sha256
2001         (base32
2002          "1lxk2yvgysxwl514zc82lwr1dwc8cd62slgr5lzdhjbdrxfymdyl"))
2003        (modules '((guix build utils)
2004                   (ice-9 format)))
2005        (snippet
2006         '(let* ((file     "src/DesktopConfig.cpp")
2007                 (template (string-append file ".XXXXXX"))
2008                 (out      (mkstemp! template))
2009                 (st       (stat file))
2010                 (mode     (stat:mode st)))
2011            (call-with-ascii-input-file file
2012              (lambda (p)
2013                (format out "~{~a~%~}" '("#include <unistd.h>"
2014                                         "#include <sys/stat.h>"
2015                                         "#include <sys/types.h>"))
2016                (dump-port p out)
2017                (close out)
2018                (chmod template mode)
2019                (rename-file template file)
2020                #t))))))
2021     (build-system gnu-build-system)
2022     (inputs
2023      `(("libx11" ,libx11)
2024        ("libxft" ,libxft)
2025        ("libxpm" ,libxpm)
2026        ("libpng" ,libpng)
2027        ("freetype" ,freetype)
2028        ("imlib2" ,imlib2)
2029        ("sed" ,sed)))
2030     (native-inputs
2031      `(("pkg-config" ,pkg-config)))
2032     (arguments
2033      `(#:tests? #f)) ;no test suite
2034     (home-page "https://sourceforge.net/projects/idesk/")
2035     (synopsis "Add icons on X desktop and set background image for wallpaper")
2036     (description "Idesk is program that draws desktop icons.  Each icon will
2037 execute a shell command on a configurable action.  The icons can be moved on
2038 the desktop by dragging them, and the icons will remember their positions on
2039 start-up.")
2040     (license license:bsd-3)))