andreas pushed a commit to branch python-team
in repository guix.

commit 894a98f17fcd9d9f5cc72fdbc29b0416a8f0cef1
Author: Sharlatan Hellseher <sharlata...@gmail.com>
AuthorDate: Mon Mar 24 11:08:34 2025 +0000

    gnu: gita: Improve package style.
    
    * gnu/packages/version-control.scm (gita): Use G-expressions, refresh
    style.
    [native-inputs]: Remove git; add git-minimal/pinned.
    
    Change-Id: I61707538f5248e14207aa2ca0931286741697ed8
---
 gnu/packages/version-control.scm | 60 +++++++++++++++++++++-------------------
 1 file changed, 31 insertions(+), 29 deletions(-)

diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index 9ba66531b5..17321171f4 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -4315,42 +4315,44 @@ defects faster.")
   (package
     (name "gita")
     (version "0.16.7.2")
-    (source (origin
-              (method git-fetch)
-              (uri (git-reference
-                    (url "https://github.com/nosarthur/gita";)
-                    (commit (string-append "v" version))))
-              (file-name (git-file-name name version))
-              (sha256
-               (base32
-                "118dzmjgml0c32yllr2178ash2hvgn201i463bv4y0qbywajm9ax"))))
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/nosarthur/gita";)
+             (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "118dzmjgml0c32yllr2178ash2hvgn201i463bv4y0qbywajm9ax"))))
     (build-system pyproject-build-system)
+    (arguments
+     (list
+      #:test-flags #~(list "--ignore" "tests/test_main.py")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'check 'pre-check
+            (lambda _
+              (invoke (string-append
+                       #$(this-package-native-input "git-minimal") "/bin/git")
+                      "init")))
+          (add-after 'install 'install-shell-completions
+            (lambda _
+              (let* ((out #$output)
+                     (bash-completion (string-append out 
"/etc/bash_completion.d"))
+                     (zsh-completion (string-append out 
"/etc/zsh/site-functions")))
+                (mkdir-p bash-completion)
+                (copy-file "auto-completion/bash/.gita-completion.bash"
+                           (string-append bash-completion "/gita"))
+                (mkdir-p zsh-completion)
+                (copy-file "auto-completion/zsh/.gita-completion.zsh"
+                           (string-append zsh-completion "/_gita"))))))))
     (native-inputs
-     (list git ;for tests
+     (list git-minimal/pinned ;for tests
            python-pytest
            python-setuptools
            python-wheel))
     (propagated-inputs
      (list python-argcomplete))
-    (arguments
-     `(#:test-flags '("--ignore" "tests/test_main.py")
-       #:phases
-       (modify-phases %standard-phases
-         (add-before 'check 'pre-check
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (invoke (search-input-file inputs "/bin/git")
-                     "init")))
-         (add-after 'install 'install-shell-completions
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (bash-completion (string-append out 
"/etc/bash_completion.d"))
-                    (zsh-completion (string-append out 
"/etc/zsh/site-functions")))
-               (mkdir-p bash-completion)
-               (copy-file "auto-completion/bash/.gita-completion.bash"
-                          (string-append bash-completion "/gita"))
-               (mkdir-p zsh-completion)
-               (copy-file "auto-completion/zsh/.gita-completion.zsh"
-                          (string-append zsh-completion "/_gita"))))))))
     (home-page "https://github.com/nosarthur/gita";)
     (synopsis "Command-line tool to manage multiple Git repos")
     (description "This package provides a command-line tool to manage

Reply via email to