;;;; Copyright (C) 2020 Julien Lepiller <julien@lepiller.eu>
;;;; 
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
;;;; License as published by the Free Software Foundation; either
;;;; version 3 of the License, or (at your option) any later version.
;;;; 
;;;; This library 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
;;;; Lesser General Public License for more details.
;;;; 
;;;; You should have received a copy of the GNU Lesser General Public
;;;; License along with this library; if not, write to the Free Software
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
;;;; 

(use-modules (guix packages)
             (guix licenses)
             (guix build-system gnu)
             (guix git-download)
             (gnu packages autotools)
             (gnu packages gnupg)
             (gnu packages guile)
             (gnu packages guile-xyz)
             (gnu packages pkg-config)
             (gnu packages texinfo)
             (gnu packages tls))

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

(package
  (name "gitile")
  (version "0.1")
  (source #f)
  (build-system gnu-build-system)
  (propagated-inputs
   `(("guile-commonmark" ,guile-commonmark)
     ("guile-git" ,my-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 "")
  (description "")
  (license gpl3+))