me/guix
Archived
1
0
Fork 0
Code Activity

gnu: manuskript: Update package style.

Browse source 
* gnu/packages/text-editors.scm (manuskript)[arguments]: Use
G-expressions. Remove trailing #T.
This commit is contained in:
Nicolas Goaziou 2022-07-04 15:28:07 +02:00
parent ba2d504939
commit 942dcd30c4
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 43 additions and 43 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

86
gnu/packages/text-editors.scm
View file

@ -723,57 +723,57 @@ environment with Markdown markup.")
(base32 "0qhr9bkq4yl2qjainpsv7blzcji2q9ic9zcynawmhfqy3rmf8qlr")))) (base32 "0qhr9bkq4yl2qjainpsv7blzcji2q9ic9zcynawmhfqy3rmf8qlr"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
`(#:tests? #f ;no test (list
#:phases #:tests? #f ;no test
(modify-phases %standard-phases #:phases
(delete 'configure) #~(modify-phases %standard-phases
(delete 'build) (delete 'configure)
(replace 'install (delete 'build)
(lambda* (#:key outputs #:allow-other-keys) (replace 'install
(let* ((out (assoc-ref outputs "out")) (lambda _
(share (string-append out "/share/manuskript"))) (let ((share (string-append #$output "/share/manuskript")))
;; Install data. ;; Install data.
(mkdir-p share) (mkdir-p share)
(for-each (for-each
(lambda (d) (lambda (d)
(let ((destination (string-append share "/" d))) (let ((destination (string-append share "/" d)))
(mkdir-p destination) (mkdir-p destination)
(copy-recursively d destination))) (copy-recursively d destination)))
'("bin" "i18n" "icons" "libs" "manuskript" "resources")) '("bin" "i18n" "icons" "libs" "manuskript" "resources"))
;; Install documentation. ;; Install documentation.
(let ((doc (string-append out (let ((doc (string-append #$output
"/doc/manuskript-" ,version "/doc/manuskript-" #$version
"/sample-projects"))) "/sample-projects")))
(mkdir-p doc) (mkdir-p doc)
(copy-recursively "sample-projects" doc)) (copy-recursively "sample-projects" doc))
;; Wrap executable in "$out/share/manuskript/bin" and ;; Wrap executable in "$out/share/manuskript/bin" and
;; link to it from "$out/bin". ;; link to it from "$out/bin".
(let ((bin (string-append out "/bin")) (let ((bin (string-append #$output "/bin"))
(executable (string-append share "/bin/manuskript"))) (executable (string-append share "/bin/manuskript")))
(wrap-program executable (wrap-program executable
(list "GUIX_PYTHONPATH" 'prefix (list "GUIX_PYTHONPATH" 'prefix
(list (getenv "GUIX_PYTHONPATH")))) (list (getenv "GUIX_PYTHONPATH"))))
(mkdir-p bin) (mkdir-p bin)
(with-directory-excursion bin (with-directory-excursion bin
(symlink (string-append share "/bin/manuskript") (symlink (string-append share "/bin/manuskript")
"manuskript"))) "manuskript")))
;; Install icons and create .desktop file. ;; Install icons and create .desktop file.
(let ((apps (string-append out "/share/applications")) (let ((apps (string-append #$output "/share/applications"))
(icons-dir (string-append out "/share/pixmaps"))) (icons-dir (string-append #$output "/share/pixmaps")))
(install-file "icons/Manuskript/manuskript.svg" icons-dir) (install-file "icons/Manuskript/manuskript.svg" icons-dir)
(mkdir-p apps) (mkdir-p apps)
(make-desktop-entry-file (string-append apps "/manuskript.desktop") (make-desktop-entry-file
(string-append apps "/manuskript.desktop")
#:name "Manuskript" #:name "Manuskript"
#:mime-type "application/x-manuskript-book;" #:mime-type "application/x-manuskript-book;"
#:exec (string-append out "/bin/manuskript %f") #:exec (string-append #$output "/bin/manuskript %f")
#:comment '((#f "Tool for writers") #:comment '((#f "Tool for writers")
("es" "Herramienta para escritores/as")) ("es" "Herramienta para escritores/as"))
#:keywords "manuskript;office;write;edit;novel;text;msk" #:keywords "manuskript;office;write;edit;novel;text;msk"
#:terminal #f #:terminal #f
#:type "Application" #:type "Application"
#:icon "manuskript" #:icon "manuskript"
#:categories "Office;WordProcessor;")) #:categories "Office;WordProcessor;"))))))))
#t))))))
(inputs (inputs
(list pandoc python-lxml python-markdown python-pyqt qtsvg)) (list pandoc python-lxml python-markdown python-pyqt qtsvg))
(home-page "http://www.theologeek.ch/manuskript/") (home-page "http://www.theologeek.ch/manuskript/")