05/20: gnu: cool-retro-term: Lint package definition.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 8b1e46cb3e35754ba614802af238337be6681850
Author: kiasoc5 <kiasoc5@tutanota.com>
AuthorDate: Tue May 3 12:05:12 2022 -0400

    gnu: cool-retro-term: Lint package definition.
    
    * 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>
---
 gnu/packages/terminals.scm | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

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