ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 21:59:08 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: ghostwriter: Update to 2.1.4 and fix wrapping.

Browse source 
* gnu/packages/text-editors.scm (ghostwriter): Update to 2.14.
[arguments]: Use gexps to fix 'wrap-executable' phase.
This commit is contained in:
Eric Bavier 2022-08-30 23:49:04 -05:00
parent 0424a58463
commit 15fbb963b6
No known key found for this signature in database
GPG key ID: BC45CA67E2F8D007
1 changed files with 23 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 José Miguel Sánchez García <jmi2k@openmailbox.org> ;;; Copyright © 2016 José Miguel Sánchez García <jmi2k@openmailbox.org>
;;; Copyright © 2016 Carlo Zancanaro <carlo@zancanaro.id.au> ;;; Copyright © 2016 Carlo Zancanaro <carlo@zancanaro.id.au>
;;; Copyright © 2017, 2018, 2020 Eric Bavier <bavier@posteo.net> ;;; Copyright © 2017, 2018, 2020, 2022 Eric Bavier <bavier@posteo.net>
;;; Copyright © 2017 Feng Shu <tumashu@163.com> ;;; Copyright © 2017 Feng Shu <tumashu@163.com>
;;; Copyright © 2017 Nikita <nikita@n0.is> ;;; Copyright © 2017 Nikita <nikita@n0.is>
;;; Copyright © 2014 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.org> ;;; Copyright © 2014 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.org>
@ -651,7 +651,7 @@ (define-public qemacs
(define-public ghostwriter (define-public ghostwriter
(package (package
(name "ghostwriter") (name "ghostwriter")
(version "2.0.2") (version "2.1.4")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -660,7 +660,7 @@ (define-public ghostwriter
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"19cf55b86yj2b5hdazbyw4iyp6xq155243aiyg4m0vhwh0h79nwh")))) "1w8a6vkhmdbp4kzb7aprvfni9ny47dj0vigbcnsh539dn3sp1gan"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
(list pkg-config qttools-5)) ; for lrelease (list pkg-config qttools-5)) ; for lrelease
@ -675,27 +675,26 @@ (define-public ghostwriter
(propagated-inputs ; To get native-search-path (propagated-inputs ; To get native-search-path
(list qtwebengine-5)) (list qtwebengine-5))
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:phases
(replace 'configure #~(modify-phases %standard-phases
(lambda* (#:key outputs #:allow-other-keys) (replace 'configure
(let ((out (assoc-ref outputs "out"))) (lambda* (#:key outputs #:allow-other-keys)
(invoke "qmake" (string-append "PREFIX=" out))))) (invoke "qmake" (string-append "PREFIX=" #$output))))
(add-after 'configure 'create-translations (add-after 'configure 'create-translations
(lambda _ (lambda _
;; `lrelease` will not overwrite, so delete existing .qm files ;; `lrelease` will not overwrite, so delete existing .qm files
(for-each delete-file (find-files "translations" ".*\\.qm")) (for-each delete-file (find-files "translations" ".*\\.qm"))
(apply invoke "lrelease" (find-files "translations" ".*\\.ts")))) (apply invoke "lrelease" (find-files "translations" ".*\\.ts"))))
;; Ensure that icons are found at runtime. ;; Ensure that icons are found at runtime.
(add-after 'install 'wrap-executable (add-after 'install 'wrap-executable
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (wrap-program (string-append #$output "/bin/ghostwriter")
(wrap-program (string-append out "/bin/ghostwriter") `("QT_PLUGIN_PATH" ":" prefix
`("QT_PLUGIN_PATH" ":" prefix #$(map (lambda (label)
,(map (lambda (label) (file-append (this-package-input label)
(string-append (assoc-ref inputs label) "/lib/qt5/plugins"))
"/lib/qt5/plugins/")) '("qtsvg" "qtmultimedia")))))))))
'("qtsvg-5" "qtmultimedia-5"))))))))))
(home-page "https://wereturtle.github.io/ghostwriter/") (home-page "https://wereturtle.github.io/ghostwriter/")
(synopsis "Write without distractions") (synopsis "Write without distractions")
(description (description