;;;; Copyright (C) 2020, 2021 Julien Lepiller <julien@lepiller.eu>
;;;;
;;;; SPDX-License-Identifier: AGPL-3.0-or-later
;;;;
;;;; This program is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU Affero General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, or
;;;; (at your option) any later version.
;;;;
;;;; This program 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 Affero General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU Affero General Public License
;;;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
;;;;

(define-module (packages gitile)
  #:use-module (guix packages)
  #:use-module (guix licenses)
  #:use-module (guix build-system gnu)
  #:use-module (guix git-download)
  #:use-module (guix git)
  #: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))

(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 "897fa5156ff41588e0d281eb00e4e94de63ccd8a")))
              (file-name (git-file-name "guile-syntax-highlight" "0.1.897fa51"))
              (sha256
               (base32
                "18zlg4mkgd3swgv2ggfz91ivnnzc0zhvc9ybgrxg1y762va9hyvj"))))
    (native-inputs
     `(("autoconf" ,autoconf)
       ("automake" ,automake)
       ("texinfo" ,texinfo)
       ,@(package-native-inputs guile-syntax-highlight)))))

(define-public gitile
  (package
    (name "gitile")
    (version "0.1.4")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                     (url "https://git.lepiller.eu/git/gitile")
                     (commit "aab4989efe4b5bcd3b1ac7fe108e1290de975fc0")))
              (file-name (git-file-name name "0.1.4.aab4989"))
              (sha256
               (base32
                "0rslmrqspv32pbf9qz0glm8d3cxb1bz1sgi6ak2zl7blg25lw2l1"))))
    (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-bin 'wrap-program
           (lambda* (#:key inputs outputs #:allow-other-keys)
             ;; Wrap the 'gitile' 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)))))))))
    (propagated-inputs
     `(("guile-commonmark" ,guile-commonmark)
       ("guile-git" ,guile-git)
       ("guile-gcrypt" ,guile-gcrypt)
       ("guile-syntax-highlight" ,my-guile-syntax-highlight)
       ("gnutls" ,gnutls)
       ("guile-fibers" ,guile-fibers)))
    (native-inputs
     `(("autoconf" ,autoconf)
       ("automake" ,automake)
       ("libtool" ,libtool)
       ("pkg-config" ,pkg-config)
       ("guile" ,guile-3.0)))
    (home-page "https://git.lepiller.eu")
    (synopsis "Simple git forge written in Guile")
    (description "Gitile is a git forge written in Guile that lets you
visualize your public Git repositories on a web interface.")
    (license agpl3+)))

gitile