;;; GNU Guix --- Functional package management for GNU

;;; Copyright © 2020 Julien Lepiller <julien@lepiller.eu>

;;;

;;; 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 <http://www.gnu.org/licenses/>.

;;;

;;; Some of the help text was taken from the default dovecot.conf files.

(define-module (packages gitile)

  #:use-module (gnu packages autotools)

  #:use-module (gnu packages guile)

  #:use-module (gnu packages guile-xyz)

  #:use-module (gnu packages pkg-config)

  #:use-module (gnu packages tls)

  #:use-module (guix build-system gnu)

  #:use-module (guix git-download)

  #:use-module (guix packages)

  #:use-module (guix licenses))

(define-public gitile

  (package

    (name "gitile")

    (version "0.1")

    (source (origin

              (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")))

              (sha256

               (base32

                "10v5ffdlr2f1p4mf485r6p7f9vi3ypil4y70p8x1w87s5qa3dwxr"))))

    (build-system gnu-build-system)

    (arguments

     `(#:modules ((guix build utils)

                  (guix build gnu-build-system)

                  (ice-9 rdelim)

                  (ice-9 popen))

       #:make-flags (list "GUILE_AUTO_COMPILE=0")

       #:phases

       (modify-phases %standard-phases

         (add-after 'install 'install-bin

           (lambda* (#:key outputs #:allow-other-keys)

             (install-file "scripts/gitile"

                           (string-append (assoc-ref outputs "out")

                                          "/bin"))

             #t))

         (add-after 'install-bin 'wrap-program

             (lambda* (#:key inputs outputs #:allow-other-keys)

               ;; Wrap the 'cuirass' command to refer to the right modules.

               (let* ((out    (assoc-ref outputs "out"))

                      (git    (assoc-ref inputs "guile-git"))

                      (bytes  (assoc-ref inputs "guile-bytestructures"))

                      (fibers (assoc-ref inputs "guile-fibers"))

                      (deps   (list out git bytes fibers))

                      (guile  (assoc-ref %build-inputs "guile"))

                      (effective (read-line

                                  (open-pipe* OPEN_READ

                                              (string-append guile "/bin/guile")

                                              "-c" "(display (effective-version))")))

                      (mods   (string-drop-right  ;drop trailing colon

                               (string-join deps

                                            (string-append "/share/guile/site/"

                                                           effective ":")

                                            'suffix)

                               1))

                      (objs   (string-drop-right

                               (string-join deps

                                            (string-append "/lib/guile/" effective

                                                           "/site-ccache:")

                                            'suffix)

                               1)))

                 (wrap-program (string-append out "/bin/gitile")

                   `("GUILE_LOAD_PATH" ":" prefix (,mods))

                   `("GUILE_LOAD_COMPILED_PATH" ":" prefix (,objs)))

                 #t))))))

    (native-inputs

     `(("autoconf" ,autoconf)

       ("automake" ,automake)

       ("guile" ,guile-3.0)

       ("pkg-config" ,pkg-config)))

    (inputs

     `(("guile" ,guile-3.0)

       ("guile-fibers" ,guile-fibers)

       ("guile-git" ,guile-git)

       ("gnutls" ,gnutls)))

    (home-page "")

    (synopsis "")

    (description "")

    (license gpl3+)))

gitile