gitile/guix.scm

guix.scm

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