ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-26 12:39:36 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Add git-open.

Browse source 
* gnu/packages/version-control.scm (git-open): New variable.

Signed-off-by: Leo Famulari <leo@famulari.name>
This commit is contained in:
EuAndreh 2020-11-23 08:44:35 -03:00 committed by Leo Famulari
parent 21abfe1935
commit d6d5a67e75
No known key found for this signature in database
GPG key ID: 2646FA30BACA7F08
1 changed files with 36 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -14,7 +14,7 @@
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Vasile Dumitrascu <va511e@yahoo.com>
;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2017 André <eu@euandre.org>
;;; Copyright © 2017, 2020 EuAndreh <eu@euandre.org>
;;; Copyright © 2017, 2018, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017 Stefan Reichör <stefan@xsteve.at>
;;; Copyright © 2017, 2020 Oleg Pykhalov <go.wigust@gmail.com>
@ -74,6 +74,7 @@ (define-module (gnu packages version-control)
#:use-module (gnu packages ed)
#:use-module (gnu packages file)
#:use-module (gnu packages flex)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gettext)
#:use-module (gnu packages gl)
#:use-module (gnu packages golang)
@ -2718,6 +2719,40 @@ (define-public git-lfs
file contents on a remote server.")
(license license:expat)))
(define-public git-open
(package
(name "git-open")
(version "2.1.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/paulirish/git-open")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "11n46bngvca5wbdbfcxzjhjbfdbad7sgf7h9gf956cb1q8swsdm0"))))
(build-system trivial-build-system)
(propagated-inputs
`(("xdg-utils" ,xdg-utils)))
(arguments
`(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(let ((source (assoc-ref %build-inputs "source"))
(out (assoc-ref %outputs "out")))
(mkdir-p (string-append out "/bin"))
(copy-file (string-append source "/git-open")
(string-append out "/bin/git-open"))
#t))))
(home-page "https://github.com/paulirish/git-open")
(synopsis "Open a Git repository's homepage from the command-line")
(description
"@code{git open} opens the repository's website from the command-line,
guessing the URL pattern from the @code{origin} remote.")
(license license:expat)))
(define-public tla
(package
(name "gnu-arch")