blob: 205990d1eb7e4147321f63fbd21a27d481f2525d (
about) (
plain) (
blame)
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
|
(define-module (xyz euandreh packages euandreh)
#:use-module ((ice-9 textual-ports) #:prefix textual-ports:)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix transformations)
#:use-module (guix gexp)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix utils)
#:use-module (guix store)
#:use-module (guix build-system gnu))
(define (read-from-store-file src name)
(run-with-store (open-connection)
(gexp->script "read-from-file-in-store"
#~(string-trim-both
(call-with-input-file
#$(file-append src name)
textual-ports:get-string-all)))))
(define (euandreh-package name version-prefix version hash)
(package
(name name)
(version version)
(source (origin
(method url-fetch)
(uri (string-append
"https://git.euandreh.xyz/"
name
"/snapshot/"
name
"-"
version-prefix
version
".tar.gz"))
(hash hash)))
(build-system gnu-build-system)
;; This shouldn't be necessary, but
;; the `gnu-build-system' doesn't provide a c99 variable
(arguments `(#:make-flags (list (string-append "CC=" ,(cc-for-target)))))
(synopsis (file-append source "/description"))
(description "FIXME")
(home-page (string-append "https://" name ".euandreh.xyz"))
(license license:agpl3+)))
(define-public remembering
(euandreh-package
"remembering"
""
"cca66c6f53e8bce857faae88368c0b07e6ace9e1"
(content-hash "1b90cpnv9p6p1cggiv6kp2q6v6lqhsv2q1zk6djnylfzzc8hszay")))
(define-public autoqemu
(euandreh-package
"autoqemu"
"5c44e0d0fa46ccd35c28e48849fcd5153fe41e5a"
""
(content-hash "15zxy86dvahshrghngkb70g6bc0cvz7h547vmh4fkaxgh8zh5ahg")))
|
