;;;; 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) #:prefix license:)

  #: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

  (let ((commit "aab4989efe4b5bcd3b1ac7fe108e1290de975fc0")

	(revision "0"))

    (package

      (name "gitile")

      (version (git-version "0.1.4" 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 "0rslmrqspv32pbf9qz0glm8d3cxb1bz1sgi6ak2zl7blg25lw2l1"))))

      (build-system gnu-build-system)

      (arguments

       `(#:imported-modules ((guix build guile-build-system)

                             ,@%gnu-build-system-modules)

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

         #:phases

         (modify-phases %standard-phases

           (replace 'bootstrap

             (lambda _

               ;; The 'bootstrap' script lacks a shebang, leading to "Exec

               ;; format error" with glibc 2.35.

               (invoke "autoreconf" "-vfi")))

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

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

               (use-modules (guix build guile-build-system))

               ;; 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 inputs "guile"))

                      (effective (target-guile-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)))))))))

      (native-inputs

       (list autoconf automake guile-3.0 pkg-config))

      (inputs

       (list guile-3.0

             guile-commonmark

             guile-fibers-1.3

             guile-gcrypt

             guile-git

             guile-syntax-highlight-for-gitile

             guile-gnutls))

      (home-page "https://git.lepiller.eu/gitile")

      (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 license:agpl3+))))

gitile