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

gnu: cool-retro-term: Lint package definition.

Browse Source 
* gnu/packages/terminals.scm [inputs]: Add bash-minimal.
[source]: Remove trailing #t.
[arguments]: Remove trailing #t from phases.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
kiasoc5 2022-05-03 12:05:12 -04:00 committed by Ludovic Courtès
parent c1f60c5c34
commit 8b1e46cb3e
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gnu/packages/terminals.scm
View File

@ -63,6 +63,7 @@
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
#:use-module (gnu packages base) #:use-module (gnu packages base)
#:use-module (gnu packages bash)
#:use-module (gnu packages check) #:use-module (gnu packages check)
#:use-module (gnu packages cmake) #:use-module (gnu packages cmake)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
@ -776,11 +777,10 @@ embedded kernel situations.")
"app/qml/ApplicationSettings.qml")) "app/qml/ApplicationSettings.qml"))
;; Final substitution for default scanline and pixel fonts ;; Final substitution for default scanline and pixel fonts
(substitute* "app/qml/ApplicationSettings.qml" (substitute* "app/qml/ApplicationSettings.qml"
(("COMMODORE_PET") "PROGGY_TINY")) (("COMMODORE_PET") "PROGGY_TINY"))))))
#t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
(list qtbase-5 qtdeclarative qtgraphicaleffects qtquickcontrols2)) (list qtbase-5 qtdeclarative qtgraphicaleffects qtquickcontrols2 bash-minimal))
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
@ -804,20 +804,17 @@ embedded kernel situations.")
(string-append (assoc-ref inputs i) qml)) (string-append (assoc-ref inputs i) qml))
'("qtdeclarative" '("qtdeclarative"
"qtgraphicaleffects" "qtgraphicaleffects"
"qtquickcontrols2"))))) "qtquickcontrols2"))))))))
#t)))
(add-after 'install 'add-alternate-name (add-after 'install 'add-alternate-name
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref outputs "out") "/bin"))) (let ((bin (string-append (assoc-ref outputs "out") "/bin")))
(symlink (string-append bin "/cool-retro-term") (symlink (string-append bin "/cool-retro-term")
(string-append bin "/crt")) (string-append bin "/crt")))))
#t)))
(add-after 'install 'install-man (add-after 'install 'install-man
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((mandir (string-append (assoc-ref outputs "out") (let ((mandir (string-append (assoc-ref outputs "out")
"/share/man/man1"))) "/share/man/man1")))
(install-file "packaging/debian/cool-retro-term.1" mandir) (install-file "packaging/debian/cool-retro-term.1" mandir)))))))
#t))))))
(synopsis "Terminal emulator") (synopsis "Terminal emulator")
(description (description
"Cool-retro-term (crt) is a terminal emulator which mimics the look and "Cool-retro-term (crt) is a terminal emulator which mimics the look and