2041 lines
77 KiB
Scheme
2041 lines
77 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
||
;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
|
||
;;; Copyright © 2015 Siniša Biđin <sinisa@bidin.eu>
|
||
;;; Copyright © 2015, 2016 Eric Bavier <bavier@member.fsf.org>
|
||
;;; Copyright © 2015 xd1le <elisp.vim@gmail.com>
|
||
;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
|
||
;;; Copyright © 2016 Danny Milosavljevic <dannym@scratchpost.org>
|
||
;;; Copyright © 2016, 2019 Efraim Flashner <efraim@flashner.co.il>
|
||
;;; Copyright © 2016 Al McElrath <hello@yrns.org>
|
||
;;; Copyright © 2016 Carlo Zancanaro <carlo@zancanaro.id.au>
|
||
;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
|
||
;;; Copyright © 2016, 2017, 2018, 2020 Nikita <nikita@n0.is>
|
||
;;; Copyright © 2016 doncatnip <gnopap@gmail.com>
|
||
;;; Copyright © 2016 Ivan Vilata i Balaguer <ivan@selidor.net>
|
||
;;; Copyright © 2017 Mekeor Melire <mekeor.melire@gmail.com>
|
||
;;; Copyright © 2017, 2019 Marius Bakke <mbakke@fastmail.com>
|
||
;;; Copyright © 2017, 2020 Oleg Pykhalov <go.wigust@gmail.com>
|
||
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
|
||
;;; Copyright © 2018 Pierre-Antoine Rouby <contact@parouby.fr>
|
||
;;; Copyright © 2018, 2019 Meiyo Peng <meiyo@riseup.net>
|
||
;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com>
|
||
;;; Copyright © 2019 Timothy Sample <samplet@ngyro.com>
|
||
;;; Copyright © 2019 Gábor Boskovits <boskovits@gmail.com>
|
||
;;; Copyright © 2019 Kyle Andrews <kyle.c.andrews@gmail.com>
|
||
;;; Copyright © 2019 Ingo Ruhnke <grumbel@gmail.com>
|
||
;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org>
|
||
;;; Copyright © 2019 John Soo <jsoo1@asu.edu>
|
||
;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com>
|
||
;;; Copyright © 2016, 2017 Andy Patterson <ajpatter@uwaterloo.ca>
|
||
;;; Copyright © 2019 Evan Straw <evan.straw99@gmail.com>
|
||
;;; Copyright © 2019 Brett Gilio <brettg@gnu.org>
|
||
;;; Copyright © 2019 Noodles! <nnoodle@chiru.no>
|
||
;;; Copyright © 2019, 2020 Alexandru-Sergiu Marton <brown121407@member.fsf.org>
|
||
;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
|
||
;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re>
|
||
;;; Copyright © 2020 Boris A. Dekshteyn <harlequin78@gmail.com>
|
||
;;; Copyright © 2020 Marcin Karpezo <sirmacik@wioo.waw.pl>
|
||
;;; Copyright © 2020 EuAndreh <eu@euandre.org>
|
||
;;;
|
||
;;; This file is part of GNU Guix.
|
||
;;;
|
||
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
||
;;; under the terms of the GNU General Public License as published by
|
||
;;; the Free Software Foundation; either version 3 of the License, or (at
|
||
;;; your option) any later version.
|
||
;;;
|
||
;;; GNU Guix is distributed in the hope that it will be useful, but
|
||
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;;; GNU General Public License for more details.
|
||
;;;
|
||
;;; You should have received a copy of the GNU General Public License
|
||
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
||
|
||
(define-module (gnu packages wm)
|
||
#:use-module ((guix licenses) #:prefix license:)
|
||
#:use-module (guix packages)
|
||
#:use-module (guix download)
|
||
#:use-module (guix git-download)
|
||
#:use-module (guix build-system asdf)
|
||
#:use-module (guix build-system cmake)
|
||
#:use-module (guix build-system gnu)
|
||
#:use-module (guix build-system haskell)
|
||
#:use-module (guix build-system meson)
|
||
#:use-module (guix build-system perl)
|
||
#:use-module (guix build-system python)
|
||
#:use-module (guix build-system trivial)
|
||
#:use-module (guix utils)
|
||
#:use-module (gnu packages)
|
||
#:use-module (gnu packages bash)
|
||
#:use-module (gnu packages autotools)
|
||
#:use-module (gnu packages base)
|
||
#:use-module (gnu packages bison)
|
||
#:use-module (gnu packages calendar)
|
||
#:use-module (gnu packages docbook)
|
||
#:use-module (gnu packages documentation)
|
||
#:use-module (gnu packages fontutils)
|
||
#:use-module (gnu packages freedesktop)
|
||
#:use-module (gnu packages fribidi)
|
||
#:use-module (gnu packages gawk)
|
||
#:use-module (gnu packages gcc)
|
||
#:use-module (gnu packages gl)
|
||
#:use-module (gnu packages glib)
|
||
#:use-module (gnu packages gperf)
|
||
#:use-module (gnu packages gtk)
|
||
#:use-module (gnu packages haskell-check)
|
||
#:use-module (gnu packages haskell-web)
|
||
#:use-module (gnu packages haskell-xyz)
|
||
#:use-module (gnu packages image)
|
||
#:use-module (gnu packages imagemagick)
|
||
#:use-module (gnu packages libevent)
|
||
#:use-module (gnu packages linux)
|
||
#:use-module (gnu packages lisp-xyz)
|
||
#:use-module (gnu packages logging)
|
||
#:use-module (gnu packages lua)
|
||
#:use-module (gnu packages m4)
|
||
#:use-module (gnu packages man)
|
||
#:use-module (gnu packages maths)
|
||
#:use-module (gnu packages mpd)
|
||
#:use-module (gnu packages pcre)
|
||
#:use-module (gnu packages perl)
|
||
#:use-module (gnu packages pkg-config)
|
||
#:use-module (gnu packages pretty-print)
|
||
#:use-module (gnu packages pulseaudio)
|
||
#:use-module (gnu packages python)
|
||
#:use-module (gnu packages readline)
|
||
#:use-module (gnu packages serialization)
|
||
#:use-module (gnu packages sphinx)
|
||
#:use-module (gnu packages suckless)
|
||
#:use-module (gnu packages texinfo)
|
||
#:use-module (gnu packages textutils)
|
||
#:use-module (gnu packages video)
|
||
#:use-module (gnu packages web)
|
||
#:use-module (gnu packages xdisorg)
|
||
#:use-module (gnu packages xml)
|
||
#:use-module (gnu packages xorg))
|
||
|
||
(define-public bspwm
|
||
(package
|
||
(name "bspwm")
|
||
(version "0.9.10")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/baskerville/bspwm")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "0qlv7b4c2mmjfd65y100d11x8iqyg5f6lfiws3cgmpjidhdygnxc"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("libxcb" ,libxcb)
|
||
("libxinerama" ,libxinerama)
|
||
("sxhkd" ,sxhkd)
|
||
("xcb-util" ,xcb-util)
|
||
("xcb-util-keysyms" ,xcb-util-keysyms)
|
||
("xcb-util-wm" ,xcb-util-wm)))
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure)) ; no configure script
|
||
#:tests? #f ; no check target
|
||
#:make-flags
|
||
(list "CC=gcc"
|
||
(string-append "PREFIX=" %output))))
|
||
(home-page "https://github.com/baskerville/bspwm")
|
||
(synopsis "Tiling window manager based on binary space partitioning")
|
||
(description "bspwm is a tiling window manager that represents windows as
|
||
the leaves of a full binary tree.")
|
||
(license license:bsd-2)))
|
||
|
||
(define-public herbstluftwm
|
||
(package
|
||
(name "herbstluftwm")
|
||
(version "0.8.3")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://herbstluftwm.org/tarballs/herbstluftwm-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32 "1qmb4pjf2f6g0dvcg11cw9njwmxblhqzd70ai8qnlgqw1iz3nkm1"))
|
||
(file-name (string-append "herbstluftwm-" version ".tar.gz"))))
|
||
(build-system cmake-build-system)
|
||
(inputs
|
||
`(("dzen" ,dzen)
|
||
("dmenu" ,dmenu)
|
||
("glib" ,glib)
|
||
("glibmm" ,glibmm)
|
||
("xterm" ,xterm)
|
||
("xsetroot" ,xsetroot)
|
||
("libx11" ,libx11)
|
||
("libxext" ,libxext)
|
||
("libxinerama" ,libxinerama)
|
||
("libxrandr" ,libxrandr)))
|
||
(native-inputs
|
||
`(("asciidoc" ,asciidoc)
|
||
("pkg-config" ,pkg-config)))
|
||
(arguments
|
||
'(#:tests? #f
|
||
#:configure-flags
|
||
(let ((out (assoc-ref %outputs "out")))
|
||
(list "-DCC=gcc"
|
||
(string-append "-DCMAKE_INSTALL_SYSCONF_PREFIX=" out "/etc")
|
||
(string-append "-DBASHCOMPLETIONDIR=" out "/etc/bash_completion.d")))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'install-xsession
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(xsessions (string-append out "/share/xsessions")))
|
||
(mkdir-p xsessions)
|
||
(call-with-output-file
|
||
(string-append xsessions "/herbstluftwm.desktop")
|
||
(lambda (port)
|
||
(format port "~
|
||
[Desktop Entry]~@
|
||
Name=herbstluftwm~@
|
||
Comment=Manual tiling window manager~@
|
||
Exec=~a/bin/herbstluftwm~@
|
||
Type=XSession~%" out)))
|
||
#t))))))
|
||
(synopsis "Tiling window manager for X11")
|
||
(description "herbstluftwm is a manual tiling window manager for X11 using
|
||
Xlib and GLib. Its main features are:
|
||
|
||
@itemize
|
||
@item
|
||
The layout is based on splitting frames into subframes which can be split
|
||
again or can be filled with windows (similar to i3 or musca).
|
||
|
||
@item
|
||
Tags (or workspaces or virtual desktops or …) can be added/removed at runtime.
|
||
Each tag contains an own layout.
|
||
|
||
@item
|
||
Exactly one tag is viewed on each monitor. The tags are monitor independent
|
||
(similar to Xmonad).
|
||
|
||
@item
|
||
It is configured at runtime via IPC calls from @command{herbstclient}. So the
|
||
configuration file is just a script which is run on startup (similar to wmii
|
||
or musca).
|
||
|
||
@end itemize")
|
||
(home-page "https://herbstluftwm.org")
|
||
(license license:bsd-2)))
|
||
|
||
(define-public i3status
|
||
(package
|
||
(name "i3status")
|
||
(version "2.13")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://i3wm.org/i3status/i3status-"
|
||
version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"0rhlzb96mw64z2jnhwz9nibc7pxg549626lz5642xxk5hpzwk2ff"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(;; XXX: Do an "out of source" build to work around
|
||
;; <https://github.com/i3/i3status/issues/339>.
|
||
#:out-of-source? #t
|
||
#:tests? #f)) ; no test suite
|
||
(inputs
|
||
`(("openlibm" ,openlibm)
|
||
("libconfuse" ,libconfuse)
|
||
("libyajl" ,libyajl)
|
||
("alsa-lib" ,alsa-lib)
|
||
("pulseaudio" ,pulseaudio)
|
||
("libnl" ,libnl)
|
||
("libcap" ,libcap)
|
||
("asciidoc" ,asciidoc)))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("docbook-xsl" ,docbook-xsl)
|
||
("libxml2" ,libxml2) ;for XML_CATALOG_FILES
|
||
("xmlto" ,xmlto)))
|
||
(home-page "https://i3wm.org/i3status/")
|
||
(synopsis "Status bar for i3bar, dzen2, xmobar or similar programs")
|
||
(description "i3status is a small program for generating a status bar for
|
||
i3bar, dzen2, xmobar or similar programs. It is designed to be very efficient
|
||
by issuing a very small number of system calls, as one generally wants to
|
||
update such a status line every second. This ensures that even under high
|
||
load, your status bar is updated correctly. Also, it saves a bit of energy by
|
||
not hogging your CPU as much as spawning the corresponding amount of shell
|
||
commands would.")
|
||
(license license:bsd-3)))
|
||
|
||
(define-public i3-wm
|
||
(package
|
||
(name "i3-wm")
|
||
(version "4.18.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://i3wm.org/downloads/i3-"
|
||
version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"030jym6b8b07yf4y6pb806hg8k77zsprv569gy0r72rh5zb1g1mj"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags
|
||
;; The build system tries to build in a separate directory, but that
|
||
;; seems to be unnecessary.
|
||
(list "--disable-builddir")
|
||
|
||
;; The test suite requires the unpackaged Xephyr X server.
|
||
#:tests? #f
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'patch-session-file
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(i3 (string-append out "/bin/i3"))
|
||
(i3-with-shmlog (string-append out "/bin/i3-with-shmlog")))
|
||
(substitute* (string-append out "/share/xsessions/i3.desktop")
|
||
(("Exec=i3") (string-append "Exec=" i3)))
|
||
(substitute* (string-append out "/share/xsessions/i3-with-shmlog.desktop")
|
||
(("Exec=i3-with-shmlog") (string-append "Exec=" i3-with-shmlog)))
|
||
#t))))))
|
||
(inputs
|
||
`(("libxcb" ,libxcb)
|
||
("xcb-util" ,xcb-util)
|
||
("xcb-util-cursor" ,xcb-util-cursor)
|
||
("xcb-util-keysyms" ,xcb-util-keysyms)
|
||
("xcb-util-wm" ,xcb-util-wm)
|
||
("xcb-util-xrm" ,xcb-util-xrm)
|
||
("libxkbcommon" ,libxkbcommon)
|
||
("libev" ,libev)
|
||
("libyajl" ,libyajl)
|
||
("asciidoc" ,asciidoc)
|
||
("xmlto" ,xmlto)
|
||
("perl-pod-simple" ,perl-pod-simple)
|
||
("libx11" ,libx11)
|
||
("pcre" ,pcre)
|
||
("startup-notification" ,startup-notification)
|
||
("pango" ,pango)
|
||
("cairo" ,cairo)))
|
||
(native-inputs
|
||
`(("which" ,which)
|
||
("perl" ,perl)
|
||
("pkg-config" ,pkg-config)
|
||
;; For building the documentation.
|
||
("libxml2" ,libxml2)
|
||
("docbook-xsl" ,docbook-xsl)))
|
||
(home-page "https://i3wm.org/")
|
||
(synopsis "Tiling window manager")
|
||
(description "i3 is a tiling X11 window manager that dynamically manages
|
||
tiled, stacked, and tabbed window layouts.
|
||
|
||
i3 primarily targets advanced users. Windows are managed manually and organised
|
||
inside containers, which can be split vertically or horizontally, and optionally
|
||
resized.
|
||
|
||
i3 uses a plain-text configuration file, and can be extended and controlled from
|
||
many programming languages.")
|
||
(license license:bsd-3)))
|
||
|
||
(define-public i3-gaps
|
||
(package (inherit i3-wm)
|
||
(name "i3-gaps")
|
||
(version "4.18.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://github.com/Airblader/i3/releases/download/"
|
||
version "/i3-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"0lz08wf4b0yprzqsmymn94kiyg885dcwmh0p64v2rnf52s165g2g"))))
|
||
(home-page "https://github.com/Airblader/i3")
|
||
(synopsis "Tiling window manager with gaps")
|
||
(description "i3-gaps is a fork of i3wm, a tiling window manager
|
||
for X11. It is kept up to date with upstream, adding a few additional
|
||
features such as gaps between windows.
|
||
|
||
i3 is a tiling X11 window manager that dynamically manages tiled, stacked,
|
||
and tabbed window layouts.
|
||
|
||
i3 primarily targets advanced users. Windows are managed manually and
|
||
organised inside containers, which can be split vertically or horizontally,
|
||
and optionally resized.
|
||
|
||
i3 uses a plain-text configuration file, and can be extended and controlled
|
||
from many programming languages.")
|
||
(license license:bsd-3)))
|
||
|
||
(define-public i3lock
|
||
(package
|
||
(name "i3lock")
|
||
(version "2.11.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://i3wm.org/i3lock/i3lock-"
|
||
version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"015dn534m7cxjvqdncpvaq9p8b2r4w5hp1yanbdy2abmhbcc7a7j"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("cairo" ,cairo)
|
||
("libev" ,libev)
|
||
("linux-pam" ,linux-pam)
|
||
("libxcb" ,libxcb)
|
||
("libxkbcommon" ,libxkbcommon)
|
||
("xcb-util" ,xcb-util)
|
||
("xcb-util-image" ,xcb-util-image)
|
||
("xcb-util-xrm" ,xcb-util-xrm)))
|
||
(home-page "https://i3wm.org/i3lock/")
|
||
(synopsis "Lightweight screen locker")
|
||
(description
|
||
"i3lock is a simple X11 screen locker developed alongside the i3 project.
|
||
Despite the name it should work with any X11 window manager.")
|
||
(license license:bsd-3)))
|
||
|
||
(define-public i3blocks
|
||
(package
|
||
(name "i3blocks")
|
||
(version "1.5")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/vivien/i3blocks")
|
||
(commit version)))
|
||
(sha256
|
||
(base32
|
||
"0v8mwnm8qzpv6xnqvrk43s4b9iyld4naqzbaxk4ldq1qkhai0wsv"))
|
||
(file-name (git-file-name name version))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
`(("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "https://github.com/vivien/i3blocks")
|
||
(synopsis "Minimalist scheduler for status bar scripts")
|
||
(description "i3blocks executes your command lines and generates a
|
||
status line from their output. The generated line is meant to be displayed by
|
||
the i3 window manager through its i3bar component, as an alternative to
|
||
i3status.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public perl-anyevent-i3
|
||
(package
|
||
(name "perl-anyevent-i3")
|
||
(version "0.17")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://cpan/authors/id/M/MS/MSTPLBG/"
|
||
"AnyEvent-I3-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0qvd9bq16jyy7v3ma82qcnvz9j503bw0mh7h55gkjf7ir62ck0jk"))))
|
||
(build-system perl-build-system)
|
||
(propagated-inputs
|
||
`(("perl-anyevent" ,perl-anyevent)
|
||
("perl-json-xs" ,perl-json-xs)))
|
||
(home-page "https://metacpan.org/release/AnyEvent-I3")
|
||
(synopsis
|
||
"Communicate with the i3 window manager through perl")
|
||
(description
|
||
"This module connects to the i3 window manager using the UNIX socket
|
||
based IPC interface it provides (if enabled in the configuration file).
|
||
You can then subscribe to events or send messages and receive their replies.")
|
||
;; Can be used with either license.
|
||
(license (list license:gpl3+ license:perl-license))))
|
||
|
||
(define-public python-i3-py
|
||
(package
|
||
(name "python-i3-py")
|
||
(version "0.6.5")
|
||
(source
|
||
(origin
|
||
;; The latest release is not tagged in Git nor has an entry in PyPi,
|
||
;; but there is still a clear commit for it, and it's been the last one
|
||
;; for years.
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/ziberna/i3-py")
|
||
(commit "27f88a616e9ecc340e7d041d3d00782f8a1964c1")))
|
||
(sha256
|
||
(base32
|
||
"1nm719dc2xqlll7vj4c4m7mpjb27lpn3bg3c66gajvnrz2x1nmxs"))
|
||
(file-name (string-append name "-" version "-checkout"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
`(#:tests? #f ; no tests yet
|
||
#:phases (modify-phases %standard-phases
|
||
(add-after 'install 'install-doc
|
||
;; Copy readme file to documentation directory.
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((doc (string-append (assoc-ref outputs "out")
|
||
"/share/doc/" ,name)))
|
||
(install-file "README.md" doc)
|
||
;; Avoid unspecified return value.
|
||
#t))))))
|
||
(propagated-inputs
|
||
`(("i3-wm" ,i3-wm)))
|
||
(home-page "https://github.com/ziberna/i3-py")
|
||
(synopsis "Python interface to the i3 window manager")
|
||
(description "This package allows you to interact from a Python program
|
||
with the i3 window manager via its IPC socket. It can send commands and other
|
||
kinds of messages to i3, select the affected containers, filter results and
|
||
subscribe to events.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public python2-i3-py
|
||
(package-with-python2 python-i3-py))
|
||
|
||
(define-public quickswitch-i3
|
||
(let ((commit "ed692b1e8f43b95bd907ced26238ce8ccb2ed28f")
|
||
(revision "1")) ; Guix package revision
|
||
(package
|
||
(name "quickswitch-i3")
|
||
(version (string-append "2.2-" revision "."
|
||
(string-take commit 7)))
|
||
(source
|
||
(origin
|
||
;; The latest commit is a few years old and just a couple commits
|
||
;; after the last tagged release, so we use that latest commit
|
||
;; instead of the release.
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/proxypoke/quickswitch-for-i3")
|
||
(commit commit)))
|
||
(sha256
|
||
(base32
|
||
"0447077sama80jcdg5p64zjsvafmz5rbdrirhm1adcdjhkh6iqc5"))
|
||
(patches (search-patches "quickswitch-fix-dmenu-check.patch"))
|
||
(file-name (string-append name "-" version "-checkout"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
`(#:tests? #f ; no tests yet
|
||
#:phases (modify-phases %standard-phases
|
||
(add-after 'install 'install-doc
|
||
;; Copy readme file to documentation directory.
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((doc (string-append (assoc-ref outputs "out")
|
||
"/share/doc/" ,name)))
|
||
(install-file "README.rst" doc)
|
||
;; Avoid unspecified return value.
|
||
#t))))))
|
||
(inputs
|
||
`(("python-i3-py" ,python-i3-py)
|
||
("dmenu" ,dmenu)))
|
||
(home-page "https://github.com/proxypoke/quickswitch-for-i3")
|
||
(synopsis "Quickly change to and locate windows in the i3 window manager")
|
||
(description
|
||
"This utility for the i3 window manager allows you to quickly switch to
|
||
and locate windows on all your workspaces, using an interactive dmenu
|
||
prompt.")
|
||
(license license:wtfpl2))))
|
||
|
||
(define-public i3lock-color
|
||
(package
|
||
(name "i3lock-color")
|
||
(version "2.12.c")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/PandorasFox/i3lock-color")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "08fhnchf187b73h52xgzb86g6byzxz085zs9galsvl687g5zxk34"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:tests? #f)) ; no tests included
|
||
(inputs
|
||
`(("cairo" ,cairo)
|
||
("libev" ,libev)
|
||
("libjpeg" ,libjpeg-turbo)
|
||
("libxcb" ,libxcb)
|
||
("libxkbcommon" ,libxkbcommon)
|
||
("linux-pam" ,linux-pam)
|
||
("xcb-util" ,xcb-util)
|
||
("xcb-util-image" ,xcb-util-image)
|
||
("xcb-util-xrm" ,xcb-util-xrm)))
|
||
(native-inputs
|
||
`(("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("pkg-config" ,pkg-config)))
|
||
(home-page "https://github.com/PandorasFox/i3lock-color")
|
||
(synopsis "Screen locker with color configuration support")
|
||
(description
|
||
"i3lock-color is a simpler X11 screen locker derived from i3lock.
|
||
Features include:
|
||
|
||
@enumerate
|
||
@item forking process, the locked screen is preserved when you suspend to RAM;
|
||
@item specify background color or image to be displayed in the lock screen;
|
||
@item many additional color options.
|
||
@end enumerate")
|
||
(license license:bsd-3)))
|
||
|
||
(define-public i3lock-fancy
|
||
(package
|
||
(name "i3lock-fancy")
|
||
(version "0.2")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/meskarune/i3lock-fancy")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "11g2kkim33ra38d1m897sq1ifajw17iyw9mr7sg1q8i2ibl4lfsi"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:tests? #f ; no tests included
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'configure
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(icons (string-append out "/share/i3lock-fancy/icons/"))
|
||
(wmctrl (string-append (assoc-ref inputs "wmctrl")
|
||
"/bin/wmctrl"))
|
||
(mconvert (string-append (assoc-ref inputs "imagemagick")
|
||
"/bin/convert"))
|
||
(mimport (string-append (assoc-ref inputs "imagemagick")
|
||
"/bin/import"))
|
||
(awk (string-append (assoc-ref inputs "gawk")
|
||
"/bin/gawk")))
|
||
|
||
(substitute* "lock"
|
||
(("$(which wmctrl)") wmctrl)
|
||
(("convert") mconvert)
|
||
(("shot=\\(import") (string-append "shot=\(" mimport))
|
||
(("awk -F") (string-append awk " -F"))
|
||
((" awk") awk)
|
||
(("\\$scriptpath/icons/") icons))
|
||
#t)))
|
||
(delete 'build)
|
||
(replace 'install
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(bin (string-append out "/bin"))
|
||
(icons (string-append out "/share/i3lock-fancy/icons/")))
|
||
|
||
(install-file "lock" bin)
|
||
(rename-file (string-append bin "/lock")
|
||
(string-append bin "/i3lock-fancy"))
|
||
(copy-recursively "icons" icons)
|
||
#t))))))
|
||
(native-inputs
|
||
`(("imagemagick" ,imagemagick)
|
||
("wmctrl" ,wmctrl)
|
||
("gawk" ,gawk)))
|
||
(home-page "https://github.com/meskarune/i3lock-fancy")
|
||
(synopsis "Screen locker with screenshot function")
|
||
(description
|
||
"@code{i3lock-fancy} is a Bash script that takes a screenshot of
|
||
the desktop, blurs the background and adds a lock icon and text.
|
||
It requires @code{i3lock-color} or @code{i3lock} and can optionally
|
||
be passed any screenshot util like @code{scrot}.
|
||
This screen locker can be used with any window manager or
|
||
desktop environment.")
|
||
(license license:expat)))
|
||
|
||
(define-public xmonad
|
||
(package
|
||
(name "xmonad")
|
||
(version "0.15")
|
||
(synopsis "Tiling window manager")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://hackage/package/xmonad/"
|
||
"xmonad-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0a7rh21k9y6g8fwkggxdxjns2grvvsd5hi2ls4klmqz5xvk4hyaa"))))
|
||
(build-system haskell-build-system)
|
||
(inputs
|
||
`(("ghc-extensible-exceptions" ,ghc-extensible-exceptions)
|
||
("ghc-quickcheck" ,ghc-quickcheck)
|
||
("ghc-semigroups" ,ghc-semigroups)
|
||
("ghc-setlocale" ,ghc-setlocale)
|
||
("ghc-utf8-string" ,ghc-utf8-string)
|
||
("ghc-x11" ,ghc-x11)))
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after
|
||
'install 'install-xsession
|
||
(lambda _
|
||
(let* ((xsessions (string-append %output "/share/xsessions")))
|
||
(mkdir-p xsessions)
|
||
(call-with-output-file
|
||
(string-append xsessions "/xmonad.desktop")
|
||
(lambda (port)
|
||
(format port "~
|
||
[Desktop Entry]~@
|
||
Name=~a~@
|
||
Comment=~a~@
|
||
Exec=~a/bin/xmonad~@
|
||
Type=Application~%" ,name ,synopsis %output)))))))))
|
||
(home-page "https://xmonad.org")
|
||
(description
|
||
"Xmonad is a tiling window manager for X. Windows are arranged
|
||
automatically to tile the screen without gaps or overlap, maximising screen
|
||
use. All features of the window manager are accessible from the keyboard: a
|
||
mouse is strictly optional. Xmonad is written and extensible in Haskell.
|
||
Custom layout algorithms, and other extensions, may be written by the user in
|
||
config files. Layouts are applied dynamically, and different layouts may be
|
||
used on each workspace. Xinerama is fully supported, allowing windows to be
|
||
tiled on several screens.")
|
||
(license license:bsd-3)))
|
||
|
||
(define-public xmobar
|
||
(package
|
||
(name "xmobar")
|
||
(version "0.34")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://hackage/package/xmobar/"
|
||
"xmobar-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0x09xbz7y9ay0046j1xpr9jjk5jqivqi06vm3q6mhcrgc4y922rx"))))
|
||
(build-system haskell-build-system)
|
||
(native-inputs
|
||
`(("ghc-hspec" ,ghc-hspec)
|
||
("hspec-discover" ,hspec-discover)))
|
||
(inputs
|
||
`(("ghc-alsa-core" ,ghc-alsa-core)
|
||
("ghc-alsa-mixer" ,ghc-alsa-mixer)
|
||
("ghc-dbus" ,ghc-dbus)
|
||
("ghc-hinotify" ,ghc-hinotify)
|
||
("ghc-http" ,ghc-http)
|
||
("ghc-http-conduit" ,ghc-http-conduit)
|
||
("ghc-http-types" ,ghc-http-types)
|
||
("ghc-iwlib" ,ghc-iwlib)
|
||
("ghc-libmpd" ,ghc-libmpd)
|
||
("ghc-old-locale" ,ghc-old-locale)
|
||
("ghc-parsec-numbers" ,ghc-parsec-numbers)
|
||
("ghc-regex-compat" ,ghc-regex-compat)
|
||
("ghc-temporary" ,ghc-temporary)
|
||
("ghc-timezone-olson" ,ghc-timezone-olson)
|
||
("ghc-x11" ,ghc-x11)
|
||
("ghc-x11-xft" ,ghc-x11-xft)
|
||
("libxpm" ,libxpm)))
|
||
(arguments
|
||
`(#:configure-flags (list "--flags=all_extensions")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'build 'patch-test-shebang
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* "test/Xmobar/Plugins/Monitors/AlsaSpec.hs"
|
||
(("/bin/bash") (which "bash")))
|
||
#t)))))
|
||
(home-page "https://xmobar.org")
|
||
(synopsis "Minimalistic text based status bar")
|
||
(description
|
||
"@code{xmobar} is a lightweight, text-based, status bar written in
|
||
Haskell. It was originally designed to be used together with Xmonad, but it
|
||
is also usable with any other window manager. While xmobar is written in
|
||
Haskell, no knowledge of the language is required to install and use it.")
|
||
(license license:bsd-3)))
|
||
|
||
(define-public yeganesh
|
||
(package
|
||
(name "yeganesh")
|
||
(version "2.4")
|
||
(source
|
||
(origin
|
||
|
||
(method url-fetch)
|
||
(uri (string-append "http://dmwit.com/yeganesh/yeganesh-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "04djfyjab3c5y9z9x8zd0xcx0jyy35zq7cl9ddr4ppf6k5ky6iky"))))
|
||
(build-system haskell-build-system)
|
||
(inputs
|
||
`(("ghc-strict" ,ghc-strict)
|
||
("ghc-xdg-basedir" ,ghc-xdg-basedir)))
|
||
(home-page "http://dmwit.com/yeganesh/")
|
||
(synopsis "Small wrapper around dmenu")
|
||
(description "@code{yeganesh} is a small wrapper around demnu. Like
|
||
dmenu, it accepts input on stdin and writes the chosen result on stdout.
|
||
Unlike dmenu, it mangles the input before it presents its choices. In
|
||
particular, it displays commonly-chosen options before uncommon ones.")
|
||
(license license:bsd-3)))
|
||
|
||
(define-public ghc-xmonad-contrib
|
||
(package
|
||
(name "ghc-xmonad-contrib")
|
||
(version "0.16")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://hackage/package/xmonad-contrib/"
|
||
"xmonad-contrib-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "1pddgkvnbww28wykncc7j0yb0lv15bk7xnnhdcbrwkxzw66w6wmd"))))
|
||
(build-system haskell-build-system)
|
||
(propagated-inputs
|
||
`(("ghc-old-time" ,ghc-old-time)
|
||
("ghc-random" ,ghc-random)
|
||
("ghc-utf8-string" ,ghc-utf8-string)
|
||
("ghc-extensible-exceptions" ,ghc-extensible-exceptions)
|
||
("ghc-semigroups" ,ghc-semigroups)
|
||
("ghc-x11" ,ghc-x11)
|
||
("ghc-x11-xft" ,ghc-x11-xft)
|
||
("xmonad" ,xmonad)))
|
||
(home-page "https://xmonad.org")
|
||
(synopsis "Third party extensions for xmonad")
|
||
(description
|
||
"Third party tiling algorithms, configurations, and scripts to Xmonad, a
|
||
tiling window manager for X.")
|
||
(license license:bsd-3)))
|
||
|
||
(define-public evilwm
|
||
(package
|
||
(name "evilwm")
|
||
(version "1.1.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://www.6809.org.uk/evilwm/evilwm-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0ak0yajzk3v4dg5wmaghv6acf7v02a4iw8qxmq5yw5ard8lrqn3r"))
|
||
(patches (search-patches "evilwm-lost-focus-bug.patch"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("libx11" ,libx11)
|
||
("libxext" ,libxext)
|
||
("libxrandr" ,libxrandr)))
|
||
(arguments
|
||
`(#:modules ((srfi srfi-26)
|
||
(guix build utils)
|
||
(guix build gnu-build-system))
|
||
#:make-flags (let ((inputs (map (cut assoc-ref %build-inputs <>)
|
||
'("libx11" "libxext" "libxrandr")))
|
||
(join (lambda (proc strs)
|
||
(string-join (map proc strs) " ")))
|
||
(dash-I (cut string-append "-I" <> "/include"))
|
||
(dash-L (cut string-append "-L" <> "/lib")))
|
||
`("desktopfilesdir=$(prefix)/share/xsessions"
|
||
,(string-append "prefix=" (assoc-ref %outputs "out"))
|
||
,(string-append "CPPFLAGS=" (join dash-I inputs))
|
||
,(string-append "LDFLAGS=" (join dash-L inputs))))
|
||
#:tests? #f ;no tests
|
||
#:phases (modify-phases %standard-phases
|
||
(delete 'configure)))) ;no configure script
|
||
(home-page "http://www.6809.org.uk/evilwm/")
|
||
(synopsis "Minimalist window manager for the X Window System")
|
||
(description
|
||
"evilwm is a minimalist window manager based on aewm, extended to feature
|
||
many keyboard controls with repositioning and maximize toggles, solid window
|
||
drags, snap-to-border support, and virtual desktops.")
|
||
(license (license:x11-style "file:///README"))))
|
||
|
||
(define-public fluxbox
|
||
(package
|
||
(name "fluxbox")
|
||
(version "1.3.7")
|
||
(synopsis "Small and fast window manager")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/fluxbox/fluxbox/"
|
||
version "/fluxbox-" version ".tar.xz"))
|
||
(sha256
|
||
(base32
|
||
"1h1f70y40qd225dqx937vzb4k2cz219agm1zvnjxakn5jkz7b37w"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:make-flags '("CPPFLAGS=-U__TIME__") ;ugly, but for reproducibility
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'install-vim-files
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(syntax (string-append out "/share/vim/vimfiles/syntax")))
|
||
(copy-recursively "3rd/vim/vim/syntax" syntax)
|
||
#t)))
|
||
(add-after 'install 'install-xsession
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(xsessions (string-append out "/share/xsessions")))
|
||
(mkdir-p xsessions)
|
||
(call-with-output-file
|
||
(string-append xsessions "/fluxbox.desktop")
|
||
(lambda (port)
|
||
(format port "~
|
||
[Desktop Entry]~@
|
||
Name=~a~@
|
||
Comment=~a~@
|
||
Exec=~a/bin/startfluxbox~@
|
||
Type=Application~%" ,name ,synopsis out)))
|
||
#t))))))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(inputs
|
||
`(("freetype" ,freetype)
|
||
("fribidi" ,fribidi)
|
||
("imlib2" ,imlib2)
|
||
("libx11" ,libx11)
|
||
("libxext" ,libxext)
|
||
("libxft" ,libxft)
|
||
("libxinerama" ,libxinerama)
|
||
("libxpm" ,libxpm)
|
||
("libxrandr" ,libxrandr)
|
||
("libxrender" ,libxrender)))
|
||
(description "Fluxbox is a window manager. It is light on resources
|
||
and easy to handle yet full of features to make an easy and fast desktop
|
||
experience.")
|
||
(home-page "http://fluxbox.org/")
|
||
(license license:expat)))
|
||
|
||
(define-public awesome
|
||
(package
|
||
(name "awesome")
|
||
(version "4.3")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://github.com/awesomeWM/awesome-releases/raw/master/"
|
||
"awesome-" version ".tar.xz"))
|
||
(sha256
|
||
(base32 "0lqpw401mkkmp9wgbvrmm45bqq2j9357l4irwdqv6l1305pls9kq"))
|
||
(modules '((guix build utils)
|
||
(srfi srfi-19)))
|
||
(snippet
|
||
'(begin
|
||
;; Remove non-reproducible timestamp and use the date of
|
||
;; the source file instead.
|
||
(substitute* "common/version.c"
|
||
(("__DATE__ \" \" __TIME__")
|
||
(date->string
|
||
(time-utc->date
|
||
(make-time time-utc 0 (stat:mtime (stat "awesome.c"))))
|
||
"\"~c\"")))
|
||
#t))
|
||
(patches
|
||
(search-patches "awesome-reproducible-png.patch"))))
|
||
(build-system cmake-build-system)
|
||
(native-inputs
|
||
`(("asciidoc" ,asciidoc)
|
||
("docbook-xsl" ,docbook-xsl)
|
||
("doxygen" ,doxygen)
|
||
("gperf" ,gperf)
|
||
("imagemagick" ,imagemagick)
|
||
("libxml2" ,libxml2) ;for XML_CATALOG_FILES
|
||
("lua-ldoc" ,lua-ldoc)
|
||
("pkg-config" ,pkg-config)
|
||
("xmlto" ,xmlto)))
|
||
(inputs
|
||
`(("cairo" ,cairo)
|
||
("dbus" ,dbus)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("glib" ,glib)
|
||
("gobject-introspection" ,gobject-introspection)
|
||
("imlib2" ,imlib2)
|
||
("libev" ,libev)
|
||
("libxcb" ,libxcb)
|
||
("libxcursor" ,libxcursor)
|
||
("libxdg-basedir" ,libxdg-basedir)
|
||
("libxkbcommon" ,libxkbcommon)
|
||
("lua" ,lua)
|
||
("lua-lgi" ,lua-lgi)
|
||
("pango" ,pango)
|
||
("startup-notification" ,startup-notification)
|
||
("xcb-util" ,xcb-util)
|
||
("xcb-util-cursor" ,xcb-util-cursor)
|
||
("xcb-util-image" ,xcb-util-image)
|
||
("xcb-util-keysyms" ,xcb-util-keysyms)
|
||
("xcb-util-renderutil" ,xcb-util-renderutil)
|
||
("xcb-util-xrm" ,xcb-util-xrm)
|
||
("xcb-util-wm" ,xcb-util-wm)))
|
||
(arguments
|
||
`(#:modules ((guix build cmake-build-system)
|
||
(guix build utils)
|
||
(ice-9 match))
|
||
;; Let compression happen in our 'compress-documentation' phase
|
||
;; so that '--no-name' is used, which removes timestamps from
|
||
;; gzip output.
|
||
#:configure-flags
|
||
'("-DCOMPRESS_MANPAGES=off")
|
||
;; Building awesome in its source directory is no longer
|
||
;; supported.
|
||
#:out-of-source? #t
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'set-paths
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
;; The build process needs to load Cairo dynamically.
|
||
(let* ((cairo (string-append (assoc-ref inputs "cairo") "/lib"))
|
||
(lua-version ,(version-major+minor (package-version lua)))
|
||
(lua-dependencies
|
||
(filter (match-lambda
|
||
((label . _) (string-prefix? "lua-" label)))
|
||
inputs))
|
||
(lua-path
|
||
(string-join
|
||
(map (match-lambda
|
||
((_ . dir)
|
||
(string-append
|
||
dir "/share/lua/" lua-version "/?.lua;"
|
||
dir "/share/lua/" lua-version "/?/?.lua")))
|
||
lua-dependencies)
|
||
";"))
|
||
(lua-cpath
|
||
(string-join
|
||
(map (match-lambda
|
||
((_ . dir)
|
||
(string-append
|
||
dir "/lib/lua/" lua-version "/?.so;"
|
||
dir "/lib/lua/" lua-version "/?/?.so")))
|
||
lua-dependencies)
|
||
";")))
|
||
(setenv "LD_LIBRARY_PATH" cairo)
|
||
(setenv "LUA_PATH" (string-append "?.lua;" lua-path))
|
||
(setenv "LUA_CPATH" lua-cpath)
|
||
#t)))
|
||
(replace 'check
|
||
(lambda _
|
||
;; There aren't any tests, so just make sure the binary
|
||
;; gets built and can be run successfully.
|
||
(invoke "../build/awesome" "-v")))
|
||
(add-after 'install 'patch-session-file
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(awesome (string-append out "/bin/awesome")))
|
||
(substitute* (string-append out "/share/xsessions/awesome.desktop")
|
||
(("Exec=awesome") (string-append "Exec=" awesome)))
|
||
#t)))
|
||
(add-after 'install 'wrap
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let* ((awesome (assoc-ref outputs "out"))
|
||
(cairo (string-append (assoc-ref inputs "cairo") "/lib"))
|
||
(lua-version ,(version-major+minor (package-version lua)))
|
||
(lua-lgi (assoc-ref inputs "lua-lgi")))
|
||
(wrap-program (string-append awesome "/bin/awesome")
|
||
`("LUA_PATH" suffix
|
||
(,(format #f "~a/share/lua/~a/?.lua" lua-lgi lua-version)))
|
||
`("LUA_CPATH" suffix
|
||
(,(format #f "~a/lib/lua/~a/?.so" lua-lgi lua-version)))
|
||
`("GI_TYPELIB_PATH" ":" prefix (,(getenv "GI_TYPELIB_PATH")))
|
||
`("LD_LIBRARY_PATH" suffix (,cairo)))
|
||
#t))))))
|
||
(home-page "https://awesomewm.org/")
|
||
(synopsis "Highly configurable window manager")
|
||
(description
|
||
"Awesome has been designed as a framework window manager. It is fast, small,
|
||
dynamic and extensible using the Lua programming language.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public menumaker
|
||
(package
|
||
(name "menumaker")
|
||
(version "0.99.12")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/menumaker/"
|
||
"menumaker-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "034v5204bsgkzzk6zfa5ia63q95gln47f7hwf96yvad5hrhmd8z3"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("python" ,python)))
|
||
(synopsis "Heuristics-driven menu generator")
|
||
(description
|
||
"MenuMaker is a menu generation utility for a number of X window
|
||
managers and desktop environments. It is capable of finding lots of
|
||
installed programs and generating a root menu consistent across all
|
||
supported window managers, so one will get (almost) the same menu in
|
||
all of them. Currently supported window managers include:
|
||
|
||
@enumerate
|
||
@item BlackBox
|
||
@item Deskmenu
|
||
@item FluxBox
|
||
@item IceWM
|
||
@item OpenBox
|
||
@item PekWM
|
||
@item WindowMaker
|
||
@item XFCE
|
||
@end enumerate\n")
|
||
(home-page "http://menumaker.sourceforge.net/")
|
||
(license license:bsd-2)))
|
||
|
||
(define-public keybinder
|
||
(package
|
||
(name "keybinder")
|
||
(version "0.3.1")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/kupferlauncher/keybinder"
|
||
"/releases/download/v" version "/keybinder-"
|
||
version ".tar.gz"))
|
||
(file-name (string-append name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0h52hj3ay8mfhwvmfxbxlfyq74hifdk8wxgxp7fr4iy6189hg7w7"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("python-2" ,python-2)
|
||
("gtk+-2" ,gtk+-2)))
|
||
(native-inputs
|
||
`(("python2-pygtk" ,python2-pygtk)
|
||
("gtk-doc" ,gtk-doc)
|
||
("pkg-config" ,pkg-config)))
|
||
(synopsis "Library for registering global keyboard shortcuts")
|
||
(description
|
||
"Keybinder is a library for registering global keyboard shortcuts.
|
||
Keybinder works with GTK-based applications using the X Window System.")
|
||
(home-page "https://github.com/kupferlauncher/keybinder")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public keybinder-3.0
|
||
(package
|
||
(name "keybinder-3.0")
|
||
(version "0.3.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/kupferlauncher/keybinder"
|
||
"/releases/download/" name "-v" version "/" name "-"
|
||
version ".tar.gz"))
|
||
(file-name (string-append name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0830ihwnalw59pp1xzrp37dn58n8vwb8zasnm4a1h81v3x7dxqz6"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("gtk+" ,gtk+)
|
||
("gobject-introspection" ,gobject-introspection)))
|
||
(native-inputs
|
||
`(("gtk-doc" ,gtk-doc)
|
||
("pkg-config" ,pkg-config)))
|
||
(synopsis "Library for registering global keyboard shortcuts, Gtk3 version")
|
||
(description
|
||
"Keybinder is a library for registering global keyboard shortcuts.
|
||
Keybinder works with GTK-based applications using the X Window System.")
|
||
(home-page "https://github.com/kupferlauncher/keybinder")
|
||
(license license:x11)))
|
||
|
||
(define-public spectrwm
|
||
(package
|
||
(name "spectrwm")
|
||
(version "3.2.0")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/conformal/spectrwm")
|
||
(commit
|
||
(string-append "SPECTRWM_"
|
||
(string-join (string-split version #\.) "_")))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1dfqy5f0s1nv6rqkz9lj006vypmp4rwxd5vczfk3ndzqgnh19kw6"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:make-flags (let ((pkg-config (lambda (flag)
|
||
(string-append
|
||
"$(shell pkg-config " flag " "
|
||
"xft fontconfig x11 libpng)"))))
|
||
(list
|
||
"CC=gcc"
|
||
(string-append "PREFIX=" %output)
|
||
(string-append "INCS=-I. " (pkg-config "--cflags"))
|
||
(string-append "LIBS=" (pkg-config "--libs") " -lm")))
|
||
#:tests? #f ;no test suite
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'build 'change-dir
|
||
(lambda _
|
||
(chdir "linux") #t))
|
||
(add-after 'change-dir 'patch-makefile
|
||
(lambda _
|
||
(substitute* "Makefile"
|
||
(("-g") ""))))
|
||
(delete 'configure)))) ;no 'configure' exists
|
||
(inputs
|
||
`(("freetype" ,freetype)
|
||
("fontconfig" ,fontconfig)
|
||
("libx11" ,libx11)
|
||
("libxcursor" ,libxcursor)
|
||
("libxrandr" ,libxrandr)
|
||
("libxtst" ,libxtst)
|
||
("libxft" ,libxft)
|
||
("xcb-util" ,xcb-util)
|
||
("xcb-util-wm" ,xcb-util-wm)
|
||
("xcb-util-keysyms" ,xcb-util-keysyms)))
|
||
(native-inputs
|
||
`(("libxt" ,libxt)
|
||
("pkg-config" ,pkg-config)))
|
||
(synopsis "Minimalistic automatic tiling window manager")
|
||
(description
|
||
"Spectrwm is a small dynamic tiling and reparenting window manager for X11.
|
||
It is inspired by Xmonad and dwm. Its major features include:
|
||
|
||
@itemize
|
||
@item Navigation anywhere on all screens with either the keyboard or mouse
|
||
@item Customizable status bar
|
||
@item Restartable without losing state
|
||
@item Quick launch menu
|
||
@item Many screen layouts possible with a few simple key strokes
|
||
@item Move/resize floating windows
|
||
@item Extended Window Manager Hints (@dfn{EWMH}) support
|
||
@item Configurable tiling
|
||
@item Adjustable tile gap allows for a true one pixel border
|
||
@item Customizable colors and border width
|
||
@end itemize\n")
|
||
(home-page "https://github.com/conformal/spectrwm")
|
||
(license license:isc)))
|
||
|
||
(define-public cwm
|
||
(package
|
||
(name "cwm")
|
||
(version "6.6")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://leahneukirchen.org/releases/cwm-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0p350pbfn92m21jiq4i324sdskxhs71p435g0mgz7cmzprnhhg92"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:make-flags (list "CC=gcc"
|
||
(string-append "PREFIX=" %output))
|
||
#:tests? #f
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure)
|
||
(add-after 'build 'install-xsession
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
;; Add a .desktop file to xsessions.
|
||
(let* ((output (assoc-ref outputs "out"))
|
||
(xsessions (string-append output "/share/xsessions")))
|
||
(mkdir-p xsessions)
|
||
(with-output-to-file
|
||
(string-append xsessions "/cwm.desktop")
|
||
(lambda _
|
||
(format #t
|
||
"[Desktop Entry]~@
|
||
Name=cwm~@
|
||
Comment=OpenBSD Calm Window Manager fork~@
|
||
Exec=~a/bin/cwm~@
|
||
TryExec=~@*~a/bin/cwm~@
|
||
Icon=~@
|
||
Type=Application~%"
|
||
output)))
|
||
#t))))))
|
||
(inputs
|
||
`(("libxft" ,libxft)
|
||
("libxrandr" ,libxrandr)
|
||
("libxinerama" ,libxinerama)))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("bison" ,bison)))
|
||
(home-page "https://github.com/leahneukirchen/cwm")
|
||
(synopsis "OpenBSD fork of the calmwm window manager")
|
||
(description "Cwm is a stacking window manager for X11. It is an OpenBSD
|
||
project derived from the original Calm Window Manager.")
|
||
(license license:isc)))
|
||
|
||
(define-public nitrogen
|
||
(package
|
||
(name "nitrogen")
|
||
(version "1.6.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "http://github.com/l3ib/nitrogen/"
|
||
"releases/download/" version "/"
|
||
name "-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0zc3fl1mbhq0iyndy4ysmy8vv5c7xwf54rbgamzfhfvsgdq160pl"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("gtk+" ,gtk+-2)
|
||
("gtkmm" ,gtkmm-2)
|
||
("glib" ,glib)
|
||
("glibmm" ,glibmm)))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(home-page "http://projects.l3ib.org/nitrogen/")
|
||
(synopsis "Background browser and setter for X windows")
|
||
(description
|
||
"This package is a background browser and setter for X windows. It's
|
||
features are:
|
||
|
||
@itemize
|
||
@item Multihead and Xinerama aware
|
||
@item Recall mode to used via startup script
|
||
@item Uses freedesktop.org standard for thumbnails
|
||
@item Can set GNOME background
|
||
@item Command lie set modes for script use
|
||
@item Inotify monitoring of browse directory
|
||
@item Lazy loading of thumbnails - conserves memory
|
||
@item \"Automatic\" set mode - determines best mode to set an image based on
|
||
its size
|
||
@item Display preview images in a tiled icon layout
|
||
@end itemize")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public polybar
|
||
(package
|
||
(name "polybar")
|
||
(version "3.4.3")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://github.com/polybar/polybar/releases/"
|
||
"download/" version "/polybar-" version ".tar"))
|
||
(sha256
|
||
(base32 "0bw22qvbcdvyd0qv3ax48r34rnclbbb6dyb8h8zljq1r3lf15vfl"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
;; Test is disabled because it requires downloading googletest from the
|
||
;; Internet.
|
||
'(#:tests? #f))
|
||
(inputs
|
||
`(("alsa-lib" ,alsa-lib)
|
||
("cairo" ,cairo)
|
||
("i3-wm" ,i3-wm)
|
||
("jsoncpp" ,jsoncpp)
|
||
("libmpdclient" ,libmpdclient)
|
||
("libnl" ,libnl)
|
||
("libxcb" ,libxcb)
|
||
("pulseaudio" ,pulseaudio)
|
||
("xcb-proto" ,xcb-proto)
|
||
("xcb-util" ,xcb-util)
|
||
("xcb-util-cursor" ,xcb-util-cursor)
|
||
("xcb-util-image" ,xcb-util-image)
|
||
("xcb-util-wm" ,xcb-util-wm)
|
||
("xcb-util-xrm" ,xcb-util-xrm)))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)
|
||
("python-sphinx" ,python-sphinx) ; for the manual
|
||
;; XXX: "python" input must be located after "python-2", or the package
|
||
;; fails to build with "missing required python module: xcbgen".
|
||
("python-2" ,python-2) ; lib/xpp depends on python 2
|
||
("python" ,python))) ; xcb-proto depends on python 3
|
||
(home-page "https://polybar.github.io/")
|
||
(synopsis "Fast and easy-to-use status bar")
|
||
(description "Polybar aims to help users build beautiful and highly
|
||
customizable status bars for their desktop environment. It has built-in
|
||
functionality to display information about the most commonly used services.")
|
||
(license license:expat)))
|
||
|
||
(define-public wlroots
|
||
(package
|
||
(name "wlroots")
|
||
(version "0.10.1")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/swaywm/wlroots")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "0j2lh9vc92zhn44rjbia5aw3y1rpgfng1x1h17lcvj5m4i6vj0pc"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:configure-flags '("-Dlogind-provider=elogind")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'hardcode-paths
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* "xwayland/xwayland.c"
|
||
(("Xwayland") (string-append (assoc-ref inputs
|
||
"xorg-server-xwayland")
|
||
"/bin/Xwayland")))
|
||
#t)))))
|
||
(inputs `(("elogind" ,elogind)
|
||
("eudev" ,eudev)
|
||
("libinput" ,libinput)
|
||
("libxkbcommon" ,libxkbcommon)
|
||
("mesa" ,mesa)
|
||
("pixman" ,pixman)
|
||
("wayland" ,wayland)
|
||
("xorg-server-xwayland" ,xorg-server-xwayland)))
|
||
(native-inputs `(("ffmpeg" ,ffmpeg)
|
||
("libcap" ,libcap)
|
||
("libpng" ,libpng)
|
||
("pkg-config" ,pkg-config)
|
||
("wayland-protocols" ,wayland-protocols)))
|
||
(home-page "https://github.com/swaywm/wlroots")
|
||
(synopsis "Pluggable, composable, unopinionated modules for building a
|
||
Wayland compositor")
|
||
(description "wlroots is a set of pluggable, composable, unopinionated
|
||
modules for building a Wayland compositor.")
|
||
(license license:expat))) ; MIT license
|
||
|
||
(define-public sway
|
||
(package
|
||
(name "sway")
|
||
(version "1.4")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/swaywm/sway")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "11qf89y3q92g696a6f4d23qb44gqixg6qxq740vwv2jw59ms34ja"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'hardcode-paths
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
;; Hardcode path to swaybg.
|
||
(substitute* "sway/config.c"
|
||
(("strdup..swaybg..")
|
||
(string-append "strdup(\"" (assoc-ref inputs "swaybg")
|
||
"/bin/swaybg\")")))
|
||
;; Hardcode path to scdoc.
|
||
(substitute* "meson.build"
|
||
(("scdoc.get_pkgconfig_variable..scdoc..")
|
||
(string-append "'" (assoc-ref inputs "scdoc")
|
||
"/bin/scdoc'")))
|
||
#t)))))
|
||
(inputs `(("cairo" ,cairo)
|
||
("elogind" ,elogind)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("json-c" ,json-c)
|
||
("libevdev" ,libevdev)
|
||
("libinput" ,libinput)
|
||
("libxkbcommon" ,libxkbcommon)
|
||
("pango" ,pango)
|
||
("swaybg" ,swaybg)
|
||
("wayland" ,wayland)
|
||
("wlroots" ,wlroots)))
|
||
(native-inputs `(("libcap" ,libcap)
|
||
("linux-pam" ,linux-pam)
|
||
("mesa" ,mesa)
|
||
("pkg-config" ,pkg-config)
|
||
("scdoc" ,scdoc)
|
||
("wayland-protocols" ,wayland-protocols)))
|
||
(home-page "https://github.com/swaywm/sway")
|
||
(synopsis "Wayland compositor compatible with i3")
|
||
(description "Sway is a i3-compatible Wayland compositor.")
|
||
(license license:expat))) ; MIT license
|
||
|
||
(define-public swayidle
|
||
(package
|
||
(name "swayidle")
|
||
(version "1.5")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/swaywm/swayidle")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "05qi96j58xqxjiighay1d39rfanxcpn6vlynj23mb5dymxvlaq9n"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
`(#:configure-flags '("-Dlogind-provider=elogind")))
|
||
(inputs `(("elogind" ,elogind)
|
||
("wayland" ,wayland)))
|
||
(native-inputs `(("pkg-config" ,pkg-config)
|
||
("scdoc" ,scdoc)
|
||
("wayland-protocols" ,wayland-protocols)))
|
||
(home-page "https://github.com/swaywm/sway")
|
||
(synopsis "Idle management daemon for Wayland compositors")
|
||
(description "Swayidle is a idle management daemon for Wayland compositors.")
|
||
(license license:expat))) ; MIT license
|
||
|
||
(define-public swaylock
|
||
(package
|
||
(name "swaylock")
|
||
(version "1.4")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/swaywm/swaylock")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1ii9ql1mxkk2z69dv6bg1x22nl3a46iww764wqjiv78x08xpk982"))))
|
||
(build-system meson-build-system)
|
||
(inputs `(("cairo" ,cairo)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("libxkbcommon" ,libxkbcommon)
|
||
;("linux-pam" ,linux-pam) ; FIXME: Doesn't work.
|
||
("wayland" ,wayland)))
|
||
(native-inputs `(("pango" ,pango)
|
||
("pkg-config" ,pkg-config)
|
||
("scdoc" ,scdoc)
|
||
("wayland-protocols" ,wayland-protocols)))
|
||
(home-page "https://github.com/swaywm/sway")
|
||
(synopsis "Screen locking utility for Wayland compositors")
|
||
(description "Swaylock is a screen locking utility for Wayland compositors.")
|
||
(license license:expat))) ; MIT license
|
||
|
||
(define-public swaybg
|
||
(package
|
||
(name "swaybg")
|
||
(version "1.0")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/swaywm/swaybg")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "1lmqz5bmig90gq2m7lwf02d2g7z4hzf8fhqz78c8vk92c6p4xwbc"))))
|
||
(build-system meson-build-system)
|
||
(inputs `(("cairo" ,cairo)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("wayland" ,wayland)))
|
||
(native-inputs `(("pkg-config" ,pkg-config)
|
||
("scdoc" ,scdoc)
|
||
("wayland-protocols" ,wayland-protocols)))
|
||
(home-page "https://github.com/swaywm/sway")
|
||
(synopsis "Screen wallpaper utility for Wayland compositors")
|
||
(description "Swaybg is a wallpaper utility for Wayland compositors.")
|
||
(license license:expat))) ; MIT license
|
||
|
||
(define-public waybar
|
||
(package
|
||
(name "waybar")
|
||
(version "0.9.3")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/Alexays/Waybar")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "0ks719khhg2zwpyiwa2079i6962qcxpapm28hmr4ckpsp2n659ck"))))
|
||
(build-system meson-build-system)
|
||
(inputs `(("date" ,date)
|
||
("fmt" ,fmt)
|
||
("gtk-layer-shell" ,gtk-layer-shell)
|
||
("gtkmm" ,gtkmm)
|
||
("jsoncpp" ,jsoncpp)
|
||
("libdbusmenu" ,libdbusmenu)
|
||
("libinput" ,libinput)
|
||
("libmpdclent" ,libmpdclient)
|
||
("libnl" ,libnl)
|
||
("pulseaudio" ,pulseaudio)
|
||
("spdlog" ,spdlog)
|
||
("wayland" ,wayland)))
|
||
(native-inputs
|
||
`(("gcc" ,gcc-8) ; for #include <filesystem>
|
||
("glib:bin" ,glib "bin")
|
||
("pkg-config" ,pkg-config)
|
||
("scdoc" ,scdoc)
|
||
("wayland-protocols" ,wayland-protocols)))
|
||
(home-page "https://github.com/Alexays/Waybar")
|
||
(synopsis "Wayland bar for Sway and Wlroots based compositors")
|
||
(description "Waybar is a highly customisable Wayland bar for Sway and
|
||
Wlroots based compositors.")
|
||
(license license:expat))) ; MIT license
|
||
|
||
(define-public mako
|
||
(package
|
||
(name "mako")
|
||
(version "1.4")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/emersion/mako")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "11ymiq6cr2ma0iva1mqybn3j6k73bsc6lv6pcbdq7hkhd4f9b7j9"))))
|
||
(build-system meson-build-system)
|
||
(inputs `(("cairo" ,cairo)
|
||
("elogind" ,elogind)
|
||
("gdk-pixbuf" ,gdk-pixbuf)
|
||
("pango" ,pango)
|
||
("wayland" ,wayland)))
|
||
(native-inputs `(("pkg-config" ,pkg-config)
|
||
("scdoc" ,scdoc)
|
||
("wayland-protocols" ,wayland-protocols)))
|
||
(home-page "https://wayland.emersion.fr/mako")
|
||
(synopsis "Lightweight Wayland notification daemon")
|
||
(description "Mako is a lightweight notification daemon for Wayland
|
||
compositors that support the layer-shell protocol.")
|
||
(license license:expat))) ; MIT license
|
||
|
||
(define-public stumpwm
|
||
(package
|
||
(name "stumpwm")
|
||
(version "19.11")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/stumpwm/stumpwm")
|
||
(commit version)))
|
||
(file-name (git-file-name "stumpwm" version))
|
||
(sha256
|
||
(base32 "1ha8803ll7472kqxsy2xz0v5d4sv8apmc9z631d67m31q0z1m9rz"))))
|
||
(build-system asdf-build-system/sbcl)
|
||
(native-inputs `(("fiasco" ,sbcl-fiasco)
|
||
("texinfo" ,texinfo)))
|
||
(inputs `(("cl-ppcre" ,sbcl-cl-ppcre)
|
||
("clx" ,sbcl-clx)
|
||
("alexandria" ,sbcl-alexandria)))
|
||
(outputs '("out" "lib"))
|
||
(arguments
|
||
'(#:asd-system-name "stumpwm"
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'create-symlinks 'build-program
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(build-program
|
||
(string-append (assoc-ref outputs "out") "/bin/stumpwm")
|
||
outputs
|
||
#:entry-program '((stumpwm:stumpwm) 0))))
|
||
(add-after 'build-program 'create-desktop-file
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(xsessions (string-append out "/share/xsessions")))
|
||
(mkdir-p xsessions)
|
||
(call-with-output-file
|
||
(string-append xsessions "/stumpwm.desktop")
|
||
(lambda (file)
|
||
(format file
|
||
"[Desktop Entry]~@
|
||
Name=stumpwm~@
|
||
Comment=The Stump Window Manager~@
|
||
Exec=~a/bin/stumpwm~@
|
||
TryExec=~@*~a/bin/stumpwm~@
|
||
Icon=~@
|
||
Type=Application~%"
|
||
out)))
|
||
#t)))
|
||
(add-after 'install 'install-manual
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
;; The proper way to the manual is bootstrapping a full autotools
|
||
;; build system and running ‘./configure && make stumpwm.info’ to
|
||
;; do some macro substitution. We can get away with much less.
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(info (string-append out "/share/info")))
|
||
(invoke "makeinfo" "stumpwm.texi.in")
|
||
(install-file "stumpwm.info" info)
|
||
#t))))))
|
||
(synopsis "Window manager written in Common Lisp")
|
||
(description "Stumpwm is a window manager written entirely in Common Lisp.
|
||
It attempts to be highly customizable while relying entirely on the keyboard
|
||
for input. These design decisions reflect the growing popularity of
|
||
productive, customizable lisp based systems.")
|
||
(home-page "https://github.com/stumpwm/stumpwm")
|
||
(license license:gpl2+)
|
||
(properties `((cl-source-variant . ,(delay cl-stumpwm))))))
|
||
|
||
(define-public sbcl-stumpwm
|
||
(deprecated-package "sbcl-stumpwm" stumpwm))
|
||
|
||
(define-public cl-stumpwm
|
||
(package
|
||
(inherit (sbcl-package->cl-source-package stumpwm))
|
||
(name "cl-stumpwm")))
|
||
|
||
(define-public stumpwm+slynk
|
||
(package
|
||
(inherit stumpwm)
|
||
(name "stumpwm-with-slynk")
|
||
(outputs '("out"))
|
||
(inputs
|
||
`(("stumpwm" ,stumpwm "lib")
|
||
("slynk" ,sbcl-slynk)))
|
||
(arguments
|
||
(substitute-keyword-arguments (package-arguments stumpwm)
|
||
((#:phases phases)
|
||
`(modify-phases ,phases
|
||
(replace 'build-program
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(program (string-append out "/bin/stumpwm")))
|
||
(build-program program outputs
|
||
#:entry-program '((stumpwm:stumpwm) 0)
|
||
#:dependencies '("stumpwm"
|
||
,@(@@ (gnu packages lisp-xyz) slynk-systems))
|
||
#:dependency-prefixes
|
||
(map (lambda (input) (assoc-ref inputs input))
|
||
'("stumpwm" "slynk")))
|
||
;; Remove unneeded file.
|
||
(delete-file (string-append out "/bin/stumpwm-exec.fasl"))
|
||
#t)))
|
||
(delete 'copy-source)
|
||
(delete 'build)
|
||
(delete 'check)
|
||
(delete 'create-asd-file)
|
||
(delete 'cleanup)
|
||
(delete 'create-symlinks)))))))
|
||
|
||
(define stumpwm-contrib
|
||
(let ((commit "920f8fc1488f7953f205e1dda4c2ecbbbda56d63")
|
||
(revision "2"))
|
||
(package
|
||
(name "stumpwm-contrib")
|
||
(version (git-version "0.0.1" revision commit)) ;no upstream release
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/stumpwm/stumpwm-contrib")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "0giac390bq95ag41xkxqp8jjrhfx1wpgglz7jg5rkm0wjhcwmyml"))))
|
||
(build-system asdf-build-system/sbcl)
|
||
(inputs
|
||
`(("stumpwm" ,stumpwm "lib")))
|
||
(home-page "https://github.com/stumpwm/stumpwm-contrib")
|
||
(synopsis "StumpWM interactive shell")
|
||
(description "This package provides a StumpWM interactive shell.")
|
||
(license (list license:gpl2+ license:gpl3+ license:bsd-2)))))
|
||
|
||
(define-public stumpish
|
||
(package
|
||
(inherit stumpwm-contrib)
|
||
(name "stumpish")
|
||
(inputs
|
||
`(("bash" ,bash)
|
||
("rlwrap" ,rlwrap)))
|
||
(build-system trivial-build-system)
|
||
(arguments
|
||
'(#:modules ((guix build utils))
|
||
#:builder
|
||
(begin
|
||
(use-modules (guix build utils))
|
||
(copy-recursively (assoc-ref %build-inputs "source") ".")
|
||
(chdir "util/stumpish")
|
||
(substitute* "stumpish"
|
||
(("rlwrap") (string-append (assoc-ref %build-inputs "rlwrap")
|
||
"/bin/rlwrap"))
|
||
(("/bin/sh") (string-append (assoc-ref %build-inputs "bash")
|
||
"/bin/bash")))
|
||
(install-file "stumpish" (string-append %output "/bin")))))
|
||
(home-page "https://github.com/stumpwm/stumpwm-contrib")
|
||
(synopsis "StumpWM interactive shell")
|
||
(description "This package provides a StumpWM interactive shell.")
|
||
(license (list license:gpl2+ license:gpl3+ license:bsd-2))))
|
||
|
||
(define-public sbcl-stumpwm+slynk
|
||
(deprecated-package "sbcl-stumpwm-with-slynk" stumpwm+slynk))
|
||
|
||
(define-public sbcl-stumpwm-ttf-fonts
|
||
(package
|
||
(inherit stumpwm-contrib)
|
||
(name "sbcl-stumpwm-ttf-fonts")
|
||
(inputs
|
||
`(("stumpwm" ,stumpwm "lib")
|
||
("clx-truetype" ,sbcl-clx-truetype)))
|
||
(arguments
|
||
'(#:asd-system-name "ttf-fonts"
|
||
#:tests? #f
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'chdir
|
||
(lambda _ (chdir "util/ttf-fonts") #t)))))
|
||
(home-page "https://github.com/stumpwm/stumpwm-contrib")
|
||
(synopsis "Implementation of TTF font rendering for Lisp")
|
||
(description "This package provides a Lisp implementation of TTF font
|
||
rendering.")
|
||
(license (list license:gpl2+ license:gpl3+ license:bsd-2))))
|
||
|
||
(define-public sbcl-stumpwm-pass
|
||
(package
|
||
(inherit stumpwm-contrib)
|
||
(name "sbcl-stumpwm-pass")
|
||
(arguments
|
||
'(#:asd-system-name "pass"
|
||
#:tests? #f
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'chdir
|
||
(lambda _ (chdir "util/pass") #t)))))
|
||
(home-page "https://github.com/stumpwm/stumpwm-contrib")
|
||
(synopsis "Integrate @code{pass} with StumpWM")
|
||
(description "This package provides an interface which integrates
|
||
password-store into StumpWM.")
|
||
(license (list license:gpl2+ license:gpl3+ license:bsd-2))))
|
||
|
||
(define-public sbcl-stumpwm-globalwindows
|
||
(package
|
||
(inherit stumpwm-contrib)
|
||
(name "sbcl-stumpwm-globalwindows")
|
||
(arguments
|
||
'(#:asd-system-name "globalwindows"
|
||
#:tests? #f
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'chdir
|
||
(lambda _ (chdir "util/globalwindows") #t)))))
|
||
(home-page "https://github.com/stumpwm/stumpwm-contrib")
|
||
(synopsis "Manipulate all windows in the current X session")
|
||
(description "This package provides a StumpWM module to manipulate all
|
||
windows in the current X session.")
|
||
(license (list license:gpl2+ license:gpl3+ license:bsd-2))))
|
||
|
||
(define-public sbcl-stumpwm-swm-gaps
|
||
(package
|
||
(inherit stumpwm-contrib)
|
||
(name "sbcl-stumpwm-swm-gaps")
|
||
(arguments
|
||
'(#:asd-system-name "swm-gaps"
|
||
#:tests? #f
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'chdir
|
||
(lambda _ (chdir "util/swm-gaps") #t)))))
|
||
(home-page "https://github.com/stumpwm/stumpwm-contrib")
|
||
(synopsis "Gaps between windows for StumpWM")
|
||
(description "This package provides a StumpWM module which adds gaps
|
||
between windows.")
|
||
(license (list license:gpl2+ license:gpl3+ license:bsd-2))))
|
||
|
||
(define-public sbcl-stumpwm-net
|
||
(package
|
||
(inherit stumpwm-contrib)
|
||
(name "sbcl-stumpwm-net")
|
||
(arguments
|
||
'(#:asd-system-name "net"
|
||
#:tests? #f
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'chdir (lambda _ (chdir "modeline/net") #t)))))
|
||
(home-page
|
||
"https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/net")
|
||
(synopsis "Modeline support for network connectivity")
|
||
(description "Modeline support for network connectivity.")
|
||
(supported-systems
|
||
(filter (lambda (a) (string-contains a "linux")) %supported-systems))
|
||
(license license:gpl3+)))
|
||
|
||
(define-public sbcl-stumpwm-wifi
|
||
(package
|
||
(inherit stumpwm-contrib)
|
||
(name "sbcl-stumpwm-wifi")
|
||
(arguments
|
||
'(#:asd-system-name "wifi"
|
||
#:tests? #f
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'chdir (lambda _ (chdir "modeline/wifi") #t)))))
|
||
(home-page
|
||
"https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/wifi")
|
||
(synopsis "Modeline support for wifi connectivity")
|
||
(description "Modeline support for wifi connectivity.")
|
||
(supported-systems
|
||
(filter (lambda (a) (string-contains a "linux")) %supported-systems))
|
||
(license license:gpl3+)))
|
||
|
||
(define-public sbcl-stumpwm-stumptray
|
||
(package
|
||
(inherit stumpwm-contrib)
|
||
(name "sbcl-stumpwm-stumptray")
|
||
(arguments
|
||
'(#:asd-system-name "stumptray"
|
||
#:tests? #f
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'chdir (lambda _ (chdir "modeline/stumptray") #t)))))
|
||
(inputs
|
||
`(("stumpwm" ,stumpwm "lib")
|
||
("xembed" ,sbcl-clx-xembed)
|
||
("alexandria" ,sbcl-alexandria)))
|
||
(home-page
|
||
"https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/stumptray")
|
||
(synopsis "Modeline support for stumptray connectivity")
|
||
(description "Modeline support for stumptray connectivity.")
|
||
(supported-systems
|
||
(filter (lambda (a) (string-contains a "linux")) %supported-systems))
|
||
(license license:gpl3+)))
|
||
|
||
(define-public sbcl-stumpwm-kbd-layouts
|
||
(package
|
||
(inherit stumpwm-contrib)
|
||
(name "sbcl-stumpwm-kbd-layouts")
|
||
(arguments
|
||
'(#:asd-system-name "kbd-layouts"
|
||
#:tests? #f
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'chdir (lambda _ (chdir "util/kbd-layouts") #t)))))
|
||
(home-page
|
||
"https://github.com/stumpwm/stumpwm-contrib/tree/master/util/kbd-layouts")
|
||
(synopsis "Keyboard layout switcher for StumpWM")
|
||
(description "Keyboard layout switcher for StumpWM")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public lemonbar
|
||
(let ((commit "35183ab81d2128dbb7b6d8e119cc57846bcefdb4")
|
||
(revision "1"))
|
||
(package
|
||
(name "lemonbar")
|
||
(version (git-version "1.3" revision commit))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/LemonBoy/bar")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1wwqbph392iwz8skaqxb0xpklb1l6yganqz80g4x1fhrnz7idmlh"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:tests? #f ; no test suite
|
||
#:make-flags
|
||
(list ,(string-append "CC=" (cc-for-target))
|
||
(string-append "PREFIX=" %output))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure))))
|
||
(inputs
|
||
`(("libxcb" ,libxcb)))
|
||
(native-inputs
|
||
`(("perl" ,perl)))
|
||
(home-page "https://github.com/LemonBoy/bar")
|
||
(synopsis "Featherweight status bar")
|
||
(description
|
||
"@code{lemonbar} (formerly known as @code{bar}) is a lightweight
|
||
bar entirely based on XCB. Provides full UTF-8 support, basic
|
||
formatting, RandR and Xinerama support and EWMH compliance without
|
||
wasting your precious memory.")
|
||
(license license:x11))))
|
||
|
||
(define-public xclickroot
|
||
(let ((commit "309fd17174dba4149b5ea66654c6fd02cfcf7c9a")
|
||
(revision "1"))
|
||
(package
|
||
(name "xclickroot")
|
||
(version (git-version "0.0.1" revision commit)) ;no upstream release
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/phillbush/xclickroot")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0fjqkg3wnyks0my1vrzhxfjicsfy8xwnijaazmpz6mhilcqkpvnd"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("libx11" ,libx11)))
|
||
(arguments
|
||
`(#:tests? #f ;no test suite
|
||
#:make-flags
|
||
(list ,(string-append "CC=" (cc-for-target))
|
||
(string-append "PREFIX=" %output))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure))))
|
||
(home-page "https://github.com/phillbush/xclickroot")
|
||
(synopsis "Run a command when a mouse button is pressed on the root window")
|
||
(description "@code{xclickroot} runs a command every time a given mouse
|
||
button is pressed on the root window.")
|
||
(license license:public-domain))))
|
||
|
||
(define-public xmenu
|
||
(package
|
||
(name "xmenu")
|
||
(version "3.4")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/phillbush/xmenu")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1sw9l87fh03jp03a2v7rhgpyx29yg2x9blzfzp40jwad2whs7m7n"))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("libx11" ,libx11)
|
||
("libxft" ,libxft)
|
||
("freetype" ,freetype)
|
||
("imlib2" ,imlib2)))
|
||
(arguments
|
||
`(#:tests? #f ;no test suite
|
||
#:make-flags
|
||
(list (string-append "CC=" ,(cc-for-target))
|
||
(string-append "PREFIX=" %output)
|
||
(string-append "CFLAGS="
|
||
"-I" (assoc-ref %build-inputs "freetype")
|
||
"/include/freetype2"))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(delete 'configure))))
|
||
(home-page "https://github.com/phillbush/xmenu")
|
||
(synopsis "Menu utility for X")
|
||
(description "@code{xmenu} receives a menu specification in stdin, shows
|
||
a menu for the user to select one of the options, and outputs the option
|
||
selected to stdout. It can be controlled both via mouse and via keyboard.")
|
||
(license license:public-domain)))
|
||
|
||
(define-public idesk
|
||
(package
|
||
(name "idesk")
|
||
(version "0.7.5")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"mirror://sourceforge/idesk/idesk/idesk-" version
|
||
"/idesk-" version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"1lxk2yvgysxwl514zc82lwr1dwc8cd62slgr5lzdhjbdrxfymdyl"))
|
||
(modules '((guix build utils)
|
||
(ice-9 format)))
|
||
(snippet
|
||
'(let* ((file "src/DesktopConfig.cpp")
|
||
(template (string-append file ".XXXXXX"))
|
||
(out (mkstemp! template))
|
||
(st (stat file))
|
||
(mode (stat:mode st)))
|
||
(call-with-ascii-input-file file
|
||
(lambda (p)
|
||
(format out "~{~a~%~}" '("#include <unistd.h>"
|
||
"#include <sys/stat.h>"
|
||
"#include <sys/types.h>"))
|
||
(dump-port p out)
|
||
(close out)
|
||
(chmod template mode)
|
||
(rename-file template file)
|
||
#t))))))
|
||
(build-system gnu-build-system)
|
||
(inputs
|
||
`(("libx11" ,libx11)
|
||
("libxft" ,libxft)
|
||
("libxpm" ,libxpm)
|
||
("libpng" ,libpng)
|
||
("freetype" ,freetype)
|
||
("imlib2" ,imlib2)
|
||
("sed" ,sed)))
|
||
(native-inputs
|
||
`(("pkg-config" ,pkg-config)))
|
||
(arguments
|
||
`(#:tests? #f)) ;no test suite
|
||
(home-page "https://sourceforge.net/projects/idesk/")
|
||
(synopsis "Add icons on X desktop and set background image for wallpaper")
|
||
(description "Idesk is program that draws desktop icons. Each icon will
|
||
execute a shell command on a configurable action. The icons can be moved on
|
||
the desktop by dragging them, and the icons will remember their positions on
|
||
start-up.")
|
||
(license license:bsd-3)))
|