02/02: gnu: tig: Update package style.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 4569350e6660710b3aa965ba581e34d86fbb2aae
Author: Timotej Lazar <timotej.lazar@araneo.si>
AuthorDate: Tue Jun 4 10:50:09 2024 +0200

    gnu: tig: Update package style.
    
    * gnu/packages/version-control.scm (tig)[arguments]: Switch to gexps. Move
    above input fields.
    
    Change-Id: I32976ccd3f5602e847b1573695356c7e4e6dd9d7
    Signed-off-by: Efraim Flashner <efraim@flashner.co.il>
---
 gnu/packages/version-control.scm | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index 2ceee47b63..8c9b41384c 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -2797,28 +2797,28 @@ any project with more than one developer, is one of 
Aegis's major functions.")
        (sha256
         (base32 "0m7v6xkvly3cbc5hs7plxdny4r41x3vkx7xylygjva4jcvnz0fjr"))))
     (build-system gnu-build-system)
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'install 'install-doc
+            (lambda _
+              (invoke "make" "install-doc")))
+          (add-after 'install 'install-completions
+            (lambda _
+              (let ((share (string-append #$output "/share")))
+                (mkdir-p (string-append share "/bash-completion/completions"))
+                (mkdir-p (string-append share "/zsh/site-functions"))
+                (copy-file "contrib/tig-completion.bash"
+                           (string-append share 
"/bash-completion/completions/tig"))
+                (copy-file "contrib/tig-completion.zsh"
+                           (string-append share 
"/zsh/site-functions/_tig"))))))
+      #:test-target "test"
+      #:tests? #f))                    ; tests require access to /dev/tty
     (native-inputs
      (list asciidoc autoconf automake docbook-xsl libxml2 pkg-config xmlto))
     (inputs
      (list ncurses readline))
-    (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-after 'install 'install-doc
-           (lambda _
-             (invoke "make" "install-doc")))
-         (add-after 'install 'install-completions
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out   (assoc-ref outputs "out"))
-                    (share (string-append out "/share")))
-               (mkdir-p (string-append share "/bash-completion/completions"))
-               (mkdir-p (string-append share "/zsh/site-functions"))
-               (copy-file "contrib/tig-completion.bash"
-                          (string-append share 
"/bash-completion/completions/tig"))
-               (copy-file "contrib/tig-completion.zsh"
-                          (string-append share "/zsh/site-functions/_tig"))))))
-       #:test-target "test"
-       #:tests? #f))                    ; tests require access to /dev/tty
     (home-page "https://jonas.github.io/tig/";)
     (synopsis "Ncurses-based text user interface for Git")
     (description