summary refs log tree commit diff
path: root/gnu/packages
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2020-09-01 17:12:13 +0300
committerEfraim Flashner <efraim@flashner.co.il>2020-09-01 17:12:30 +0300
commit6bf5f207f171e87a53e6578a61b4334683a861c8 (patch)
tree2877ba5c081231da58efe6a49795f67b10f43005 /gnu/packages
parent01cefb7a570d846476ff5cb05d3b1e3511db5d81 (diff)
downloadguix-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.scm26
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)