~ruther/guix-local

a138371f32f50e66a36d58daa63067d1ecdb0f82 — Nicolas Graves 9 months ago 7725ef3
gnu: gitless: Re-indent.

* gnu/packages/version-control.scm (gitless): Reindent after let addition.

Change-Id: I34e0c1c92b4343f44c1b83070dbf1c25aee77bf4
Signed-off-by: Sharlatan Hellseher <sharlatanus@gmail.com>
1 files changed, 55 insertions(+), 55 deletions(-)

M gnu/packages/version-control.scm
M gnu/packages/version-control.scm => gnu/packages/version-control.scm +55 -55
@@ 905,60 905,60 @@ logs to GNU ChangeLog format.")
  (let ((commit "3ac28e39e170acdcd1590e0a25a06790ae0e6922")
        (revision "0"))
    (package
    (name "gitless")
    (version (git-version "0.8.8" revision commit))
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
              (url "https://github.com/gitless-vcs/gitless")
              (commit commit)))
       (sha256
        (base32 "116hl4hb42qw7lza0w71m2i7dmfh0vfm5fi3x95nx463sjnk4ahv"))))
    (build-system pyproject-build-system)
    (arguments
     (list
      #:phases
      #~(modify-phases %standard-phases
          (add-before 'build 'loosen-requirements
            (lambda _
              (substitute* "setup.py"
                ;; Using Guix's python-pygit2 1.1.0 appears to work fine…
                (("pygit2==") "pygit2>="))))
          (add-before 'check 'prepare-for-tests
            (lambda _
              ;; Find the 'gl' command.
              (rename-file "gl.py" "gl")
              (setenv "PATH" (string-append (getcwd) ":" (getenv "PATH")))

              ;; The tests try to run git as if it were already set up.
              (setenv "HOME" (getcwd))
              (invoke "git" "config" "--global" "user.email" "git@example.com")
              (invoke "git" "config" "--global" "user.name" "Guix")
              (invoke "git" "config" "--global" "color.ui" "true")))
          (replace 'wrap
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (let ((git (search-input-file inputs "bin/git")))
                (wrap-program (string-append #$output "/bin/gl")
                  `("PATH" ":" prefix (,(dirname git)))
                  `("GUIX_PYTHONPATH" ":" =
                    (,(string-append (site-packages inputs outputs) ":")
                     ,(getenv "GUIX_PYTHONPATH"))))))))))
    (native-inputs
     (list git-minimal
           python-pytest
           python-setuptools
           python-wheel))
    (inputs
     (list bash-minimal
           git-minimal
           python-argcomplete
           python-pygit2
           python-sh))
    (home-page "https://gitless.com")
    (synopsis "Simple version control system built on top of Git")
    (description
     "Gitless is a Git-compatible version control system that aims to be easy to
      (name "gitless")
      (version (git-version "0.8.8" revision commit))
      (source
       (origin
         (method git-fetch)
         (uri (git-reference
                (url "https://github.com/gitless-vcs/gitless")
                (commit commit)))
         (sha256
          (base32 "116hl4hb42qw7lza0w71m2i7dmfh0vfm5fi3x95nx463sjnk4ahv"))))
      (build-system pyproject-build-system)
      (arguments
       (list
        #:phases
        #~(modify-phases %standard-phases
            (add-before 'build 'loosen-requirements
              (lambda _
                (substitute* "setup.py"
                  ;; Using Guix's python-pygit2 1.1.0 appears to work fine…
                  (("pygit2==") "pygit2>="))))
            (add-before 'check 'prepare-for-tests
              (lambda _
                ;; Find the 'gl' command.
                (rename-file "gl.py" "gl")
                (setenv "PATH" (string-append (getcwd) ":" (getenv "PATH")))

                ;; The tests try to run git as if it were already set up.
                (setenv "HOME" (getcwd))
                (invoke "git" "config" "--global" "user.email" "git@example.com")
                (invoke "git" "config" "--global" "user.name" "Guix")
                (invoke "git" "config" "--global" "color.ui" "true")))
            (replace 'wrap
              (lambda* (#:key inputs outputs #:allow-other-keys)
                (let ((git (search-input-file inputs "bin/git")))
                  (wrap-program (string-append #$output "/bin/gl")
                    `("PATH" ":" prefix (,(dirname git)))
                    `("GUIX_PYTHONPATH" ":" =
                      (,(string-append (site-packages inputs outputs) ":")
                       ,(getenv "GUIX_PYTHONPATH"))))))))))
      (native-inputs
       (list git-minimal
             python-pytest
             python-setuptools
             python-wheel))
      (inputs
       (list bash-minimal
             git-minimal
             python-argcomplete
             python-pygit2
             python-sh))
      (home-page "https://gitless.com")
      (synopsis "Simple version control system built on top of Git")
      (description
       "Gitless is a Git-compatible version control system that aims to be easy to
learn and use.  It simplifies the common workflow by committing changes to
tracked files by default and saving any uncommitted changes as part of a branch.



@@ 968,7 968,7 @@ figure out what to do next.
Gitless is implemented on top of Git and its commits and repositories are
indistinguishable from Git's.  You (or other contributors) can always fall back
on @command{git}, and use any regular Git hosting service.")
    (license license:expat))))
      (license license:expat))))

(define-public git-cal
  (package