~ruther/guix-local

633e0ca80479af2efdae146bbe1ca1dca1abac0b — Sharlatan Hellseher 1 year, 3 months ago 7993835
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
1 files changed, 31 insertions(+), 29 deletions(-)

M gnu/packages/version-control.scm
M gnu/packages/version-control.scm => gnu/packages/version-control.scm +31 -29
@@ 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