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