gnu/packages/wm.scm

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