;;; 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 gnupg)

  #:use-module (gnu packages guile)

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

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

  #:use-module (gnu packages texinfo)

  #: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 my-guile-git

  (package

    (inherit guile-git)

    (source (origin

              (method git-fetch)

              (uri (git-reference

                     (url "https://gitlab.com/roptat/guile-git")

                     (commit "c39ab944d8004d3ab751a9e27336469afec081eb")))

              (file-name (git-file-name "guile-git" "0.4.0.c39ab94"))

              (sha256

               (base32

                "0hknsv9r7pjahmxkvd7zpz93saki5kymh88xs6pb4h9d0ssp4fmp"))))

    (native-inputs

     `(("autoconf" ,autoconf)

       ("automake" ,automake)

       ("texinfo" ,texinfo)

       ,@(package-native-inputs guile-git)))))

(define my-guile-syntax-highlight

  (package

    (inherit guile-syntax-highlight)

    (source (origin

              (method git-fetch)

              (uri (git-reference

                     (url "https://git.dthompson.us/guile-syntax-highlight.git")

                     (commit "51727cbb7fc05ef743aab2d7b16314ea1ed790e4")))

              (file-name (git-file-name "guile-syntax-highlight" "0.1.51727cb"))

              (sha256

               (base32

                "1cvacy4y5qxajygb1qg8hvhjdf2xnnwnm5j918cabsi8wfwchig7"))))

    (native-inputs

     `(("autoconf" ,autoconf)

       ("automake" ,automake)

       ("texinfo" ,texinfo)

       ,@(package-native-inputs guile-syntax-highlight)))))

(define-public gitile

  (let ((commit "fac1f0ccdbaca794451ae43526b1bbffacd8161a")

	(revision "0"))

    (package

      (name "gitile")

      (version (git-version "0.0" revision commit))

      (source (origin

                (method git-fetch)

                (uri (git-reference

                       (url "https://git.lepiller.eu/git/gitile")

                       (commit commit)))

                (file-name (git-file-name name version))

                (sha256

                 (base32

                  "048pm743gnxashggngw3zlsr13wf0k686n3j23czc4988gz7mfvp"))))

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

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

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

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

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

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

			(syntax-highlight (assoc-ref inputs "guile-syntax-highlight"))

                        (deps   (list out commonmark git bytes fibers gcrypt

				      syntax-highlight))

                        (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-commonmark" ,guile-commonmark)

         ("guile-fibers" ,guile-fibers)

         ("guile-gcrypt" ,guile-gcrypt)

         ("guile-git" ,my-guile-git)

	 ("guile-syntax-highlight" ,my-guile-syntax-highlight)

         ("gnutls" ,gnutls)))

      (home-page "")

      (synopsis "")

      (description "")

      (license gpl3+))))

gitile