Re: [PATCH] gnu: service: Add git-service.

[ng0]

宋文武  writes:

> ng0  writes:
>
>
>>> From d1d7eb59ca53833098cea2d6eddaa59f1494b579 Mon Sep 17 00:00:00 2001
>>> From: ng0 
>>> Date: Fri, 8 Jul 2016 15:42:55 +
>>> Subject: [PATCH] gnu: services: Add git-service.
>>>
>>> * gnu/services/version-control.scm: New file, create it.
>>> (git-service): New Procedures.
>>> (git-service-type): New variable.
>>> * doc/guix.texi: Add documentation.
>
> I think it should be: * doc/guix.text (Services)(Version Control): New 
> section.
>
>> [...]
>>> +(define %git-accounts
>>> +  ;; User account and groups for git-daemon.
>>> +  (list (user-group
>>> + (name "git")
>>> + (system? #t))
>>> +(user-account
>>> + (name "git")
>>> + (system? #t)
>>> + (group "git")
>>> + (comment "Shepherd created user for the git-daemon service")
>>> + (home-directory "/var/git")
>
> I think it doesn't need a home directory.
>
>>> + (shell #~(string-append #$shadow "/bin/git-shell")
>
> Use 'nologin' should be enough, according to `man git-shell', it's for
> SSH access.

The ssh access is intended, that's why it had a home-directory. For now
I will apply what you suggested, but this is a use case I have myself
and why would I use gitolite when git+ssh do the job well enough.

> Also, it seems this 'git' user is not used anywhere, it should be passed
> as the '--user' argument to 'git daemon' or as '#:user' to
> 'make-forkexec-constructor'.
>
>>> +
>>> +(define (git-activation config)
>>> +  "Return the activation gexp for CONFIG."
>>> +  #~(begin (use-modules (guix build utils))
>>> +   ;; Create the default base-directory, see `man git daemon'.
>>> +   (mkdir-p "/var/git/repositories")))
>
> This should create the 'git-configuration-base-directory' of config, and
> make sure it's readable by the 'git' user.
>
>
>>> +(define* (git-service #:key
>>> +  (git git)
>>> +  (base-directory "/var/git/repositories")
>>> +  (user-directory? #f)
>>> +  (user-directory? "")
>>> +  (directory? #f)
>>> +  (directory "")
>>> +  (port 9418)
>>> +  (pid-file? #t)
>>> +  (pid-file "/var/run/git-daemon.pid")
>>> +  (max-connections 32))
>
> This should just accept a  object, and document it in
> the manaual (no need to make detail comments in the git-command, which I
> think a mention to `man git-daemon' is fine there).

How? This thread is taking so much time because this is one of my 3
first services and I'm trying to learn more guile. I'll look at other
services like before, but I asked for help because I'm stuck. I think
openssh-service had this.. But what I have worked before I added all
other options, and for now I want it this way.. Just debug this without
changing it any further.
But if this would not require much changes which can not break things
further, I'll apply it.

>
> For testing, I guess 'git clone git://localhost/xxx' in the VM is
> enough.
>
> And the patch doesn't apply for me, can you send an update one?
>

Re: [PATCH] gnu: service: Add git-service.

[宋文武]

ng0  writes:


>> From d1d7eb59ca53833098cea2d6eddaa59f1494b579 Mon Sep 17 00:00:00 2001
>> From: ng0 
>> Date: Fri, 8 Jul 2016 15:42:55 +
>> Subject: [PATCH] gnu: services: Add git-service.
>>
>> * gnu/services/version-control.scm: New file, create it.
>> (git-service): New Procedures.
>> (git-service-type): New variable.
>> * doc/guix.texi: Add documentation.

I think it should be: * doc/guix.text (Services)(Version Control): New section.

> [...]
>> +(define %git-accounts
>> +  ;; User account and groups for git-daemon.
>> +  (list (user-group
>> + (name "git")
>> + (system? #t))
>> +(user-account
>> + (name "git")
>> + (system? #t)
>> + (group "git")
>> + (comment "Shepherd created user for the git-daemon service")
>> + (home-directory "/var/git")

I think it doesn't need a home directory.

>> + (shell #~(string-append #$shadow "/bin/git-shell")

Use 'nologin' should be enough, according to `man git-shell', it's for
SSH access.

Also, it seems this 'git' user is not used anywhere, it should be passed
as the '--user' argument to 'git daemon' or as '#:user' to
'make-forkexec-constructor'.

>> +
>> +(define (git-activation config)
>> +  "Return the activation gexp for CONFIG."
>> +  #~(begin (use-modules (guix build utils))
>> +   ;; Create the default base-directory, see `man git daemon'.
>> +   (mkdir-p "/var/git/repositories")))

This should create the 'git-configuration-base-directory' of config, and
make sure it's readable by the 'git' user.


>> +(define* (git-service #:key
>> +  (git git)
>> +  (base-directory "/var/git/repositories")
>> +  (user-directory? #f)
>> +  (user-directory? "")
>> +  (directory? #f)
>> +  (directory "")
>> +  (port 9418)
>> +  (pid-file? #t)
>> +  (pid-file "/var/run/git-daemon.pid")
>> +  (max-connections 32))

This should just accept a  object, and document it in
the manaual (no need to make detail comments in the git-command, which I
think a mention to `man git-daemon' is fine there).


For testing, I guess 'git clone git://localhost/xxx' in the VM is
enough.

And the patch doesn't apply for me, can you send an update one?

Re: [PATCH] gnu: service: Add git-service.

[ng0]

So almost one month passed now.
To continue testing this, I need help on this first.

Thanks.

ng0  writes:

> I tried to address most of what you've written.
>
> While I was correcting the documentation I decided to add more options,
> now it doesn't work anymore, probably because of the ifs I added.
>
> Andy Wingo  writes:
>
>> On Tue 30 Aug 2016 13:45, ng0  writes:
>>
I also think that "path" might
 not be the right word, which in GNU manuals is only used for search
 paths.  See the "GNU Manuals" section of standards.texi for more.
 Anyway I suggest #:base-directory.  Make sure the port is an integer and
 not a string.
>>>
>>> See 'man git daemon'.
>>
>> I ran this and it did not work -- first showed me a page for git then
>> for daemon.  I believe you want "man git-daemon"?
>>
>>> The switch is called --base-path.  Looking at the openrc conf.d/git or
>>> what the config file was called again, they stick to this name too.
>>> It would just cause confusion if we go ahead and call it differently.
>>> Upstream should be fixed, but I'm not going there.  If you think we
>>> should break expectations, I can rename it.
>>
>> "Fixing" upstream is out of our remit :)  All I can ask is that we do
>> not introduce new uses of the word "path".
>>
> +Return a service to run the @uref{https://git-scm.com, git} daemon 
> version control
> +daemon.

 Extra "daemon" here.  Probably needs a sentence on what running the
 daemon will do (namely, expose local repositories for remote access).

 What about authentication?  Is this purely anonymous?
>>>
>>> Exactly, authentication is handled via other daemons, for example ssh or
>>> gitolite. git daemon supports no authentication and is read-only, as far
>>> as I know. At the servers I use and setup, I pull via
>>> git://,http://,https:// and push via ssh.
>>> Its selfdescription is:
>>> git-daemon - A really simple server for Git repositories.
>>
>> This needs to be documented in the manual, is what I was getting at :)
>> Mention that this is for anonymous read-only access please.
>
> read-only was wrong, anonymous write-access for all the world can be set
> up but it is not default.
>
>>
Use "file name" instead of path in general.
>>>
>>> Why?
>>
>> It is because it is standard in the GNU project.  I mentioned this
>> before.  See "info standards" and go to "GNU manuals".
>>
> +Furthermore it takes the parameter @var{port} which defaults to 9418.
> +Run @command{man git daemon} for information about the options.

 This man command does not work.
>>>
>>> Works for me. As far as I know man pages were merged into git package
>>> recently. When I run this on debian with guix, 'man git daemon' works
>>> too.
>>
>> It does not work for me on NixOS with Guix.  Maybe I am out of date
>> though.
>>
> +(define %git-accounts
> +  ;; User account and groups for git-daemon.
> +  ;; We can give it git-shell for now, otherwise we can switch to 
> /bin/sh.

 What does this comment mean?  Why would we switch?
>>>
>>> I am not sure about the limitations of git-shell compared to
>>> /bin/sh. If this turns out to be a mistake, it can be corrected. The
>>> only thing I know about git-shell is that it allows no logins.
>>
>> If you do not want a login then probably what you want is
>> #~(string-append #$shadow "/sbin/nologin").
>>
>> Andy
>
> From d1d7eb59ca53833098cea2d6eddaa59f1494b579 Mon Sep 17 00:00:00 2001
> From: ng0 
> Date: Fri, 8 Jul 2016 15:42:55 +
> Subject: [PATCH] gnu: services: Add git-service.
>
> * gnu/services/version-control.scm: New file, create it.
> (git-service): New Procedures.
> (git-service-type): New variable.
> * doc/guix.texi: Add documentation.
> ---
>  doc/guix.texi|  37 
>  gnu/local.mk |   1 +
>  gnu/services/version-control.scm | 196 
> +++
>  3 files changed, 234 insertions(+)
>  create mode 100644 gnu/services/version-control.scm
>
> diff --git a/doc/guix.texi b/doc/guix.texi
> index b22cf4a..78d7ee1 100644
> --- a/doc/guix.texi
> +++ b/doc/guix.texi
> @@ -7494,6 +7494,7 @@ declaration.
>  * Database Services::   SQL databases.
>  * Mail Services::   IMAP, POP3, SMTP, and all that.
>  * Web Services::Web servers.
> +* Version Control:: Git and others.
>  * Various Services::Other services.
>  @end menu
>  
> @@ -9910,6 +9911,42 @@ directories are created when the service is activated.
>  
>  @end deffn
>  
> +@node Version Control
> +@subsubsection Version Control
> +
> +The @code{(gnu services version-control)} module provides the following 
> services:
> +
> +@deffn {Scheme Procedure} git-service [#:git @var{git}] @
> +   [#:base-directory "/var/git/repositories"] @
> +   [#:user-directory? #f ""] [#:port 9418] @

Re: [PATCH] gnu: service: Add git-service.

[ng0]

So almost one month passed now.
To continue testing this, I need help on this first.

Thanks.

ng0  writes:

> I tried to address most of what you've written.
>
> While I was correcting the documentation I decided to add more options,
> now it doesn't work anymore, probably because of the ifs I added.
>
> Andy Wingo  writes:
>
>> On Tue 30 Aug 2016 13:45, ng0  writes:
>>
I also think that "path" might
 not be the right word, which in GNU manuals is only used for search
 paths.  See the "GNU Manuals" section of standards.texi for more.
 Anyway I suggest #:base-directory.  Make sure the port is an integer and
 not a string.
>>>
>>> See 'man git daemon'.
>>
>> I ran this and it did not work -- first showed me a page for git then
>> for daemon.  I believe you want "man git-daemon"?
>>
>>> The switch is called --base-path.  Looking at the openrc conf.d/git or
>>> what the config file was called again, they stick to this name too.
>>> It would just cause confusion if we go ahead and call it differently.
>>> Upstream should be fixed, but I'm not going there.  If you think we
>>> should break expectations, I can rename it.
>>
>> "Fixing" upstream is out of our remit :)  All I can ask is that we do
>> not introduce new uses of the word "path".
>>
> +Return a service to run the @uref{https://git-scm.com, git} daemon 
> version control
> +daemon.

 Extra "daemon" here.  Probably needs a sentence on what running the
 daemon will do (namely, expose local repositories for remote access).

 What about authentication?  Is this purely anonymous?
>>>
>>> Exactly, authentication is handled via other daemons, for example ssh or
>>> gitolite. git daemon supports no authentication and is read-only, as far
>>> as I know. At the servers I use and setup, I pull via
>>> git://,http://,https:// and push via ssh.
>>> Its selfdescription is:
>>> git-daemon - A really simple server for Git repositories.
>>
>> This needs to be documented in the manual, is what I was getting at :)
>> Mention that this is for anonymous read-only access please.
>
> read-only was wrong, anonymous write-access for all the world can be set
> up but it is not default.
>
>>
Use "file name" instead of path in general.
>>>
>>> Why?
>>
>> It is because it is standard in the GNU project.  I mentioned this
>> before.  See "info standards" and go to "GNU manuals".
>>
> +Furthermore it takes the parameter @var{port} which defaults to 9418.
> +Run @command{man git daemon} for information about the options.

 This man command does not work.
>>>
>>> Works for me. As far as I know man pages were merged into git package
>>> recently. When I run this on debian with guix, 'man git daemon' works
>>> too.
>>
>> It does not work for me on NixOS with Guix.  Maybe I am out of date
>> though.
>>
> +(define %git-accounts
> +  ;; User account and groups for git-daemon.
> +  ;; We can give it git-shell for now, otherwise we can switch to 
> /bin/sh.

 What does this comment mean?  Why would we switch?
>>>
>>> I am not sure about the limitations of git-shell compared to
>>> /bin/sh. If this turns out to be a mistake, it can be corrected. The
>>> only thing I know about git-shell is that it allows no logins.
>>
>> If you do not want a login then probably what you want is
>> #~(string-append #$shadow "/sbin/nologin").
>>
>> Andy
>
> From d1d7eb59ca53833098cea2d6eddaa59f1494b579 Mon Sep 17 00:00:00 2001
> From: ng0 
> Date: Fri, 8 Jul 2016 15:42:55 +
> Subject: [PATCH] gnu: services: Add git-service.
>
> * gnu/services/version-control.scm: New file, create it.
> (git-service): New Procedures.
> (git-service-type): New variable.
> * doc/guix.texi: Add documentation.
> ---
>  doc/guix.texi|  37 
>  gnu/local.mk |   1 +
>  gnu/services/version-control.scm | 196 
> +++
>  3 files changed, 234 insertions(+)
>  create mode 100644 gnu/services/version-control.scm
>
> diff --git a/doc/guix.texi b/doc/guix.texi
> index b22cf4a..78d7ee1 100644
> --- a/doc/guix.texi
> +++ b/doc/guix.texi
> @@ -7494,6 +7494,7 @@ declaration.
>  * Database Services::   SQL databases.
>  * Mail Services::   IMAP, POP3, SMTP, and all that.
>  * Web Services::Web servers.
> +* Version Control:: Git and others.
>  * Various Services::Other services.
>  @end menu
>  
> @@ -9910,6 +9911,42 @@ directories are created when the service is activated.
>  
>  @end deffn
>  
> +@node Version Control
> +@subsubsection Version Control
> +
> +The @code{(gnu services version-control)} module provides the following 
> services:
> +
> +@deffn {Scheme Procedure} git-service [#:git @var{git}] @
> +   [#:base-directory "/var/git/repositories"] @
> +   [#:user-directory? #f ""] [#:port 9418] @

Re: [PATCH] gnu: service: Add git-service.

[ng0]

I tried to address most of what you've written.

While I was correcting the documentation I decided to add more options,
now it doesn't work anymore, probably because of the ifs I added.

Andy Wingo  writes:

> On Tue 30 Aug 2016 13:45, ng0  writes:
>
>>>I also think that "path" might
>>> not be the right word, which in GNU manuals is only used for search
>>> paths.  See the "GNU Manuals" section of standards.texi for more.
>>> Anyway I suggest #:base-directory.  Make sure the port is an integer and
>>> not a string.
>>
>> See 'man git daemon'.
>
> I ran this and it did not work -- first showed me a page for git then
> for daemon.  I believe you want "man git-daemon"?
>
>> The switch is called --base-path.  Looking at the openrc conf.d/git or
>> what the config file was called again, they stick to this name too.
>> It would just cause confusion if we go ahead and call it differently.
>> Upstream should be fixed, but I'm not going there.  If you think we
>> should break expectations, I can rename it.
>
> "Fixing" upstream is out of our remit :)  All I can ask is that we do
> not introduce new uses of the word "path".
>
 +Return a service to run the @uref{https://git-scm.com, git} daemon 
 version control
 +daemon.
>>>
>>> Extra "daemon" here.  Probably needs a sentence on what running the
>>> daemon will do (namely, expose local repositories for remote access).
>>>
>>> What about authentication?  Is this purely anonymous?
>>
>> Exactly, authentication is handled via other daemons, for example ssh or
>> gitolite. git daemon supports no authentication and is read-only, as far
>> as I know. At the servers I use and setup, I pull via
>> git://,http://,https:// and push via ssh.
>> Its selfdescription is:
>> git-daemon - A really simple server for Git repositories.
>
> This needs to be documented in the manual, is what I was getting at :)
> Mention that this is for anonymous read-only access please.

read-only was wrong, anonymous write-access for all the world can be set
up but it is not default.

>
>>>Use "file name" instead of path in general.
>>
>> Why?
>
> It is because it is standard in the GNU project.  I mentioned this
> before.  See "info standards" and go to "GNU manuals".
>
 +Furthermore it takes the parameter @var{port} which defaults to 9418.
 +Run @command{man git daemon} for information about the options.
>>>
>>> This man command does not work.
>>
>> Works for me. As far as I know man pages were merged into git package
>> recently. When I run this on debian with guix, 'man git daemon' works
>> too.
>
> It does not work for me on NixOS with Guix.  Maybe I am out of date
> though.
>
 +(define %git-accounts
 +  ;; User account and groups for git-daemon.
 +  ;; We can give it git-shell for now, otherwise we can switch to /bin/sh.
>>>
>>> What does this comment mean?  Why would we switch?
>>
>> I am not sure about the limitations of git-shell compared to
>> /bin/sh. If this turns out to be a mistake, it can be corrected. The
>> only thing I know about git-shell is that it allows no logins.
>
> If you do not want a login then probably what you want is
> #~(string-append #$shadow "/sbin/nologin").
>
> Andy

>From d1d7eb59ca53833098cea2d6eddaa59f1494b579 Mon Sep 17 00:00:00 2001
From: ng0 
Date: Fri, 8 Jul 2016 15:42:55 +
Subject: [PATCH] gnu: services: Add git-service.

* gnu/services/version-control.scm: New file, create it.
(git-service): New Procedures.
(git-service-type): New variable.
* doc/guix.texi: Add documentation.
---
 doc/guix.texi|  37 
 gnu/local.mk |   1 +
 gnu/services/version-control.scm | 196 +++
 3 files changed, 234 insertions(+)
 create mode 100644 gnu/services/version-control.scm

diff --git a/doc/guix.texi b/doc/guix.texi
index b22cf4a..78d7ee1 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -7494,6 +7494,7 @@ declaration.
 * Database Services::   SQL databases.
 * Mail Services::   IMAP, POP3, SMTP, and all that.
 * Web Services::Web servers.
+* Version Control:: Git and others.
 * Various Services::Other services.
 @end menu
 
@@ -9910,6 +9911,42 @@ directories are created when the service is activated.
 
 @end deffn
 
+@node Version Control
+@subsubsection Version Control
+
+The @code{(gnu services version-control)} module provides the following services:
+
+@deffn {Scheme Procedure} git-service [#:git @var{git}] @
+   [#:base-directory "/var/git/repositories"] @
+   [#:user-directory? #f ""] [#:port 9418] @
+   [#:directory? #f ""] [#:max-connections 32] @
+   [#:pid-file? #t "/var/run/git-daemon.pid"]
+
+Return a service to run the @uref{https://git-scm.com, Git} daemon, a really simple
+TCP Git service which exposes local repositories for anonymous remote access.
+
+The git daemon runs as the @code{git} 

Re: [PATCH] gnu: service: Add git-service.

[Andy Wingo]

On Tue 30 Aug 2016 13:45, ng0  writes:

>>I also think that "path" might
>> not be the right word, which in GNU manuals is only used for search
>> paths.  See the "GNU Manuals" section of standards.texi for more.
>> Anyway I suggest #:base-directory.  Make sure the port is an integer and
>> not a string.
>
> See 'man git daemon'.

I ran this and it did not work -- first showed me a page for git then
for daemon.  I believe you want "man git-daemon"?

> The switch is called --base-path.  Looking at the openrc conf.d/git or
> what the config file was called again, they stick to this name too.
> It would just cause confusion if we go ahead and call it differently.
> Upstream should be fixed, but I'm not going there.  If you think we
> should break expectations, I can rename it.

"Fixing" upstream is out of our remit :)  All I can ask is that we do
not introduce new uses of the word "path".

>>> +Return a service to run the @uref{https://git-scm.com, git} daemon version 
>>> control
>>> +daemon.
>>
>> Extra "daemon" here.  Probably needs a sentence on what running the
>> daemon will do (namely, expose local repositories for remote access).
>>
>> What about authentication?  Is this purely anonymous?
>
> Exactly, authentication is handled via other daemons, for example ssh or
> gitolite. git daemon supports no authentication and is read-only, as far
> as I know. At the servers I use and setup, I pull via
> git://,http://,https:// and push via ssh.
> Its selfdescription is:
> git-daemon - A really simple server for Git repositories.

This needs to be documented in the manual, is what I was getting at :)
Mention that this is for anonymous read-only access please.

>>Use "file name" instead of path in general.
>
> Why?

It is because it is standard in the GNU project.  I mentioned this
before.  See "info standards" and go to "GNU manuals".

>>> +Furthermore it takes the parameter @var{port} which defaults to 9418.
>>> +Run @command{man git daemon} for information about the options.
>>
>> This man command does not work.
>
> Works for me. As far as I know man pages were merged into git package
> recently. When I run this on debian with guix, 'man git daemon' works
> too.

It does not work for me on NixOS with Guix.  Maybe I am out of date
though.

>>> +(define %git-accounts
>>> +  ;; User account and groups for git-daemon.
>>> +  ;; We can give it git-shell for now, otherwise we can switch to /bin/sh.
>>
>> What does this comment mean?  Why would we switch?
>
> I am not sure about the limitations of git-shell compared to
> /bin/sh. If this turns out to be a mistake, it can be corrected. The
> only thing I know about git-shell is that it allows no logins.

If you do not want a login then probably what you want is
#~(string-append #$shadow "/sbin/nologin").

Andy

Re: [PATCH] gnu: service: Add git-service.

[ng0]

Hi,

Andy Wingo  writes:

> On Mon 29 Aug 2016 22:05, ng0  writes:
>
>> +@node Version Control
>> +@subsubsection Version Control
>> +
>> +The @code{(gnu services version-control)} module provides the following 
>> services:
>> +
>> +@deffn {Scheme Procedure} git-service [git @var{git}] @
>> +   [base-path ``/var/git/repositories''] @
>> +   [port ``9418'']
>
> Though there are no strict conventions for this, the right way to do
> this is to use #:foo for keyword arguments, and then regular scheme for
> the default value initializers.  So
>
> @deffn {Scheme Procedure} git-service [#:git git] @
>[#:base-path "/var/git/repositories"] @
>[#:port 9418]
>
> Note lack of smart quotes on base-path.

I had this at first, but then I found a service which did not use
#:keyword, so I got confused. Writing this service was hard enough
because I understand scheme in general more than 9 months ago, but not
enough to explain or understand all of what I've written in this
service, as it started as a modification of parts of other services. I
will adjust and we'll see if it works. Thanks.

>I also think that "path" might
> not be the right word, which in GNU manuals is only used for search
> paths.  See the "GNU Manuals" section of standards.texi for more.
> Anyway I suggest #:base-directory.  Make sure the port is an integer and
> not a string.

See 'man git daemon'.  The switch is called --base-path.  Looking at
the openrc conf.d/git or what the config file was called again, they
stick to this name too.  It would just cause confusion if we go ahead
and call it differently.  Upstream should be fixed, but I'm not going
there.  If you think we should break expectations, I can rename it.

>> +Return a service to run the @uref{https://git-scm.com, git} daemon version 
>> control
>> +daemon.
>
> Extra "daemon" here.  Probably needs a sentence on what running the
> daemon will do (namely, expose local repositories for remote access).
>
> What about authentication?  Is this purely anonymous?

Exactly, authentication is handled via other daemons, for example ssh or
gitolite. git daemon supports no authentication and is read-only, as far
as I know. At the servers I use and setup, I pull via
git://,http://,https:// and push via ssh.
Its selfdescription is:
git-daemon - A really simple server for Git repositories.

A really simple TCP Git daemon that normally listens on port
"DEFAULT_GIT_PORT" aka 9418. It waits for a connection asking for a
service, and will serve that service if it is enabled.

It verifies that the directory has the magic file
"git-daemon-export-ok", and it will refuse to export any Git directory
that hasn’t explicitly been marked for export this way (unless the
--export-all parameter is specified). If you pass some directory paths
as git daemon arguments, you can further restrict the offers to a
whitelist comprising of those.

By default, only upload-pack service is enabled, which serves git
fetch-pack and git ls-remote clients, which are invoked from git fetch,
git pull, and git clone.

This is ideally suited for read-only updates, i.e., pulling from Git
repositories.

An upload-archive also exists to serve git archive.

>> +The git daemon runs as the @code{git} unprivileged user.  It is started with
>> +the fixed parameters @code{--informative-errors} and @code{--syslog}.  You 
>> can
>
>> +pass the parameter @var{base-path}, which remaps all the pathrequests as
>> +relative to the given path.  If you run git daemon with
>> +@var{base-path /var/git/repositories} on example.com, then if you later try
>> +to pull @code{git://example.com/hello.git}, git daemon will interpret the 
>> path
>> +as /var/git/repositories/hello.git.
>
> Need @code{} on this last file name.

>Use "file name" instead of path in general.

Why? It is 1 or more files in a path which happens to sit in
$base-path/$repository.
You will also requests a number of files, not one individual file and
the .git is not a file but a directory. Path for me reads correct, can
you give me some explanation why you think file name should be used
instead of path?

>> +Furthermore it takes the parameter @var{port} which defaults to 9418.
>> +Run @command{man git daemon} for information about the options.
>
> This man command does not work.

Works for me. As far as I know man pages were merged into git package
recently. When I run this on debian with guix, 'man git daemon' works
too.

>> +(define %git-accounts
>> +  ;; User account and groups for git-daemon.
>> +  ;; We can give it git-shell for now, otherwise we can switch to /bin/sh.
>
> What does this comment mean?  Why would we switch?

I am not sure about the limitations of git-shell compared to
/bin/sh. If this turns out to be a mistake, it can be corrected. The
only thing I know about git-shell is that it allows no logins.

>> +(define* (git-service #:key
>> +  (git git)
>> +  (base-path 

Re: [PATCH] gnu: service: Add git-service.

[Andy Wingo]

On Mon 29 Aug 2016 22:05, ng0  writes:

> +@node Version Control
> +@subsubsection Version Control
> +
> +The @code{(gnu services version-control)} module provides the following 
> services:
> +
> +@deffn {Scheme Procedure} git-service [git @var{git}] @
> +   [base-path ``/var/git/repositories''] @
> +   [port ``9418'']

Though there are no strict conventions for this, the right way to do
this is to use #:foo for keyword arguments, and then regular scheme for
the default value initializers.  So

@deffn {Scheme Procedure} git-service [#:git git] @
   [#:base-path "/var/git/repositories"] @
   [#:port 9418]

Note lack of smart quotes on base-path.  I also think that "path" might
not be the right word, which in GNU manuals is only used for search
paths.  See the "GNU Manuals" section of standards.texi for more.
Anyway I suggest #:base-directory.  Make sure the port is an integer and
not a string.

> +Return a service to run the @uref{https://git-scm.com, git} daemon version 
> control
> +daemon.

Extra "daemon" here.  Probably needs a sentence on what running the
daemon will do (namely, expose local repositories for remote access).

What about authentication?  Is this purely anonymous?

> +The git daemon runs as the @code{git} unprivileged user.  It is started with
> +the fixed parameters @code{--informative-errors} and @code{--syslog}.  You 
> can

> +pass the parameter @var{base-path}, which remaps all the pathrequests as
> +relative to the given path.  If you run git daemon with
> +@var{base-path /var/git/repositories} on example.com, then if you later try
> +to pull @code{git://example.com/hello.git}, git daemon will interpret the 
> path
> +as /var/git/repositories/hello.git.

Need @code{} on this last file name.  Use "file name" instead of path in 
general.

> +Furthermore it takes the parameter @var{port} which defaults to 9418.
> +Run @command{man git daemon} for information about the options.

This man command does not work.

> +(define %git-accounts
> +  ;; User account and groups for git-daemon.
> +  ;; We can give it git-shell for now, otherwise we can switch to /bin/sh.

What does this comment mean?  Why would we switch?

> +(define* (git-service #:key
> +  (git git)
> +  (base-path "/var/git/repositories")
> +  (port 9418))
> +  "Return a service that runs @url{https://git-scm.org,git} as a daemon.
> +The daemon will listen on the port specified in @var{port}.
> +In addition, @var{base-path} specifies the path which will repositories
> +which can be exported by adding 'git-daemon-export-ok' files to them."

This docstring needs updating as regards the word "path" I think and
also this info about git-daemon-export-ok probably needs to go in the
manual.

Other than that, looking good :)

Andy

Re: [PATCH] gnu: service: Add git-service.

[ng0]

First try with added documentation.

>From d796e150183d15b8ce639051f202138970153a9e Mon Sep 17 00:00:00 2001
From: ng0 
Date: Fri, 8 Jul 2016 15:42:55 +
Subject: [PATCH] gnu: services: Add git-service.

* gnu/services/version-control.scm: New file, create it.
(git-service): New Procedures.
(git-service-type): New variable.
* doc/guix.texi: Add documentation.
---
 doc/guix.texi|  24 
 gnu/local.mk |   1 +
 gnu/services/version-control.scm | 116 +++
 3 files changed, 141 insertions(+)
 create mode 100644 gnu/services/version-control.scm

diff --git a/doc/guix.texi b/doc/guix.texi
index e25cf58..33fa4c6 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -7494,6 +7494,7 @@ declaration.
 * Database Services::   SQL databases.
 * Mail Services::   IMAP, POP3, SMTP, and all that.
 * Web Services::Web servers.
+* Version Control:: Git and others.
 * Various Services::Other services.
 @end menu
 
@@ -9910,6 +9911,29 @@ directories are created when the service is activated.
 
 @end deffn
 
+@node Version Control
+@subsubsection Version Control
+
+The @code{(gnu services version-control)} module provides the following services:
+
+@deffn {Scheme Procedure} git-service [git @var{git}] @
+   [base-path ``/var/git/repositories''] @
+   [port ``9418'']
+
+Return a service to run the @uref{https://git-scm.com, git} daemon version control
+daemon.
+The git daemon runs as the @code{git} unprivileged user.  It is started with
+the fixed parameters @code{--informative-errors} and @code{--syslog}.  You can
+pass the parameter @var{base-path}, which remaps all the pathrequests as
+relative to the given path.  If you run git daemon with
+@var{base-path /var/git/repositories} on example.com, then if you later try
+to pull @code{git://example.com/hello.git}, git daemon will interpret the path
+as /var/git/repositories/hello.git.
+Furthermore it takes the parameter @var{port} which defaults to 9418.
+Run @command{man git daemon} for information about the options.
+
+@end deffn
+
 @node Various Services
 @subsubsection Various Services
 
diff --git a/gnu/local.mk b/gnu/local.mk
index 7ce8ad0..3bedd97 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -390,6 +390,7 @@ GNU_SYSTEM_MODULES =\
   %D%/services/herd.scm\
   %D%/services/spice.scm\
   %D%/services/ssh.scm\
+  %D%/services/version-control.scm  \
   %D%/services/web.scm\
   %D%/services/xorg.scm\
 		\
diff --git a/gnu/services/version-control.scm b/gnu/services/version-control.scm
new file mode 100644
index 000..f32a592
--- /dev/null
+++ b/gnu/services/version-control.scm
@@ -0,0 +1,116 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2016 ng0 
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix.  If not, see .
+
+(define-module (gnu services version-control)
+  #:use-module (gnu services)
+  #:use-module (gnu services base)
+  #:use-module (gnu services shepherd)
+  #:use-module (gnu system shadow)
+  #:use-module (gnu packages version-control)
+  #:use-module (gnu packages admin)
+  #:use-module (guix records)
+  #:use-module (guix gexp)
+  #:use-module (srfi srfi-1)
+  #:use-module (ice-9 match)
+  #:export (git-service
+git-service-type
+git-configuration
+git-configuration?
+git-configuration-git
+git-configuration-port
+git-configuration-base-path))
+
+;;; Commentary:
+;;;
+;;; Version Control related services.
+;;;
+;;; Code:
+
+
+;;;
+;;; git
+;;;
+
+(define-record-type*  git-configuration
+  make-git-configuration
+  git-configuration?
+  (git   git-configuration-git  ;package
+ (default git))
+  (base-path git-configuration-base-path) ;string
+  (port  git-configuration-port)) ;number
+
+(define (git-shepherd-service config)
+  "Return a  for git with CONFIG."
+  (define git (git-configuration-git config))
+
+  (define git-command
+#~(list
+   (string-append #$git "/bin/git") "daemon" "--syslog"
+   "--informative-errors"
+   (string-append "--port=" #$(number->string (git-configuration-port config)))
+   (string-append "--base-path=" 

Re: [PATCH] gnu: service: Add git-service.

[ng0]

Andy Wingo  writes:

> On Mon 29 Aug 2016 15:04, ng0  writes:
>
>> I know I should add a section about it to documentation, but first I
>> want to get comments for the service as it currently is.
>
> No real comments until I know how it's supposed to work, which the
> documentation will tell me :)
>
> A

Oh. Sorry, my testvm was just run with this in
(services cons* (git-service)

as I was not able to try otherwise, the guix system vm lacked HOST -> VM
network, the only thing I could make sure is that the process with the
default parameters I gave it runs.
This is my first service, so I have no idea if it is correct or how to
do it, etc... I lack references.

I'll add documentation later.
-- 
ng0
For non-prism friendly talk find me on http://www.psyced.org

Re: [PATCH] gnu: service: Add git-service.

[Andy Wingo]

On Mon 29 Aug 2016 15:04, ng0  writes:

> I know I should add a section about it to documentation, but first I
> want to get comments for the service as it currently is.

No real comments until I know how it's supposed to work, which the
documentation will tell me :)

A