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 ng0 <ng0@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 ;;;
  37 ;;; This file is part of GNU Guix.
  38 ;;;
  39 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  40 ;;; under the terms of the GNU General Public License as published by
  41 ;;; the Free Software Foundation; either version 3 of the License, or (at
  42 ;;; your option) any later version.
  43 ;;;
  44 ;;; GNU Guix is distributed in the hope that it will be useful, but
  45 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  46 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  47 ;;; GNU General Public License for more details.
  48 ;;;
  49 ;;; You should have received a copy of the GNU General Public License
  50 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  51
  52 (define-module (gnu packages wm)
  53   #:use-module ((guix licenses) #:prefix license:)
  54   #:use-module (guix packages)
  55   #:use-module (guix download)
  56   #:use-module (guix git-download)
  57   #:use-module (guix build-system asdf)
  58   #:use-module (guix build-system cmake)
  59   #:use-module (guix build-system gnu)
  60   #:use-module (guix build-system haskell)
  61   #:use-module (guix build-system meson)
  62   #:use-module (guix build-system perl)
  63   #:use-module (guix build-system python)
  64   #:use-module (guix build-system trivial)
  65   #:use-module (guix utils)
  66   #:use-module (gnu packages)
  67   #:use-module (gnu packages bash)
  68   #:use-module (gnu packages autotools)
  69   #:use-module (gnu packages base)
  70   #:use-module (gnu packages bison)
  71   #:use-module (gnu packages calendar)
  72   #:use-module (gnu packages docbook)
  73   #:use-module (gnu packages documentation)
  74   #:use-module (gnu packages fontutils)
  75   #:use-module (gnu packages freedesktop)
  76   #:use-module (gnu packages fribidi)
  77   #:use-module (gnu packages gawk)
  78   #:use-module (gnu packages gl)
  79   #:use-module (gnu packages glib)
  80   #:use-module (gnu packages gperf)
  81   #:use-module (gnu packages gtk)
  82   #:use-module (gnu packages haskell-check)
  83   #:use-module (gnu packages haskell-web)
  84   #:use-module (gnu packages haskell-xyz)
  85   #:use-module (gnu packages image)
  86   #:use-module (gnu packages imagemagick)
  87   #:use-module (gnu packages libevent)
  88   #:use-module (gnu packages linux)
  89   #:use-module (gnu packages lisp-xyz)
  90   #:use-module (gnu packages logging)
  91   #:use-module (gnu packages lua)
  92   #:use-module (gnu packages m4)
  93   #:use-module (gnu packages man)
  94   #:use-module (gnu packages maths)
  95   #:use-module (gnu packages mpd)
  96   #:use-module (gnu packages pcre)
  97   #:use-module (gnu packages perl)
  98   #:use-module (gnu packages pkg-config)
  99   #:use-module (gnu packages pretty-print)
 100   #:use-module (gnu packages pulseaudio)
 101   #:use-module (gnu packages python)
 102   #:use-module (gnu packages readline)
 103   #:use-module (gnu packages serialization)
 104   #:use-module (gnu packages sphinx)
 105   #:use-module (gnu packages suckless)
 106   #:use-module (gnu packages texinfo)
 107   #:use-module (gnu packages textutils)
 108   #:use-module (gnu packages video)
 109   #:use-module (gnu packages web)
 110   #:use-module (gnu packages xdisorg)
 111   #:use-module (gnu packages xml)
 112   #:use-module (gnu packages xorg))
 113
 114 (define-public bspwm
 115   (package
 116     (name "bspwm")
 117     (version "0.9.9")
 118     (source
 119      (origin
 120        (method git-fetch)
 121        (uri (git-reference
 122              (url "https://github.com/baskerville/bspwm.git")
 123              (commit version)))
 124        (file-name (git-file-name name version))
 125        (sha256
 126         (base32 "1i7crmljk1vra1r6alxvj6lqqailjjcv0llyg7a0gm23rbv4a42g"))))
 127     (build-system gnu-build-system)
 128     (inputs
 129      `(("libxcb" ,libxcb)
 130        ("libxinerama" ,libxinerama)
 131        ("sxhkd" ,sxhkd)
 132        ("xcb-util" ,xcb-util)
 133        ("xcb-util-keysyms" ,xcb-util-keysyms)
 134        ("xcb-util-wm" ,xcb-util-wm)))
 135     (arguments
 136      '(#:phases
 137        (modify-phases %standard-phases
 138          (delete 'configure))           ; no configure script
 139        #:tests? #f                      ; no check target
 140        #:make-flags
 141        (list "CC=gcc"
 142              (string-append "PREFIX=" %output))))
 143     (home-page "https://github.com/baskerville/bspwm")
 144     (synopsis "Tiling window manager based on binary space partitioning")
 145     (description "bspwm is a tiling window manager that represents windows as
 146 the leaves of a full binary tree.")
 147     (license license:bsd-2)))
 148
 149 (define-public herbstluftwm
 150   (package
 151     (name "herbstluftwm")
 152     (version "0.7.2")
 153     (source
 154      (origin
 155        (method url-fetch)
 156        (uri (string-append "https://herbstluftwm.org/tarballs/herbstluftwm-"
 157                            version ".tar.gz"))
 158        (sha256
 159         (base32
 160          "1kc18aj9j3nfz6fj4qxg9s3gg4jvn6kzi3ii24hfm0vqdpy17xnz"))
 161        (file-name (string-append "herbstluftwm-" version ".tar.gz"))))
 162     (build-system gnu-build-system)
 163     (inputs
 164      `(("dzen"        ,dzen)
 165        ("dmenu"       ,dmenu)
 166        ("glib"        ,glib)
 167        ("glibmm"      ,glibmm)
 168        ("xterm"       ,xterm)
 169        ("xsetroot"    ,xsetroot)
 170        ("libx11"      ,libx11)
 171        ("libxext"     ,libxext)
 172        ("libxinerama" ,libxinerama)))
 173     (native-inputs
 174      `(("pkg-config" ,pkg-config)))
 175     (arguments
 176      '(#:phases
 177        (modify-phases %standard-phases
 178          (delete 'configure)            ; no configure script
 179          (add-after 'install 'install-xsession
 180            (lambda* (#:key outputs #:allow-other-keys)
 181              (let* ((out (assoc-ref outputs "out"))
 182                     (xsessions (string-append out "/share/xsessions")))
 183                (mkdir-p xsessions)
 184                (call-with-output-file
 185                    (string-append xsessions "/herbstluftwm.desktop")
 186                  (lambda (port)
 187                    (format port "~
 188                      [Desktop Entry]~@
 189                      Name=herbstluftwm~@
 190                      Comment=Manual tiling window manager~@
 191                      Exec=~a/bin/herbstluftwm~@
 192                      Type=XSession~%" out)))
 193                #t))))
 194        #:tests? #f
 195        #:make-flags
 196        (let ((out (assoc-ref %outputs "out")))
 197          (list "CC=gcc"
 198                (string-append "PREFIX=''")
 199                (string-append "DESTDIR=" out)
 200                (string-append "FISHCOMPLETIONDIR="
 201                               "/share/fish/vendor_completions.d")
 202                (string-append "BASHCOMPLETIONDIR=" out
 203                               "/etc/bash_completion.d")))))
 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")
 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                 "0dv5g8ycfmijxfjyw8hzsxaf80v09lb73zh7x2vszy78h3amifqz"))))
 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")
 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                        "0id4qm9a7kc5yawff85blmph4zbizhb6ka88aqm10wrpfsknri3j"))))
 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.git")
 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.git")
 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.git")
 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.git")
 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.git")
 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.33")
 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                 "1hr3qqykc5givcpcwrr9f2y920jmiinmxm5mcy6qgpgymgwqb618"))))
 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 ghc-xmonad-contrib
 748   (package
 749     (name "ghc-xmonad-contrib")
 750     (version "0.16")
 751     (source
 752      (origin
 753        (method url-fetch)
 754        (uri (string-append "mirror://hackage/package/xmonad-contrib/"
 755                            "xmonad-contrib-" version ".tar.gz"))
 756        (sha256
 757         (base32 "1pddgkvnbww28wykncc7j0yb0lv15bk7xnnhdcbrwkxzw66w6wmd"))))
 758     (build-system haskell-build-system)
 759     (propagated-inputs
 760      `(("ghc-old-time" ,ghc-old-time)
 761        ("ghc-random" ,ghc-random)
 762        ("ghc-utf8-string" ,ghc-utf8-string)
 763        ("ghc-extensible-exceptions" ,ghc-extensible-exceptions)
 764        ("ghc-semigroups" ,ghc-semigroups)
 765        ("ghc-x11" ,ghc-x11)
 766        ("ghc-x11-xft" ,ghc-x11-xft)
 767        ("xmonad" ,xmonad)))
 768     (home-page "https://xmonad.org")
 769     (synopsis "Third party extensions for xmonad")
 770     (description
 771      "Third party tiling algorithms, configurations, and scripts to Xmonad, a
 772 tiling window manager for X.")
 773     (license license:bsd-3)))
 774
 775 (define-public evilwm
 776   (package
 777     (name "evilwm")
 778     (version "1.1.1")
 779     (source
 780      (origin
 781        (method url-fetch)
 782        (uri (string-append "http://www.6809.org.uk/evilwm/evilwm-"
 783                            version ".tar.gz"))
 784        (sha256
 785         (base32
 786          "0ak0yajzk3v4dg5wmaghv6acf7v02a4iw8qxmq5yw5ard8lrqn3r"))
 787        (patches (search-patches "evilwm-lost-focus-bug.patch"))))
 788     (build-system gnu-build-system)
 789     (inputs
 790      `(("libx11" ,libx11)
 791        ("libxext" ,libxext)
 792        ("libxrandr" ,libxrandr)))
 793     (arguments
 794      `(#:modules ((srfi srfi-26)
 795                   (guix build utils)
 796                   (guix build gnu-build-system))
 797        #:make-flags (let ((inputs (map (cut assoc-ref %build-inputs <>)
 798                                        '("libx11" "libxext" "libxrandr")))
 799                           (join (lambda (proc strs)
 800                                   (string-join (map proc strs) " ")))
 801                           (dash-I (cut string-append "-I" <> "/include"))
 802                           (dash-L (cut string-append "-L" <> "/lib")))
 803                       `("desktopfilesdir=$(prefix)/share/xsessions"
 804                         ,(string-append "prefix=" (assoc-ref %outputs "out"))
 805                         ,(string-append "CPPFLAGS=" (join dash-I inputs))
 806                         ,(string-append "LDFLAGS=" (join dash-L inputs))))
 807        #:tests? #f                      ;no tests
 808        #:phases (modify-phases %standard-phases
 809                   (delete 'configure)))) ;no configure script
 810     (home-page "http://www.6809.org.uk/evilwm/")
 811     (synopsis "Minimalist window manager for the X Window System")
 812     (description
 813      "evilwm is a minimalist window manager based on aewm, extended to feature
 814 many keyboard controls with repositioning and maximize toggles, solid window
 815 drags, snap-to-border support, and virtual desktops.")
 816     (license (license:x11-style "file:///README"))))
 817
 818 (define-public fluxbox
 819   (package
 820     (name "fluxbox")
 821     (version "1.3.7")
 822     (synopsis "Small and fast window manager")
 823     (source (origin
 824               (method url-fetch)
 825               (uri (string-append "mirror://sourceforge/fluxbox/fluxbox/"
 826                                   version "/fluxbox-" version ".tar.xz"))
 827               (sha256
 828                (base32
 829                 "1h1f70y40qd225dqx937vzb4k2cz219agm1zvnjxakn5jkz7b37w"))))
 830     (build-system gnu-build-system)
 831     (arguments
 832      `(#:make-flags '("CPPFLAGS=-U__TIME__") ;ugly, but for reproducibility
 833        #:phases
 834        (modify-phases %standard-phases
 835          (add-after 'install 'install-vim-files
 836            (lambda* (#:key outputs #:allow-other-keys)
 837              (let* ((out (assoc-ref outputs "out"))
 838                     (syntax (string-append out "/share/vim/vimfiles/syntax")))
 839                (copy-recursively "3rd/vim/vim/syntax" syntax)
 840                #t)))
 841          (add-after 'install 'install-xsession
 842            (lambda* (#:key outputs #:allow-other-keys)
 843              (let* ((out (assoc-ref outputs "out"))
 844                     (xsessions (string-append out "/share/xsessions")))
 845                (mkdir-p xsessions)
 846                (call-with-output-file
 847                  (string-append xsessions "/fluxbox.desktop")
 848                  (lambda (port)
 849                    (format port "~
 850                      [Desktop Entry]~@
 851                      Name=~a~@
 852                      Comment=~a~@
 853                      Exec=~a/bin/startfluxbox~@
 854                      Type=Application~%" ,name ,synopsis out)))
 855                #t))))))
 856     (native-inputs
 857      `(("pkg-config" ,pkg-config)))
 858     (inputs
 859      `(("freetype" ,freetype)
 860        ("fribidi" ,fribidi)
 861        ("imlib2" ,imlib2)
 862        ("libx11" ,libx11)
 863        ("libxext" ,libxext)
 864        ("libxft" ,libxft)
 865        ("libxinerama" ,libxinerama)
 866        ("libxpm"  ,libxpm)
 867        ("libxrandr" ,libxrandr)
 868        ("libxrender" ,libxrender)))
 869     (description "Fluxbox is a window manager.  It is light on resources
 870 and easy to handle yet full of features to make an easy and fast desktop
 871 experience.")
 872     (home-page "http://fluxbox.org/")
 873     (license license:expat)))
 874
 875 (define-public awesome
 876   (package
 877     (name "awesome")
 878     (version "4.3")
 879     (source
 880      (origin
 881        (method url-fetch)
 882        (uri (string-append
 883              "https://github.com/awesomeWM/awesome-releases/raw/master/"
 884              "awesome-" version ".tar.xz"))
 885        (sha256
 886         (base32 "0lqpw401mkkmp9wgbvrmm45bqq2j9357l4irwdqv6l1305pls9kq"))
 887        (modules '((guix build utils)
 888                   (srfi srfi-19)))
 889        (snippet
 890         '(begin
 891            ;; Remove non-reproducible timestamp and use the date of
 892            ;; the source file instead.
 893            (substitute* "common/version.c"
 894              (("__DATE__ \" \" __TIME__")
 895               (date->string
 896                (time-utc->date
 897                 (make-time time-utc 0 (stat:mtime (stat "awesome.c"))))
 898                "\"~c\"")))
 899            #t))
 900        (patches
 901         (search-patches "awesome-reproducible-png.patch"))))
 902     (build-system cmake-build-system)
 903     (native-inputs
 904      `(("asciidoc" ,asciidoc)
 905        ("docbook-xsl" ,docbook-xsl)
 906        ("doxygen" ,doxygen)
 907        ("gperf" ,gperf)
 908        ("imagemagick" ,imagemagick)
 909        ("libxml2" ,libxml2)             ;for XML_CATALOG_FILES
 910        ("lua-ldoc" ,lua-ldoc)
 911        ("pkg-config" ,pkg-config)
 912        ("xmlto" ,xmlto)))
 913     (inputs
 914      `(("cairo" ,cairo)
 915        ("dbus" ,dbus)
 916        ("gdk-pixbuf" ,gdk-pixbuf)
 917        ("glib" ,glib)
 918        ("gobject-introspection" ,gobject-introspection)
 919        ("imlib2" ,imlib2)
 920        ("libev" ,libev)
 921        ("libxcb" ,libxcb)
 922        ("libxcursor" ,libxcursor)
 923        ("libxdg-basedir" ,libxdg-basedir)
 924        ("libxkbcommon" ,libxkbcommon)
 925        ("lua" ,lua)
 926        ("lua-lgi" ,lua-lgi)
 927        ("pango" ,pango)
 928        ("startup-notification" ,startup-notification)
 929        ("xcb-util" ,xcb-util)
 930        ("xcb-util-cursor" ,xcb-util-cursor)
 931        ("xcb-util-image" ,xcb-util-image)
 932        ("xcb-util-keysyms" ,xcb-util-keysyms)
 933        ("xcb-util-renderutil" ,xcb-util-renderutil)
 934        ("xcb-util-xrm" ,xcb-util-xrm)
 935        ("xcb-util-wm" ,xcb-util-wm)))
 936     (arguments
 937      `(#:modules ((guix build cmake-build-system)
 938                   (guix build utils)
 939                   (ice-9 match))
 940        ;; Let compression happen in our 'compress-documentation' phase
 941        ;; so that '--no-name' is used, which removes timestamps from
 942        ;; gzip output.
 943        #:configure-flags
 944        '("-DCOMPRESS_MANPAGES=off")
 945        ;; Building awesome in its source directory is no longer
 946        ;; supported.
 947        #:out-of-source? #t
 948        #:phases
 949        (modify-phases %standard-phases
 950          (add-before 'configure 'set-paths
 951            (lambda* (#:key inputs #:allow-other-keys)
 952              ;; The build process needs to load Cairo dynamically.
 953              (let* ((cairo (string-append (assoc-ref inputs "cairo") "/lib"))
 954                     (lua-version ,(version-major+minor (package-version lua)))
 955                     (lua-dependencies
 956                      (filter (match-lambda
 957                                ((label . _) (string-prefix? "lua-" label)))
 958                              inputs))
 959                     (lua-path
 960                      (string-join
 961                       (map (match-lambda
 962                              ((_ . dir)
 963                               (string-append
 964                                dir "/share/lua/" lua-version "/?.lua;"
 965                                dir "/share/lua/" lua-version "/?/?.lua")))
 966                            lua-dependencies)
 967                       ";"))
 968                     (lua-cpath
 969                      (string-join
 970                       (map (match-lambda
 971                              ((_ . dir)
 972                               (string-append
 973                                dir "/lib/lua/" lua-version "/?.so;"
 974                                dir "/lib/lua/" lua-version "/?/?.so")))
 975                            lua-dependencies)
 976                       ";")))
 977                (setenv "LD_LIBRARY_PATH" cairo)
 978                (setenv "LUA_PATH" (string-append "?.lua;" lua-path))
 979                (setenv "LUA_CPATH" lua-cpath)
 980                #t)))
 981          (replace 'check
 982            (lambda _
 983              ;; There aren't any tests, so just make sure the binary
 984              ;; gets built and can be run successfully.
 985              (invoke "../build/awesome" "-v")))
 986          (add-after 'install 'patch-session-file
 987            (lambda* (#:key outputs #:allow-other-keys)
 988              (let* ((out (assoc-ref outputs "out"))
 989                     (awesome (string-append out "/bin/awesome")))
 990                (substitute* (string-append out "/share/xsessions/awesome.desktop")
 991                  (("Exec=awesome") (string-append "Exec=" awesome)))
 992                #t)))
 993          (add-after 'install 'wrap
 994            (lambda* (#:key inputs outputs #:allow-other-keys)
 995              (let* ((awesome (assoc-ref outputs "out"))
 996                     (cairo (string-append (assoc-ref inputs "cairo") "/lib"))
 997                     (lua-version ,(version-major+minor (package-version lua)))
 998                     (lua-lgi (assoc-ref inputs "lua-lgi")))
 999                (wrap-program (string-append awesome "/bin/awesome")
1000                  `("LUA_PATH" suffix
1001                    (,(format #f "~a/share/lua/~a/?.lua" lua-lgi lua-version)))
1002                  `("LUA_CPATH" suffix
1003                    (,(format #f "~a/lib/lua/~a/?.so" lua-lgi lua-version)))
1004                  `("GI_TYPELIB_PATH" ":" prefix (,(getenv "GI_TYPELIB_PATH")))
1005                  `("LD_LIBRARY_PATH" suffix (,cairo)))
1006                #t))))))
1007     (home-page "https://awesomewm.org/")
1008     (synopsis "Highly configurable window manager")
1009     (description
1010      "Awesome has been designed as a framework window manager.  It is fast, small,
1011 dynamic and extensible using the Lua programming language.")
1012     (license license:gpl2+)))
1013
1014 (define-public menumaker
1015   (package
1016     (name "menumaker")
1017     (version "0.99.11")
1018     (source
1019      (origin
1020        (method url-fetch)
1021        (uri (string-append "mirror://sourceforge/menumaker/"
1022                            "menumaker-" version ".tar.gz"))
1023        (sha256
1024         (base32 "0dprndnhwm7b803zkp4pisiq06ic9iv8vr42in5is47jmvdim0wx"))))
1025     (build-system gnu-build-system)
1026     (inputs
1027      `(("python" ,python)))
1028     (synopsis "Heuristics-driven menu generator")
1029     (description
1030      "MenuMaker is a menu generation utility for a number of X window
1031 managers and desktop environments.  It is capable of finding lots of
1032 installed programs and generating a root menu consistent across all
1033 supported window managers, so one will get (almost) the same menu in
1034 all of them.  Currently supported window managers include:
1035
1036 @enumerate
1037 @item BlackBox
1038 @item Deskmenu
1039 @item FluxBox
1040 @item IceWM
1041 @item OpenBox
1042 @item PekWM
1043 @item WindowMaker
1044 @item XFCE
1045 @end enumerate\n")
1046     (home-page "http://menumaker.sourceforge.net/")
1047     (license license:bsd-2)))
1048
1049 (define-public keybinder
1050   (package
1051     (name "keybinder")
1052     (version "0.3.1")
1053     (source
1054      (origin
1055        (method url-fetch)
1056        (uri (string-append "https://github.com/kupferlauncher/keybinder"
1057                            "/releases/download/v" version "/keybinder-"
1058                            version ".tar.gz"))
1059        (file-name (string-append name "-" version ".tar.gz"))
1060        (sha256
1061         (base32
1062          "0h52hj3ay8mfhwvmfxbxlfyq74hifdk8wxgxp7fr4iy6189hg7w7"))))
1063     (build-system gnu-build-system)
1064     (inputs
1065      `(("python-2" ,python-2)
1066        ("gtk+-2" ,gtk+-2)))
1067     (native-inputs
1068      `(("python2-pygtk" ,python2-pygtk)
1069        ("gtk-doc" ,gtk-doc)
1070        ("pkg-config" ,pkg-config)))
1071     (synopsis "Library for registering global keyboard shortcuts")
1072     (description
1073      "Keybinder is a library for registering global keyboard shortcuts.
1074 Keybinder works with GTK-based applications using the X Window System.")
1075     (home-page "https://github.com/kupferlauncher/keybinder")
1076     (license license:gpl2+)))
1077
1078 (define-public keybinder-3.0
1079   (package
1080     (name "keybinder-3.0")
1081     (version "0.3.2")
1082     (source
1083      (origin
1084        (method url-fetch)
1085        (uri (string-append "https://github.com/kupferlauncher/keybinder"
1086                            "/releases/download/" name "-v" version "/" name "-"
1087                            version ".tar.gz"))
1088        (file-name (string-append name "-" version ".tar.gz"))
1089        (sha256
1090         (base32
1091          "0830ihwnalw59pp1xzrp37dn58n8vwb8zasnm4a1h81v3x7dxqz6"))))
1092     (build-system gnu-build-system)
1093     (inputs
1094      `(("gtk+" ,gtk+)
1095        ("gobject-introspection" ,gobject-introspection)))
1096     (native-inputs
1097      `(("gtk-doc" ,gtk-doc)
1098        ("pkg-config" ,pkg-config)))
1099     (synopsis "Library for registering global keyboard shortcuts, Gtk3 version")
1100     (description
1101      "Keybinder is a library for registering global keyboard shortcuts.
1102 Keybinder works with GTK-based applications using the X Window System.")
1103     (home-page "https://github.com/kupferlauncher/keybinder")
1104     (license license:x11)))
1105
1106 (define-public spectrwm
1107   (package
1108     (name "spectrwm")
1109     (version "3.2.0")
1110     (source
1111      (origin
1112        (method git-fetch)
1113        (uri (git-reference
1114              (url "https://github.com/conformal/spectrwm.git")
1115              (commit
1116               (string-append "SPECTRWM_"
1117                              (string-join (string-split version #\.) "_")))))
1118        (file-name (git-file-name name version))
1119        (sha256
1120         (base32 "1dfqy5f0s1nv6rqkz9lj006vypmp4rwxd5vczfk3ndzqgnh19kw6"))))
1121     (build-system gnu-build-system)
1122     (arguments
1123      `(#:make-flags (let ((pkg-config (lambda (flag)
1124                                         (string-append
1125                                          "$(shell pkg-config " flag " "
1126                                          "xft fontconfig x11 libpng)"))))
1127                       (list
1128                        "CC=gcc"
1129                        (string-append "PREFIX=" %output)
1130                        (string-append "INCS=-I. " (pkg-config "--cflags"))
1131                        (string-append "LIBS=" (pkg-config "--libs") " -lm")))
1132        #:tests? #f                      ;no test suite
1133        #:phases
1134        (modify-phases %standard-phases
1135          (add-before 'build 'change-dir
1136            (lambda _
1137              (chdir "linux") #t))
1138          (add-after 'change-dir 'patch-makefile
1139            (lambda _
1140              (substitute* "Makefile"
1141                (("-g") ""))))
1142          (delete 'configure))))         ;no 'configure' exists
1143     (inputs
1144      `(("freetype" ,freetype)
1145        ("fontconfig" ,fontconfig)
1146        ("libx11" ,libx11)
1147        ("libxcursor" ,libxcursor)
1148        ("libxrandr" ,libxrandr)
1149        ("libxtst" ,libxtst)
1150        ("libxft" ,libxft)
1151        ("xcb-util" ,xcb-util)
1152        ("xcb-util-wm" ,xcb-util-wm)
1153        ("xcb-util-keysyms" ,xcb-util-keysyms)))
1154     (native-inputs
1155      `(("libxt" ,libxt)
1156        ("pkg-config" ,pkg-config)))
1157     (synopsis "Minimalistic automatic tiling window manager")
1158     (description
1159      "Spectrwm is a small dynamic tiling and reparenting window manager for X11.
1160 It is inspired by Xmonad and dwm.  Its major features include:
1161
1162 @itemize
1163 @item Navigation anywhere on all screens with either the keyboard or mouse
1164 @item Customizable status bar
1165 @item Restartable without losing state
1166 @item Quick launch menu
1167 @item Many screen layouts possible with a few simple key strokes
1168 @item Move/resize floating windows
1169 @item Extended Window Manager Hints (@dfn{EWMH}) support
1170 @item Configurable tiling
1171 @item Adjustable tile gap allows for a true one pixel border
1172 @item Customizable colors and border width
1173 @end itemize\n")
1174     (home-page "https://github.com/conformal/spectrwm")
1175     (license license:isc)))
1176
1177 (define-public cwm
1178   (package
1179     (name "cwm")
1180     (version "6.3")
1181     (source
1182      (origin
1183        (method url-fetch)
1184        (uri (string-append "http://chneukirchen.org/releases/cwm-"
1185                            version ".tar.gz"))
1186        (sha256
1187         (base32
1188          "17pdp9cfgh2n3n3905l4rl9qk7b722i8psnarhlc2h98qzx7zmac"))))
1189     (build-system gnu-build-system)
1190     (arguments
1191      `(#:make-flags (list "CC=gcc"
1192                           (string-append "PREFIX=" %output))
1193        #:tests? #f
1194        #:phases
1195        (modify-phases %standard-phases
1196          (delete 'configure)
1197          (add-after 'build 'install-xsession
1198            (lambda* (#:key outputs #:allow-other-keys)
1199              ;; Add a .desktop file to xsessions.
1200              (let* ((output (assoc-ref outputs "out"))
1201                     (xsessions (string-append output "/share/xsessions")))
1202                (mkdir-p xsessions)
1203                (with-output-to-file
1204                    (string-append xsessions "/cwm.desktop")
1205                  (lambda _
1206                    (format #t
1207                            "[Desktop Entry]~@
1208                      Name=cwm~@
1209                      Comment=OpenBSD Calm Window Manager fork~@
1210                      Exec=~a/bin/cwm~@
1211                      TryExec=~@*~a/bin/cwm~@
1212                      Icon=~@
1213                      Type=Application~%"
1214                            output)))
1215                #t))))))
1216     (inputs
1217      `(("libxft" ,libxft)
1218        ("libxrandr" ,libxrandr)
1219        ("libxinerama" ,libxinerama)))
1220     (native-inputs
1221      `(("pkg-config" ,pkg-config)
1222        ("bison" ,bison)))
1223     (home-page "https://github.com/chneukirchen/cwm")
1224     (synopsis "OpenBSD fork of the calmwm window manager")
1225     (description "Cwm is a stacking window manager for X11.  It is an OpenBSD
1226 project derived from the original Calm Window Manager.")
1227     (license license:isc)))
1228
1229 (define-public nitrogen
1230   (package
1231     (name "nitrogen")
1232     (version "1.6.1")
1233     (source (origin
1234               (method url-fetch)
1235               (uri (string-append "http://github.com/l3ib/nitrogen/"
1236                                   "releases/download/" version "/"
1237                                   name "-" version ".tar.gz"))
1238               (sha256
1239                (base32
1240                 "0zc3fl1mbhq0iyndy4ysmy8vv5c7xwf54rbgamzfhfvsgdq160pl"))))
1241     (build-system gnu-build-system)
1242     (inputs
1243      `(("gtk+" ,gtk+-2)
1244        ("gtkmm" ,gtkmm-2)
1245        ("glib" ,glib)
1246        ("glibmm" ,glibmm)))
1247     (native-inputs
1248      `(("pkg-config" ,pkg-config)))
1249     (home-page "http://projects.l3ib.org/nitrogen/")
1250     (synopsis "Background browser and setter for X windows")
1251     (description
1252      "This package is a background browser and setter for X windows.  It's
1253 features are:
1254
1255 @itemize
1256 @item Multihead and Xinerama aware
1257 @item Recall mode to used via startup script
1258 @item Uses freedesktop.org standard for thumbnails
1259 @item Can set GNOME background
1260 @item Command lie set modes for script use
1261 @item Inotify monitoring of browse directory
1262 @item Lazy loading of thumbnails - conserves memory
1263 @item \"Automatic\" set mode - determines best mode to set an image based on
1264 its size
1265 @item Display preview images in a tiled icon layout
1266 @end itemize")
1267     (license license:gpl2+)))
1268
1269 (define-public polybar
1270   (package
1271     (name "polybar")
1272     (version "3.4.2")
1273     (source
1274      (origin
1275        (method url-fetch)
1276        (uri (string-append "https://github.com/polybar/polybar/releases/"
1277                            "download/" version "/polybar-" version ".tar"))
1278        (sha256
1279         (base32 "0fmnviz4b01aw50nkv4yibm8ykc5ff860ynw3xb1ymlsjrvwj8jd"))))
1280     (build-system cmake-build-system)
1281     (arguments
1282      ;; Test is disabled because it requires downloading googletest from the
1283      ;; Internet.
1284      '(#:tests? #f))
1285     (inputs
1286      `(("alsa-lib" ,alsa-lib)
1287        ("cairo" ,cairo)
1288        ("i3-wm" ,i3-wm)
1289        ("jsoncpp" ,jsoncpp)
1290        ("libmpdclient" ,libmpdclient)
1291        ("libnl" ,libnl)
1292        ("libxcb" ,libxcb)
1293        ("pulseaudio" ,pulseaudio)
1294        ("xcb-proto" ,xcb-proto)
1295        ("xcb-util" ,xcb-util)
1296        ("xcb-util-cursor" ,xcb-util-cursor)
1297        ("xcb-util-image" ,xcb-util-image)
1298        ("xcb-util-wm" ,xcb-util-wm)
1299        ("xcb-util-xrm" ,xcb-util-xrm)))
1300     (native-inputs
1301      `(("pkg-config" ,pkg-config)
1302        ("python-sphinx" ,python-sphinx) ; for the manual
1303        ;; XXX: "python" input must be located after "python-2", or the package
1304        ;; fails to build with "missing required python module: xcbgen".
1305        ("python-2" ,python-2)           ; lib/xpp depends on python 2
1306        ("python" ,python)))             ; xcb-proto depends on python 3
1307     (home-page "https://polybar.github.io/")
1308     (synopsis "Fast and easy-to-use status bar")
1309     (description "Polybar aims to help users build beautiful and highly
1310 customizable status bars for their desktop environment.  It has built-in
1311 functionality to display information about the most commonly used services.")
1312     (license license:expat)))
1313
1314 (define-public wlroots
1315   (package
1316     (name "wlroots")
1317     (version "0.7.0")
1318     (source
1319      (origin
1320        (method git-fetch)
1321        (uri (git-reference
1322              (url "https://github.com/swaywm/wlroots.git")
1323              (commit version)))
1324        (file-name (git-file-name name version))
1325        (sha256
1326         (base32 "0jzxa6psbc7ddxli7rbfqxmv1svxnis51l1vch4hb9fdixqm284a"))))
1327     (build-system meson-build-system)
1328     (arguments
1329      `(#:configure-flags '("-Dlogind-provider=elogind")
1330        #:phases
1331        (modify-phases %standard-phases
1332          (add-before 'configure 'hardcode-paths
1333            (lambda* (#:key inputs #:allow-other-keys)
1334              (substitute* "xwayland/xwayland.c"
1335                (("Xwayland") (string-append (assoc-ref inputs
1336                                                        "xorg-server-xwayland")
1337                                             "/bin/Xwayland")))
1338              #t)))))
1339     (inputs `(("elogind" ,elogind)
1340               ("eudev" ,eudev)
1341               ("libinput" ,libinput)
1342               ("libxkbcommon" ,libxkbcommon)
1343               ("mesa" ,mesa)
1344               ("pixman" ,pixman)
1345               ("wayland" ,wayland)
1346               ("xorg-server-xwayland" ,xorg-server-xwayland)))
1347     (native-inputs `(("ffmpeg" ,ffmpeg)
1348                      ("libcap" ,libcap)
1349                      ("libpng" ,libpng)
1350                      ("pkg-config" ,pkg-config)
1351                      ("wayland-protocols" ,wayland-protocols)))
1352     (home-page "https://github.com/swaywm/wlroots")
1353     (synopsis "Pluggable, composable, unopinionated modules for building a
1354 Wayland compositor")
1355     (description "wlroots is a set of pluggable, composable, unopinionated
1356 modules for building a Wayland compositor.")
1357     (license license:expat)))  ; MIT license
1358
1359 (define-public sway
1360   (package
1361     (name "sway")
1362     (version "1.2")
1363     (source
1364      (origin
1365        (method git-fetch)
1366        (uri (git-reference
1367              (url "https://github.com/swaywm/sway.git")
1368              (commit version)))
1369        (file-name (git-file-name name version))
1370        (sha256
1371         (base32 "0vch2zm5afc76ia78p3vg71zr2fyda67l9hd2h0x1jq3mnvfbxnd"))))
1372     (build-system meson-build-system)
1373     (arguments
1374      `(#:phases
1375        (modify-phases %standard-phases
1376          (add-before 'configure 'hardcode-paths
1377            (lambda* (#:key inputs #:allow-other-keys)
1378              ;; Hardcode path to swaybg.
1379              (substitute* "sway/config.c"
1380                (("strdup..swaybg..")
1381                 (string-append "strdup(\"" (assoc-ref inputs "swaybg")
1382                                "/bin/swaybg\")")))
1383              ;; Hardcode path to scdoc.
1384              (substitute* "meson.build"
1385                (("scdoc.get_pkgconfig_variable..scdoc..")
1386                 (string-append "'" (assoc-ref inputs "scdoc")
1387                                "/bin/scdoc'")))
1388              #t)))))
1389     (inputs `(("cairo" ,cairo)
1390               ("elogind" ,elogind)
1391               ("gdk-pixbuf" ,gdk-pixbuf)
1392               ("json-c" ,json-c)
1393               ("libevdev" ,libevdev)
1394               ("libinput" ,libinput)
1395               ("libxkbcommon" ,libxkbcommon)
1396               ("pango" ,pango)
1397               ("swaybg" ,swaybg)
1398               ("wayland" ,wayland)
1399               ("wlroots" ,wlroots)))
1400     (native-inputs `(("libcap" ,libcap)
1401                      ("linux-pam" ,linux-pam)
1402                      ("mesa" ,mesa)
1403                      ("pkg-config" ,pkg-config)
1404                      ("scdoc" ,scdoc)
1405                      ("wayland-protocols" ,wayland-protocols)))
1406     (home-page "https://github.com/swaywm/sway")
1407     (synopsis "Wayland compositor compatible with i3")
1408     (description "Sway is a i3-compatible Wayland compositor.")
1409     (license license:expat)))       ; MIT license
1410
1411 (define-public swayidle
1412   (package
1413     (name "swayidle")
1414     (version "1.5")
1415     (source
1416      (origin
1417        (method git-fetch)
1418        (uri (git-reference
1419              (url "https://github.com/swaywm/swayidle.git")
1420              (commit version)))
1421        (file-name (git-file-name name version))
1422        (sha256
1423         (base32 "05qi96j58xqxjiighay1d39rfanxcpn6vlynj23mb5dymxvlaq9n"))))
1424     (build-system meson-build-system)
1425     (arguments
1426      `(#:configure-flags '("-Dlogind-provider=elogind")))
1427     (inputs `(("elogind" ,elogind)
1428               ("wayland" ,wayland)))
1429     (native-inputs `(("pkg-config" ,pkg-config)
1430                      ("scdoc" ,scdoc)
1431                      ("wayland-protocols" ,wayland-protocols)))
1432     (home-page "https://github.com/swaywm/sway")
1433     (synopsis "Idle management daemon for Wayland compositors")
1434     (description "Swayidle is a idle management daemon for Wayland compositors.")
1435     (license license:expat))) ; MIT license
1436
1437 (define-public swaylock
1438   (package
1439     (name "swaylock")
1440     (version "1.4")
1441     (source
1442      (origin
1443        (method git-fetch)
1444        (uri (git-reference
1445              (url "https://github.com/swaywm/swaylock.git")
1446              (commit version)))
1447        (file-name (git-file-name name version))
1448        (sha256
1449         (base32 "1ii9ql1mxkk2z69dv6bg1x22nl3a46iww764wqjiv78x08xpk982"))))
1450     (build-system meson-build-system)
1451     (inputs `(("cairo" ,cairo)
1452               ("gdk-pixbuf" ,gdk-pixbuf)
1453               ("libxkbcommon" ,libxkbcommon)
1454               ;("linux-pam" ,linux-pam) ; FIXME: Doesn't work.
1455               ("wayland" ,wayland)))
1456     (native-inputs `(("pango" ,pango)
1457                      ("pkg-config" ,pkg-config)
1458                      ("scdoc" ,scdoc)
1459                      ("wayland-protocols" ,wayland-protocols)))
1460     (home-page "https://github.com/swaywm/sway")
1461     (synopsis "Screen locking utility for Wayland compositors")
1462     (description "Swaylock is a screen locking utility for Wayland compositors.")
1463     (license license:expat))) ; MIT license
1464
1465 (define-public swaybg
1466   (package
1467     (name "swaybg")
1468     (version "1.0")
1469     (source
1470      (origin
1471        (method git-fetch)
1472        (uri (git-reference
1473              (url "https://github.com/swaywm/swaybg.git")
1474              (commit version)))
1475        (file-name (git-file-name name version))
1476        (sha256
1477         (base32 "1lmqz5bmig90gq2m7lwf02d2g7z4hzf8fhqz78c8vk92c6p4xwbc"))))
1478     (build-system meson-build-system)
1479     (inputs `(("cairo" ,cairo)
1480               ("gdk-pixbuf" ,gdk-pixbuf)
1481               ("wayland" ,wayland)))
1482     (native-inputs `(("pkg-config" ,pkg-config)
1483                      ("scdoc" ,scdoc)
1484                      ("wayland-protocols" ,wayland-protocols)))
1485     (home-page "https://github.com/swaywm/sway")
1486     (synopsis "Screen wallpaper utility for Wayland compositors")
1487     (description "Swaybg is a wallpaper utility for Wayland compositors.")
1488     (license license:expat))) ; MIT license
1489
1490 (define-public waybar
1491   (package
1492     (name "waybar")
1493     (version "0.9.1")
1494     (source
1495      (origin
1496        (method git-fetch)
1497        (uri (git-reference
1498              (url "https://github.com/Alexays/Waybar.git")
1499              (commit version)))
1500        (file-name (git-file-name name version))
1501        (sha256
1502         (base32 "0drlv8im5phz39jxp3gxkc40b6f85bb3piff2v3hmnfzh7ib915s"))))
1503     (build-system meson-build-system)
1504     (arguments
1505      `(#:configure-flags
1506        (list (string-append "-Dout=" (assoc-ref %outputs "out")))))
1507     (inputs `(("date" ,date)
1508               ("fmt" ,fmt)
1509               ("gtk-layer-shell" ,gtk-layer-shell)
1510               ("gtkmm" ,gtkmm)
1511               ("jsoncpp" ,jsoncpp)
1512               ("libdbusmenu" ,libdbusmenu)
1513               ("libinput" ,libinput)
1514               ("libmpdclent" ,libmpdclient)
1515               ("libnl" ,libnl)
1516               ("pulseaudio" ,pulseaudio)
1517               ("spdlog" ,spdlog)
1518               ("wayland" ,wayland)))
1519     (native-inputs `(("glib:bin" ,glib "bin")
1520                      ("pkg-config" ,pkg-config)
1521                      ("wayland-protocols" ,wayland-protocols)))
1522     (home-page "https://github.com/Alexays/Waybar")
1523     (synopsis "Wayland bar for Sway and Wlroots based compositors")
1524     (description "Waybar is a highly customisable Wayland bar for Sway and
1525 Wlroots based compositors.")
1526     (license license:expat))) ; MIT license
1527
1528 (define-public mako
1529   (package
1530     (name "mako")
1531     (version "1.4")
1532     (source
1533      (origin
1534        (method git-fetch)
1535        (uri (git-reference
1536              (url "https://github.com/emersion/mako.git")
1537              (commit (string-append "v" version))))
1538        (file-name (git-file-name name version))
1539        (sha256
1540         (base32 "11ymiq6cr2ma0iva1mqybn3j6k73bsc6lv6pcbdq7hkhd4f9b7j9"))))
1541     (build-system meson-build-system)
1542     (inputs `(("cairo" ,cairo)
1543               ("elogind" ,elogind)
1544               ("gdk-pixbuf" ,gdk-pixbuf)
1545               ("pango" ,pango)
1546               ("wayland" ,wayland)))
1547     (native-inputs `(("pkg-config" ,pkg-config)
1548                      ("scdoc" ,scdoc)
1549                      ("wayland-protocols" ,wayland-protocols)))
1550     (home-page "https://wayland.emersion.fr/mako")
1551     (synopsis "Lightweight Wayland notification daemon")
1552     (description "Mako is a lightweight notification daemon for Wayland
1553 compositors that support the layer-shell protocol.")
1554     (license license:expat))) ; MIT license
1555
1556 (define-public stumpwm
1557   (package
1558     (name "stumpwm")
1559     (version "19.11")
1560     (source
1561      (origin
1562        (method git-fetch)
1563        (uri (git-reference
1564              (url "https://github.com/stumpwm/stumpwm.git")
1565              (commit version)))
1566        (file-name (git-file-name "stumpwm" version))
1567        (sha256
1568         (base32 "1ha8803ll7472kqxsy2xz0v5d4sv8apmc9z631d67m31q0z1m9rz"))))
1569     (build-system asdf-build-system/sbcl)
1570     (native-inputs `(("fiasco" ,sbcl-fiasco)
1571                      ("texinfo" ,texinfo)))
1572     (inputs `(("cl-ppcre" ,sbcl-cl-ppcre)
1573               ("clx" ,sbcl-clx)
1574               ("alexandria" ,sbcl-alexandria)))
1575     (outputs '("out" "lib"))
1576     (arguments
1577      '(#:asd-system-name "stumpwm"
1578        #:phases
1579        (modify-phases %standard-phases
1580          (add-after 'create-symlinks 'build-program
1581            (lambda* (#:key outputs #:allow-other-keys)
1582              (build-program
1583               (string-append (assoc-ref outputs "out") "/bin/stumpwm")
1584               outputs
1585               #:entry-program '((stumpwm:stumpwm) 0))))
1586          (add-after 'build-program 'create-desktop-file
1587            (lambda* (#:key outputs #:allow-other-keys)
1588              (let* ((out (assoc-ref outputs "out"))
1589                     (xsessions (string-append out "/share/xsessions")))
1590                (mkdir-p xsessions)
1591                (call-with-output-file
1592                    (string-append xsessions "/stumpwm.desktop")
1593                  (lambda (file)
1594                    (format file
1595                     "[Desktop Entry]~@
1596                      Name=stumpwm~@
1597                      Comment=The Stump Window Manager~@
1598                      Exec=~a/bin/stumpwm~@
1599                      TryExec=~@*~a/bin/stumpwm~@
1600                      Icon=~@
1601                      Type=Application~%"
1602                     out)))
1603                #t)))
1604          (add-after 'install 'install-manual
1605            (lambda* (#:key outputs #:allow-other-keys)
1606              ;; The proper way to the manual is bootstrapping a full autotools
1607              ;; build system and running ‘./configure && make stumpwm.info’ to
1608              ;; do some macro substitution.  We can get away with much less.
1609              (let* ((out  (assoc-ref outputs "out"))
1610                     (info (string-append out "/share/info")))
1611                (invoke "makeinfo" "stumpwm.texi.in")
1612                (install-file "stumpwm.info" info)
1613                #t))))))
1614     (synopsis "Window manager written in Common Lisp")
1615     (description "Stumpwm is a window manager written entirely in Common Lisp.
1616 It attempts to be highly customizable while relying entirely on the keyboard
1617 for input.  These design decisions reflect the growing popularity of
1618 productive, customizable lisp based systems.")
1619     (home-page "https://github.com/stumpwm/stumpwm")
1620     (license license:gpl2+)
1621     (properties `((cl-source-variant . ,(delay cl-stumpwm))))))
1622
1623 (define-public sbcl-stumpwm
1624   (deprecated-package "sbcl-stumpwm" stumpwm))
1625
1626 (define-public cl-stumpwm
1627   (package
1628     (inherit (sbcl-package->cl-source-package stumpwm))
1629     (name "cl-stumpwm")))
1630
1631 (define-public stumpwm+slynk
1632   (package
1633     (inherit stumpwm)
1634     (name "stumpwm-with-slynk")
1635     (outputs '("out"))
1636     (inputs
1637      `(("stumpwm" ,stumpwm "lib")
1638        ("slynk" ,sbcl-slynk)))
1639     (arguments
1640      (substitute-keyword-arguments (package-arguments stumpwm)
1641        ((#:phases phases)
1642         `(modify-phases ,phases
1643            (replace 'build-program
1644              (lambda* (#:key inputs outputs #:allow-other-keys)
1645                (let* ((out (assoc-ref outputs "out"))
1646                       (program (string-append out "/bin/stumpwm")))
1647                  (build-program program outputs
1648                                 #:entry-program '((stumpwm:stumpwm) 0)
1649                                 #:dependencies '("stumpwm"
1650                                                  ,@(@@ (gnu packages lisp-xyz) slynk-systems))
1651                                 #:dependency-prefixes
1652                                 (map (lambda (input) (assoc-ref inputs input))
1653                                      '("stumpwm" "slynk")))
1654                  ;; Remove unneeded file.
1655                  (delete-file (string-append out "/bin/stumpwm-exec.fasl"))
1656                  #t)))
1657            (delete 'copy-source)
1658            (delete 'build)
1659            (delete 'check)
1660            (delete 'create-asd-file)
1661            (delete 'cleanup)
1662            (delete 'create-symlinks)))))))
1663
1664 (define-public stumpish
1665   (let ((commit "dd5b037923ec7d3cc27c55806bcec5a1b8cf4e91")
1666         (revision "1"))
1667     (package
1668       (name "stumpish")
1669       (version (git-version "0.0.1" revision commit)) ;no upstream release
1670       (source
1671        (origin
1672          (method git-fetch)
1673          (uri (git-reference
1674                (url "https://github.com/stumpwm/stumpwm-contrib.git")
1675                (commit commit)))
1676          (file-name (git-file-name name version))
1677          (sha256
1678           (base32 "0ahxdj9f884afpzxczx6mx7l4nwg4kw6afqaq7lwhf7lxcwylldn"))))
1679       (inputs
1680        `(("bash" ,bash)
1681          ("rlwrap" ,rlwrap)))
1682       (build-system trivial-build-system)
1683       (arguments
1684        '(#:modules ((guix build utils))
1685          #:builder
1686          (begin
1687            (use-modules (guix build utils))
1688            (copy-recursively (assoc-ref %build-inputs "source") ".")
1689            (chdir "util/stumpish")
1690            (substitute* "stumpish"
1691              (("rlwrap") (string-append (assoc-ref %build-inputs "rlwrap")
1692                                         "/bin/rlwrap"))
1693              (("/bin/sh") (string-append (assoc-ref %build-inputs "bash")
1694                                          "/bin/bash")))
1695            (install-file "stumpish" (string-append %output "/bin")))))
1696       (home-page "https://github.com/stumpwm/stumpwm-contrib")
1697       (synopsis "StumpWM interactive shell")
1698       (description "This package provides a StumpWM interactive shell.")
1699       (license (list license:gpl2+ license:gpl3+ license:bsd-2)))))
1700
1701 (define-public sbcl-stumpwm+slynk
1702   (deprecated-package "sbcl-stumpwm-with-slynk" stumpwm+slynk))
1703
1704 (define-public sbcl-stumpwm-ttf-fonts
1705   (let ((commit "dd5b037923ec7d3cc27c55806bcec5a1b8cf4e91")
1706         (revision "1"))
1707     (package
1708       (name "sbcl-ttf-fonts")
1709       (version (git-version "0.0.1" revision commit)) ;no upstream release
1710       (source
1711        (origin
1712          (method git-fetch)
1713          (uri (git-reference
1714                (url "https://github.com/stumpwm/stumpwm-contrib.git")
1715                (commit commit)))
1716          (file-name (git-file-name name version))
1717          (sha256
1718           (base32 "0ahxdj9f884afpzxczx6mx7l4nwg4kw6afqaq7lwhf7lxcwylldn"))))
1719       (inputs
1720        `(("stumpwm" ,stumpwm "lib")
1721          ("clx-truetype" ,sbcl-clx-truetype)))
1722       (build-system asdf-build-system/sbcl)
1723       (arguments
1724        '(#:phases
1725          (modify-phases %standard-phases
1726            (add-after 'unpack 'chdir
1727              (lambda _
1728                (chdir "util/ttf-fonts"))))))
1729       (home-page "https://github.com/stumpwm/stumpwm-contrib")
1730       (synopsis "Implementation of TTF font rendering for Lisp")
1731       (description "This package provides a Lisp implementation of TTF font
1732 rendering.")
1733       (license (list license:gpl2+ license:gpl3+ license:bsd-2)))))
1734
1735 (define-public lemonbar
1736   (let ((commit "35183ab81d2128dbb7b6d8e119cc57846bcefdb4")
1737         (revision "1"))
1738     (package
1739       (name "lemonbar")
1740       (version (git-version "1.3" revision commit))
1741       (source (origin
1742                 (method git-fetch)
1743                 (uri (git-reference
1744                       (url "https://github.com/LemonBoy/bar")
1745                       (commit commit)))
1746                 (file-name (git-file-name name version))
1747                 (sha256
1748                  (base32
1749                   "1wwqbph392iwz8skaqxb0xpklb1l6yganqz80g4x1fhrnz7idmlh"))))
1750       (build-system gnu-build-system)
1751       (arguments
1752        '(#:tests? #f ; no test suite
1753          #:make-flags (list "CC=gcc"
1754                             (string-append "PREFIX=" %output))
1755          #:phases
1756          (modify-phases %standard-phases
1757            (delete 'configure))))
1758       (inputs
1759        `(("libxcb" ,libxcb)))
1760       (native-inputs
1761        `(("perl" ,perl)))
1762       (home-page "https://github.com/LemonBoy/bar")
1763       (synopsis "Featherweight status bar")
1764       (description
1765        "@code{lemonbar} (formerly known as @code{bar}) is a lightweight
1766 bar entirely based on XCB.  Provides full UTF-8 support, basic
1767 formatting, RandR and Xinerama support and EWMH compliance without
1768 wasting your precious memory.")
1769       (license license:x11))))