ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 06:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: gitless: Add bash-minimal to inputs, use gexps.

Browse source 
* gnu/packages/version-control.scm (gitless)
[arguments]: Use gexps.
[inputs]: Add bash-minimal.

Change-Id: I6f9c8661b739493ff48e114b6b063ecf12b8236a
This commit is contained in:
Maxim Cournoyer 2023-10-19 23:49:22 -04:00 committed by Ludovic Courtès
parent 70398d7473
commit 9185812a96
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 35 additions and 36 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

71
gnu/packages/version-control.scm
View file

@ -835,44 +835,43 @@ (define-public gitless
(file-name (git-file-name name version))))
(build-system python-build-system)
(arguments
`(#: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>="))
#t))
(add-before 'check 'prepare-for-tests
(lambda _
;; Find the 'gl' command.
(rename-file "gl.py" "gl")
(setenv "PATH" (string-append (getcwd) ":" (getenv "PATH")))
#~(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")))
(replace 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(git (assoc-ref inputs "git")))
(wrap-program (string-append out "/bin/gl")
`("PATH" ":" prefix (,(string-append git "/bin")))
`("GUIX_PYTHONPATH" ":" =
(,(string-append out "/lib/python"
,(version-major+minor
(package-version python))
"/site-packages:")
,(getenv "GUIX_PYTHONPATH"))))
#t))))))
(native-inputs
`(("git-for-tests" ,git-minimal)))
;; 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")))
(replace 'wrap
(lambda* (#:key inputs #:allow-other-keys)
(let ((out #$output)
(git (search-input-file inputs "bin/git")))
(wrap-program (string-append out "/bin/gl")
`("PATH" ":" prefix (,(dirname git)))
`("GUIX_PYTHONPATH" ":" =
(,(string-append out "/lib/python"
#$(version-major+minor
(package-version python))
"/site-packages:")
,(getenv "GUIX_PYTHONPATH"))))))))))
(native-inputs (list git-minimal))
(inputs
`(("git" ,git-minimal)
("python-clint" ,python-clint)
("python-pygit2" ,python-pygit2)
("python-sh" ,python-sh)))
(list bash-minimal
git-minimal
python-clint
python-pygit2
python-sh))
(home-page "https://gitless.com")
(synopsis "Simple version control system built on top of Git")
(description