From ce7d91129f67c9c9cd14c2cfcbd84c50b428f331 Mon Sep 17 00:00:00 2001
From: Lprndn <guix@lprndn.info>
Date: Thu, 24 Jan 2019 13:45:58 +0100
Subject: [PATCH] gnu: Add durden.
* gnu/packages/arcan.scm (durden): New variable.
---
gnu/packages/arcan.scm | 45 ++++++++++++++++++++++++++++++++++++++++++
1 file changed, 45 insertions(+)
@@ -305,3 +305,48 @@ all the way to full-blown desktop environments")
(synopsis "Image viewer for Arcan")
(description "Image viewer for Arcan")
(license license:bsd-3)))
+
+(define-public durden
+ (package
+ (name "durden")
+ (version "0.5") ;We're actually a few commits ahead to fix some bugs
+ (source (origin
+ (method git-fetch)
+ (file-name (git-file-name name version))
+ (uri (git-reference
+ (url "https://github.com/letoram/durden.git")
+ (commit "aa95186202d2a2c6a256f8a13239d673ce54883b")))
+ (sha256
+ (base32 "09n1dc612j14jdfn0cvx8mypdv6wdw5sijlrzrfskx93lmzy918v"))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:tests? #f
+ #:phases
+ (modify-phases %standard-phases
+ (delete 'configure)
+ (delete 'build)
+ (add-after 'unpack 'keep-env-applbase-path
+ (lambda _
+ (substitute* "distr/durden"
+ (("export ARCAN_APPLBASEPATH.*")
+ ""))
+ #t))
+ (replace 'install
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (appl (string-append out "/share/arcan/appl")))
+ (copy-recursively "durden" (string-append appl "/durden"))
+ (install-file "distr/durden" (string-append out "/bin"))))))))
+ (propagated-inputs
+ `(("adloadimage" ,aloadimage)
+ ("aclip" ,aclip)))
+ (home-page "http://durden.arcan-fe.com/")
+ (synopsis "Desktop Environment for Arcan")
+ (description "Durden is a desktop environment for the Arcan Display Server.
+It serves both as a reference showcase on how to take advantage of some of the
+features in Arcan, and as a very competent entry to the advanced-user
+side of the desktop environment spectrum")
+ (license (list license:bsd-3
+ license:cc-by3.0
+ license:cc-by4.0
+ license:asl2.0))))
--
2.19.2