# -*- mode: snippet -*-
# name: guix-commit-message-update-package
# key: update
# condition: git-commit-mode
# --

gnu: ${1:`(with-temp-buffer
           (magit-git-wash #'magit-diff-wash-diffs
             "diff" "--staged")
           (goto-char (point-min))
           (when (re-search-forward "^[ ]*(define-public \\(\\S-+\\)" nil 'noerror)
             (match-string-no-properties 1)))`}: Update to ${2:`(with-temp-buffer
    (magit-git-wash #'magit-diff-wash-diffs
      "diff" "--staged")
    (goto-char (point-min))
    (search-forward "name" nil 'noerror)
    (search-forward "+" nil 'noerror)   ; first change
    (when (and (search-forward "version " nil 'noerror)
               (looking-at-p "\""))
      (let ((end (save-excursion (search-forward "\")" nil 'noerror))))
        (when end
          (forward-char)
          (buffer-substring-no-properties (point) (- end 2))))))`}.

* `(car (magit-staged-files))` ($1): Update to $2.$0
`(mapconcat (lambda (file) (concat "* " file)) (cdr (magit-staged-files)) "\n")`><a href='/guix/'>summary</a><a href='/guix/refs/?id=a30627d82bd53ab048410586d44ba1debc1d1010'>refs</a><a class='active' href='/guix/log/tests/syscalls.scm'>log</a><a href='/guix/tree/tests/syscalls.scm?id=a30627d82bd53ab048410586d44ba1debc1d1010'>tree</a><a href='/guix/commit/tests/syscalls.scm?id=a30627d82bd53ab048410586d44ba1debc1d1010'>commit</a><a href='/guix/diff/tests/syscalls.scm?id=a30627d82bd53ab048410586d44ba1debc1d1010'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/tests/syscalls.scm'>
<input type='hidden' name='id' value='a30627d82bd53ab048410586d44ba1debc1d1010'/><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=a30627d82bd53ab048410586d44ba1debc1d1010'>root</a>/<a href='/guix/log/tests?id=a30627d82bd53ab048410586d44ba1debc1d1010'>tests</a>/<a href='/guix/log/tests/syscalls.scm?id=a30627d82bd53ab048410586d44ba1debc1d1010'>syscalls.scm</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/tests/syscalls.scm?id=a30627d82bd53ab048410586d44ba1debc1d1010&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-06-28 23:32:52 +0200'>2020-06-28</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=5e113cf4424b2746cbf3633cd2106c62b89e5b49'>tests: Do not fail when network interface aliases are present.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/42111&gt;.

* tests/syscalls.scm ("network-interface-names"): Filter interface names with
a colon.
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-06-05 19:20:23 +0200'>2020-06-05</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=ea924134f819eef072ba7df9080d39de97fd73e6'>tests: syscall: Support file-systems without extended attributes.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/syscalls.scm (setxattr): Catch ENOTSUP that can be raised if the
file-system does not support extended user attributes.
</span></span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-06-02 10:24:03 +0200'>2020-06-02</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=cb21c14b0ae1f4c9fcad4927e3b2eb0c06d7b018'>tests: Allow passing on systems without support for swap devices.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/syscalls.scm ("swapon", "swapoff"): Accept ENOSYS as a valid result.

Signed-off-by: Mathieu Othacehe &lt;othacehe@gnu.org&gt;
</span></span></td><td>Simon South</td></tr>
<tr><td><span title='2020-05-14 00:48:12 +0200'>2020-05-14</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=df05842332be80ed7f53022402b95cf711163b41'>syscalls: Add 'getxattr'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/build/syscalls.scm (getxattr): New procedure.
* tests/syscalls.scm ("getxattr, setxattr"): Test it, together with setxattr.
</span></span></td><td>Jan (janneke) Nieuwenhuizen</td></tr>
<tr><td><span title='2020-02-11 12:33:35 +0100'>2020-02-11</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=1deca767be1b84b96633e317f3fcdd5165f95df3'>syscalls: Re-enable 'pivot-root' test.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/25476&gt;.
Reported by Paul Garlick &lt;pgarlick@tourbillion-technology.com&gt;.

* tests/syscalls.scm ("pivot-root"): Skip only when
PERFORM-CONTAINER-TESTS? is true.  Rewrite to use a socket pair instead
of a pipe.  Synchronize parent and child so that the parent can
initialize the child's UID and GID mappings before continuing.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-10-05 22:05:02 +0200'>2019-10-05</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=5e5f7167943b408ae55736a44908a82056c87780'>syscalls: Add 'add-to-entropy-count'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/build/syscalls.scm (RNDADDTOENTCNT): New variable.
(add-to-entropy-count): New procedure.
* tests/syscalls.scm ("add-to-entropy-count"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-06-27 11:14:40 +0200'>2019-06-27</span></td><td><a href='/guix/commit/tests/syscalls.scm?id=4593f5a654b4e59c5025cc4f99914e24e82515a4'>syscalls: Add 'terminal-rows'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/build/syscalls.scm (terminal-dimension): New procedure.
(terminal-columns): Rewrite in terms of 'terminal-dimension'.
(terminal-rows): New procedure.
* tests/syscalls.scm ("terminal-rows"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>