mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18:07 -05:00
gnu: ghostwriter: Update to 2.1.4 and fix wrapping.
* gnu/packages/text-editors.scm (ghostwriter): Update to 2.14. [arguments]: Use gexps to fix 'wrap-executable' phase.
This commit is contained in:
parent
0424a58463
commit
15fbb963b6
1 changed files with 23 additions and 24 deletions
|
@ -1,7 +1,7 @@
|
|||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2016 José Miguel Sánchez García <jmi2k@openmailbox.org>
|
||||
;;; 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 Nikita <nikita@n0.is>
|
||||
;;; Copyright © 2014 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.org>
|
||||
|
@ -651,7 +651,7 @@ (define-public qemacs
|
|||
(define-public ghostwriter
|
||||
(package
|
||||
(name "ghostwriter")
|
||||
(version "2.0.2")
|
||||
(version "2.1.4")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
|
@ -660,7 +660,7 @@ (define-public ghostwriter
|
|||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"19cf55b86yj2b5hdazbyw4iyp6xq155243aiyg4m0vhwh0h79nwh"))))
|
||||
"1w8a6vkhmdbp4kzb7aprvfni9ny47dj0vigbcnsh539dn3sp1gan"))))
|
||||
(build-system gnu-build-system)
|
||||
(native-inputs
|
||||
(list pkg-config qttools-5)) ; for lrelease
|
||||
|
@ -675,27 +675,26 @@ (define-public ghostwriter
|
|||
(propagated-inputs ; To get native-search-path
|
||||
(list qtwebengine-5))
|
||||
(arguments
|
||||
`(#:phases
|
||||
(modify-phases %standard-phases
|
||||
(replace 'configure
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let ((out (assoc-ref outputs "out")))
|
||||
(invoke "qmake" (string-append "PREFIX=" out)))))
|
||||
(add-after 'configure 'create-translations
|
||||
(lambda _
|
||||
;; `lrelease` will not overwrite, so delete existing .qm files
|
||||
(for-each delete-file (find-files "translations" ".*\\.qm"))
|
||||
(apply invoke "lrelease" (find-files "translations" ".*\\.ts"))))
|
||||
;; Ensure that icons are found at runtime.
|
||||
(add-after 'install 'wrap-executable
|
||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||
(let ((out (assoc-ref outputs "out")))
|
||||
(wrap-program (string-append out "/bin/ghostwriter")
|
||||
`("QT_PLUGIN_PATH" ":" prefix
|
||||
,(map (lambda (label)
|
||||
(string-append (assoc-ref inputs label)
|
||||
"/lib/qt5/plugins/"))
|
||||
'("qtsvg-5" "qtmultimedia-5"))))))))))
|
||||
(list
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(replace 'configure
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(invoke "qmake" (string-append "PREFIX=" #$output))))
|
||||
(add-after 'configure 'create-translations
|
||||
(lambda _
|
||||
;; `lrelease` will not overwrite, so delete existing .qm files
|
||||
(for-each delete-file (find-files "translations" ".*\\.qm"))
|
||||
(apply invoke "lrelease" (find-files "translations" ".*\\.ts"))))
|
||||
;; Ensure that icons are found at runtime.
|
||||
(add-after 'install 'wrap-executable
|
||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||
(wrap-program (string-append #$output "/bin/ghostwriter")
|
||||
`("QT_PLUGIN_PATH" ":" prefix
|
||||
#$(map (lambda (label)
|
||||
(file-append (this-package-input label)
|
||||
"/lib/qt5/plugins"))
|
||||
'("qtsvg" "qtmultimedia")))))))))
|
||||
(home-page "https://wereturtle.github.io/ghostwriter/")
|
||||
(synopsis "Write without distractions")
|
||||
(description
|
||||
|
|
Loading…
Reference in a new issue