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