blob 386c9e653f78cbf3217f8f99411d9c6699601b23 3300 bytes (raw)
name: etc/snippets/tempel/scheme-mode # note: path name is non-authoritative(*)
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
| | -*- mode: lisp-data -*-
scheme-mode
(package...
"(define-public " (s name)
n> "(package"
n> "(name \"" (s name) "\")"
n> "(version \"" p "\")"
n> "(source origin...)"
n> "(build-system \""
(p (completing-read "build-system:"
'("android-ndk"
"ant"
"asdf"
"cargo"
"chicken"
"clojure"
"cmake"
"copy"
"dub"
"dune"
"emacs"
"font"
"glib-or-gtk"
"gnu"
"go"
"guile"
"haskell"
"julia"
"linux-module"
"maven"
"meson"
"minetest"
"minify"
"node"
"ocaml"
"perl"
"python"
"qt"
"r"
"rakudo"
"rebar"
"renpy"
"ruby"
"scons"
"texlive"
"trivial"
"waf")
nil t) "-build-system")
"\")"
n> "(home-page \"" p "\")"
n> "(synopsis \"" p "\")"
n> "(description \"" p "\")"
n> "(license " p ")))" n)
(origin...
"(origin"
n> "(method \""
(p (completing-read "method:"
'("url-fetch"
"url-fetch/tarbomb"
"url-fetch/zipbomb"
"cvs-fetch"
"git-fetch"
"hg-fetch"
"svn-fetch"
"bzr-fetch")
nil t) method) "\")"
n> "(uri " (cl-case (intern method)
('git-fetch "git-reference...")
('svn-fetch "svn-reference...")
('hg-fetch "hg-reference...")
('cvs-fetch "cvs-reference...")
('bzr-fetch "bzr-reference...")
(t "(string-append \"https://"))
p
(if (equal (substring method 0 9) "url-fetch") "\")")
")"
n> (cl-case (intern method)
('git-fetch "(file-name (git-file-name name version))\n")
('hg-fetch "(file-name (hg-file-name name version))\n")
('svn-fetch "(file-name (string-append name \"-\" version \"-checkout\"))\n")
('cvs-fetch "(file-name (string-append name \"-\" version \"-checkout\"))\n")
('bzr-fetch "(file-name (string-append name \"-\" version \"-checkout\"))\n")
(t ""))
> "(sha256"
n> "(base32 \"" p "\")))")
(git-reference...
"(git-reference"
n> "(url \"" p "\")"
n> "(commit \"" p "\"))")
(svn-reference...
"(svn-reference"
n> "(url \"" p "\")"
n> "(revision \"" p "\"))")
(cvs-reference...
"(cvs-reference"
n> "(root-directory \"" p "\")"
n> "(module \"" p "\")"
n> "(revision \"" p "\"))")
(hg-reference...
"(hg-reference"
n> "(url \"" p "\")"
n> "(changeset \"" p "\"))")
(bzr-reference...
"(bzr-reference"
n> "(url \"" p "\")"
n> "(revision \"" p "\"))")
|
debug log:
solving 386c9e653f ...
found 386c9e653f in https://yhetil.org/guix-patches/20220812085851.12104-1-ngraves@ngraves.fr/
applying [1/1] https://yhetil.org/guix-patches/20220812085851.12104-1-ngraves@ngraves.fr/
diff --git a/etc/snippets/tempel/scheme-mode b/etc/snippets/tempel/scheme-mode
new file mode 100644
index 0000000000..386c9e653f
Checking patch etc/snippets/tempel/scheme-mode...
Applied patch etc/snippets/tempel/scheme-mode cleanly.
index at:
100644 386c9e653f78cbf3217f8f99411d9c6699601b23 etc/snippets/tempel/scheme-mode
(*) Git path names are given by the tree(s) the blob belongs to.
Blobs themselves have no identifier aside from the hash of its contents.^
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).