1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
| | ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Siniša Biđin <sinisa@bidin.eu>
;;;
;;; 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 xmonad)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix licenses)
#:use-module (guix build-system haskell)
#:use-module (gnu packages haskell))
(define xmonad.desktop
(origin
(method url-fetch)
(uri (string-append
"https://sources.gentoo.org/cgi-bin/viewvc.cgi/"
"gentoo-x86/x11-wm/xmonad/files/xmonad.desktop?revision=1.3"))
(file-name "xmonad.desktop")
(sha256 (base32 "0jx3pqv62hjz0nnfxml2b3qiw2nzslwnva466xh28k23mpissj6s"))))
(define-public xmonad
(package
(name "xmonad")
(version "0.11.1")
(source
(origin
(method url-fetch)
(uri (string-append
"http://hackage.haskell.org/package/xmonad/xmonad-"
version
".tar.gz"))
(sha256
(base32 "1pfjssamiwpwjp1qqkm9m9p9s35pv381m0cwg6jxg0ppglibzq1r"))))
(build-system haskell-build-system)
(arguments
'(#:phases
(alist-cons-after
'install 'install-xsession
(lambda _
(let* ((file (assoc-ref %build-inputs "xmonad.desktop"))
(xsessions (string-append %output "/share/xsessions"))
(target (string-append xsessions "/xmonad.desktop")))
(mkdir-p xsessions)
(copy-file file target)))
%standard-phases)))
(inputs
`(("xmonad.desktop" ,xmonad.desktop)))
(propagated-inputs
`(("ghc-mtl" ,ghc-mtl)
("ghc-utf8-string" ,ghc-utf8-string)
("ghc-extensible-exceptions" ,ghc-extensible-exceptions)
("ghc-x11" ,ghc-x11)))
(home-page "http://xmonad.org")
(synopsis "A tiling window manager")
(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 bsd-3)))
|