gitile/guix.scm

guix.scm

1
;;;; Copyright (C) 2020 Julien Lepiller <julien@lepiller.eu>
2
;;;;
3
;;;; This library is free software; you can redistribute it and/or
4
;;;; modify it under the terms of the GNU Lesser General Public
5
;;;; License as published by the Free Software Foundation; either
6
;;;; version 3 of the License, or (at your option) any later version.
7
;;;;
8
;;;; This library is distributed in the hope that it will be useful,
9
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
10
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
11
;;;; Lesser General Public License for more details.
12
;;;;
13
;;;; You should have received a copy of the GNU Lesser General Public
14
;;;; License along with this library; if not, write to the Free Software
15
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
16
;;;;
17
18
(use-modules (guix packages)
19
             (guix licenses)
20
             (guix build-system gnu)
21
             (guix git-download)
22
             (gnu packages autotools)
23
             (gnu packages gnupg)
24
             (gnu packages guile)
25
             (gnu packages guile-xyz)
26
             (gnu packages pkg-config)
27
             (gnu packages texinfo)
28
             (gnu packages tls))
29
30
(define my-guile-git
31
  (package
32
    (inherit guile-git)
33
    (source (origin
34
              (method git-fetch)
35
              (uri (git-reference
36
                     (url "https://gitlab.com/roptat/guile-git")
37
                     (commit "c39ab944d8004d3ab751a9e27336469afec081eb")))
38
              (file-name (git-file-name "guile-git" "0.4.0.c39ab94"))
39
              (sha256
40
               (base32
41
                "0hknsv9r7pjahmxkvd7zpz93saki5kymh88xs6pb4h9d0ssp4fmp"))))
42
    (native-inputs
43
     `(("autoconf" ,autoconf)
44
       ("automake" ,automake)
45
       ("texinfo" ,texinfo)
46
       ,@(package-native-inputs guile-git)))))
47
48
(define my-guile-syntax-highlight
49
  (package
50
    (inherit guile-syntax-highlight)
51
    (source (origin
52
              (method git-fetch)
53
              (uri (git-reference
54
                     (url "https://git.dthompson.us/guile-syntax-highlight.git")
55
                     (commit "51727cbb7fc05ef743aab2d7b16314ea1ed790e4")))
56
              (file-name (git-file-name "guile-syntax-highlight" "0.1.51727cb"))
57
              (sha256
58
               (base32
59
                "1cvacy4y5qxajygb1qg8hvhjdf2xnnwnm5j918cabsi8wfwchig7"))))
60
    (native-inputs
61
     `(("autoconf" ,autoconf)
62
       ("automake" ,automake)
63
       ("texinfo" ,texinfo)
64
       ,@(package-native-inputs guile-syntax-highlight)))))
65
66
(package
67
  (name "gitile")
68
  (version "0.1")
69
  (source #f)
70
  (build-system gnu-build-system)
71
  (propagated-inputs
72
   `(("guile-commonmark" ,guile-commonmark)
73
     ("guile-git" ,my-guile-git)
74
     ("guile-gcrypt" ,guile-gcrypt)
75
     ("guile-syntax-highlight" ,my-guile-syntax-highlight)
76
     ("gnutls" ,gnutls)
77
     ("guile-fibers" ,guile-fibers)))
78
  (native-inputs
79
   `(("autoconf" ,autoconf)
80
     ("automake" ,automake)
81
     ("libtool" ,libtool)
82
     ("pkg-config" ,pkg-config)
83
     ("guile" ,guile-3.0)))
84
  (home-page "https://git.lepiller.eu")
85
  (synopsis "")
86
  (description "")
87
  (license gpl3+))
88