# -*- mode: snippet -*-
# name: guix-origin
# key: origin...
# --
(origin
 (method ${1:$$(yas-choose-value "url-fetch"
                                 "url-fetch/tarbomb"
                                 "url-fetch/zipbomb"
                                 "cvs-fetch"
                                 "git-fetch"
                                 "hg-fetch"
                                 "svn-fetch"
                                 "bzr-fetch")})
 (uri ${1:$(cond ((equal yas-text "git-fetch") "git-reference...")
                 ((equal yas-text "svn-fetch") "svn-reference...")
                 ((equal yas-text "hg-fetch")  "hg-reference...")
                 ((equal yas-text "cvs-fetch") "cvs-reference...")
                 ((equal yas-text "bzr-fetch") "bzr-reference...")
                 (t "(string-append \\"https://\\" version \\".tar.gz\\")"))}$0)
 ${1:$(cond ((equal yas-text "git-fetch")
             "(file-name (git-file-name name version))")
            ((member yas-text '("svn-fetch" "hg-fetch" "cvs-fetch" "bzr-fetch"))
             "(file-name (string-append name \\"-\\" version \\"-checkout\\"))")
            (t ""))}
 (sha256
  (base32
    "$2")))ef='/guix/log/HACKING'>log</a><a href='/guix/tree/HACKING?id=a6280c80ebaa798fb208b15da970eb3a61f3b888'>tree</a><a href='/guix/commit/HACKING?id=a6280c80ebaa798fb208b15da970eb3a61f3b888'>commit</a><a href='/guix/diff/HACKING?id=a6280c80ebaa798fb208b15da970eb3a61f3b888'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/HACKING'>
<input type='hidden' name='id' value='a6280c80ebaa798fb208b15da970eb3a61f3b888'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=a6280c80ebaa798fb208b15da970eb3a61f3b888'>root</a>/<a href='/guix/log/HACKING?id=a6280c80ebaa798fb208b15da970eb3a61f3b888'>HACKING</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/HACKING?id=a6280c80ebaa798fb208b15da970eb3a61f3b888&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
ss='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/tests/build-emacs-utils.scm?id=397ea21db2c6bb9d5cc589cdc834b07fffe503fc&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-07-13 10:49:40 -0400'>2022-07-13</span></td><td><a href='/guix/commit/tests/build-emacs-utils.scm?id=dcf133587ac7d73ba306a314e1a496a7efb9960b'>tests: build-emacs-utils: Allow test to pass on Emacs 27 too.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/build-emacs-utils.scm
("emacs-batch-script: raise &amp;emacs-batch-error on failure"): More loosely
match expected error string, which differs between Emacs 27 and Emacs 28.
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-06-17 23:39:32 +0200'>2022-06-17</span></td><td><a href='/guix/commit/tests/build-emacs-utils.scm?id=c3afbd05bf541b31b122e6093ff10eabf6a47926'>guix: emacs-utils: Add emacs-header-parse.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/build/emacs-utils.scm (emacs-header-parse): New procedure.

* tests/build-emacs-utils.scm ("emacs-header-parse: fetch version",
  "emacs-header-parse: fetch keywords", "emacs-header-parse: fetch
  nonexistent author"): New tests.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Fredrik Salomonsson</td></tr>
<tr><td><span title='2022-06-17 23:39:31 +0200'>2022-06-17</span></td><td><a href='/guix/commit/tests/build-emacs-utils.scm?id=f8275916fc6fcb3dd9bd8ef7dc4ddce2dca98c7d'>guix: emacs-utils: Add emacs-batch-script.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/build/emacs-utils.scm (emacs-batch-script): New procedure.

* tests/build-emacs-utils.scm: New file.

* Makefile.am (TESTS): Add `tests/build-emacs-utils.scm'.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Fredrik Salomonsson</td></tr>