diff options
| author | ng0 <ng0@n0.is> | 2018-03-17 15:57:19 +0000 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-03-18 00:02:05 +0100 |
| commit | c217df913e00327f5c9b779fd97e222c4c22dab9 (patch) | |
| tree | 64b5f33dd974b9f15f64eacada0f7ca95b6fcf58 | |
| parent | 07d2fed2f60c43372446bee5fa2ac779e4acb0eb (diff) | |
| download | gnu-guix-c217df913e00327f5c9b779fd97e222c4c22dab9.tar gnu-guix-c217df913e00327f5c9b779fd97e222c4c22dab9.tar.gz | |
gnu: fvwm: Add '.desktop' file.
* gnu/packages/fvwm.scm (fvwm)[arguments]: Add new phase to create '.desktop' file.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
| -rw-r--r-- | gnu/packages/fvwm.scm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/gnu/packages/fvwm.scm b/gnu/packages/fvwm.scm index 5ff3d5e4f2..a4c31aefc6 100644 --- a/gnu/packages/fvwm.scm +++ b/gnu/packages/fvwm.scm @@ -45,6 +45,27 @@ (base32 "0wzghjgy65pkn31rgl14fngizw7nbkzbxsfa670xmrndpmd4sr81")))) (build-system gnu-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'install 'install-xsession + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (xsessions (string-append out "/share/xsessions"))) + (mkdir-p xsessions) + (with-output-to-file + (string-append xsessions "/fvwm2.desktop") + (lambda _ + (format #t + "[Desktop Entry]~@ + Name=FVWM~@ + Comment=FVWM~@ + Exec=~a/bin/fvwm~@ + TryExec=~@*~a/bin/fvwm~@ + Icon=~@ + Type=Application~%" + out)))) + #t))))) (native-inputs `(("perl" ,perl) ("pkg-config" ,pkg-config) |