diff options
| author | Oleg Pykhalov <go.wigust@gmail.com> | 2020-05-30 10:24:52 +0300 |
|---|---|---|
| committer | Oleg Pykhalov <go.wigust@gmail.com> | 2020-05-30 10:54:55 +0300 |
| commit | db7b4e2f70a8525469bf81032ffbbdc970666272 (patch) | |
| tree | aa0f345d30e6ede6cb27a68941de14a2d9ddfa61 | |
| parent | gnu: Add emacs-stupid-indent-mode. (diff) | |
| download | guix-wigust-db7b4e2f70a8525469bf81032ffbbdc970666272.tar.gz | |
guix: stumpwm-checkout: Replace 'create-desktop-file' phase.
* guix/wigust/packages/lisp.scm (stumpwm-checkout): Replace
'create-desktop-file' phase.
| -rw-r--r-- | guix/wigust/packages/lisp.scm | 25 |
1 files changed, 24 insertions, 1 deletions
diff --git a/guix/wigust/packages/lisp.scm b/guix/wigust/packages/lisp.scm index b613aeb..137a99c 100644 --- a/guix/wigust/packages/lisp.scm +++ b/guix/wigust/packages/lisp.scm @@ -79,6 +79,7 @@ (inputs `(("sbcl-alexandria" ,sbcl-alexandria) ("sbcl-fiasco", sbcl-fiasco) + ("dbus" ,dbus) ,@(package-inputs sbcl-stumpwm))) (native-inputs `(("texinfo" ,texinfo))) (outputs (append (package-outputs sbcl-stumpwm) '("doc"))) @@ -92,7 +93,29 @@ (invoke "makeinfo" "stumpwm.texi.in") (install-file "stumpwm.info" (string-append (assoc-ref outputs "doc") - "/share/info"))))))))))) + "/share/info")))) + (replace 'create-desktop-file + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (xsessions (string-append out "/share/xsessions")) + (dbus (assoc-ref inputs "dbus"))) + (mkdir-p xsessions) + (with-output-to-file + (string-append xsessions "/stumpwm.desktop") + (lambda () + (display "[Desktop Entry]") + (newline) + (display "Name=stumpwm") + (newline) + (display "Comment=The Stump Window Manager") + (newline) + (format #t "Exec=~a/bin/dbus-launch ~a/bin/stumpwm~%" dbus out) + (format #t "TryExec=~a/bin/dbus-launch ~a/bin/stumpwm~%" dbus out) + (display "Icon=") + (newline) + (display "Type=Application") + (newline))) + #t)))))))))) (define-public stumpwm-next (let ((commit "603abb210d7130543e42b48a812e57fe343ad935")) |