system-configuration

Julien LepillerTue Oct 06 14:13:41+0200 2020

4d7aea5

Update gitile package and service

modules/packages/gitile.scm

 (define-module (packages gitile)
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages gnupg)
   #:use-module (gnu packages guile)
   #:use-module (gnu packages guile-xyz)
   #:use-module (gnu packages pkg-config)
               (method git-fetch)
               (uri (git-reference
                      (url "https://git.lepiller.eu/git/gitile")
                      (commit "e78303702bdc16fe49246a97e53b33dc47bb64de")))
               (file-name (git-file-name name (string-append version "-e783037")))
                      (commit "47c1ff58e830b905a394f023f62dd7a03c111606")))
               (file-name (git-file-name name (string-append version "-47c1ff5")))
               (sha256
                (base32
                 "10v5ffdlr2f1p4mf485r6p7f9vi3ypil4y70p8x1w87s5qa3dwxr"))))
                 "1s6pk77glyy6rrx76kv3vzjkp9g7j5kkwn2khbx1hyhada21i63y"))))
     (build-system gnu-build-system)
     (arguments
      `(#:modules ((guix build utils)
                       (git    (assoc-ref inputs "guile-git"))
                       (bytes  (assoc-ref inputs "guile-bytestructures"))
                       (fibers (assoc-ref inputs "guile-fibers"))
                       (deps   (list out git bytes fibers))
                       (gcrypt (assoc-ref inputs "guile-gcrypt"))
                       (deps   (list out git bytes fibers gcrypt))
                       (guile  (assoc-ref %build-inputs "guile"))
                       (effective (read-line
                                   (open-pipe* OPEN_READ
     (inputs
      `(("guile" ,guile-3.0)
        ("guile-fibers" ,guile-fibers)
        ("guile-gcrypt" ,guile-gcrypt)
        ("guile-git" ,guile-git)
        ("gnutls" ,gnutls)))
     (home-page "")

modules/services/gitile.scm

   #:use-module (guix records)
   #:use-module (ice-9 match)
   #:export (gitile-service-type
 	    gitile-configuration))
             gitile-configuration))
 (define-record-type* <gitile-configuration>
   gitile-configuration make-gitile-configuration gitile-configuration?
   (package gitile-configuration-package
 	   (default gitile))
            (default gitile))
   (host gitile-configuration-host
 	(default "localhost"))
         (default "localhost"))
   (port gitile-configuration-port
 	(default 8080))
         (default 8080))
   (database gitile-configuration-database
 	    (default "/var/lib/gitile/gitile-db.sql"))
             (default "/var/lib/gitile/gitile-db.sql"))
   (repositories gitile-configuration-repositories
 		(default "/var/lib/gitolite/repositories")))
                 (default "/var/lib/gitolite/repositories")))
 (define (gitile-config-file host port database repositories)
 (define (gitile-config-file host port database repositories)
   (define build
     #~(write `(config
 		(port #$port)
 	        (host #$host)
                 (port #$port)
                 (host #$host)
                 (database #$database)
                 (repositories #$repositories))
 	     (open-output-file #$output)))
              (open-output-file #$output)))
   (computed-file "gitile.conf" build))
              (start (let ((gitile (file-append package "/bin/gitile")))
                           #~(make-forkexec-constructor
                               `(,#$gitile "-c" #$(gitile-config-file
 						   host port database
 						   repositories)))))
                                                    host port database
                                                    repositories))
                               #:user "gitile"
                               #:group "git")))
              (stop #~(make-kill-destructor)))))))
 (define %gitile-accounts