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     (arguments
1528      `(#:configure-flags
1529        (list (string-append "-Dout=" (assoc-ref %outputs "out")))))
1530     (inputs `(("date" ,date)
1531               ("fmt" ,fmt)
1532               ("gtk-layer-shell" ,gtk-layer-shell)
1533               ("gtkmm" ,gtkmm)
1534               ("jsoncpp" ,jsoncpp)
1535               ("libdbusmenu" ,libdbusmenu)
1536               ("libinput" ,libinput)
1537               ("libmpdclent" ,libmpdclient)
1538               ("libnl" ,libnl)
1539               ("pulseaudio" ,pulseaudio)
1540               ("spdlog" ,spdlog)
1541               ("wayland" ,wayland)))
1542     (native-inputs
1543      `(("gcc" ,gcc-8)                   ; for #include <filesystem>
1544        ("glib:bin" ,glib "bin")
1545        ("pkg-config" ,pkg-config)
1546        ("scdoc" ,scdoc)
1547        ("wayland-protocols" ,wayland-protocols)))
1548     (home-page "https://github.com/Alexays/Waybar")
1549     (synopsis "Wayland bar for Sway and Wlroots based compositors")
1550     (description "Waybar is a highly customisable Wayland bar for Sway and
1551 Wlroots based compositors.")
1552     (license license:expat))) ; MIT license
1553
1554 (define-public mako
1555   (package
1556     (name "mako")
1557     (version "1.4")
1558     (source
1559      (origin
1560        (method git-fetch)
1561        (uri (git-reference
1562              (url "https://github.com/emersion/mako")
1563              (commit (string-append "v" version))))
1564        (file-name (git-file-name name version))
1565        (sha256
1566         (base32 "11ymiq6cr2ma0iva1mqybn3j6k73bsc6lv6pcbdq7hkhd4f9b7j9"))))
1567     (build-system meson-build-system)
1568     (inputs `(("cairo" ,cairo)
1569               ("elogind" ,elogind)
1570               ("gdk-pixbuf" ,gdk-pixbuf)
1571               ("pango" ,pango)
1572               ("wayland" ,wayland)))
1573     (native-inputs `(("pkg-config" ,pkg-config)
1574                      ("scdoc" ,scdoc)
1575                      ("wayland-protocols" ,wayland-protocols)))
1576     (home-page "https://wayland.emersion.fr/mako")
1577     (synopsis "Lightweight Wayland notification daemon")
1578     (description "Mako is a lightweight notification daemon for Wayland
1579 compositors that support the layer-shell protocol.")
1580     (license license:expat))) ; MIT license
1581
1582 (define-public stumpwm
1583   (package
1584     (name "stumpwm")
1585     (version "19.11")
1586     (source
1587      (origin
1588        (method git-fetch)
1589        (uri (git-reference
1590              (url "https://github.com/stumpwm/stumpwm")
1591              (commit version)))
1592        (file-name (git-file-name "stumpwm" version))
1593        (sha256
1594         (base32 "1ha8803ll7472kqxsy2xz0v5d4sv8apmc9z631d67m31q0z1m9rz"))))
1595     (build-system asdf-build-system/sbcl)
1596     (native-inputs `(("fiasco" ,sbcl-fiasco)
1597                      ("texinfo" ,texinfo)))
1598     (inputs `(("cl-ppcre" ,sbcl-cl-ppcre)
1599               ("clx" ,sbcl-clx)
1600               ("alexandria" ,sbcl-alexandria)))
1601     (outputs '("out" "lib"))
1602     (arguments
1603      '(#:asd-system-name "stumpwm"
1604        #:phases
1605        (modify-phases %standard-phases
1606          (add-after 'create-symlinks 'build-program
1607            (lambda* (#:key outputs #:allow-other-keys)
1608              (build-program
1609               (string-append (assoc-ref outputs "out") "/bin/stumpwm")
1610               outputs
1611               #:entry-program '((stumpwm:stumpwm) 0))))
1612          (add-after 'build-program 'create-desktop-file
1613            (lambda* (#:key outputs #:allow-other-keys)
1614              (let* ((out (assoc-ref outputs "out"))
1615                     (xsessions (string-append out "/share/xsessions")))
1616                (mkdir-p xsessions)
1617                (call-with-output-file
1618                    (string-append xsessions "/stumpwm.desktop")
1619                  (lambda (file)
1620                    (format file
1621                     "[Desktop Entry]~@
1622                      Name=stumpwm~@
1623                      Comment=The Stump Window Manager~@
1624                      Exec=~a/bin/stumpwm~@
1625                      TryExec=~@*~a/bin/stumpwm~@
1626                      Icon=~@
1627                      Type=Application~%"
1628                     out)))
1629                #t)))
1630          (add-after 'install 'install-manual
1631            (lambda* (#:key outputs #:allow-other-keys)
1632              ;; The proper way to the manual is bootstrapping a full autotools
1633              ;; build system and running ‘./configure && make stumpwm.info’ to
1634              ;; do some macro substitution.  We can get away with much less.
1635              (let* ((out  (assoc-ref outputs "out"))
1636                     (info (string-append out "/share/info")))
1637                (invoke "makeinfo" "stumpwm.texi.in")
1638                (install-file "stumpwm.info" info)
1639                #t))))))
1640     (synopsis "Window manager written in Common Lisp")
1641     (description "Stumpwm is a window manager written entirely in Common Lisp.
1642 It attempts to be highly customizable while relying entirely on the keyboard
1643 for input.  These design decisions reflect the growing popularity of
1644 productive, customizable lisp based systems.")
1645     (home-page "https://github.com/stumpwm/stumpwm")
1646     (license license:gpl2+)
1647     (properties `((cl-source-variant . ,(delay cl-stumpwm))))))
1648
1649 (define-public sbcl-stumpwm
1650   (deprecated-package "sbcl-stumpwm" stumpwm))
1651
1652 (define-public cl-stumpwm
1653   (package
1654     (inherit (sbcl-package->cl-source-package stumpwm))
1655     (name "cl-stumpwm")))
1656
1657 (define-public stumpwm+slynk
1658   (package
1659     (inherit stumpwm)
1660     (name "stumpwm-with-slynk")
1661     (outputs '("out"))
1662     (inputs
1663      `(("stumpwm" ,stumpwm "lib")
1664        ("slynk" ,sbcl-slynk)))
1665     (arguments
1666      (substitute-keyword-arguments (package-arguments stumpwm)
1667        ((#:phases phases)
1668         `(modify-phases ,phases
1669            (replace 'build-program
1670              (lambda* (#:key inputs outputs #:allow-other-keys)
1671                (let* ((out (assoc-ref outputs "out"))
1672                       (program (string-append out "/bin/stumpwm")))
1673                  (build-program program outputs
1674                                 #:entry-program '((stumpwm:stumpwm) 0)
1675                                 #:dependencies '("stumpwm"
1676                                                  ,@(@@ (gnu packages lisp-xyz) slynk-systems))
1677                                 #:dependency-prefixes
1678                                 (map (lambda (input) (assoc-ref inputs input))
1679                                      '("stumpwm" "slynk")))
1680                  ;; Remove unneeded file.
1681                  (delete-file (string-append out "/bin/stumpwm-exec.fasl"))
1682                  #t)))
1683            (delete 'copy-source)
1684            (delete 'build)
1685            (delete 'check)
1686            (delete 'create-asd-file)
1687            (delete 'cleanup)
1688            (delete 'create-symlinks)))))))
1689
1690 (define stumpwm-contrib
1691   (let ((commit "920f8fc1488f7953f205e1dda4c2ecbbbda56d63")
1692         (revision "2"))
1693     (package
1694       (name "stumpwm-contrib")
1695       (version (git-version "0.0.1" revision commit)) ;no upstream release
1696       (source
1697        (origin
1698          (method git-fetch)
1699          (uri (git-reference
1700                (url "https://github.com/stumpwm/stumpwm-contrib")
1701                (commit commit)))
1702          (file-name (git-file-name name version))
1703          (sha256
1704           (base32 "0giac390bq95ag41xkxqp8jjrhfx1wpgglz7jg5rkm0wjhcwmyml"))))
1705       (build-system asdf-build-system/sbcl)
1706       (inputs
1707        `(("stumpwm" ,stumpwm "lib")))
1708       (home-page "https://github.com/stumpwm/stumpwm-contrib")
1709       (synopsis "StumpWM interactive shell")
1710       (description "This package provides a StumpWM interactive shell.")
1711       (license (list license:gpl2+ license:gpl3+ license:bsd-2)))))
1712
1713 (define-public stumpish
1714   (package
1715     (inherit stumpwm-contrib)
1716     (name "stumpish")
1717     (inputs
1718      `(("bash" ,bash)
1719        ("rlwrap" ,rlwrap)))
1720     (build-system trivial-build-system)
1721     (arguments
1722      '(#:modules ((guix build utils))
1723        #:builder
1724        (begin
1725          (use-modules (guix build utils))
1726          (copy-recursively (assoc-ref %build-inputs "source") ".")
1727          (chdir "util/stumpish")
1728          (substitute* "stumpish"
1729            (("rlwrap") (string-append (assoc-ref %build-inputs "rlwrap")
1730                                       "/bin/rlwrap"))
1731            (("/bin/sh") (string-append (assoc-ref %build-inputs "bash")
1732                                        "/bin/bash")))
1733          (install-file "stumpish" (string-append %output "/bin")))))
1734     (home-page "https://github.com/stumpwm/stumpwm-contrib")
1735     (synopsis "StumpWM interactive shell")
1736     (description "This package provides a StumpWM interactive shell.")
1737     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
1738
1739 (define-public sbcl-stumpwm+slynk
1740   (deprecated-package "sbcl-stumpwm-with-slynk" stumpwm+slynk))
1741
1742 (define-public sbcl-stumpwm-ttf-fonts
1743   (package
1744     (inherit stumpwm-contrib)
1745     (name "sbcl-stumpwm-ttf-fonts")
1746     (inputs
1747      `(("stumpwm" ,stumpwm "lib")
1748        ("clx-truetype" ,sbcl-clx-truetype)))
1749     (arguments
1750      '(#:asd-system-name "ttf-fonts"
1751        #:tests? #f
1752        #:phases
1753        (modify-phases %standard-phases
1754          (add-after 'unpack 'chdir
1755            (lambda _ (chdir "util/ttf-fonts") #t)))))
1756     (home-page "https://github.com/stumpwm/stumpwm-contrib")
1757     (synopsis "Implementation of TTF font rendering for Lisp")
1758     (description "This package provides a Lisp implementation of TTF font
1759 rendering.")
1760     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
1761
1762 (define-public sbcl-stumpwm-pass
1763   (package
1764     (inherit stumpwm-contrib)
1765     (name "sbcl-stumpwm-pass")
1766     (arguments
1767      '(#:asd-system-name "pass"
1768        #:tests? #f
1769        #:phases
1770        (modify-phases %standard-phases
1771          (add-after 'unpack 'chdir
1772            (lambda _ (chdir "util/pass") #t)))))
1773     (home-page "https://github.com/stumpwm/stumpwm-contrib")
1774     (synopsis "Integrate @code{pass} with StumpWM")
1775     (description "This package provides an interface which integrates
1776 password-store into StumpWM.")
1777     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
1778
1779 (define-public sbcl-stumpwm-globalwindows
1780   (package
1781     (inherit stumpwm-contrib)
1782     (name "sbcl-stumpwm-globalwindows")
1783     (arguments
1784      '(#:asd-system-name "globalwindows"
1785        #:tests? #f
1786        #:phases
1787        (modify-phases %standard-phases
1788          (add-after 'unpack 'chdir
1789            (lambda _ (chdir "util/globalwindows") #t)))))
1790     (home-page "https://github.com/stumpwm/stumpwm-contrib")
1791     (synopsis "Manipulate all windows in the current X session")
1792     (description "This package provides a StumpWM module to manipulate all
1793 windows in the current X session.")
1794     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
1795
1796 (define-public sbcl-stumpwm-swm-gaps
1797   (package
1798     (inherit stumpwm-contrib)
1799     (name "sbcl-stumpwm-swm-gaps")
1800     (arguments
1801      '(#:asd-system-name "swm-gaps"
1802        #:tests? #f
1803        #:phases
1804        (modify-phases %standard-phases
1805          (add-after 'unpack 'chdir
1806            (lambda _ (chdir "util/swm-gaps") #t)))))
1807     (home-page "https://github.com/stumpwm/stumpwm-contrib")
1808     (synopsis "Gaps between windows for StumpWM")
1809     (description "This package provides a StumpWM module which adds gaps
1810 between windows.")
1811     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
1812
1813 (define-public sbcl-stumpwm-net
1814   (package
1815     (inherit stumpwm-contrib)
1816     (name "sbcl-stumpwm-net")
1817     (arguments
1818      '(#:asd-system-name "net"
1819        #:tests? #f
1820        #:phases
1821        (modify-phases %standard-phases
1822          (add-after 'unpack 'chdir (lambda _ (chdir "modeline/net") #t)))))
1823     (home-page
1824      "https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/net")
1825     (synopsis "Modeline support for network connectivity")
1826     (description "Modeline support for network connectivity.")
1827     (supported-systems
1828      (filter (lambda (a) (string-contains a "linux")) %supported-systems))
1829     (license license:gpl3+)))
1830
1831 (define-public sbcl-stumpwm-wifi
1832   (package
1833     (inherit stumpwm-contrib)
1834     (name "sbcl-stumpwm-wifi")
1835     (arguments
1836      '(#:asd-system-name "wifi"
1837        #:tests? #f
1838        #:phases
1839        (modify-phases %standard-phases
1840          (add-after 'unpack 'chdir (lambda _ (chdir "modeline/wifi") #t)))))
1841     (home-page
1842      "https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/wifi")
1843     (synopsis "Modeline support for wifi connectivity")
1844     (description "Modeline support for wifi connectivity.")
1845     (supported-systems
1846      (filter (lambda (a) (string-contains a "linux")) %supported-systems))
1847     (license license:gpl3+)))
1848
1849 (define-public sbcl-stumpwm-stumptray
1850   (package
1851     (inherit stumpwm-contrib)
1852     (name "sbcl-stumpwm-stumptray")
1853     (arguments
1854      '(#:asd-system-name "stumptray"
1855        #:tests? #f
1856        #:phases
1857        (modify-phases %standard-phases
1858          (add-after 'unpack 'chdir (lambda _ (chdir "modeline/stumptray") #t)))))
1859     (inputs
1860      `(("stumpwm" ,stumpwm "lib")
1861        ("xembed" ,sbcl-clx-xembed)
1862        ("alexandria" ,sbcl-alexandria)))
1863     (home-page
1864      "https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/stumptray")
1865     (synopsis "Modeline support for stumptray connectivity")
1866     (description "Modeline support for stumptray connectivity.")
1867     (supported-systems
1868      (filter (lambda (a) (string-contains a "linux")) %supported-systems))
1869     (license license:gpl3+)))
1870
1871 (define-public sbcl-stumpwm-kbd-layouts
1872   (package
1873     (inherit stumpwm-contrib)
1874     (name "sbcl-stumpwm-kbd-layouts")
1875     (arguments
1876      '(#:asd-system-name "kbd-layouts"
1877        #:tests? #f
1878        #:phases
1879        (modify-phases %standard-phases
1880          (add-after 'unpack 'chdir (lambda _ (chdir "util/kbd-layouts") #t)))))
1881     (home-page
1882      "https://github.com/stumpwm/stumpwm-contrib/tree/master/util/kbd-layouts")
1883     (synopsis "Keyboard layout switcher for StumpWM")
1884     (description "Keyboard layout switcher for StumpWM")
1885     (license license:gpl3+)))
1886
1887 (define-public lemonbar
1888   (let ((commit "35183ab81d2128dbb7b6d8e119cc57846bcefdb4")
1889         (revision "1"))
1890     (package
1891       (name "lemonbar")
1892       (version (git-version "1.3" revision commit))
1893       (source (origin
1894                 (method git-fetch)
1895                 (uri (git-reference
1896                       (url "https://github.com/LemonBoy/bar")
1897                       (commit commit)))
1898                 (file-name (git-file-name name version))
1899                 (sha256
1900                  (base32
1901                   "1wwqbph392iwz8skaqxb0xpklb1l6yganqz80g4x1fhrnz7idmlh"))))
1902       (build-system gnu-build-system)
1903       (arguments
1904        `(#:tests? #f                    ; no test suite
1905          #:make-flags
1906          (list ,(string-append "CC=" (cc-for-target))
1907                (string-append "PREFIX=" %output))
1908          #:phases
1909          (modify-phases %standard-phases
1910            (delete 'configure))))
1911       (inputs
1912        `(("libxcb" ,libxcb)))
1913       (native-inputs
1914        `(("perl" ,perl)))
1915       (home-page "https://github.com/LemonBoy/bar")
1916       (synopsis "Featherweight status bar")
1917       (description
1918        "@code{lemonbar} (formerly known as @code{bar}) is a lightweight
1919 bar entirely based on XCB.  Provides full UTF-8 support, basic
1920 formatting, RandR and Xinerama support and EWMH compliance without
1921 wasting your precious memory.")
1922       (license license:x11))))
1923
1924 (define-public xclickroot
1925   (let ((commit "309fd17174dba4149b5ea66654c6fd02cfcf7c9a")
1926         (revision "1"))
1927     (package
1928       (name "xclickroot")
1929       (version (git-version "0.0.1" revision commit)) ;no upstream release
1930       (source (origin
1931                 (method git-fetch)
1932                 (uri (git-reference
1933                       (url "https://github.com/phillbush/xclickroot")
1934                       (commit commit)))
1935                 (file-name (git-file-name name version))
1936                 (sha256
1937                  (base32
1938                   "0fjqkg3wnyks0my1vrzhxfjicsfy8xwnijaazmpz6mhilcqkpvnd"))))
1939       (build-system gnu-build-system)
1940       (inputs
1941        `(("libx11" ,libx11)))
1942       (arguments
1943        `(#:tests? #f ;no test suite
1944          #:make-flags
1945          (list ,(string-append "CC=" (cc-for-target))
1946                (string-append "PREFIX=" %output))
1947          #:phases
1948          (modify-phases %standard-phases
1949            (delete 'configure))))
1950       (home-page "https://github.com/phillbush/xclickroot")
1951       (synopsis "Run a command when a mouse button is pressed on the root window")
1952       (description "@code{xclickroot} runs a command every time a given mouse
1953 button is pressed on the root window.")
1954       (license license:public-domain))))
1955
1956 (define-public xmenu
1957   (package
1958     (name "xmenu")
1959     (version "3.4")
1960     (source (origin
1961               (method git-fetch)
1962               (uri (git-reference
1963                     (url "https://github.com/phillbush/xmenu")
1964                     (commit (string-append "v" version))))
1965               (file-name (git-file-name name version))
1966               (sha256
1967                (base32
1968                 "1sw9l87fh03jp03a2v7rhgpyx29yg2x9blzfzp40jwad2whs7m7n"))))
1969     (build-system gnu-build-system)
1970     (inputs
1971      `(("libx11" ,libx11)
1972        ("libxft" ,libxft)
1973        ("freetype" ,freetype)
1974        ("imlib2" ,imlib2)))
1975     (arguments
1976      `(#:tests? #f ;no test suite
1977        #:make-flags
1978        (list (string-append "CC=" ,(cc-for-target))
1979              (string-append "PREFIX=" %output)
1980              (string-append "CFLAGS="
1981                             "-I" (assoc-ref %build-inputs "freetype")
1982                             "/include/freetype2"))
1983        #:phases
1984        (modify-phases %standard-phases
1985          (delete 'configure))))
1986     (home-page "https://github.com/phillbush/xmenu")
1987     (synopsis "Menu utility for X")
1988     (description "@code{xmenu} receives a menu specification in stdin, shows
1989 a menu for the user to select one of the options, and outputs the option
1990 selected to stdout.  It can be controlled both via mouse and via keyboard.")
1991     (license license:public-domain)))
1992
1993 (define-public idesk
1994   (package
1995     (name "idesk")
1996     (version "0.7.5")
1997     (source
1998      (origin
1999        (method url-fetch)
2000        (uri (string-append
2001              "mirror://sourceforge/idesk/idesk/idesk-" version
2002              "/idesk-" version ".tar.bz2"))
2003        (sha256
2004         (base32
2005          "1lxk2yvgysxwl514zc82lwr1dwc8cd62slgr5lzdhjbdrxfymdyl"))
2006        (modules '((guix build utils)
2007                   (ice-9 format)))
2008        (snippet
2009         '(let* ((file     "src/DesktopConfig.cpp")
2010                 (template (string-append file ".XXXXXX"))
2011                 (out      (mkstemp! template))
2012                 (st       (stat file))
2013                 (mode     (stat:mode st)))
2014            (call-with-ascii-input-file file
2015              (lambda (p)
2016                (format out "~{~a~%~}" '("#include <unistd.h>"
2017                                         "#include <sys/stat.h>"
2018                                         "#include <sys/types.h>"))
2019                (dump-port p out)
2020                (close out)
2021                (chmod template mode)
2022                (rename-file template file)
2023                #t))))))
2024     (build-system gnu-build-system)
2025     (inputs
2026      `(("libx11" ,libx11)
2027        ("libxft" ,libxft)
2028        ("libxpm" ,libxpm)
2029        ("libpng" ,libpng)
2030        ("freetype" ,freetype)
2031        ("imlib2" ,imlib2)
2032        ("sed" ,sed)))
2033     (native-inputs
2034      `(("pkg-config" ,pkg-config)))
2035     (arguments
2036      `(#:tests? #f)) ;no test suite
2037     (home-page "https://sourceforge.net/projects/idesk/")
2038     (synopsis "Add icons on X desktop and set background image for wallpaper")
2039     (description "Idesk is program that draws desktop icons.  Each icon will
2040 execute a shell command on a configurable action.  The icons can be moved on
2041 the desktop by dragging them, and the icons will remember their positions on
2042 start-up.")
2043     (license license:bsd-3)))