From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?UTF-8?q?Sini=C5=A1a=20Bi=C4=91in?= Subject: [PATCH 12/13] gnu: Add xmonad. Date: Tue, 18 Aug 2015 22:40:14 +0200 Message-ID: <1439930415-16938-13-git-send-email-sinisa@bidin.eu> References: <1439930415-16938-1-git-send-email-sinisa@bidin.eu> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:38594) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZRngF-0005B4-34 for guix-devel@gnu.org; Tue, 18 Aug 2015 16:40:26 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZRngD-0007Bi-Hi for guix-devel@gnu.org; Tue, 18 Aug 2015 16:40:22 -0400 Received: from bidin.eu ([5.101.99.211]:36885) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZRngD-0007BE-8k for guix-devel@gnu.org; Tue, 18 Aug 2015 16:40:21 -0400 Received: from authenticated-user (unknown [127.0.0.1]) (using TLSv1.2 with cipher ECDHE-RSA-AES128-SHA256 (128/128 bits)) (No client certificate requested) by bidin.eu (Postfix) with ESMTPSA id 99E98C11CF for ; Tue, 18 Aug 2015 16:40:20 -0400 (EDT) In-Reply-To: <1439930415-16938-1-git-send-email-sinisa@bidin.eu> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org * gnu/packages/xmonad.scm (xmonad, xmonad.desktop): New variables. * gnu-system.am (GNU_SYSTEM_MODULES): Add it. --- gnu-system.am | 1 + gnu/packages/xmonad.scm | 78 +++++++++++++++++++++++++++++++++++++++++++= ++++++ 2 files changed, 79 insertions(+) create mode 100644 gnu/packages/xmonad.scm diff --git a/gnu-system.am b/gnu-system.am index 9f46f7b..8148038 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -326,6 +326,7 @@ GNU_SYSTEM_MODULES =3D \ gnu/packages/xfig.scm \ gnu/packages/xiph.scm \ gnu/packages/xml.scm \ + gnu/packages/xmonad.scm \ gnu/packages/xnee.scm \ gnu/packages/xdisorg.scm \ gnu/packages/xorg.scm \ diff --git a/gnu/packages/xmonad.scm b/gnu/packages/xmonad.scm new file mode 100644 index 0000000..4d6a099 --- /dev/null +++ b/gnu/packages/xmonad.scm @@ -0,0 +1,78 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright =C2=A9 2015 Sini=C5=A1a Bi=C4=91in +;;; +;;; 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 (a= t +;;; 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 . + +(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=3D1.3"= )) + (file-name "xmonad.desktop") + (sha256 (base32 "0jx3pqv62hjz0nnfxml2b3qiw2nzslwnva466xh28k23mpissj6= s")))) + +(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 scr= een +use. All features of the window manager are accessible from the keyboar= d: a +mouse is strictly optional. xmonad is written and extensible in Haskell= . + Custom layout algorithms, and other extensions, may be written by the u= ser in +config files. Layouts are applied dynamically, and different layouts ma= y be +used on each workspace. Xinerama is fully supported, allowing windows t= o be +tiled on several screens.") + (license bsd-3))) --=20 2.4.3