gnu/packages/wm.scm

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