From mboxrd@z Thu Jan 1 00:00:00 1970 From: ericbavier@openmailbox.org Subject: [PATCH 2/2] gnu: Add evilwm. Date: Thu, 15 Oct 2015 17:36:49 -0500 Message-ID: <1444948609-29345-2-git-send-email-ericbavier@openmailbox.org> References: <1444948609-29345-1-git-send-email-ericbavier@openmailbox.org> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:34649) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZmviZ-0004AG-H5 for guix-devel@gnu.org; Thu, 15 Oct 2015 23:30:08 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZmviV-0005Bu-D9 for guix-devel@gnu.org; Thu, 15 Oct 2015 23:30:07 -0400 Received: from smtp4.openmailbox.org ([62.4.1.38]:55565) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZmviV-0005B1-73 for guix-devel@gnu.org; Thu, 15 Oct 2015 23:30:03 -0400 In-Reply-To: <1444948609-29345-1-git-send-email-ericbavier@openmailbox.org> 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 Cc: Eric Bavier From: Eric Bavier * gnu/packages/wm.scm (evilwm): New variable. --- gnu/packages/wm.scm | 51 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 51 insertions(+) diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm index 9ca5b96..c1a8eb3 100644 --- a/gnu/packages/wm.scm +++ b/gnu/packages/wm.scm @@ -222,3 +222,54 @@ tiled on several screens.") "Third party tiling algorithms, configurations, and scripts to Xmonad, a tiling window manager for X.") (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")))) + (build-system gnu-build-system) + (inputs + `(("libx11" ,libx11) + ("libxext" ,libxext) + ("libxrandr" ,libxrandr))) + (arguments + `(#:modules ((srfi srfi-26) + ,@%gnu-build-system-modules) + #: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 + (add-before + 'build 'provide-better-default-font + (lambda _ + ;; The "fixed" font is contained in the set of fonts + ;; installed with the default xorg-server service, so use + ;; it as the default instead. + (substitute* "evilwm.h" + (("^#define DEF_FONT[[:space:]]*\"variable\"") + "#define DEF_FONT \"fixed\"")) + #t))))) + (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 (fsf-free "file:///README")))) -- 2.4.3