gnu/packages/version-control.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
   3 ;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com>
   4 ;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
   5 ;;; Copyright © 2013, 2014 Andreas Enge <andreas@enge.fr>
   6 ;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org>
   7 ;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org>
   8 ;;; Copyright © 2014, 2016, 2019 Eric Bavier <bavier@member.fsf.org>
   9 ;;; Copyright © 2015, 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
  10 ;;; Copyright © 2015, 2018 Kyle Meyer <kyle@kyleam.com>
  11 ;;; Copyright © 2015, 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
  12 ;;; Copyright © 2016, 2017 Leo Famulari <leo@famulari.name>
  13 ;;; Copyright © 2016, 2017, 2018 ng0 <ng0@n0.is>
  14 ;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
  15 ;;; Copyright © 2017 Vasile Dumitrascu <va511e@yahoo.com>
  16 ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
  17 ;;; Copyright © 2017 André <eu@euandre.org>
  18 ;;; Copyright © 2017, 2018 Marius Bakke <mbakke@fastmail.com>
  19 ;;; Copyright © 2017 Stefan Reichör <stefan@xsteve.at>
  20 ;;; Copyright © 2017 Oleg Pykhalov <go.wigust@gmail.com>
  21 ;;; Copyright © 2018 Sou Bunnbu <iyzsong@member.fsf.org>
  22 ;;; Copyright © 2018 Christopher Baines <mail@cbaines.net>
  23 ;;; Copyright © 2018 Timothy Sample <samplet@ngyro.com>
  24 ;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net>
  25 ;;; Copyright © 2019 Jovany Leandro G.C <bit4bit@riseup.net>
  26 ;;; Copyright © 2019 Kei Kebreau <kkebreau@posteo.net>
  27 ;;; Copyright © 2019 Alex Griffin <a@ajgrf.com>
  28 ;;; Copyright © 2020 Roel Janssen <roel@gnu.org>
  29 ;;;
  30 ;;; This file is part of GNU Guix.
  31 ;;;
  32 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  33 ;;; under the terms of the GNU General Public License as published by
  34 ;;; the Free Software Foundation; either version 3 of the License, or (at
  35 ;;; your option) any later version.
  36 ;;;
  37 ;;; GNU Guix is distributed in the hope that it will be useful, but
  38 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  39 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  40 ;;; GNU General Public License for more details.
  41 ;;;
  42 ;;; You should have received a copy of the GNU General Public License
  43 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  44
  45 (define-module (gnu packages version-control)
  46   #:use-module ((guix licenses) #:prefix license:)
  47   #:use-module (guix utils)
  48   #:use-module (guix packages)
  49   #:use-module (guix download)
  50   #:use-module (guix git-download)
  51   #:use-module (guix build-system cmake)
  52   #:use-module (guix build-system gnu)
  53   #:use-module (guix build-system go)
  54   #:use-module (guix build-system python)
  55   #:use-module (guix build-system trivial)
  56   #:use-module (gnu packages apr)
  57   #:use-module (gnu packages autotools)
  58   #:use-module (gnu packages documentation)
  59   #:use-module (gnu packages base)
  60   #:use-module (gnu packages bash)
  61   #:use-module (gnu packages bison)
  62   #:use-module (gnu packages boost)
  63   #:use-module (gnu packages check)
  64   #:use-module (gnu packages cook)
  65   #:use-module (gnu packages curl)
  66   #:use-module (gnu packages docbook)
  67   #:use-module (gnu packages ed)
  68   #:use-module (gnu packages file)
  69   #:use-module (gnu packages flex)
  70   #:use-module (gnu packages gettext)
  71   #:use-module (gnu packages gl)
  72   #:use-module (gnu packages groff)
  73   #:use-module (gnu packages guile)
  74   #:use-module (gnu packages image)
  75   #:use-module (gnu packages linux)
  76   #:use-module (gnu packages mail)
  77   #:use-module (gnu packages maths)
  78   #:use-module (gnu packages nano)
  79   #:use-module (gnu packages ncurses)
  80   #:use-module (gnu packages ssh)
  81   #:use-module (gnu packages web)
  82   #:use-module (gnu packages openstack)
  83   #:use-module (gnu packages pcre)
  84   #:use-module (gnu packages perl)
  85   #:use-module (gnu packages perl-check)
  86   #:use-module (gnu packages pkg-config)
  87   #:use-module (gnu packages python)
  88   #:use-module (gnu packages python-web)
  89   #:use-module (gnu packages python-xyz)
  90   #:use-module (gnu packages readline)
  91   #:use-module (gnu packages rsync)
  92   #:use-module (gnu packages sqlite)
  93   #:use-module (gnu packages admin)
  94   #:use-module (gnu packages xml)
  95   #:use-module (gnu packages emacs)
  96   #:use-module (gnu packages compression)
  97   #:use-module (gnu packages sdl)
  98   #:use-module (gnu packages swig)
  99   #:use-module (gnu packages sync)
 100   #:use-module (gnu packages tcl)
 101   #:use-module (gnu packages textutils)
 102   #:use-module (gnu packages time)
 103   #:use-module (gnu packages tls)
 104   #:use-module (gnu packages)
 105   #:use-module (ice-9 match)
 106   #:use-module (srfi srfi-1))
 107
 108 (define-public bazaar
 109   (package
 110     (name "bazaar")
 111     (version "2.7.0")
 112     (source
 113      (origin
 114       (method url-fetch)
 115       (uri (string-append "https://launchpad.net/bzr/"
 116                           (version-major+minor version) "/" version
 117                           "/+download/bzr-" version ".tar.gz"))
 118       (patches (search-patches "bazaar-CVE-2017-14176.patch"))
 119       (sha256
 120        (base32
 121         "1cysix5k3wa6y7jjck3ckq3abls4gvz570s0v0hxv805nwki4i8d"))))
 122     (build-system python-build-system)
 123     (inputs
 124      ;; Note: 'tools/packaging/lp-upload-release' and 'tools/weavemerge.sh'
 125      ;; require Zsh.
 126      `(("gettext" ,gettext-minimal)))
 127     (arguments
 128      `(#:tests? #f ; no test target
 129        #:python ,python-2   ; Python 3 apparently not yet supported, see
 130                             ; https://answers.launchpad.net/bzr/+question/229048
 131        #:phases
 132        (modify-phases %standard-phases
 133          (add-after 'unpack 'fix-mandir
 134            (lambda _
 135              (substitute* "setup.py"
 136                           (("man/man1") "share/man/man1"))
 137              #t)))))
 138     (home-page "https://gnu.org/software/bazaar")
 139     (synopsis "Version control system supporting both distributed and centralized workflows")
 140     (description
 141      "GNU Bazaar is a version control system that allows you to record
 142 changes to project files over time.  It supports both a distributed workflow
 143 as well as the classic centralized workflow.")
 144     (license license:gpl2+)))
 145
 146 (define-public git
 147   (package
 148    (name "git")
 149    ;; XXX When updating Git, check if the special 'git-source' input to cgit
 150    ;; needs to be updated as well.
 151    (version "2.25.0")
 152    (source (origin
 153             (method url-fetch)
 154             (uri (string-append "mirror://kernel.org/software/scm/git/git-"
 155                                 version ".tar.xz"))
 156             (sha256
 157              (base32
 158               "1l58v42aazj0x9276gk8r9mwyl9pgp9w99aakz4xfhzv7wd2jq60"))))
 159    (build-system gnu-build-system)
 160    (native-inputs
 161     `(("native-perl" ,perl)
 162       ("gettext" ,gettext-minimal)
 163       ("git-manpages"
 164        ,(origin
 165           (method url-fetch)
 166           (uri (string-append
 167                 "mirror://kernel.org/software/scm/git/git-manpages-"
 168                 version ".tar.xz"))
 169           (sha256
 170            (base32
 171             "1gf8b1k6i4dlwskwq7dd2vz9bzc3m1qnknj9daq2vp39vmxpg5nk"))))
 172       ;; For subtree documentation.
 173       ("asciidoc" ,asciidoc)
 174       ("docbook-xsl" ,docbook-xsl)
 175       ("xmlto" ,xmlto)))
 176    (inputs
 177     `(("curl" ,curl)
 178       ("expat" ,expat)
 179       ("openssl" ,openssl)
 180       ("perl" ,perl)
 181       ("python" ,python-2) ; CAVEAT: incompatible with python-3 according to INSTALL
 182       ("zlib" ,zlib)
 183
 184       ;; Note: we keep this in inputs rather than native-inputs to work around
 185       ;; a problem in 'patch-shebangs'; see <https://bugs.gnu.org/31952>.
 186       ("bash-for-tests" ,bash)
 187
 188       ;; For PCRE support in git grep (USE_LIBPCRE2).
 189       ("pcre" ,pcre2)
 190
 191       ;; For 'gitweb.cgi'.
 192       ("perl-cgi" ,perl-cgi)
 193
 194       ;; For 'git-svn'.
 195       ("subversion" ,subversion)
 196       ("perl-term-readkey" ,perl-term-readkey)
 197
 198       ;; For 'git-send-email'.
 199       ("perl-authen-sasl" ,perl-authen-sasl)
 200       ("perl-net-smtp-ssl" ,perl-net-smtp-ssl)
 201       ("perl-io-socket-ssl" ,perl-io-socket-ssl)
 202
 203       ;; For 'git gui', 'gitk', and 'git citool'.
 204       ("tcl" ,tcl)
 205       ("tk" ,tk)))
 206    (outputs '("out"                               ; the core
 207               "send-email"                        ; for git-send-email
 208               "svn"                               ; git-svn
 209               "credential-netrc"                  ; git-credential-netrc
 210               "subtree"                           ; git-subtree
 211               "gui"))                             ; gitk, git gui
 212    (arguments
 213     `(#:make-flags `("V=1"                        ;more verbose compilation
 214
 215                      ,(string-append "SHELL_PATH="
 216                                      (assoc-ref %build-inputs "bash")
 217                                      "/bin/sh")
 218
 219                      ;; Tests require a bash with completion support.
 220                      ,(string-append "TEST_SHELL_PATH="
 221                                      (assoc-ref %build-inputs "bash-for-tests")
 222                                      "/bin/bash")
 223
 224                      "USE_LIBPCRE2=yes"
 225
 226                      ;; By default 'make install' creates hard links for
 227                      ;; things in 'libexec/git-core', which leads to huge
 228                      ;; nars; see <https://bugs.gnu.org/21949>.
 229                      "NO_INSTALL_HARDLINKS=indeed")
 230
 231       ;; Make sure the full bash does not end up in the final closure.
 232       #:disallowed-references (,bash)
 233
 234       #:test-target "test"
 235
 236       ;; Tests fail randomly when parallel: <https://bugs.gnu.org/29512>.
 237       #:parallel-tests? #f
 238
 239       ;; The explicit --with-tcltk forces the build system to hardcode the
 240       ;; absolute file name to 'wish'.
 241       #:configure-flags (list (string-append "--with-tcltk="
 242                                              (assoc-ref %build-inputs "tk")
 243                                              "/bin/wish8.6")) ; XXX
 244
 245       #:modules ((srfi srfi-1)
 246                  (srfi srfi-26)
 247                  ,@%gnu-build-system-modules)
 248       #:phases
 249       (modify-phases %standard-phases
 250         (add-after 'unpack 'modify-PATH
 251           (lambda* (#:key inputs #:allow-other-keys)
 252             (let ((path (string-split (getenv "PATH") #\:))
 253                   (bash-full (assoc-ref inputs "bash-for-tests")))
 254               ;; Drop the test bash from PATH so that (which "sh") and
 255               ;; similar does the right thing.
 256               (setenv "PATH" (string-join
 257                               (remove (cut string-prefix? bash-full <>) path)
 258                               ":"))
 259               #t)))
 260         (add-after 'configure 'patch-makefiles
 261           (lambda _
 262             (substitute* "Makefile"
 263               (("/usr/bin/perl") (which "perl"))
 264               (("/usr/bin/python") (which "python")))
 265             #t))
 266         (add-after 'configure 'add-PM.stamp
 267           (lambda _
 268             ;; Add the "PM.stamp" to avoid "no rule to make target".
 269             (call-with-output-file "perl/PM.stamp" (const #t))
 270             #t))
 271         (add-after 'build 'build-subtree
 272           (lambda* (#:key inputs #:allow-other-keys)
 273             (with-directory-excursion "contrib/subtree"
 274               (substitute* "Makefile"
 275                 ;; Apparently `xmlto' does not bother to looks up the stylesheets
 276                 ;; specified in the XML, unlike the above substitution.  Instead it
 277                 ;; uses a hard-coded URL.  Work around it here, but if this is
 278                 ;; common perhaps we should hardcode this path in xmlto itself.
 279                 (("\\$\\(XMLTO\\) -m \\$\\(MANPAGE_XSL\\) man")
 280                  (string-append "$(XMLTO) -x "
 281                                 (string-append (assoc-ref inputs "docbook-xsl")
 282                                                "/xml/xsl/docbook-xsl-"
 283                                                ,(package-version docbook-xsl))
 284                                 "/manpages/docbook.xsl -m $(MANPAGE_XSL) man")))
 285               (invoke "make")
 286               (invoke "make" "install")
 287               (invoke "make" "install-doc")
 288               (substitute* "git-subtree"
 289                 (("/bin/sh") (which "sh"))))
 290             #t))
 291         (add-before 'check 'patch-tests
 292           (lambda _
 293             (let ((store-directory (%store-directory)))
 294               ;; These files contain some funny bytes that Guile is unable
 295               ;; to decode for shebang patching. Just delete them.
 296               (for-each delete-file '("t/t4201-shortlog.sh"
 297                                       "t/t7813-grep-icase-iso.sh"))
 298               ;; Many tests contain inline shell scripts (hooks etc).
 299               (substitute* (find-files "t" "\\.sh$")
 300                 (("#!/bin/sh") (string-append "#!" (which "sh"))))
 301               ;; Un-do shebang patching here to prevent checksum mismatch.
 302               (substitute* '("t/t4034/perl/pre" "t/t4034/perl/post")
 303                 (("^#!.*/bin/perl") "#!/usr/bin/perl"))
 304               (substitute* "t/t5003-archive-zip.sh"
 305                 (("cp /bin/sh") (string-append "cp " (which "sh"))))
 306               (substitute* "t/t6030-bisect-porcelain.sh"
 307                 (("\"/bin/sh\"") (string-append "\"" (which "sh") "\"")))
 308               ;; FIXME: This test runs `git commit` with a bogus EDITOR
 309               ;; and empty commit message, but does not fail the way it's
 310               ;; expected to. The test passes when invoked interactively.
 311               (substitute* "t/t7508-status.sh"
 312                 (("\tcommit_template_commented") "\ttrue"))
 313               ;; More checksum mismatches due to odd shebangs.
 314               (substitute* "t/t9100-git-svn-basic.sh"
 315                 (((string-append "\"#!" store-directory ".*/bin/sh")) "\"#!/bin/sh") )
 316               (substitute* "t/t9300-fast-import.sh"
 317                 (((string-append "\t#!" store-directory ".*/bin/sh")) "\t#!/bin/sh")
 318                 (((string-append "'#!" store-directory ".*/bin/sh")) "'#!/bin/sh"))
 319               ;; FIXME: Some hooks fail with "basename: command not found".
 320               ;; See 't/trash directory.t9164.../svn-hook.log'.
 321               (delete-file "t/t9164-git-svn-dcommit-concurrent.sh")
 322
 323               ;; XXX: These tests fail intermittently for unknown reasons:
 324               ;; <https://bugs.gnu.org/29546>.
 325               (for-each delete-file
 326                         '("t/t9128-git-svn-cmd-branch.sh"
 327                           "t/t9167-git-svn-cmd-branch-subproject.sh"
 328                           "t/t9141-git-svn-multiple-branches.sh"))
 329               #t)))
 330         (add-after 'install 'install-shell-completion
 331           (lambda* (#:key outputs #:allow-other-keys)
 332             (let* ((out         (assoc-ref outputs "out"))
 333                    (completions (string-append out "/etc/bash_completion.d")))
 334               ;; TODO: Install the tcsh and zsh completions in the right place.
 335               (mkdir-p completions)
 336               (copy-file "contrib/completion/git-completion.bash"
 337                          (string-append completions "/git"))
 338               #t)))
 339         (add-after 'install 'install-credential-netrc
 340           (lambda* (#:key outputs #:allow-other-keys)
 341             (let* ((netrc (assoc-ref outputs "credential-netrc")))
 342               (install-file "contrib/credential/netrc/git-credential-netrc"
 343                             (string-append netrc "/bin"))
 344               ;; Previously, Git.pm was automatically found by netrc.
 345               ;; Perl 5.26 changed how it locates modules so that @INC no
 346               ;; longer includes the current working directory (the Perl
 347               ;; community calls this "dotless @INC").
 348               (wrap-program (string-append netrc "/bin/git-credential-netrc")
 349                 `("PERL5LIB" ":" prefix
 350                   (,(string-append (assoc-ref outputs "out") "/share/perl5"))))
 351               #t)))
 352         (add-after 'install 'install-subtree
 353           (lambda* (#:key outputs #:allow-other-keys)
 354             (let ((subtree (assoc-ref outputs "subtree")))
 355               (install-file "contrib/subtree/git-subtree"
 356                             (string-append subtree "/bin"))
 357               (install-file "contrib/subtree/git-subtree.1"
 358                             (string-append subtree "/share/man/man1"))
 359               #t)))
 360         (add-after 'install 'split
 361           (lambda* (#:key inputs outputs #:allow-other-keys)
 362             ;; Split the binaries to the various outputs.
 363             (let* ((out      (assoc-ref outputs "out"))
 364                    (se       (assoc-ref outputs "send-email"))
 365                    (svn      (assoc-ref outputs "svn"))
 366                    (gui      (assoc-ref outputs "gui"))
 367                    (gitk     (string-append out "/bin/gitk"))
 368                    (gitk*    (string-append gui "/bin/gitk"))
 369                    (git-gui  (string-append out "/libexec/git-core/git-gui"))
 370                    (git-gui* (string-append gui "/libexec/git-core/git-gui"))
 371                    (git-cit  (string-append out "/libexec/git-core/git-citool"))
 372                    (git-cit* (string-append gui "/libexec/git-core/git-citool"))
 373                    (git-se   (string-append out "/libexec/git-core/git-send-email"))
 374                    (git-se*  (string-append se  "/libexec/git-core/git-send-email"))
 375                    (git-svn  (string-append out "/libexec/git-core/git-svn"))
 376                    (git-svn* (string-append svn "/libexec/git-core/git-svn"))
 377                    (git-sm   (string-append out
 378                                             "/libexec/git-core/git-submodule")))
 379               (mkdir-p (string-append gui "/bin"))
 380               (mkdir-p (string-append gui "/libexec/git-core"))
 381               (mkdir-p (string-append se  "/libexec/git-core"))
 382               (mkdir-p (string-append svn "/libexec/git-core"))
 383
 384               (for-each (lambda (old new)
 385                           (copy-file old new)
 386                           (delete-file old)
 387                           (chmod new #o555))
 388                         (list gitk git-gui git-cit git-se git-svn)
 389                         (list gitk* git-gui* git-cit* git-se* git-svn*))
 390
 391               ;; Tell 'git-svn' where Subversion and perl-term-readkey are.
 392               (wrap-program git-svn*
 393                 `("PATH" ":" prefix
 394                   (,(string-append (assoc-ref inputs "subversion")
 395                                    "/bin")))
 396                 `("PERL5LIB" ":" prefix
 397                   ,(map (lambda (i) (string-append (assoc-ref inputs i)
 398                                                    "/lib/perl5/site_perl"))
 399                         '("subversion" "perl-term-readkey")))
 400
 401                 ;; XXX: The .so for SVN/Core.pm lacks a RUNPATH, so
 402                 ;; help it find 'libsvn_client-1.so'.
 403                 `("LD_LIBRARY_PATH" ":" prefix
 404                   (,(string-append (assoc-ref inputs "subversion")
 405                                    "/lib"))))
 406
 407               ;; Tell 'git-send-email' where perl modules are.
 408               (wrap-program git-se*
 409                 `("PERL5LIB" ":" prefix
 410                   ,(map (lambda (o) (string-append o "/lib/perl5/site_perl"))
 411                         (list
 412                          ,@(transitive-input-references
 413                             'inputs
 414                             (map (lambda (l)
 415                                    (assoc l (package-inputs this-package)))
 416                                  '("perl-authen-sasl"
 417                                    "perl-net-smtp-ssl"
 418                                    "perl-io-socket-ssl")))))))
 419
 420               ;; Tell 'gitweb.cgi' where perl modules are.
 421               (wrap-program (string-append out "/share/gitweb/gitweb.cgi")
 422                 `("PERL5LIB" ":" prefix
 423                   ,(map (lambda (o) (string-append o "/lib/perl5/site_perl"))
 424                         (list
 425                          ,@(transitive-input-references
 426                             'inputs
 427                             (map (lambda (l)
 428                                    (assoc l (package-inputs this-package)))
 429                                  '("perl-cgi")))))))
 430
 431               ;; Tell 'git-submodule' where Perl is.
 432               (wrap-program git-sm
 433                 `("PATH" ":" prefix
 434                   (,(string-append (assoc-ref inputs "perl")
 435                                    "/bin"))))
 436
 437               #t)))
 438         (add-after 'split 'install-man-pages
 439           (lambda* (#:key inputs outputs #:allow-other-keys)
 440             (let* ((out (assoc-ref outputs "out"))
 441                    (man (string-append out "/share/man"))
 442                    (manpages (assoc-ref inputs "git-manpages")))
 443               (mkdir-p man)
 444               (with-directory-excursion man
 445                 (invoke "tar" "xvf" manpages))))))))
 446
 447    (native-search-paths
 448     ;; For HTTPS access, Git needs a single-file certificate bundle, specified
 449     ;; with $GIT_SSL_CAINFO.
 450     (list (search-path-specification
 451            (variable "GIT_SSL_CAINFO")
 452            (file-type 'regular)
 453            (separator #f)                         ;single entry
 454            (files '("etc/ssl/certs/ca-certificates.crt")))
 455           (search-path-specification
 456            (variable "GIT_EXEC_PATH")
 457            (separator #f)                         ;single entry
 458            (files '("libexec/git-core")))))
 459
 460    (synopsis "Distributed version control system")
 461    (description
 462     "Git is a free distributed version control system designed to handle
 463 everything from small to very large projects with speed and efficiency.")
 464    (license license:gpl2)
 465    (home-page "https://git-scm.com/")))
 466
 467 (define-public git-minimal
 468   ;; The size of the closure of 'git-minimal' is two thirds that of 'git'.
 469   ;; Its test suite runs slightly faster and most importantly it doesn't
 470   ;; depend on packages that are expensive to build such as Subversion.
 471   (package
 472     (inherit git)
 473     (name "git-minimal")
 474     (arguments
 475      (substitute-keyword-arguments (package-arguments git)
 476        ((#:phases phases)
 477         `(modify-phases ,phases
 478            (replace 'patch-makefiles
 479              (lambda _
 480                (substitute* "Makefile"
 481                  (("/usr/bin/perl") (which "perl")))
 482                #t))
 483            (delete 'build-subtree)
 484            (delete 'split)
 485            (delete 'install-man-pages)
 486            (delete 'install-subtree)
 487            (delete 'install-credential-netrc)
 488            (add-before 'check 'delete-svn-test
 489              (lambda _
 490                ;; This test cannot run since we are not building 'git-svn'.
 491                (delete-file "t/t9020-remote-svn.sh")
 492                #t))
 493            (add-after 'install 'remove-unusable-perl-commands
 494              (lambda* (#:key outputs #:allow-other-keys)
 495                (let* ((out     (assoc-ref outputs "out"))
 496                       (bin     (string-append out "/bin"))
 497                       (libexec (string-append out "/libexec")))
 498                  (for-each (lambda (file)
 499                              (delete-file (string-append libexec
 500                                                          "/git-core/" file)))
 501                            '("git-svn" "git-cvsimport" "git-archimport"
 502                              "git-cvsserver" "git-request-pull"
 503                              "git-add--interactive" "git-cvsexportcommit"
 504                              "git-instaweb" "git-send-email"))
 505                  (delete-file (string-append bin "/git-cvsserver"))
 506
 507                  ;; These templates typically depend on Perl.  Remove them.
 508                  (delete-file-recursively
 509                   (string-append out "/share/git-core/templates/hooks"))
 510
 511                  ;; Gitweb depends on Perl as well.
 512                  (delete-file-recursively
 513                   (string-append out "/share/gitweb"))
 514                  #t)))))
 515        ((#:make-flags flags)
 516         `(delete "USE_LIBPCRE2=yes" ,flags))
 517        ((#:configure-flags flags)
 518         ''())
 519        ((#:disallowed-references lst '())
 520         `(,perl ,@lst))))
 521     (outputs '("out"))
 522     (native-inputs
 523      `(("native-perl" ,perl)
 524        ("gettext" ,gettext-minimal)))
 525     (inputs
 526      `(("curl" ,curl)                             ;for HTTP(S) access
 527        ("expat" ,expat)                           ;for 'git push' over HTTP(S)
 528        ("openssl" ,openssl)
 529        ("perl" ,perl)
 530        ("zlib" ,zlib)
 531        ("bash-for-tests" ,bash)))))
 532
 533 (define-public libgit2
 534   (package
 535     (name "libgit2")
 536     (version "0.28.4")
 537     (source (origin
 538               (method git-fetch)
 539               (uri (git-reference
 540                     (url "https://github.com/libgit2/libgit2.git")
 541                     (commit (string-append "v" version))))
 542               (file-name (git-file-name name version))
 543               (sha256
 544                (base32
 545                 "171b25aym4q88bidc4c76y4l6jmdwifm3q9zjqsll0wjhlkycfy1"))
 546               (patches (search-patches "libgit2-avoid-python.patch"
 547                                        "libgit2-mtime-0.patch"))
 548
 549               ;; Remove bundled software.
 550               (snippet '(begin
 551                           (delete-file-recursively "deps")
 552                           #t))
 553               (modules '((guix build utils)))))
 554     (build-system cmake-build-system)
 555     (outputs '("out" "debug"))
 556     (arguments
 557      `(#:configure-flags '("-DUSE_SHA1DC=ON") ; SHA-1 collision detection
 558        #:phases
 559        (modify-phases %standard-phases
 560          (add-after 'unpack 'fix-hardcoded-paths
 561            (lambda _
 562              (substitute* "tests/repo/init.c"
 563                (("#!/bin/sh") (string-append "#!" (which "sh"))))
 564              (substitute* "tests/clar/fs.h"
 565                (("/bin/cp") (which "cp"))
 566                (("/bin/rm") (which "rm")))
 567              #t))
 568          (add-after 'unpack 'make-git-checkout-writable
 569            (lambda _
 570              (for-each make-file-writable (find-files "."))
 571              #t))
 572          ;; Run checks more verbosely.
 573          (replace 'check
 574            (lambda _ (invoke "./libgit2_clar" "-v" "-Q"))))))
 575     (inputs
 576      `(("libssh2" ,libssh2)
 577        ("http-parser" ,http-parser)))
 578     (native-inputs
 579      `(("guile" ,guile-2.2)
 580        ("pkg-config" ,pkg-config)))
 581     (propagated-inputs
 582      ;; These two libraries are in 'Requires.private' in libgit2.pc.
 583      `(("openssl" ,openssl)
 584        ("zlib" ,zlib)))
 585     (home-page "https://libgit2.github.com/")
 586     (synopsis "Library providing Git core methods")
 587     (description
 588      "Libgit2 is a portable, pure C implementation of the Git core methods
 589 provided as a re-entrant linkable library with a solid API, allowing you to
 590 write native speed custom Git applications in any language with bindings.")
 591     ;; GPLv2 with linking exception
 592     (license license:gpl2)))
 593
 594 (define-public git-crypt
 595   (package
 596     (name "git-crypt")
 597     (version "0.5.0")
 598     (source
 599      (origin
 600        (method git-fetch)
 601        (uri (git-reference
 602              (url "https://github.com/AGWA/git-crypt.git")
 603              (commit version)))
 604        (file-name (git-file-name name version))
 605        (sha256
 606         (base32 "1x9209n3k49k998saadr2d0lmvs01smjinx7gzzyjdwj9l904sii"))))
 607     (build-system gnu-build-system)
 608     (inputs
 609      `(("git" ,git)
 610        ("openssl" ,openssl)))
 611     (arguments
 612      `(#:tests? #f ; No tests.
 613        #:phases
 614        (modify-phases %standard-phases
 615          (delete 'configure)
 616          (replace 'build
 617            (lambda _
 618              (invoke "make")))
 619          (replace 'install
 620            (lambda* (#:key outputs #:allow-other-keys)
 621              (let ((out (assoc-ref outputs "out")))
 622                (invoke "make" "install"
 623                        (string-append "PREFIX=" out))))))))
 624     (home-page "https://www.agwa.name/projects/git-crypt")
 625     (synopsis "Transparent encryption of files in a git repository")
 626     (description "git-crypt enables transparent encryption and decryption of
 627 files in a git repository.  Files which you choose to protect are encrypted when
 628 committed, and decrypted when checked out.  git-crypt lets you freely share a
 629 repository containing a mix of public and private content.  git-crypt gracefully
 630 degrades, so developers without the secret key can still clone and commit to a
 631 repository with encrypted files.  This lets you store your secret material (such
 632 as keys or passwords) in the same repository as your code, without requiring you
 633 to lock down your entire repository.")
 634     (license license:gpl3+)))
 635
 636 (define-public git-remote-gcrypt
 637   (package
 638    (name "git-remote-gcrypt")
 639    (version "1.0.3")
 640    (source (origin
 641              (method git-fetch)
 642              (uri (git-reference
 643                    (url "https://git.spwhitton.name/git-remote-gcrypt")
 644                    (commit version)))
 645              (file-name (string-append name "-" version "-checkout"))
 646              (sha256
 647               (base32
 648                "1vay3204729c7wajgn3nxf0s0hzwpdrw14pl6kd8w2ss25gvw2k1"))))
 649    (build-system trivial-build-system)
 650    (arguments
 651     `(#:modules ((guix build utils))
 652       #:builder (begin
 653                   (use-modules (guix build utils))
 654                   (let* ((source (assoc-ref %build-inputs "source"))
 655                          (output (assoc-ref %outputs "out"))
 656                          (bindir (string-append output "/bin")))
 657                     (install-file (string-append source "/git-remote-gcrypt")
 658                                   bindir)
 659                     #t))))
 660    (home-page "https://spwhitton.name/tech/code/git-remote-gcrypt/")
 661    (synopsis "Whole remote repository encryption")
 662    (description "git-remote-gcrypt is a Git remote helper to push and pull from
 663 repositories encrypted with GnuPG.  It works with the standard Git transports,
 664 including repository hosting services like GitLab.
 665
 666 Remote helper programs are invoked by Git to handle network transport.  This
 667 helper handles @code{gcrypt:} URLs that access a remote repository encrypted
 668 with GPG, using our custom format.
 669
 670 Supported locations are local, @code{rsync://} and @code{sftp://}, where the
 671 repository is stored as a set of files, or instead any Git URL where gcrypt
 672 will store the same representation in a Git repository, bridged over arbitrary
 673 Git transport.
 674
 675 The aim is to provide confidential, authenticated Git storage and
 676 collaboration using typical untrusted file hosts or services.")
 677    (license license:gpl3+)))
 678
 679 (define-public cgit
 680   (package
 681     (name "cgit")
 682     ;; Update the ‘git-source’ input as well.
 683     (version "1.2.2")
 684     (source (origin
 685               (method url-fetch)
 686               (uri (string-append
 687                     "https://git.zx2c4.com/cgit/snapshot/cgit-"
 688                     version ".tar.xz"))
 689               (sha256
 690                (base32
 691                 "0dmjsisigjz5k4gw7gm55qhm3wazzbm4cg7a5dwf0gqg9nacx5rz"))))
 692     (build-system gnu-build-system)
 693     (arguments
 694      '(#:tests? #f ; XXX: fail to build the in-source git.
 695        #:test-target "test"
 696        #:make-flags '("CC=gcc" "SHELL_PATH=sh")
 697        #:phases
 698        (modify-phases %standard-phases
 699          (add-after 'unpack 'unpack-git
 700            (lambda* (#:key inputs #:allow-other-keys)
 701              ;; Unpack the source of git into the 'git' directory.
 702              (invoke "tar" "--strip-components=1" "-C" "git" "-xf"
 703                      (assoc-ref inputs "git-source"))))
 704          (add-after 'unpack 'patch-absolute-file-names
 705            (lambda* (#:key inputs #:allow-other-keys)
 706              (define (quoted-file-name input path)
 707                (string-append "\"" input path "\""))
 708              (substitute* "ui-snapshot.c"
 709                (("\"gzip\"")
 710                 (quoted-file-name (assoc-ref inputs "gzip") "/bin/gzip"))
 711                (("\"bzip2\"")
 712                 (quoted-file-name (assoc-ref inputs "bzip2") "/bin/bzip2"))
 713                (("\"xz\"")
 714                 (quoted-file-name (assoc-ref inputs "xz") "/bin/xz")))
 715
 716              (substitute* "filters/about-formatting.sh"
 717                (("$\\(dirname $0\\)") (string-append (assoc-ref outputs "out")
 718                                                      "/lib/cgit/filters"))
 719                (("\\| tr") (string-append "| " (which "tr"))))
 720
 721              (substitute* "filters/html-converters/txt2html"
 722                (("sed") (which "sed")))
 723
 724              (substitute* "filters/html-converters/man2html"
 725                (("groff") (which "groff")))
 726
 727              (substitute* "filters/html-converters/rst2html"
 728                (("rst2html\\.py") (which "rst2html.py")))
 729
 730              #t))
 731          (delete 'configure) ; no configure script
 732          (add-after 'build 'build-man
 733            (lambda* (#:key make-flags #:allow-other-keys)
 734              (apply invoke "make" "doc-man" make-flags)))
 735          (replace 'install
 736            (lambda* (#:key make-flags outputs #:allow-other-keys)
 737              (let ((out (assoc-ref outputs "out")))
 738                (apply invoke
 739                       "make" "install" "install-man"
 740                       (string-append "prefix=" out)
 741                       (string-append "CGIT_SCRIPT_PATH=" out "/share/cgit")
 742                       make-flags)
 743                ;; Move the platform-dependent 'cgit.cgi' into lib to get it
 744                ;; stripped.
 745                (rename-file (string-append out "/share/cgit/cgit.cgi")
 746                             (string-append out "/lib/cgit/cgit.cgi"))
 747                #t)))
 748          (add-after 'install 'wrap-python-scripts
 749            (lambda* (#:key outputs #:allow-other-keys)
 750              (for-each
 751               (lambda (file)
 752                 (wrap-program (string-append (assoc-ref outputs "out")
 753                                              "/lib/cgit/filters/" file)
 754                   `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH")))))
 755               '("syntax-highlighting.py"
 756                 "html-converters/md2html"))
 757              #t)))))
 758     (native-inputs
 759      ;; For building manpage.
 760      `(("asciidoc" ,asciidoc)
 761        ("gzip" ,gzip)
 762        ("bzip2" ,bzip2)
 763        ("xz" ,xz)))
 764     (inputs
 765      `(;; Building cgit requires a Git source tree.
 766        ("git-source"
 767         ,(origin
 768            (method url-fetch)
 769            ;; cgit is tightly bound to git.  Use GIT_VER from the Makefile,
 770            ;; which may not match the current (package-version git).
 771            (uri "mirror://kernel.org/software/scm/git/git-2.25.0.tar.xz")
 772            (sha256
 773             (base32 "1l58v42aazj0x9276gk8r9mwyl9pgp9w99aakz4xfhzv7wd2jq60"))))
 774        ("openssl" ,openssl)
 775        ("groff" ,groff)
 776        ("python" ,python)
 777        ("python-docutils" ,python-docutils)
 778        ("python-markdown" ,python-markdown)
 779        ("python-pygments" ,python-pygments)
 780        ("zlib" ,zlib)))
 781     (home-page "https://git.zx2c4.com/cgit/")
 782     (synopsis "Web frontend for git repositories")
 783     (description
 784      "CGit is an attempt to create a fast web interface for the Git SCM, using
 785 a built-in cache to decrease server I/O pressure.")
 786     (license license:gpl2)))
 787
 788 (define-public python-git-multimail
 789   (package
 790     (name "python-git-multimail")
 791     (version "1.5.0.post1")
 792     (source
 793      (origin
 794        (method url-fetch)
 795        (uri (pypi-uri "git-multimail" version))
 796        (sha256
 797         (base32
 798          "1zkrbsa70anwpw86ysfwalrb7nsr064kygfiyikyq1pl9pcl969y"))))
 799     (build-system python-build-system)
 800     (arguments
 801      '(#:phases
 802        (modify-phases %standard-phases
 803          (add-after 'unpack 'patch
 804            (lambda* (#:key inputs #:allow-other-keys)
 805              (substitute* "git-multimail/git_multimail.py"
 806                (("GIT_EXECUTABLE = 'git'")
 807                 (string-append "GIT_EXECUTABLE = '"
 808                                (assoc-ref inputs "git") "/bin/git"
 809                                "'"))
 810                (("/usr/sbin/sendmail")
 811                 (string-append (assoc-ref inputs "sendmail")
 812                                "/usr/sbin/sendmail")))
 813              #t)))))
 814     (inputs
 815      `(("git" ,git)
 816        ("sendmail" ,sendmail)))
 817     (home-page "https://github.com/git-multimail/git-multimail")
 818     (synopsis "Send notification emails for Git pushes")
 819     (description
 820      "This hook sends emails describing changes introduced by pushes to a Git
 821 repository.  For each reference that was changed, it emits one ReferenceChange
 822 email summarizing how the reference was changed, followed by one Revision
 823 email for each new commit that was introduced by the reference change.
 824
 825 This script is designed to be used as a post-receive hook in a Git
 826 repository")
 827     (license license:gpl2)))
 828
 829 (define-public python-ghp-import
 830   (package
 831     (name "python-ghp-import")
 832     (version "0.5.5")
 833     (source
 834      (origin
 835        (method git-fetch)
 836        (uri (git-reference
 837              (url "https://github.com/davisp/ghp-import.git")
 838              (commit version)))
 839        (file-name (git-file-name name version))
 840        (sha256
 841         (base32 "12pmw3zz3i57ljnm0rxdyjqdyhisbvy18mjwkb3bzp5pgzs2f45c"))))
 842     (build-system python-build-system)
 843     (arguments
 844      `(#:phases (modify-phases %standard-phases
 845                   (add-after 'install 'install-documentation
 846                     (lambda* (#:key outputs #:allow-other-keys)
 847                       (let* ((out (assoc-ref outputs "out"))
 848                              (doc (string-append out "/share/doc"))
 849                              (licenses (string-append out "/share/licenses")))
 850                         (install-file "README.md" doc)
 851                         (install-file "LICENSE" licenses)))))))
 852     (home-page "https://github.com/davisp/ghp-import")
 853     (synopsis "Copy directory to the gh-pages branch")
 854     (description "Script that copies a directory to the gh-pages branch (by
 855 default) of the repository.")
 856
 857     ;; See <https://bugs.gnu.org/27913>.
 858     (license (license:non-copyleft
 859               "https://raw.githubusercontent.com/davisp/ghp-import/master/LICENSE"
 860               "Tumbolia Public License"))))
 861
 862 (define-public python2-ghp-import
 863   (package-with-python2
 864    (strip-python2-variant python-ghp-import)))
 865
 866 (define-public python-gitdb
 867   (package
 868     (name "python-gitdb")
 869     (version "2.0.4")
 870     (source (origin
 871               (method url-fetch)
 872               (uri (pypi-uri "gitdb2" version))
 873               (sha256
 874                (base32
 875                 "0i608q9c47rdsmyac1cn6s0hzwwj7cb957y8fc9wacc5lnw8ak5v"))))
 876     (build-system python-build-system)
 877     (arguments
 878      `(#:phases (modify-phases %standard-phases
 879                   (add-before 'check 'create-test-repository
 880                     (lambda _
 881                       (mkdir "/tmp/testrepo")
 882                       ;; Some tests require a git repository, so create one.
 883                       (with-directory-excursion "/tmp/testrepo"
 884                         (do ((filecount 1 (1+ filecount)))
 885                             ((> filecount 1000))
 886                           (call-with-output-file (string-append
 887                                                   "file" (number->string filecount))
 888                             (lambda (port)
 889                               (format port "~a" filecount))))
 890                         (begin
 891                          (invoke "git" "init")
 892                          (invoke "git" "config" "user.name" "Total Git")
 893                          (invoke "git" "config" "user.email" "git@localhost")
 894                          (invoke "git" "add" "-A")
 895                          (invoke "git" "commit" "-q" "-m" "dummy commit")))
 896
 897                       ;; The repository checkout must be a "bare" clone.
 898                       (invoke "git" "clone" "--bare" "/tmp/testrepo"
 899                               "/tmp/testrepo.git")))
 900                   (replace 'check
 901                     (lambda _
 902                       (setenv "GITDB_TEST_GIT_REPO_BASE" "/tmp/testrepo.git")
 903                       ;; Skip tests that must be run from the gitdb repository.
 904                       (setenv "TRAVIS" "1")
 905                       (invoke "nosetests" "-v"))))))
 906     (propagated-inputs
 907      `(("python-smmap2" ,python-smmap2)))
 908     (native-inputs
 909      `(("git" ,git)
 910        ("python-nose" ,python-nose)))
 911     (home-page "https://github.com/gitpython-developers/gitdb")
 912     (synopsis "Python implementation of the Git object database")
 913     (description
 914      "GitDB allows you to access @dfn{bare} Git repositories for reading and
 915 writing.  It aims at allowing full access to loose objects as well as packs
 916 with performance and scalability in mind.  It operates exclusively on streams,
 917 allowing to handle large objects with a small memory footprint.")
 918     (license license:bsd-3)))
 919
 920 (define-public python2-gitdb
 921   (package-with-python2 python-gitdb))
 922
 923 (define-public python-gitpython
 924   (package
 925     (name "python-gitpython")
 926     (version "2.1.11")
 927     (source (origin
 928               (method url-fetch)
 929               (uri (pypi-uri "GitPython" version))
 930               (sha256
 931                (base32
 932                 "1a357c28dnhgvq3saia7v29r71ynp48l2qp5xsmnc4vgzmdxqdw2"))))
 933     (build-system python-build-system)
 934     (arguments
 935      `(#:tests? #f ;XXX: Tests can only be run within the GitPython repository.
 936        #:phases (modify-phases %standard-phases
 937                   (add-after 'unpack 'embed-git-reference
 938                     (lambda* (#:key inputs #:allow-other-keys)
 939                       (substitute* "git/cmd.py"
 940                         (("git_exec_name = \"git\"")
 941                          (string-append "git_exec_name = \""
 942                                         (assoc-ref inputs "git")
 943                                         "/bin/git\"")))
 944                       #t)))))
 945     (inputs
 946      `(("git" ,git)))
 947     (propagated-inputs
 948      `(("python-gitdb" ,python-gitdb)))
 949     (native-inputs
 950      `(("python-ddt" ,python-ddt)
 951        ("python-nose" ,python-nose)))
 952     (home-page "https://github.com/gitpython-developers/GitPython")
 953     (synopsis "Python library for interacting with Git repositories")
 954     (description
 955      "GitPython is a python library used to interact with Git repositories,
 956 high-level like git-porcelain, or low-level like git-plumbing.
 957
 958 It provides abstractions of Git objects for easy access of repository data,
 959 and additionally allows you to access the Git repository more directly using
 960 either a pure Python implementation, or the faster, but more resource intensive
 961 @command{git} command implementation.")
 962     (license license:bsd-3)))
 963
 964 (define-public python2-gitpython
 965   (package-with-python2 python-gitpython))
 966
 967 (define-public shflags
 968   (package
 969     (name "shflags")
 970     (version "1.2.3")
 971     (source (origin
 972               (method git-fetch)
 973               (uri (git-reference
 974                      (url "https://github.com/kward/shflags.git")
 975                      (commit (string-append "v" version))))
 976               (file-name (git-file-name name version))
 977               (sha256
 978                (base32
 979                 "1ydx0sb6vz9s2dgp5bd64y7fpzh9qvmlfjxrbmzac8saknijrlly"))))
 980     (build-system gnu-build-system)
 981     (arguments
 982      `(#:tests? #f                      ; no tests
 983        #:phases
 984        (modify-phases %standard-phases
 985          (delete 'configure)            ; nothing to configure
 986          (delete 'build)                ; nothing to build
 987          (replace 'install
 988            (lambda* (#:key outputs #:allow-other-keys)
 989              (let* ((out (assoc-ref outputs "out"))
 990                     (src (string-append out "/src")))
 991                (install-file "shflags" src)
 992                #t))))))
 993     (home-page "https://github.com/kward/shflags")
 994     (synopsis "Command-line flags library for shell scripts")
 995     (description
 996      "Shell Flags (shFlags) is a library written to greatly simplify the
 997 handling of command-line flags in Bourne based Unix shell scripts (bash, dash,
 998 ksh, sh, zsh).  Most shell scripts use getopt for flags processing, but the
 999 different versions of getopt on various OSes make writing portable shell
1000 scripts difficult.  shFlags instead provides an API that doesn't change across
1001 shell and OS versions so the script writer can be confident that the script
1002 will work.")
1003     (license license:lgpl2.1)))
1004
1005 (define-public git-flow
1006   (package
1007     (name "git-flow")
1008     ;; This version has not be officially released yet, so we build it
1009     ;; directly from the git repository.
1010     (version "0.4.2-pre")
1011     (source (origin
1012               (method git-fetch)
1013               (uri (git-reference
1014                     (url "https://github.com/nvie/gitflow/")
1015                     (commit "15aab26490facf285acef56cb5d61025eacb3a69")))
1016               (file-name (git-file-name name version))
1017               (sha256
1018                (base32
1019                 "01fs97q76fdfnvmrh2cyjhywcs3pykf1dg58sy0frflnsdzs6prx"))))
1020     (build-system gnu-build-system)
1021     (inputs `(("shflags" ,shflags)))
1022     (arguments
1023      '(#:tests? #f                    ; no tests
1024        #:make-flags (list (string-append "prefix="
1025                                          (assoc-ref %outputs "out")))
1026        #:phases
1027        (modify-phases %standard-phases
1028          (add-after 'unpack 'reset-shFlags-link
1029            (lambda* (#:key inputs #:allow-other-keys)
1030              ;; The link points to a file in the shFlags submodule.
1031              ;; Redirect it to point to our system shFlags.
1032              (let ((shflags (assoc-ref inputs "shflags")))
1033                (begin
1034                  (delete-file "gitflow-shFlags")
1035                  (symlink (string-append shflags "/src/shflags")
1036                           "gitflow-shFlags")))))
1037          (delete 'configure)
1038          (delete 'build))))
1039     (home-page "http://nvie.com/posts/a-successful-git-branching-model/")
1040     (synopsis "Git extensions for Vincent Driessen's branching model")
1041     (description
1042      "Vincent Driessen's branching model is a git branching and release
1043 management strategy that helps developers keep track of features, hotfixes,
1044 and releases in bigger software projects.  The git-flow library of git
1045 subcommands helps automate some parts of the flow to make working with it a
1046 lot easier.")
1047     (license license:bsd-2)))
1048
1049 (define-public stgit
1050   (package
1051     (name "stgit")
1052     (version "0.21")
1053     (source
1054      (origin
1055        (method git-fetch)
1056        (uri (git-reference
1057              (url "https://github.com/ctmarinas/stgit.git")
1058              (commit (string-append "v" version))))
1059        (file-name (git-file-name name version))
1060        (sha256
1061         (base32 "00pmz93znl418lsjwy4mr0chp8i2w27h1xjysa05f62smsv91yyc"))))
1062     (build-system python-build-system)
1063     (native-inputs
1064      `(("perl" ,perl)))
1065     (inputs
1066      `(("git" ,git)))
1067     (arguments
1068      `(#:phases
1069        (modify-phases %standard-phases
1070          (add-after 'unpack 'hard-code-version
1071            (lambda _
1072              ;; setup.py tries to cleverly extract the version number from the
1073              ;; git history, which the source checkout lacks.  Hard-code one.
1074              (substitute* "setup.py"
1075                (("get_ver\\(\\)")
1076                 (format #f "'~a'" ,version)))
1077              #t))
1078          (add-before 'check 'patch-tests
1079            (lambda _
1080              (substitute* (list "t/t1900-mail.sh"
1081                                 "t/t7504-commit-msg-hook.sh")
1082                (("/bin/sh")
1083                 (which "bash")))
1084              #t))
1085          (replace 'check
1086            (lambda _
1087              (invoke "make"
1088                      "PERL_PATH=perl"
1089                      (string-append "SHELL_PATH=" (which "bash"))
1090                      "test"))))))
1091     (home-page "http://procode.org/stgit/")
1092     (synopsis "Stacked Git")
1093     (description
1094      "StGit is a command-line application that provides functionality similar
1095 to Quilt (i.e., pushing/popping patches to/from a stack), but using Git
1096 instead of @command{diff} and @command{patch}.  StGit stores its patches in a
1097 Git repository as normal Git commits, and provides a number of commands to
1098 manipulate them in various ways.")
1099     (license license:gpl2)))
1100
1101 (define-public vcsh
1102   (package
1103     (name "vcsh")
1104     (version "1.20151229")
1105     (source
1106      (origin
1107        (method git-fetch)
1108        (uri (git-reference
1109              (url "https://github.com/RichiH/vcsh.git")
1110              (commit (string-append "v" version))))
1111        (file-name (git-file-name name version))
1112        (sha256
1113         (base32 "1grpj45nbpv4j60vd2kg4rj53zrm0bc0h9l4pfd3c2mwbvywm6ab"))))
1114     (build-system gnu-build-system)
1115     (native-inputs
1116      `(("which" ,which)))
1117     (inputs
1118      `(("git" ,git)
1119        ("perl" ,perl)
1120        ("perl-test-harness" ,perl-test-harness)
1121        ("perl-shell-command" ,perl-shell-command)
1122        ("perl-test-most" ,perl-test-most)))
1123     (arguments
1124      '(#:phases (modify-phases %standard-phases
1125                   (delete 'configure)
1126                   (delete 'build))
1127        #:make-flags (list (string-append "PREFIX="
1128                                          (assoc-ref %outputs "out")))
1129        #:test-target "test"))
1130     (home-page "https://github.com/RichiH/vcsh")
1131     (synopsis "Version control system for @code{$HOME}")
1132     (description
1133      "vcsh version-controls configuration files in several Git repositories,
1134 all in one single directory.  They all maintain their working trees without
1135 clobbering each other or interfering otherwise.  By default, all Git
1136 repositories maintained via vcsh store the actual files in @code{$HOME},
1137 though this can be overridden.")
1138     (license license:gpl2+)))
1139
1140 (define-public git-test-sequence
1141   (let ((commit "48e5a2f5a13a5f30452647237e23362b459b9c76"))
1142     (package
1143       (name "git-test-sequence")
1144       (version (string-append "20140312." (string-take commit 7)))
1145       (source (origin
1146                 (method git-fetch)
1147                 (uri (git-reference
1148                       ;; There are many other scripts in this directory; we
1149                       ;; are interested in just one for this package.
1150                       (url "https://github.com/dustin/bindir")
1151                       (commit commit)))
1152                 (file-name (git-file-name name version))
1153                 (sha256
1154                  (base32
1155                   "1dcq0y16yznbv4k9h8gg90kv1gkn8r8dbvl4m2rpfd7q5nqhn617"))))
1156       (build-system trivial-build-system)
1157       (arguments
1158        `(#:modules ((guix build utils))
1159          #:builder (begin
1160                      (use-modules (guix build utils))
1161                      (let* ((source (assoc-ref %build-inputs "source"))
1162                             (output (assoc-ref %outputs "out"))
1163                             (bindir (string-append output "/bin"))
1164                             (script "git-test-sequence"))
1165                        (install-file (string-append source "/" script)
1166                                      bindir)
1167                        #t))))
1168       (home-page "http://dustin.sallings.org/2010/03/28/git-test-sequence.html")
1169       (synopsis "Run a command over a sequence of commits")
1170       (description
1171        "git-test-sequence is similar to an automated git bisect except it’s
1172 linear.  It will test every change between two points in the DAG.  It will
1173 also walk each side of a merge and test those changes individually.")
1174       (license (license:x11-style "file://LICENSE")))))
1175
1176 (define-public gitolite
1177   (package
1178     (name "gitolite")
1179     (version "3.6.7")
1180     (source
1181      (origin
1182        (method git-fetch)
1183        (uri (git-reference
1184              (url "https://github.com/sitaramc/gitolite.git")
1185              (commit (string-append "v" version))))
1186        (file-name (git-file-name name version))
1187        (sha256
1188         (base32 "0rmyzr66lxh2ildf3h1nh3hh2ndwk21rjdin50r5vhwbdd7jg8vb"))))
1189     (build-system gnu-build-system)
1190     (arguments
1191      '(#:tests? #f ; no tests
1192        #:phases (modify-phases %standard-phases
1193                   (delete 'configure)
1194                   (delete 'build)
1195                   (add-before 'install 'patch-scripts
1196                     (lambda* (#:key inputs #:allow-other-keys)
1197                       (let ((perl (string-append (assoc-ref inputs "perl")
1198                                                  "/bin/perl")))
1199                         ;; This seems to take care of every shell script that
1200                         ;; invokes Perl.
1201                         (substitute* (find-files "." ".*")
1202                           ((" perl -")
1203                            (string-append " " perl " -")))
1204
1205                         (substitute* (find-files "src/triggers" ".*")
1206                           ((" sed ")
1207                            (string-append " " (which "sed") " ")))
1208
1209                         (substitute*
1210                             '("src/triggers/post-compile/update-gitweb-access-list"
1211                               "src/triggers/post-compile/ssh-authkeys-split"
1212                               "src/triggers/upstream")
1213                           ((" grep ")
1214                            (string-append " " (which "grep") " ")))
1215
1216                         ;; Avoid references to the store in authorized_keys.
1217                         ;; This works because gitolite-shell is in the PATH.
1218                         (substitute* "src/triggers/post-compile/ssh-authkeys"
1219                           (("\\$glshell \\$user")
1220                            "gitolite-shell $user"))
1221                         #t)))
1222                   (add-before 'install 'patch-source
1223                     (lambda* (#:key inputs #:allow-other-keys)
1224                       ;; Gitolite uses cat to test the readability of the
1225                       ;; pubkey
1226                       (substitute* "src/lib/Gitolite/Setup.pm"
1227                         (("\"cat ")
1228                          (string-append "\"" (which "cat") " "))
1229                         (("\"ssh-keygen")
1230                          (string-append "\"" (which "ssh-keygen"))))
1231
1232                       (substitute* '("src/lib/Gitolite/Hooks/PostUpdate.pm"
1233                                      "src/lib/Gitolite/Hooks/Update.pm")
1234                         (("/usr/bin/perl")
1235                          (string-append (assoc-ref inputs "perl")
1236                                         "/bin/perl")))
1237
1238                       (substitute* "src/lib/Gitolite/Common.pm"
1239                         (("\"ssh-keygen")
1240                          (string-append "\"" (which "ssh-keygen")))
1241                         (("\"logger\"")
1242                          (string-append "\""
1243                                         (assoc-ref inputs "inetutils")
1244                                         "/bin/logger\"")))
1245
1246                       #t))
1247                   (replace 'install
1248                     (lambda* (#:key outputs #:allow-other-keys)
1249                       (let* ((output (assoc-ref outputs "out"))
1250                              (sharedir (string-append output "/share/gitolite"))
1251                              (bindir (string-append output "/bin")))
1252                         (mkdir-p sharedir)
1253                         (mkdir-p bindir)
1254                         (invoke "./install" "-to" sharedir)
1255                         ;; Create symlinks for executable scripts in /bin.
1256                         (for-each (lambda (script)
1257                                     (symlink (string-append sharedir "/" script)
1258                                              (string-append bindir "/" script)))
1259                                   '("gitolite" "gitolite-shell"))
1260                         #t)))
1261                   (add-after 'install 'wrap-scripts
1262                     (lambda* (#:key inputs outputs #:allow-other-keys)
1263                       (let ((out (assoc-ref outputs "out"))
1264                             (coreutils (assoc-ref inputs "coreutils"))
1265                             (findutils (assoc-ref inputs "findutils"))
1266                             (git (assoc-ref inputs "git")))
1267                         (wrap-program (string-append out "/bin/gitolite")
1268                           `("PATH" ":" prefix
1269                             ,(map (lambda (dir)
1270                                     (string-append dir "/bin"))
1271                                   (list out coreutils findutils git))))
1272                         #t))))))
1273     (inputs
1274      `(("perl" ,perl)
1275        ("coreutils" ,coreutils)
1276        ("findutils" ,findutils)
1277        ("inetutils" ,inetutils)))
1278     ;; git and openssh are propagated because trying to patch the source via
1279     ;; regexp matching is too brittle and prone to false positives.
1280     (propagated-inputs
1281      `(("git" ,git)
1282        ("openssh" ,openssh)))
1283     (home-page "http://gitolite.com")
1284     (synopsis "Git access control layer")
1285     (description
1286      "Gitolite is an access control layer on top of Git, providing fine access
1287 control to Git repositories.")
1288     (license license:gpl2)))
1289
1290 (define-public mercurial
1291   (package
1292     (name "mercurial")
1293     (version "5.2.1")
1294     (source (origin
1295              (method url-fetch)
1296              (uri (string-append "https://www.mercurial-scm.org/"
1297                                  "release/mercurial-" version ".tar.gz"))
1298              (sha256
1299               (base32
1300                "1pxkd37b0a1mi2zakk1hi122lgz1ffy2fxdnbs8acwlqpw55bc8q"))))
1301     (build-system python-build-system)
1302     (arguments
1303      `(#:phases
1304        (modify-phases %standard-phases
1305          (replace 'check
1306            (lambda* (#:key tests? #:allow-other-keys)
1307              (with-directory-excursion "tests"
1308                ;; The following tests are known to fail.
1309                (for-each (lambda (file)
1310                            (delete-file file))
1311                          '("test-extdiff.t"
1312                            "test-hghave.t"
1313                            "test-hgwebdir.t"
1314                            "test-http-branchmap.t"
1315                            "test-logtoprocess.t"
1316                            "test-merge-combination.t"
1317                            "test-nointerrupt.t"
1318                            "test-patchbomb.t"
1319                            "test-pull-bundle.t"
1320                            "test-push-http.t"
1321                            "test-run-tests.t"
1322                            "test-serve.t"
1323                            "test-subrepo-deep-nested-change.t"
1324                            "test-subrepo-recursion.t"
1325                            "test-transplant.t"))
1326                (when tests?
1327                  (invoke "./run-tests.py"
1328                          ;; ‘make check’ does not respect ‘-j’.
1329                          (string-append "-j" (number->string
1330                                               (parallel-job-count)))
1331                          ;; The default time-outs are too low for many systems.
1332                          ;; Raise them generously: Guix enforces its own.
1333                          "--timeout" "86400"
1334                          "--slowtimeout" "86400"
1335                          ;; The test suite takes a long time and produces little
1336                          ;; output by default.  Prevent timeouts due to silence.
1337                          "-v"))
1338                #t))))))
1339     ;; The following inputs are only needed to run the tests.
1340     (native-inputs
1341      `(("python-nose" ,python-nose)
1342        ("unzip" ,unzip)))
1343     (home-page "https://www.mercurial-scm.org/")
1344     (synopsis "Decentralized version control system")
1345     (description
1346      "Mercurial is a free, distributed source control management tool.
1347 It efficiently handles projects of any size
1348 and offers an easy and intuitive interface.")
1349     (license license:gpl2+)))
1350
1351 (define-public neon
1352   (package
1353     (name "neon")
1354     (version "0.30.2")
1355     (source (origin
1356              (method url-fetch)
1357              (uri (string-append "http://www.webdav.org/neon/neon-"
1358                                  version ".tar.gz"))
1359              (sha256
1360               (base32
1361                "1jpvczcx658vimqm7c8my2q41fnmjaf1j03g7bsli6rjxk6xh2yv"))))
1362     (build-system gnu-build-system)
1363     (native-inputs
1364      `(("perl" ,perl)
1365        ("pkg-config" ,pkg-config)))
1366     (inputs
1367      `(("libxml2" ,libxml2)
1368        ("openssl" ,openssl)
1369        ("zlib" ,zlib)))
1370     (arguments
1371      `(;; FIXME: Add tests once reverse address lookup is fixed in glibc, see
1372        ;; https://sourceware.org/bugzilla/show_bug.cgi?id=16475
1373        #:tests? #f
1374        #:configure-flags '("--enable-shared"
1375                            ;; requires libgnutils-config, deprecated
1376                            ;; in gnutls 2.8.
1377                            ; "--with-ssl=gnutls")))
1378                            "--with-ssl=openssl")))
1379     (home-page "http://www.webdav.org/neon/")
1380     (synopsis "HTTP and WebDAV client library")
1381     (description
1382      "Neon is an HTTP and WebDAV client library, with a C interface and the
1383 following features:
1384 @enumerate
1385 @item High-level wrappers for common HTTP and WebDAV operations (GET, MOVE,
1386   DELETE, etc.);
1387 @item low-level interface to the HTTP request/response engine, allowing the use
1388   of arbitrary HTTP methods, headers, etc.;
1389 @item authentication support including Basic and Digest support, along with
1390   GSSAPI-based Negotiate on Unix, and SSPI-based Negotiate/NTLM on Win32;
1391 @item SSL/TLS support using OpenSSL or GnuTLS, exposing an abstraction layer for
1392   verifying server certificates, handling client certificates, and examining
1393   certificate properties, smartcard-based client certificates are also
1394   supported via a PKCS#11 wrapper interface;
1395 @item abstract interface to parsing XML using libxml2 or expat, and wrappers for
1396   simplifying handling XML HTTP response bodies;
1397 @item WebDAV metadata support, wrappers for PROPFIND and PROPPATCH to simplify
1398   property manipulation.
1399 @end enumerate\n")
1400     (license license:gpl2+))) ; for documentation and tests; source under lgpl2.0+
1401
1402 (define-public subversion
1403   (package
1404     (name "subversion")
1405     (version "1.10.6")
1406     (source (origin
1407              (method url-fetch)
1408              (uri
1409                (list
1410                  (string-append "https://archive.apache.org/dist/subversion/"
1411                                 "subversion-" version ".tar.bz2")
1412                  (string-append "https://www-eu.apache.org/dist/subversion/"
1413                                 "subversion-" version ".tar.bz2")))
1414              (sha256
1415               (base32
1416                "19zc215mhpnm92mlyl5jbv57r5zqp6cavr3s2g9yglp6j4kfgj0q"))))
1417     (build-system gnu-build-system)
1418     (arguments
1419      '(#:phases
1420        (modify-phases %standard-phases
1421          (add-after 'configure 'patch-libtool-wrapper-ls
1422            (lambda* (#:key inputs #:allow-other-keys)
1423              ;; This substitution allows tests svnauthz_tests and svnlook_tests
1424              ;; to pass.  These tests execute svnauthz and svnlook through
1425              ;; their libtool wrapper scripts from svn hooks, whose empty
1426              ;; environments cause "ls: command not found" errors.  It would be
1427              ;; nice if this fix ultimately made its way into libtool.
1428              (let ((coreutils (assoc-ref inputs "coreutils")))
1429                (substitute* "libtool"
1430                  (("\\\\`ls") (string-append "\\`" coreutils "/bin/ls")))
1431                #t)))
1432          (add-before 'build 'patch-test-sh
1433            (lambda _
1434              (substitute* "subversion/tests/libsvn_repos/repos-test.c"
1435                (("#!/bin/sh") (string-append "#!" (which "sh"))))
1436              #t))
1437          (add-after 'install 'install-perl-bindings
1438            (lambda* (#:key outputs #:allow-other-keys)
1439              ;; Follow the instructions from 'subversion/bindings/swig/INSTALL'.
1440              (let ((out (assoc-ref outputs "out")))
1441                (invoke "make" "swig-pl-lib")
1442                ;; FIXME: Test failures.
1443                ;; (invoke "make" "check-swig-pl")
1444                (invoke "make" "install-swig-pl-lib")
1445
1446                ;; Set the right installation prefix.
1447                (with-directory-excursion
1448                    "subversion/bindings/swig/perl/native"
1449                  (invoke "perl" "Makefile.PL"
1450                          "NO_PERLLOCAL=1"
1451                          (string-append "PREFIX=" out))
1452                  (invoke "make" "install"
1453                          (string-append "OTHERLDFLAGS="
1454                                         "-Wl,-rpath="
1455                                         out "/lib")))))))))
1456     (native-inputs
1457       `(("pkg-config" ,pkg-config)
1458         ;; For the Perl bindings.
1459         ("swig" ,swig)))
1460     (inputs
1461       `(("apr" ,apr)
1462         ("apr-util" ,apr-util)
1463         ("lz4" ,lz4)
1464         ("serf" ,serf)
1465         ("perl" ,perl)
1466         ("python" ,python-wrapper)
1467         ("sqlite" ,sqlite)
1468         ("utf8proc" ,utf8proc)
1469         ("zlib" ,zlib)))
1470     (home-page "https://subversion.apache.org/")
1471     (synopsis "Revision control system")
1472     (description
1473      "@dfn{Subversion} (svn) exists to be recognized and adopted as a
1474 centralized version control system characterized by its
1475 reliability as a safe haven for valuable data; the simplicity of its model and
1476 usage; and its ability to support the needs of a wide variety of users and
1477 projects, from individuals to large-scale enterprise operations.")
1478     (license license:asl2.0)))
1479
1480 (define-public rcs
1481   (package
1482     (name "rcs")
1483     (version "5.9.4")
1484     (source (origin
1485              (method url-fetch)
1486              (uri (string-append "mirror://gnu/rcs/rcs-"
1487                                  version ".tar.xz"))
1488              (sha256
1489               (base32
1490                "1zsx7bb0rgvvvisiy4zlixf56ay8wbd9qqqcp1a1g0m1gl6mlg86"))
1491              (patches (search-patches "rcs-5.9.4-noreturn.patch"))))
1492     (build-system gnu-build-system)
1493     (native-inputs `(("ed" ,ed)))
1494     (arguments
1495      `(#:phases (modify-phases %standard-phases
1496                   (add-before 'check 'disable-t810
1497                     ;; See https://savannah.gnu.org/bugs/index.php?52288
1498                     ;; Back-porting the fix is non-trivial, so disable for now.
1499                     (lambda _
1500                       (substitute* "tests/Makefile"
1501                         ((" t810 \\\\\n") ""))
1502                      #t)))))
1503     (home-page "https://www.gnu.org/software/rcs/")
1504     (synopsis "Per-file local revision control system")
1505     (description
1506      "RCS is the original Revision Control System.  It works on a
1507 file-by-file basis, in contrast to subsequent version control systems such as
1508 CVS, Subversion, and Git.  This can make it suitable for system
1509 administration files, for example, which are often inherently local to one
1510 machine.")
1511     (license license:gpl3+)))
1512
1513 (define-public cvs
1514   (package
1515     (name "cvs")
1516     (version "1.12.13")
1517     (source (origin
1518              (method url-fetch)
1519              (uri (string-append
1520                    "https://ftp.gnu.org/non-gnu/cvs/source/feature/"
1521                    version "/cvs-" version ".tar.bz2"))
1522              (patches (search-patches "cvs-CVE-2017-12836.patch"))
1523              (sha256
1524               (base32
1525                "0pjir8cwn0087mxszzbsi1gyfc6373vif96cw4q3m1x6p49kd1bq"))))
1526     (build-system gnu-build-system)
1527     (arguments
1528      ;; XXX: The test suite looks flawed, and the package is obsolete anyway.
1529      '(#:tests? #f
1530        #:configure-flags (list "--with-external-zlib")))
1531     (inputs `(("zlib" ,zlib)
1532               ("nano" ,nano)))                    ; the default editor
1533     (home-page "http://cvs.nongnu.org")
1534     (synopsis "Historical centralized version control system")
1535     (description
1536      "CVS is a version control system, an important component of Source
1537 Configuration Management (SCM).  Using it, you can record the history of
1538 sources files, and documents.  It fills a similar role to the free software
1539 RCS, PRCS, and Aegis packages.")
1540     (license license:gpl1+)))
1541
1542 (define-public cvs-fast-export
1543   (package
1544     (name "cvs-fast-export")
1545     (version "1.45")
1546     (source (origin
1547               (method url-fetch)
1548               (uri (string-append "http://www.catb.org/~esr/cvs-fast-export/"
1549                                   "cvs-fast-export-" version ".tar.gz"))
1550               (sha256
1551                (base32
1552                 "19pxg6p0pcgyd2fbnh3wy1kazv6vcfi5lzc2whhdi1w9kj4r9c4z"))))
1553     (build-system gnu-build-system)
1554     (arguments
1555      '(#:phases
1556        (modify-phases %standard-phases
1557          (delete 'configure)            ; no configure script
1558          (add-after 'unpack 'remove-optimizations
1559            (lambda _
1560              ;; Don't optimize for a specific processor architecture.
1561              (substitute* "Makefile"
1562                (("CFLAGS \\+= -march=native") ""))
1563              #t)))
1564        #:parallel-build? #f ; parallel a2x commands fail spectacularly
1565        #:make-flags
1566        (list "CC=gcc" (string-append "prefix?=" (assoc-ref %outputs "out")))))
1567     (inputs `(("git" ,git)))
1568     (native-inputs `(("asciidoc"    ,asciidoc)
1569                      ;; These are needed for the tests.
1570                      ("cvs"    ,cvs)
1571                      ("python" ,python-2)
1572                      ("rcs"    ,rcs)))
1573     (home-page "http://www.catb.org/esr/cvs-fast-export/")
1574     (synopsis "Export an RCS or CVS history as a fast-import stream")
1575     (description "This program analyzes a collection of RCS files in a CVS
1576 repository (or outside of one) and, when possible, emits an equivalent history
1577 in the form of a fast-import stream.  Not all possible histories can be
1578 rendered this way; the program tries to emit useful warnings when it can't.
1579
1580 The program can also produce a visualization of the resulting commit directed
1581 acyclic graph (DAG) in the input format of @uref{http://www.graphviz.org,
1582 Graphviz}.  The package also includes @command{cvssync}, a tool for mirroring
1583 masters from remote CVS hosts.")
1584     (license license:gpl2+)))
1585
1586 (define-public vc-dwim
1587   (package
1588     (name "vc-dwim")
1589     (version "1.9")
1590     (source (origin
1591              (method url-fetch)
1592              (uri (string-append "mirror://gnu/vc-dwim/vc-dwim-"
1593                                  version ".tar.xz"))
1594              (sha256
1595               (base32
1596                "0mf1dd7wdqxsm4fcfinfd7iadzarmzvg747pbsbi32qpavpk8gdf"))))
1597     (build-system gnu-build-system)
1598     (inputs `(("perl" ,perl)))
1599     (native-inputs
1600      `(("emacs" ,emacs-minimal)     ; for `ctags'
1601        ("inetutils" ,inetutils)))   ; for `hostname', used in the tests
1602     (home-page "https://www.gnu.org/software/vc-dwim/")
1603     (synopsis "Version-control-agnostic ChangeLog diff and commit tool")
1604     (description
1605      "The vc-dwim package contains two tools, \"vc-dwim\" and \"vc-chlog\".
1606 vc-dwim is a tool that simplifies the task of maintaining a ChangeLog and
1607 using version control at the same time, for example by printing a reminder
1608 when a file change has been described in the ChangeLog but the file has not
1609 been added to the VC.  vc-chlog scans changed files and generates
1610 standards-compliant ChangeLog entries based on the changes that it detects.")
1611     (license license:gpl3+)))
1612
1613 (define-public diffstat
1614   (package
1615     (name "diffstat")
1616     (version "1.63")
1617     (source (origin
1618               (method url-fetch)
1619               (uri
1620                (list
1621                  (string-append "ftp://invisible-island.net/diffstat/"
1622                                 "diffstat-" version ".tgz")
1623                  (string-append "http://invisible-mirror.net/archives/diffstat/"
1624                                 "diffstat-" version ".tgz")))
1625               (sha256
1626                (base32
1627                 "0vyw200s5dv1257pmrh6c6fdkmw3slyz5szpqfx916xr04sdbpby"))))
1628     (build-system gnu-build-system)
1629     (home-page "https://invisible-island.net/diffstat/")
1630     (synopsis "Make histograms from the output of @command{diff}")
1631     (description
1632      "Diffstat reads the output of @command{diff} and displays a histogram of
1633 the insertions, deletions, and modifications per file.  It is useful for
1634 reviewing large, complex patch files.")
1635     (license (license:x11-style "file://COPYING"))))
1636
1637 (define-public cssc
1638   (package
1639     (name "cssc")
1640     (version "1.4.1")
1641     (source (origin
1642               (method url-fetch)
1643               (uri (string-append "mirror://gnu/" name "/CSSC-"
1644                                   version ".tar.gz"))
1645               (sha256
1646                (base32
1647                 "1vsisqq573xjr2qpn19iwmpqgl3mq03m790akpa4rvj60b4d1gni"))))
1648     (build-system gnu-build-system)
1649     (arguments
1650      `(#:phases
1651        (modify-phases %standard-phases
1652          (add-before 'check 'precheck
1653            (lambda _
1654              (begin
1655                (substitute* "tests/common/test-common"
1656                  (("/bin/pwd") (which "pwd")))
1657
1658                (substitute* "tests/prt/all-512.sh"
1659                  (("/bin/sh") (which "sh")))
1660
1661                ;; XXX: This test has no hope of passing until there is a "nogroup"
1662                ;; entry (or at least some group to which the guix builder does
1663                ;; not belong) in the /etc/group file of the build environment.
1664                ;; Currently we do not have such a group.  Disable this test for now.
1665                (substitute* "tests/Makefile"
1666                  (("test-delta ") ""))))))))
1667     ;; These are needed for the tests
1668     (native-inputs `(("git" ,git)
1669                      ("cvs" ,cvs)))
1670     (home-page "https://www.gnu.org/software/cssc/")
1671     (synopsis "File-based version control like SCCS")
1672     (description  "GNU CSSC provides a replacement for the legacy Unix source
1673 code control system SCCS.  This allows old code still under that system to be
1674 accessed and migrated on modern systems.")
1675     (license license:gpl3+)))
1676
1677 ;; This package can unfortunately work only in -TEST mode, since Aegis
1678 ;; requires that it is installed setuid root.
1679 (define-public aegis
1680   (package
1681     (name "aegis")
1682     (version "4.24")
1683     (source (origin
1684               (method url-fetch)
1685               (uri (string-append "mirror://sourceforge/aegis/aegis/" version
1686                                   "/aegis-" version ".tar.gz"))
1687               (sha256
1688                (base32
1689                 "18s86ssarfmc4l17gbpzybca29m5wa37cbaimdji8czlcry3mcjl"))
1690             (patches (search-patches "aegis-perl-tempdir1.patch"
1691                                      "aegis-perl-tempdir2.patch"
1692                                      "aegis-test-fixup-1.patch"
1693                                      "aegis-test-fixup-2.patch"
1694                                      "aegis-constness-error.patch"))))
1695     (build-system gnu-build-system)
1696     (inputs
1697      `(("e2fsprogs" ,e2fsprogs)
1698        ("curl" ,curl)
1699        ("file" ,file)
1700        ("libxml2" ,libxml2)
1701        ("zlib" ,zlib)
1702        ("gettext" ,gettext-minimal)))
1703     (native-inputs
1704      `(("bison" ,bison)
1705        ("groff" ,groff)
1706        ("perl" ,perl)
1707        ;; Various tests require the following:
1708        ("cvs" ,cvs)
1709        ("flex" ,flex)
1710        ("cook" ,cook)
1711        ("subversion" ,subversion)
1712        ("rcs" ,rcs)
1713        ("ed" ,ed)))
1714     (arguments
1715      `(#:configure-flags (list "--with-no-aegis-configured"
1716                                "--sharedstatedir=/var/com/aegis")
1717        #:parallel-build? #f ; There are some nasty racy rules in the Makefile.
1718        #:phases
1719        (modify-phases %standard-phases
1720          (add-before 'configure 'pre-conf
1721            (lambda _
1722               (substitute* (append '("configure"
1723                                      "etc/check-tar-gz.sh"
1724                                      "etc/patches.sh"
1725                                      "etc/test.sh"
1726                                      "script/aexver.in"
1727                                      "script/aebisect.in"
1728                                      "script/aeintegratq.in"
1729                                      "script/tkaegis.in"
1730                                      "script/test_funcs.in"
1731                                      "web/eg_oss_templ.sh"
1732                                      "web/webiface.html"
1733                                      "libaegis/getpw_cache.cc")
1734                                    (find-files "test" "\\.sh"))
1735                            (("/bin/sh") (which "sh")))
1736               (setenv "SH" (which "sh"))
1737               #t))
1738          (replace 'check
1739            (lambda _
1740              (let ((home (string-append (getcwd) "/my-new-home")))
1741                ;; Some tests need to write to $HOME.
1742                (mkdir home)
1743                (setenv "HOME" home)
1744
1745                ;; This test assumes that flex has been symlinked to "lex".
1746                (substitute* "test/00/t0011a.sh"
1747                  (("type lex")  "type flex"))
1748
1749                ;; XXX Disable tests that fail, for unknown reasons, ‘for now’.
1750                (for-each
1751                 (lambda (test) (substitute* "Makefile"
1752                                  (((string-append "test/" test "\\.ES ")) "")))
1753                 (list "00/t0011a"
1754                       "00/t0049a"
1755                       "01/t0196a"))
1756
1757                ;; The author decided to call the check rule "sure".
1758                (invoke "make" "sure")))))))
1759     (home-page "http://aegis.sourceforge.net")
1760     (synopsis "Project change supervisor")
1761     (description "Aegis is a project change supervisor, and performs some of
1762 the Software Configuration Management needed in a CASE environment.  Aegis
1763 provides a framework within which a team of developers may work on many
1764 changes to a program independently, and Aegis coordinates integrating these
1765 changes back into the master source of the program, with as little disruption
1766 as possible.  Resolution of contention for source files, a major headache for
1767 any project with more than one developer, is one of Aegis's major functions.")
1768     (license license:gpl3+)))
1769
1770 (define-public reposurgeon
1771   (package
1772     (name "reposurgeon")
1773     (version "3.43")
1774     (source (origin
1775               (method url-fetch)
1776               (uri (string-append "http://www.catb.org/~esr/" name "/"
1777                                   name "-" version ".tar.xz"))
1778               (sha256
1779                (base32
1780                 "1af0z14wcm4bk5a9ysinbwq2fp3lf5f7i8mvwh7286hr3fnagcaz"))
1781               (patches (search-patches
1782                         "reposurgeon-add-missing-docbook-files.patch"))))
1783     (build-system gnu-build-system)
1784     (arguments
1785      `(#:make-flags
1786        (list "ECHO=echo"
1787              (string-append "target=" (assoc-ref %outputs "out")))
1788        #:phases
1789        (modify-phases %standard-phases
1790          (add-after 'unpack 'patch-inputs
1791            (lambda* (#:key inputs #:allow-other-keys)
1792              (let ((tzdata (assoc-ref inputs "tzdata")))
1793                (substitute* "reposurgeon"
1794                  (("/usr/share/zoneinfo")
1795                   (string-append tzdata "/share/zoneinfo")))
1796                (substitute* "test/svn-to-svn"
1797                  (("/bin/echo") "echo"))
1798                #t)))
1799          (delete 'configure)            ; no configure script
1800          (add-before 'build 'fix-docbook
1801            (lambda* (#:key inputs #:allow-other-keys)
1802              (substitute* (find-files "." "\\.xml$")
1803                (("docbook/docbookx.dtd")
1804                 (string-append (assoc-ref inputs "docbook-xml")
1805                                "/xml/dtd/docbook/docbookx.dtd")))
1806              #t))
1807          (add-before 'check 'set-up-test-environment
1808            (lambda* (#:key inputs #:allow-other-keys)
1809              (let ((tzdata (assoc-ref inputs "tzdata")))
1810                (setenv "TZDIR" (string-append tzdata "/share/zoneinfo"))
1811                #t)))
1812          (add-after 'install 'install-emacs-data
1813            (lambda* (#:key outputs #:allow-other-keys)
1814              (install-file "reposurgeon-mode.el"
1815                            (string-append (assoc-ref outputs "out")
1816                                           "/share/emacs/site-lisp"))
1817              #t)))))
1818     (inputs
1819      `(("python" ,python-wrapper)
1820        ("tzdata" ,tzdata)))
1821     (native-inputs
1822      `( ;; For building documentation.
1823        ("asciidoc" ,asciidoc)
1824        ("docbook-xml" ,docbook-xml)
1825        ("docbook-xsl" ,docbook-xsl)
1826        ("libxml2" ,libxml2)
1827        ("xmlto" ,xmlto)
1828
1829        ;; For tests.
1830        ("cvs" ,cvs)
1831        ("git" ,git)
1832        ("mercurial" ,mercurial)
1833        ("subversion" ,subversion)))
1834     (home-page "http://www.catb.org/~esr/reposurgeon/")
1835     (synopsis "Edit version-control repository history")
1836     (description "Reposurgeon enables risky operations that version-control
1837 systems don't want to let you do, such as editing past comments and metadata
1838 and removing commits.  It works with any version control system that can
1839 export and import Git fast-import streams, including Git, Mercurial, Fossil,
1840 Bazaar, CVS, RCS, and Src.  It can also read Subversion dump files directly
1841 and can thus be used to script production of very high-quality conversions
1842 from Subversion to any supported Distributed Version Control System (DVCS).")
1843     ;; Most files are distributed under bsd-2, except 'repocutter' which is
1844     ;; under bsd-3.
1845     (license (list license:bsd-2 license:bsd-3))))
1846
1847 (define-public tig
1848   (package
1849     (name "tig")
1850     (version "2.5.0")
1851     (source (origin
1852               (method url-fetch)
1853               (uri (string-append
1854                     "https://github.com/jonas/tig/releases/download/tig-"
1855                     version "/tig-" version ".tar.gz"))
1856               (sha256
1857                (base32
1858                 "1x5famvvs93ih7sr11x7m33dksb1k7zs1s3c4zkyf0cjmxkpqlzz"))))
1859     (build-system gnu-build-system)
1860     (native-inputs
1861      `(("asciidoc" ,asciidoc)
1862        ("xmlto" ,xmlto)))
1863     (inputs
1864      `(("ncurses" ,ncurses)
1865        ("readline" ,readline)))
1866     (arguments
1867      `(#:phases
1868        (modify-phases %standard-phases
1869          (add-after 'install 'install-doc
1870            (lambda _
1871              (invoke "make" "install-doc"))))
1872        #:tests? #f)) ; tests require access to /dev/tty
1873     ;; #:test-target "test"))
1874     (home-page "https://jonas.github.io/tig/")
1875     (synopsis "Ncurses-based text user interface for Git")
1876     (description
1877      "Tig is an ncurses text user interface for Git, primarily intended as
1878 a history browser.  It can also stage hunks for commit, or colorize the
1879 output of the @code{git} command.")
1880     (license license:gpl2+)))
1881
1882 (define-public findnewest
1883   (package
1884     (name "findnewest")
1885     (version "0.3")
1886     (source
1887      (origin
1888        (method git-fetch)
1889        (uri (git-reference
1890              (url "https://github.com/0-wiz-0/findnewest.git")
1891              (commit (string-append "findnewest-" version))))
1892        (file-name (git-file-name name version))
1893        (sha256
1894         (base32 "1x1cbn2b27h5r0ah5xc06fkalfdci2ngrgd4wibxjw0h88h0nvgq"))))
1895     (build-system gnu-build-system)
1896     (native-inputs `(("autoconf" ,autoconf)
1897                      ("automake" ,automake)))
1898     (home-page "https://github.com/0-wiz-0/findnewest/releases")
1899     (synopsis "Print the modification time of the latest file")
1900     (description
1901      "Recursively find the newest file in a file tree and print its
1902 modification time.")
1903     (license license:bsd-2)))
1904
1905 (define-public myrepos
1906   (package
1907     (name "myrepos")
1908     (version "1.20180726")
1909     (source
1910      (origin
1911        (method git-fetch)
1912        (uri (git-reference
1913              (url "git://myrepos.branchable.com/myrepos")
1914              (commit version)))
1915        (file-name (string-append name "-" version "-checkout"))
1916        (sha256
1917         (base32 "0jphw61plm8cgklja6hs639xhdvxgvjwbr6jpvjwpp7hc5gmhms5"))))
1918     (build-system gnu-build-system)
1919     (arguments
1920      '(#:test-target "test"
1921        #:make-flags (list (string-append "PREFIX=" %output))
1922        #:phases
1923        (modify-phases %standard-phases
1924          (delete 'configure)
1925          (add-after 'install 'wrap-webcheckout
1926            (lambda* (#:key inputs outputs #:allow-other-keys)
1927              (let ((out (assoc-ref outputs "out")))
1928                (wrap-program (string-append out "/bin/webcheckout")
1929                  `("PERL5LIB" ":" prefix
1930                    ,(map (lambda (i) (string-append (assoc-ref inputs i)
1931                                                     "/lib/perl5/site_perl"))
1932                          '("perl-encode-locale" "perl-http-date"
1933                            "perl-http-message" "perl-html-parser" "perl-libwww"
1934                            "perl-uri" "perl-try-tiny"))))
1935                #t))))))
1936     (inputs
1937      `(("perl" ,perl)
1938        ("perl-encode-locale" ,perl-encode-locale)
1939        ("perl-html-parser" ,perl-html-parser)
1940        ("perl-http-date" ,perl-http-date)
1941        ("perl-http-message" ,perl-http-message)
1942        ("perl-libwww" ,perl-libwww)
1943        ("perl-try-tiny" ,perl-try-tiny)
1944        ("perl-uri" ,perl-uri)))
1945     (home-page "https://myrepos.branchable.com/")
1946     (synopsis "Multiple repository management tool")
1947     (description
1948      "Myrepos provides the @code{mr} command, which maps an operation (e.g.,
1949 fetching updates) over a collection of version control repositories.  It
1950 supports a large number of version control systems: Git, Subversion,
1951 Mercurial, Bazaar, Darcs, CVS, Fossil, and Veracity.")
1952     (license license:gpl2+)))
1953
1954 (define-public git-annex-remote-hubic
1955   (package
1956     (name "git-annex-remote-hubic")
1957     (version "0.3.1")
1958     (source
1959      (origin
1960        (method git-fetch)
1961        (uri (git-reference
1962              (url "https://github.com/Schnouki/git-annex-remote-hubic.git")
1963              (commit (string-append "v" version))))
1964        (file-name (git-file-name name version))
1965        (sha256
1966         (base32 "16y9sk67hfi17h9n2kkffyabfccksh5rab40hhk69v6cxmbpn2sx"))))
1967     (build-system python-build-system)
1968     (arguments `(#:python ,python-2))
1969     (native-inputs
1970      `(;; for the tests
1971        ("python2-six" ,python2-six)))
1972     (propagated-inputs
1973      `(("python2-dateutil" ,python2-dateutil)
1974        ("python2-futures" ,python2-futures)
1975        ("python2-rauth" ,python2-rauth)
1976        ("python2-swiftclient" ,python2-swiftclient)))
1977     (home-page "https://github.com/Schnouki/git-annex-remote-hubic/")
1978     (synopsis "Use hubic as a git-annex remote")
1979     (description
1980      "This package allows you to use your hubic account as a \"special
1981 repository\" with git-annex.")
1982     (license license:gpl3+)))
1983
1984 (define-public git-annex-remote-rclone
1985   (package
1986     (name "git-annex-remote-rclone")
1987     (version "0.6")
1988     (source
1989      (origin
1990        (method git-fetch)
1991        (uri (git-reference
1992              (url "https://github.com/DanielDent/git-annex-remote-rclone.git")
1993              (commit (string-append "v" version))))
1994        (file-name (git-file-name name version))
1995        (sha256
1996         (base32
1997          "0j0hlxji8d974fq7zd4xc02n0jpi31ylhxc7z4zp8iiwad5mkpxp"))))
1998     (build-system trivial-build-system)
1999     (arguments
2000      `(#:modules ((guix build utils))
2001        #:builder
2002        (begin
2003          (use-modules (guix build utils))
2004          (let ((bash (string-append (assoc-ref %build-inputs "bash")
2005                                     "/bin/bash"))
2006                (rclone (string-append (assoc-ref %build-inputs "rclone")
2007                                       "/bin/rclone")))
2008            (copy-file (string-append (assoc-ref %build-inputs "source")
2009                                      "/git-annex-remote-rclone")
2010                       "git-annex-remote-rclone")
2011            (substitute* "git-annex-remote-rclone"
2012              (("/bin/bash") bash)
2013              (("runcmd rclone") (string-append "runcmd " rclone)))
2014            (install-file "git-annex-remote-rclone"
2015                          (string-append %output "/bin"))
2016            #t))))
2017     (inputs
2018      `(("bash" ,bash)
2019        ("rclone" ,rclone)))
2020     (home-page "https://github.com/DanielDent/git-annex-remote-rclone")
2021     (synopsis "Use rclone-supported cloud storage providers with git-annex")
2022     (description "This wrapper around rclone makes any destination supported
2023 by rclone usable with git-annex.")
2024     (license license:gpl3+)))
2025
2026 (define-public fossil
2027   (package
2028     (name "fossil")
2029     (version "2.8")
2030     (source
2031      (origin
2032        (method url-fetch)
2033        ;; Older downloads are moved to another URL.
2034        (uri (list
2035              (string-append
2036               "https://www.fossil-scm.org/index.html/uv/download/"
2037               "fossil-src-" version ".tar.gz")
2038              (string-append
2039               "https://www.fossil-scm.org/index.html/uv/"
2040               "fossil-src-" version ".tar.gz")))
2041        (sha256
2042         (base32
2043          "0pbinf8d2kj1j7niblhzjd2l2khg6r2pn2xvig6gavz27p3vwcka"))
2044        (modules '((guix build utils)))
2045        (snippet
2046         '(begin
2047            (delete-file-recursively "compat") #t))))
2048     (build-system gnu-build-system)
2049     (native-inputs
2050      `(("tcl" ,tcl)                     ;for configuration only
2051        ("which" ,which)                 ;for tests only
2052        ("ed" ,ed)))                     ;ditto
2053     (inputs
2054      `(("openssl" ,openssl)
2055        ("zlib" ,zlib)
2056        ("sqlite" ,sqlite)))
2057     (arguments
2058      `(#:configure-flags (list "--with-openssl=auto"
2059                                "--disable-internal-sqlite")
2060        #:test-target "test"
2061        #:phases (modify-phases %standard-phases
2062                   (add-after 'patch-source-shebangs 'patch-sh
2063                     (lambda _
2064                       (substitute* '("auto.def")
2065                         (("/bin/sh") (which "sh")))
2066                       #t))
2067                   (replace 'configure
2068                     (lambda* (#:key outputs (configure-flags '())
2069                               #:allow-other-keys)
2070                       ;; The 'configure' script is not an autoconf script and
2071                       ;; chokes on unrecognized options.
2072                       (apply invoke
2073                              "./configure"
2074                              (string-append "--prefix="
2075                                             (assoc-ref outputs "out"))
2076                              configure-flags)
2077                       #t))
2078                   (add-before 'check 'test-setup
2079                     (lambda _
2080                       (setenv "USER" "guix")
2081                       (setenv "TZ" "UTC")
2082                       #t)))))
2083     (home-page "https://fossil-scm.org")
2084     (synopsis "Software configuration management system")
2085     (description
2086      "Fossil is a distributed source control management system which supports
2087 access and administration over HTTP CGI or via a built-in HTTP server.  It has
2088 a built-in wiki, built-in file browsing, built-in tickets system, etc.")
2089     (license (list license:public-domain        ;src/miniz.c, src/shell.c
2090                    license:bsd-2))))
2091
2092 (define-public stagit
2093   (package
2094     (name "stagit")
2095     (version "0.7.2")
2096     (source (origin
2097               (method url-fetch)
2098               (uri (string-append "https://dl.2f30.org/releases/"
2099                                   name "-" version ".tar.gz"))
2100               (sha256
2101                (base32
2102                 "1m3s9g1z9szbjrhm8sic91xh6f2bfpi56rskdkqd5wc4wdycpyi5"))))
2103     (build-system gnu-build-system)
2104     (arguments
2105      `(#:tests? #f ; No tests
2106        #:make-flags (list "CC=gcc"
2107                           (string-append "PREFIX=" %output))
2108        #:phases
2109        (modify-phases %standard-phases
2110          (delete 'configure)))) ; No configure script
2111     (inputs
2112      `(("libgit2" ,libgit2)))
2113     (home-page "https://2f30.org/")
2114     (synopsis "Static git page generator")
2115     (description "Stagit creates static pages for git repositories, the results can
2116 be served with a HTTP file server of your choice.")
2117     (license license:expat)))
2118
2119 (define-public gource
2120   (package
2121     (name "gource")
2122     (version "0.49")
2123     (source (origin
2124               (method url-fetch)
2125               (uri (string-append
2126                     "https://github.com/acaudwell/Gource/releases/download"
2127                     "/gource-" version "/gource-" version ".tar.gz"))
2128               (sha256
2129                (base32
2130                 "12hf5ipcsp9dxsqn84n4kr63xaiskrnf5a084wr29qk171lj7pd9"))))
2131     (build-system gnu-build-system)
2132     (arguments
2133      `(#:configure-flags
2134        (list (string-append "--with-boost-libdir="
2135                             (assoc-ref %build-inputs "boost")
2136                             "/lib"))))
2137     (native-inputs
2138      `(("pkg-config" ,pkg-config)))
2139     (inputs
2140      `(("boost"     ,boost)
2141        ("ftgl"      ,ftgl)
2142        ("glew"      ,glew)
2143        ("glm"       ,glm)
2144        ("glu"       ,glu)
2145        ("libpng"    ,libpng)
2146        ("mesa"      ,mesa)
2147        ("pcre"      ,pcre)
2148        ("sdl-union" ,(sdl-union (list sdl2 sdl2-image)))))
2149     (home-page "http://gource.io/")
2150     (synopsis "3D visualisation tool for source control repositories")
2151     (description "@code{gource} provides a software version control
2152 visualization.  The repository is displayed as a tree where the root of the
2153 repository is the centre, directories are branches and files are leaves.
2154 Contributors to the source code appear and disappear as they contribute to
2155 specific files and directories.")
2156     (license license:gpl3+)))
2157
2158 (define-public src
2159   (package
2160     (name "src")
2161     (version "1.18")
2162     (source (origin
2163               (method url-fetch)
2164               (uri (string-append
2165                     "http://www.catb.org/~esr/src/src-" version ".tar.gz"))
2166               (sha256
2167                (base32
2168                 "0n0skhvya8w2az45h2gsafxy8m2mvqas64nrgxifcmrzfv0rf26c"))))
2169     (build-system gnu-build-system)
2170     (arguments
2171      '(#:make-flags
2172        (list (string-append "prefix=" (assoc-ref %outputs "out")))
2173        #:phases
2174        (modify-phases %standard-phases
2175          (delete 'configure)            ; no 'configure' script
2176          (add-after 'install 'wrap-program
2177            (lambda* (#:key inputs outputs #:allow-other-keys)
2178              (let* ((out  (assoc-ref outputs "out"))
2179                     (prog (string-append out "/bin/src"))
2180                     (rcs  (assoc-ref inputs "rcs")))
2181                (wrap-program prog
2182                  `("PATH" ":" prefix (,(string-append rcs "/bin"))))
2183                #t)))
2184          (replace 'check
2185            (lambda _
2186              (setenv "HOME" (getenv "TMPDIR"))
2187              (invoke "git" "config" "--global" "user.name" "guix")
2188              (invoke "git" "config" "--global" "user.email" "guix")
2189              (invoke "./srctest"))))))
2190     (native-inputs
2191      ;; For testing.
2192      `(("git" ,git)
2193        ("perl" ,perl)))
2194     (inputs
2195      `(("python" ,python-wrapper)
2196        ("rcs" ,rcs)))
2197     (synopsis "Simple revision control")
2198     (home-page "http://www.catb.org/~esr/src/")
2199     (description
2200      "SRC (or src) is simple revision control, a version-control system for
2201 single-file projects by solo developers and authors.  It modernizes the
2202 venerable RCS, hence the anagrammatic acronym.  The design is tuned for use
2203 cases like all those little scripts in your @file{~/bin} directory, or a
2204 directory full of HOWTOs.")
2205     (license license:bsd-2)))
2206
2207 (define-public git-when-merged
2208   ;; Use an unreleased version to get a PY3 compatibility fix.
2209   (let ((commit "ab6af7865a0ba55ba364a6c507e0be6f84f31c6d"))
2210     (package
2211       (name "git-when-merged")
2212       (version (string-append "1.2.0-" (string-take commit 7)))
2213       (source (origin
2214                 (method git-fetch)
2215                 (uri (git-reference
2216                       (url "https://github.com/mhagger/git-when-merged/")
2217                       (commit commit)))
2218                 (file-name (git-file-name name version))
2219                 (sha256
2220                  (base32
2221                   "0iyk2psf97bc9h43m89p3xjmm79fsx99i7px29g4lcnmdy5kmz0p"))))
2222       (build-system gnu-build-system)
2223       (arguments
2224        `(#:tests? #f                    ; there are no tests
2225          #:phases
2226          (modify-phases %standard-phases
2227            (delete 'configure)
2228            (delete 'build)
2229            (replace 'install
2230              (lambda* (#:key outputs #:allow-other-keys)
2231                (install-file "bin/git-when-merged"
2232                              (string-append (assoc-ref outputs "out")
2233                                             "/bin"))
2234                #t))
2235            (add-before 'install 'patch-git
2236              (lambda* (#:key inputs #:allow-other-keys)
2237                (let ((git (string-append (assoc-ref inputs "git")
2238                                          "/bin/git")))
2239                  (substitute* "bin/git-when-merged"
2240                    (("'git'") (string-append "'" git "'")))
2241                  #t)))
2242            (add-after 'install 'wrap-script
2243              (lambda* (#:key outputs #:allow-other-keys)
2244                (wrap-program (string-append (assoc-ref outputs "out")
2245                                             "/bin/git-when-merged")
2246                  `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH"))))
2247                #t)))))
2248       (inputs
2249        `(("git" ,git)
2250          ("python" ,python-wrapper)))
2251       (home-page "https://github.com/mhagger/git-when-merged")
2252       (synopsis "Determine when a commit was merged into a Git branch")
2253       (description "This Git extension defines a subcommand,
2254 @code{when-merged}, whose core operation is to find the merge that brought a
2255 given commit into the specified ref(s).  It has various options that control
2256 how information about the merge is displayed.")
2257       (license license:gpl2+))))
2258
2259 (define-public git-imerge
2260   (package
2261     (name "git-imerge")
2262     (version "1.1.0")
2263     (source
2264      (origin
2265        (method git-fetch)
2266        (uri (git-reference
2267              (url "https://github.com/mhagger/git-imerge.git")
2268              (commit (string-append "v" version))))
2269        (file-name (git-file-name name version))
2270        (sha256
2271         (base32 "0vi1w3f0yk4gqhxj2hzqafqq28rihyhyfnp8x7xzib96j2si14a4"))))
2272     (build-system gnu-build-system)
2273     (arguments
2274      `(#:tests? #f                      ; only manual test scripts
2275        #:make-flags (list (string-append "DESTDIR=" %output)
2276                           "PREFIX=")
2277        #:phases
2278        (modify-phases %standard-phases
2279          (delete 'configure)
2280          (add-before 'install 'patch-git
2281            (lambda* (#:key inputs #:allow-other-keys)
2282              (let ((git (string-append (assoc-ref inputs "git")
2283                                        "/bin/git")))
2284                (substitute* "git-imerge"
2285                  (("'git'") (string-append "'" git "'")))
2286                #t)))
2287          (add-after 'install 'wrap-script
2288            (lambda* (#:key outputs #:allow-other-keys)
2289              (wrap-program (string-append (assoc-ref outputs "out")
2290                                           "/bin/git-imerge")
2291                `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH"))))
2292              #t)))))
2293     (inputs
2294      `(("git" ,git)
2295        ("python" ,python-wrapper)))
2296     (home-page "https://github.com/mhagger/git-imerge")
2297     (synopsis "Incremental merge for Git")
2298     (description "This Git extension defines a subcommand, @code{imerge},
2299 which performs an incremental merge between two branches.  Its two primary
2300 design goals are to reduce the pain of resolving merge conflicts by finding
2301 the smallest possible conflicts and to allow a merge to be saved, tested,
2302 interrupted, published, and collaborated on while in progress.")
2303     (license license:gpl2+)))
2304
2305 (define-public git-lfs
2306   (package
2307     (name "git-lfs")
2308     (version "2.7.2")
2309     (source (origin
2310               (method git-fetch)
2311               (uri (git-reference
2312                     (url "https://github.com/git-lfs/git-lfs")
2313                     (commit (string-append "v" version))))
2314               (file-name (git-file-name name version))
2315               (sha256
2316                (base32
2317                 "1nf40rbdz901vsahg5cm09pznpina6wimmxl0lmh8pn0mi51yzvc"))))
2318     (build-system go-build-system)
2319     (arguments
2320      '(#:import-path "github.com/git-lfs/git-lfs"))
2321     (home-page "https://git-lfs.github.com/")
2322     (synopsis "Git extension for versioning large files")
2323     (description
2324      "Git Large File Storage (LFS) replaces large files such as audio samples,
2325 videos, datasets, and graphics with text pointers inside Git, while storing the
2326 file contents on a remote server.")
2327     (license license:expat)))