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