futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
* 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
1 changed files with 11 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
gnu/packages/text-editors.scm
View File

@ -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)