gnu: manuskript: Use make-deskop-entry-file.

* gnu/packages/text-editors.scm (manuskript)[arguments]: Adjust custom
'install phase to use make-desktop-entry-file.
This commit is contained in:
Efraim Flashner 2020-09-01 17:12:13 +03:00
parent 01cefb7a57
commit 6bf5f207f1
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351

View file

@ -657,21 +657,17 @@ environment with Markdown markup.")
(icons-dir (string-append out "/share/pixmaps"))) (icons-dir (string-append out "/share/pixmaps")))
(install-file "icons/Manuskript/manuskript.svg" icons-dir) (install-file "icons/Manuskript/manuskript.svg" icons-dir)
(mkdir-p apps) (mkdir-p apps)
(with-output-to-file (string-append apps "/manuskript.desktop") (make-desktop-entry-file (string-append apps "/manuskript.desktop")
(lambda _ #:name "Manuskript"
(format #t #:mime-type "application/x-manuskript-book;"
"[Desktop Entry]~@ #:exec (string-append out "/bin/manuskript %f")
Name=Manuskript~@ #:comment '((#f "Tool for writers")
MimeType=application/x-manuskript-book;~@ ("es" "Herramienta para escritores/as"))
Exec=~a/bin/manuskript %f~@ #:keywords "manuskript;office;write;edit;novel;text;msk"
Comment=Tool for writers~@ #:terminal #f
Comment[es]=Herramienta para escritores/as~@ #:type "Application"
Keywords=manuskript;office;write;edit;novel;text;msk~@ #:icon "manuskript"
Terminal=false~@ #:categories "Office;WordProcessor;"))
Type=Application~@
Icon=manuskript~@
Categories=Office;WordProcessor;~%"
out))))
#t)))))) #t))))))
(inputs (inputs
`(("ghc-pandoc" ,ghc-pandoc) `(("ghc-pandoc" ,ghc-pandoc)