[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
09/11: gnu: Add cl-stumpwm.
From: |
??? |
Subject: |
09/11: gnu: Add cl-stumpwm. |
Date: |
Sat, 8 Oct 2016 13:26:01 +0000 (UTC) |
iyzsong pushed a commit to branch master
in repository guix.
commit d075960f606dccf7cbbc587a3dd718055e7fb4bb
Author: Andy Patterson <address@hidden>
Date: Fri Oct 7 04:07:41 2016 -0400
gnu: Add cl-stumpwm.
* gnu/packages/lisp.scm (cl-stumpwm, sbcl-stumpwm, ecl-stumpwm): New
variables.
Signed-off-by: 宋文武 <address@hidden>
---
gnu/packages/lisp.scm | 66 +++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 66 insertions(+)
diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index 5da2592..5e8a482 100644
--- a/gnu/packages/lisp.scm
+++ b/gnu/packages/lisp.scm
@@ -745,3 +745,69 @@ from other CLXes around the net.")
(define-public ecl-clx
(sbcl-package->ecl-package sbcl-clx))
+
+(define-public sbcl-stumpwm
+ (package
+ (name "sbcl-stumpwm")
+ (version "0.9.9")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://github.com/stumpwm/stumpwm/archive/"
+ version ".tar.gz"))
+ (sha256
+ (base32 "1fqabij4zcsqg1ywgdv2irp1ys23dwc8ms9ai55lb2i47hgv7z3x"))
+ (file-name (string-append "stumpwm-" version ".tar.gz"))))
+ (build-system asdf-build-system/sbcl)
+ (inputs `(("sbcl-cl-ppcre" ,sbcl-cl-ppcre)
+ ("sbcl-clx" ,sbcl-clx)))
+ (outputs '("out" "bin"))
+ (arguments
+ '(#:special-dependencies '("sb-posix")
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'create-symlinks 'build-program
+ (lambda* (#:key lisp outputs inputs #:allow-other-keys)
+ (build-program
+ lisp
+ (string-append (assoc-ref outputs "bin") "/bin/stumpwm")
+ #:inputs inputs
+ #:entry-program '((stumpwm:stumpwm) 0))))
+ (add-after 'build-program 'create-desktop-file
+ (lambda* (#:key outputs lisp binary? #:allow-other-keys)
+ (let ((output (or (assoc-ref outputs "bin")
+ (assoc-ref outputs "out")))
+ (xsessions "/share/xsessions"))
+ (mkdir-p (string-append output xsessions))
+ (with-output-to-file
+ (string-append output xsessions
+ "/stumpwm.desktop")
+ (lambda _
+ (format #t
+ "[Desktop Entry]~@
+ Name=stumpwm~@
+ Comment=The Stump Window Manager~@
+ Exec=~a/bin/stumpwm~@
+ address@hidden/bin/stumpwm~@
+ Icon=~@
+ Type=Application~%"
+ output)))
+ #t))))))
+ (synopsis "Window manager written in Common Lisp")
+ (description "Stumpwm is a window manager written entirely in Common Lisp.
+It attempts to be highly customizable while relying entirely on the keyboard
+for input. These design decisions reflect the growing popularity of
+productive, customizable lisp based systems.")
+ (home-page "http://github.com/stumpwm/stumpwm")
+ (license license:gpl2+)
+ (properties `((ecl-variant . ,(delay ecl-stumpwm))))))
+
+(define-public cl-stumpwm
+ (sbcl-package->cl-source-package sbcl-stumpwm))
+
+(define-public ecl-stumpwm
+ (let ((base (sbcl-package->ecl-package sbcl-stumpwm)))
+ (package
+ (inherit base)
+ (outputs '("out"))
+ (arguments '()))))
- branch master updated (53aec09 -> 9678443), ???, 2016/10/08
- 03/11: gnu: Add cl-fiveam., ???, 2016/10/08
- 06/11: gnu: Add cl-flexi-streams., ???, 2016/10/08
- 05/11: gnu: Add cl-trivial-gray-streams., ???, 2016/10/08
- 04/11: gnu: Add cl-bordeaux-threads., ???, 2016/10/08
- 02/11: gnu: Add cl-alexandria., ???, 2016/10/08
- 07/11: gnu: Add cl-ppcre., ???, 2016/10/08
- 11/11: gnu: Add sbcl-stumpwm-with-slynk., ???, 2016/10/08
- 09/11: gnu: Add cl-stumpwm.,
??? <=
- 10/11: gnu: Add cl-slynk., ???, 2016/10/08
- 08/11: gnu: Add cl-clx., ???, 2016/10/08
- 01/11: build-system: Add asdf-build-system., ???, 2016/10/08