gnu/packages/wm.scm

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