[bug#34189] Acknowledgement ([PATCH] gnu: Add arcan.)

[L p R n d n <guix@lprndn.info>]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: 0001-gnu-Add-durden.patch --]
[-- Type: text/x-patch, Size: 2570 bytes --]

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(+)

diff --git a/gnu/packages/arcan.scm b/gnu/packages/arcan.scm
index 3589ca55b..8c0bd8347 100644
--- a/gnu/packages/arcan.scm
+++ b/gnu/packages/arcan.scm
@@ -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