Re: [PATCH] Adding .xsession to guile-wm

[John Darrington]

Most of the .desktop files in my store do not have the /gnu/store/... on their
Exec= line.  Perhaps they should?  What is the policy here?

J'

On Sun, Sep 11, 2016 at 11:01:56PM -0400, Alex ter Weele wrote:
     Adding an xsession to guile-wm so that display managers will identify it
     as an available wm.

     From 91f74b1b762596527dfa9412c33e39981932fa70 Mon Sep 17 00:00:00 2001
     From: Alex ter Weele <address@hidden>
     Date: Sun, 11 Sep 2016 22:18:53 -0400
     Subject: [PATCH] Adding .xsession to guile-wm
     
     ---
      gnu/packages/guile-wm.scm | 25 +++++++++++++++++++++++--
      1 file changed, 23 insertions(+), 2 deletions(-)
     
     diff --git a/gnu/packages/guile-wm.scm b/gnu/packages/guile-wm.scm
     index 98e657f..606a792 100644
     --- a/gnu/packages/guile-wm.scm
     +++ b/gnu/packages/guile-wm.scm
     @@ -64,6 +64,7 @@ dependencies.")
        (package
          (name "guile-wm")
          (version "1.0")
     +    (synopsis "Guile window manager")
          (source (origin
                    (method url-fetch)
                    (uri (string-append 
"http://www.markwitmer.com/dist/guile-wm-";
     @@ -72,7 +73,7 @@ dependencies.")
                     (base32
                      "1l9qcz236jxvryndimjy62cf8zxf8i3f8vg3zpqqjhw15j9mdk3r"))))
          (build-system gnu-build-system)
     -    (arguments '(;; The '.scm' files go to $(datadir), so set that to the
     +    (arguments `(;; The '.scm' files go to $(datadir), so set that to the
                       ;; standard value.
                       #:configure-flags (list (string-append "--datadir="
                                                (assoc-ref %outputs "out")
     @@ -103,7 +104,27 @@ dependencies.")
                                       `("GUILE_LOAD_PATH" ":" prefix (,mods 
,xcb))
                                       `("GUILE_LOAD_COMPILED_PATH" ":" prefix
                                         (,mods ,xcb)))))
     -                            %standard-phases))))
     +                            (alist-cons-after
     +                             'install 'install-xsession
     +                             (lambda* (#:key outputs #:allow-other-keys)
     +                               ;; add a .desktop file to xsessions
     +                               (let ((xsessions (string-append
     +                                                 %output 
"/share/xsessions")))
     +                                 (mkdir-p xsessions)
     +                                 (call-with-output-file
     +                                     (string-append
     +                                      xsessions "/guile-wm.desktop")
     +                                   (lambda (port)
     +                                     (format
     +                                      port
     +                                      "~
     +                                       [Desktop Entry]~@
     +                                       Name=~a~@
     +                                       Comment=~a~@
     +                                       Exec=~a/bin/guile-wm~@
     +                                       Type=Application~%"
     +                                      ,name ,synopsis %output)))))
     +                             %standard-phases)))))
          (native-inputs `(("pkg-config" ,pkg-config)))
          (inputs `(("guile" ,guile-2.0)
                    ("guile-xcb" ,guile-xcb)))
     -- 
     2.10.0
     


-- 
Avoid eavesdropping.  Send strong encrypted email.
PGP Public key ID: 1024D/2DE827B3 
fingerprint = 8797 A26D 0854 2EAB 0285  A290 8A67 719C 2DE8 27B3
See http://sks-keyservers.net or any PGP keyserver for public key.

signature.asc
Description: Digital signature