blob ac48a1038b906b5f765b63217f5c4b61169024e0 3727 bytes (raw)
name: etc/snippets/tempel/scheme-mode.eld # 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
| | -*- mode: lisp-data -*-
scheme-mode
(package...
"(define-public " (s name) n>
"(package" n>
"(name \"" (s name) "\")" n>
"(version \"" p "\")" n>
"(source origin..." p ")" n>
"(build-system \""
(p (completing-read "build-system:"
'("android-ndk-build-system"
"ant-build-system"
"asdf-build-system"
"cargo-build-system"
"chicken-build-system"
"clojure-build-system"
"cmake-build-system"
"copy-build-system"
"dub-build-system"
"dune-build-system"
"emacs-build-system"
"font-build-system"
"glib-or-gtk-build-system"
"gnu-build-system"
"go-build-system"
"guile-build-system"
"haskell-build-system"
"julia-build-system"
"linux-module-build-system"
"maven-build-system"
"meson-build-system"
"minetest-build-system"
"minify-build-system"
"node-build-system"
"ocaml-build-system"
"perl-build-system"
"python-build-system"
"qt-build-system"
"r-build-system"
"rakudo-build-system"
"rebar-build-system"
"renpy-build-system"
"ruby-build-system"
"scons-build-system"
"texlive-build-system"
"trivial-build-system"
"waf-build-system")
nil t)) "\")" 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 ac48a1038b ...
found ac48a1038b in https://yhetil.org/guix-patches/20220809102440.10570-1-ngraves@ngraves.fr/
applying [1/1] https://yhetil.org/guix-patches/20220809102440.10570-1-ngraves@ngraves.fr/
diff --git a/etc/snippets/tempel/scheme-mode.eld b/etc/snippets/tempel/scheme-mode.eld
new file mode 100644
index 0000000000..ac48a1038b
Checking patch etc/snippets/tempel/scheme-mode.eld...
Applied patch etc/snippets/tempel/scheme-mode.eld cleanly.
index at:
100644 ac48a1038b906b5f765b63217f5c4b61169024e0 etc/snippets/tempel/scheme-mode.eld
(*) 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).