489 lines
19 KiB
Scheme
489 lines
19 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 Efraim Flashner <efraim@flashner.co.il>
|
|
;;; Copyright © 2016 Al McElrath <hello@yrns.org>
|
|
;;; Copyright © 2016 Carlo Zancanaro <carlo@zancanaro.id.au>
|
|
;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org>
|
|
;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is>
|
|
;;; Copyright © 2016 doncatnip <gnopap@gmail.com>
|
|
;;;
|
|
;;; 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 (gnu packages)
|
|
#:use-module (gnu packages linux)
|
|
#:use-module (guix build-system cmake)
|
|
#:use-module (guix build-system gnu)
|
|
#:use-module (guix build-system haskell)
|
|
#:use-module (gnu packages haskell)
|
|
#:use-module (gnu packages base)
|
|
#:use-module (gnu packages pkg-config)
|
|
#:use-module (gnu packages perl)
|
|
#:use-module (gnu packages pulseaudio)
|
|
#:use-module (gnu packages xorg)
|
|
#:use-module (gnu packages xdisorg)
|
|
#:use-module (gnu packages documentation)
|
|
#:use-module (gnu packages xml)
|
|
#:use-module (gnu packages m4)
|
|
#:use-module (gnu packages docbook)
|
|
#:use-module (gnu packages image)
|
|
#:use-module (gnu packages pcre)
|
|
#:use-module (gnu packages gtk)
|
|
#:use-module (gnu packages libevent)
|
|
#:use-module (gnu packages fribidi)
|
|
#:use-module (gnu packages maths)
|
|
#:use-module (gnu packages web)
|
|
#:use-module (gnu packages fontutils)
|
|
#:use-module (gnu packages freedesktop)
|
|
#:use-module (gnu packages glib)
|
|
#:use-module (gnu packages gperf)
|
|
#:use-module (gnu packages imagemagick)
|
|
#:use-module (gnu packages lua)
|
|
#:use-module (guix download)
|
|
#:use-module (guix git-download))
|
|
|
|
(define-public libconfuse
|
|
(package
|
|
(name "libconfuse")
|
|
(version "2.7")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "http://savannah.nongnu.org/download/confuse/"
|
|
"confuse-" version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"0y47r2ashz44wvnxdb18ivpmj8nxhw3y9bf7v9w0g5byhgyp89g3"))))
|
|
(build-system gnu-build-system)
|
|
(home-page "http://www.nongnu.org/confuse/")
|
|
(synopsis "Configuration file parser library")
|
|
(description "libconfuse is a configuration file parser library. It
|
|
supports sections and (lists of) values (strings, integers, floats, booleans
|
|
or other sections), as well as some other features (such as
|
|
single/double-quoted strings, environment variable expansion, functions and
|
|
nested include statements).")
|
|
(license license:isc)))
|
|
|
|
(define-public bspwm
|
|
(package
|
|
(name "bspwm")
|
|
(version "0.9")
|
|
(source
|
|
(origin
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
|
(method url-fetch)
|
|
(uri (string-append
|
|
"https://github.com/baskerville/bspwm/archive/"
|
|
version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"1pig0h2jk8wipyz90j69c4bk37bfyq60asnn0v0bqld2p2vjvyqy"))))
|
|
(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 (alist-delete 'configure %standard-phases)
|
|
#: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 i3status
|
|
(package
|
|
(name "i3status")
|
|
(version "2.10")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://i3wm.org/i3status/i3status-"
|
|
version ".tar.bz2"))
|
|
(sha256
|
|
(base32
|
|
"1497dsvb32z9xljmxz95dnyvsbayn188ilm3l4ys8m5h25vd1xfs"))))
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
`(#:make-flags (list "CC=gcc" (string-append "PREFIX=" %output))
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(delete 'configure))
|
|
#: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)))
|
|
(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.12")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "https://i3wm.org/downloads/i3-"
|
|
version ".tar.bz2"))
|
|
(sha256
|
|
(base32
|
|
"1d3q3lgpjbkmcwzjhp0dfr0jq847silcfg087slcnj95ikh1r7p1"))))
|
|
(build-system gnu-build-system)
|
|
(arguments
|
|
`(#:make-flags (list "CC=gcc" (string-append "PREFIX=" %output))
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(delete 'configure))
|
|
#:tests? #f)) ; no test suite
|
|
(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)
|
|
("libxkbcommon" ,libxkbcommon)
|
|
("libev" ,libev)
|
|
("libyajl" ,libyajl)
|
|
("asciidoc" ,asciidoc)
|
|
("xmlto" ,xmlto)
|
|
("perl-pod-simple" ,perl-pod-simple)
|
|
("docbook-xml" ,docbook-xml)
|
|
("libx11" ,libx11)
|
|
("pcre" ,pcre)
|
|
("startup-notification" ,startup-notification)
|
|
("pango" ,pango)
|
|
("cairo" ,cairo)))
|
|
(native-inputs
|
|
`(("which" ,which)
|
|
("perl" ,perl)
|
|
("pkg-config" ,pkg-config)))
|
|
(home-page "https://i3wm.org/")
|
|
(synopsis "Improved tiling window manager")
|
|
(description "A tiling window manager, completely written
|
|
from scratch. i3 is primarily targeted at advanced users and
|
|
developers.")
|
|
(license license:bsd-3)))
|
|
|
|
(define-public xmonad
|
|
(package
|
|
(name "xmonad")
|
|
(version "0.11.1")
|
|
(synopsis "Tiling window manager")
|
|
(source (origin
|
|
(method url-fetch)
|
|
(uri (string-append "http://hackage.haskell.org/package/xmonad/"
|
|
name "-" version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"1pfjssamiwpwjp1qqkm9m9p9s35pv381m0cwg6jxg0ppglibzq1r"))
|
|
(modules '((guix build utils)))
|
|
(snippet
|
|
;; Here we update the constraints on the utf8-string package in
|
|
;; the Cabal file. We allow a newer version which is compatible
|
|
;; with GHC 7.10.2. The same change is applied on Hackage. See
|
|
;; <https://hackage.haskell.org/package/xmonad-0.11.1/revisions/>.
|
|
'(substitute* "xmonad.cabal"
|
|
(("utf8-string >= 0.3 && < 0.4")
|
|
"utf8-string >= 0.3 && < 1.1")))))
|
|
(build-system haskell-build-system)
|
|
(inputs
|
|
`(("ghc-mtl" ,ghc-mtl)
|
|
("ghc-utf8-string" ,ghc-utf8-string)
|
|
("ghc-extensible-exceptions" ,ghc-extensible-exceptions)
|
|
("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 "http://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 ghc-xmonad-contrib
|
|
(package
|
|
(name "ghc-xmonad-contrib")
|
|
(version "0.11.4")
|
|
(source
|
|
(origin
|
|
(method url-fetch)
|
|
(uri (string-append "http://hackage.haskell.org/package/xmonad-contrib/"
|
|
"xmonad-contrib-" version ".tar.gz"))
|
|
(sha256
|
|
(base32
|
|
"1g5cw9vvnfbiyi599fngk02zlmdhrf82x0bndhypkn6kybab6yd3"))))
|
|
(build-system haskell-build-system)
|
|
(propagated-inputs
|
|
`(("ghc-mtl" ,ghc-mtl)
|
|
("ghc-old-time" ,ghc-old-time)
|
|
("ghc-random" ,ghc-random)
|
|
("ghc-utf8-string" ,ghc-utf8-string)
|
|
("ghc-extensible-exceptions" ,ghc-extensible-exceptions)
|
|
("ghc-x11" ,ghc-x11)
|
|
("ghc-x11-xft" ,ghc-x11-xft)
|
|
("xmonad" ,xmonad)))
|
|
(home-page "http://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-xsession
|
|
(lambda _
|
|
(let ((xsessions (string-append %output "/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 %output)))))))))
|
|
(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 "3.5.9")
|
|
(source
|
|
(origin (method url-fetch)
|
|
(uri (string-append
|
|
"https://awesome.naquadah.org/download/awesome-"
|
|
version ".tar.xz"))
|
|
(sha256
|
|
(base32
|
|
"0kynair1ykr74b39a4gcm2y24viial64337cf26nhlc7azjbby67"))
|
|
(modules '((guix build utils)
|
|
(srfi srfi-19)))
|
|
(snippet
|
|
;; 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\""))))
|
|
(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
|
|
("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)
|
|
("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-wm" ,xcb-util-wm)))
|
|
(arguments
|
|
`(;; 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")
|
|
|
|
#:phases
|
|
(modify-phases %standard-phases
|
|
(add-before 'build 'xmlto-skip-validation
|
|
(lambda _
|
|
;; We can't download the necessary schema, so so skip
|
|
;; validation and assume they're valid.
|
|
(substitute* "../build/CMakeFiles/man.dir/build.make"
|
|
(("/xmlto")
|
|
(string-append "/xmlto --skip-validation")))
|
|
#t))
|
|
(add-before 'configure 'set-lua-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-lgi (assoc-ref inputs "lua-lgi") ))
|
|
(setenv "LD_LIBRARY_PATH" cairo )
|
|
(setenv "LUA_PATH" (string-append lua-lgi
|
|
"/share/lua/5.2/?.lua"))
|
|
(setenv "LUA_CPATH" (string-append lua-lgi
|
|
"/lib/lua/5.2/?.so"))
|
|
#t)))
|
|
(replace 'check
|
|
(lambda _
|
|
;; There aren't any tests, so just make sure the binary
|
|
;; gets built and can be run successfully.
|
|
(zero? (system* "../build/awesome" "-v"))))
|
|
(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-lgi (assoc-ref inputs "lua-lgi") ))
|
|
(wrap-program (string-append awesome "/bin/awesome")
|
|
`("GI_TYPELIB_PATH" ":" prefix (,(getenv "GI_TYPELIB_PATH")))
|
|
`("LD_LIBRARY_PATH" suffix (, cairo))
|
|
`("LUA_PATH" suffix (,(string-append lua-lgi
|
|
"/share/lua/5.2/?.lua")))
|
|
`("LUA_CPATH" suffix (,(string-append
|
|
lua-lgi "/lib/lua/5.2/?.so"))))))))))
|
|
(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+)
|
|
(home-page "https://awesome.naquadah.org/")))
|