diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2020-09-01 17:12:13 +0300 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2020-09-01 17:12:30 +0300 |
| commit | 6bf5f207f171e87a53e6578a61b4334683a861c8 (patch) | |
| tree | 2877ba5c081231da58efe6a49795f67b10f43005 /gnu/packages | |
| parent | 01cefb7a570d846476ff5cb05d3b1e3511db5d81 (diff) | |
| download | guix-6bf5f207f171e87a53e6578a61b4334683a861c8.tar guix-6bf5f207f171e87a53e6578a61b4334683a861c8.tar.gz | |
gnu: manuskript: Use make-deskop-entry-file.
* gnu/packages/text-editors.scm (manuskript)[arguments]: Adjust custom
'install phase to use make-desktop-entry-file.
Diffstat (limited to 'gnu/packages')
| -rw-r--r-- | gnu/packages/text-editors.scm | 26 |
1 files changed, 11 insertions, 15 deletions
diff --git a/gnu/packages/text-editors.scm b/gnu/packages/text-editors.scm index 5b7f2e937c..86aec18697 100644 --- a/gnu/packages/text-editors.scm +++ b/gnu/packages/text-editors.scm @@ -657,21 +657,17 @@ environment with Markdown markup.") (icons-dir (string-append out "/share/pixmaps"))) (install-file "icons/Manuskript/manuskript.svg" icons-dir) (mkdir-p apps) - (with-output-to-file (string-append apps "/manuskript.desktop") - (lambda _ - (format #t - "[Desktop Entry]~@ - Name=Manuskript~@ - MimeType=application/x-manuskript-book;~@ - Exec=~a/bin/manuskript %f~@ - Comment=Tool for writers~@ - Comment[es]=Herramienta para escritores/as~@ - Keywords=manuskript;office;write;edit;novel;text;msk~@ - Terminal=false~@ - Type=Application~@ - Icon=manuskript~@ - Categories=Office;WordProcessor;~%" - out)))) + (make-desktop-entry-file (string-append apps "/manuskript.desktop") + #:name "Manuskript" + #:mime-type "application/x-manuskript-book;" + #:exec (string-append out "/bin/manuskript %f") + #:comment '((#f "Tool for writers") + ("es" "Herramienta para escritores/as")) + #:keywords "manuskript;office;write;edit;novel;text;msk" + #:terminal #f + #:type "Application" + #:icon "manuskript" + #:categories "Office;WordProcessor;")) #t)))))) (inputs `(("ghc-pandoc" ,ghc-pandoc) |