Re: [PATCH 1/3] gnu: Add ruby-git.

[Mark H Weaver <mhw@netris.org>]

David Thompson <dthompson2@worcester.edu> writes:

> From d5062fe608d840aca5034c9374dc0a99c926554b Mon Sep 17 00:00:00 2001
> From: David Thompson <davet@gnu.org>
> Date: Sat, 13 Jun 2015 07:46:02 -0400
> Subject: [PATCH 1/3] gnu: Add ruby-git.
>
> * gnu/packages/ruby.scm (ruby-git): New variable.
> ---
>  gnu/packages/ruby.scm | 33 +++++++++++++++++++++++++++++++++
>  1 file changed, 33 insertions(+)
>
> diff --git a/gnu/packages/ruby.scm b/gnu/packages/ruby.scm
> index f7759ec..bd7ab79 100644
> --- a/gnu/packages/ruby.scm
> +++ b/gnu/packages/ruby.scm
> @@ -28,6 +28,7 @@
>    #:use-module (gnu packages autotools)
>    #:use-module (gnu packages libffi)
>    #:use-module (gnu packages gdbm)
> +  #:use-module (gnu packages version-control)
>    #:use-module (guix packages)
>    #:use-module (guix download)
>    #:use-module (guix git-download)
> @@ -570,3 +571,35 @@ functionality, making it easier to migrate test suites from bacon to minitest.")
>  run as a daemon and to be controlled by simple start/stop/restart commands.")
>      (home-page "https://github.com/thuehlinger/daemons")
>      (license license:expat)))
> +
> +(define-public ruby-git
> +  (package
> +    (name "ruby-git")
> +    (version "1.2.9.1")
> +    (source (origin
> +              (method url-fetch)
> +              (uri (string-append
> +                    "https://github.com/schacon/ruby-git/archive/v"
> +                    version ".tar.gz"))
> +              (file-name (string-append name "-" version ".tar.gz"))
> +              (sha256
> +               (base32
> +                "08zg20zc7f7yy34ix2qdd8jbiz7xhjc8alk370869sq3h75hs9jc"))))
> +    (build-system ruby-build-system)
> +    (arguments
> +     '(#:phases (modify-phases %standard-phases
> +                  (add-before 'check 'create-fake-home
> +                    (lambda _
> +                      ;; The test suite runs 'git config --global' commands,
> +                      ;; so a fake home directory is needed for them to
> +                      ;; succeed.
> +                      (let ((fake-home (string-append (getcwd) "/fake-home")))
> +                        (mkdir fake-home)
> +                        (setenv "HOME" fake-home)))))))
> +    (native-inputs
> +     `(("git" ,git)))
> +    (synopsis "Ruby wrappers for Git")
> +    (description "Ruby/Git is a Ruby library that can be used to create, read
> +and manipulate Git repositories by wrapping system calls to the git binary.")

It would be good to rewrite the references to the 'git' binary in the
code to use an absolute path.  This argues for making 'git' a normal
input.  What do you think?

> +    (home-page "https://github.com/schacon/ruby-git")
> +    (license license:expat)))

Otherwise looks good to me.

     Thanks!
       Mark