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