blob: 02abd7e296a57fd5a290d947a27df526c083cb61 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
;;; tissue --- Text based issue tracker
;;; Copyright © 2022, 2023 Arun Isaac <arunisaac@systemreboot.net>
;;;
;;; This file is part of tissue.
;;;
;;; tissue is free software: you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation, either version 3 of the License, or
;;; (at your option) any later version.
;;;
;;; tissue 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
;;; General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with tissue. If not, see <https://www.gnu.org/licenses/>.
(use-modules ((gnu packages autotools) #:select (autoconf automake))
((gnu packages fonts) #:select (font-ibm-plex) #:prefix guix:)
((gnu packages gettext) #:select (gnu-gettext))
((gnu packages guile) #:select (guile-3.0 guile-git))
((gnu packages guile-xyz) #:select (guile-filesystem))
((gnu packages guile-xyz) #:select (guile-xapian) #:prefix guix:)
((gnu packages skribilo) #:prefix guix:)
(guix build-system gnu)
(guix gexp)
(guix git-download)
((guix licenses) #:prefix license:)
(guix packages)
(guix utils))
(define %source-dir (dirname (current-filename)))
;; tissue requires an unreleased version of skribilo for its gemtext
;; reader.
(define-public skribilo-latest
(let ((commit "621eb1945aec8f26f5aee4bdf896f2434e145182")
(revision "1"))
(package
(inherit guix:skribilo)
(name "skribilo")
(version (git-version "0.9.5" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://git.savannah.gnu.org/git/skribilo.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"16rdcvszl9x183y32hjdwns0lkrvkmwd2fsshymspb12k4cxj6i4"))))
(native-inputs
(modify-inputs (package-native-inputs guix:skribilo)
(prepend autoconf)
(prepend automake)
(prepend gnu-gettext))))))
(define font-ibm-plex
(package
(inherit guix:font-ibm-plex)
(arguments
(substitute-keyword-arguments (package-arguments guix:font-ibm-plex)
((#:phases phases #~%standard-phases)
#~(modify-phases #$phases
;; Install the woff/woff2 web fonts instead of opentype
;; and truetype fonts.
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(for-each (lambda (file)
(install-file file (string-append out "/share/fonts/web")))
(find-files (getcwd) "\\.(woff|woff2)$")))))))))))
(define guile-xapian
(let ((commit "93162fd60dbc0cce726113a82c13d88783a279b6")
(revision "1"))
(package
(inherit guix:guile-xapian)
(name "guile-xapian")
(version (git-version (package-version guix:guile-xapian)
revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://git.systemreboot.net/guile-xapian")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0g9w10wsjw11ayi9l5y0k6lz4mq2qfhq2hwbxbqgdj7jmllwirgp")))))))
(define tissue
(package
(name "tissue")
(version "0.1.0")
(source (local-file %source-dir
#:recursive? #t
#:select? (git-predicate %source-dir)))
(build-system gnu-build-system)
(arguments
(list #:make-flags #~(list (string-append "prefix=" #$output))
#:modules `(((guix build guile-build-system)
#:select (target-guile-effective-version))
,@%gnu-build-system-modules)
#:phases
(with-imported-modules '((guix build guile-build-system))
#~(modify-phases %standard-phases
(replace 'patch-source-shebangs
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "bin/tissue"
(("^exec guile")
(string-append "exec " (search-input-file inputs "/bin/guile"))))))
(delete 'configure)
(add-after 'install 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(effective-version (target-guile-effective-version)))
(wrap-program (string-append out "/bin/tissue")
`("GUILE_LOAD_PATH" prefix
(,(string-append out "/share/guile/site/" effective-version)
,(getenv "GUILE_LOAD_PATH")))
`("GUILE_LOAD_COMPILED_PATH" prefix
(,(string-append out "/lib/guile/" effective-version "/site-ccache")
,(getenv "GUILE_LOAD_COMPILED_PATH")))))))))))
(inputs
(list guile-3.0 guile-filesystem guile-git guile-xapian))
(propagated-inputs
(list skribilo-latest))
(home-page "https://tissue.systemreboot.net")
(synopsis "Text based issue tracker")
(description "tissue is a text based issue tracker.")
(license license:gpl3+)))
(package
(inherit tissue)
(native-inputs
(modify-inputs (package-native-inputs tissue)
(prepend font-ibm-plex))))
|
