-*- mode: lisp-data -*-

text-mode :when (and (fboundp 'git-commit-mode) (git-commit-mode))

(add\ 
 "gnu: Add "
 (p
  (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)))
  var ) "." n n
 "* " (car (magit-staged-files)) " (" (s var ) "): New variable.")

(remove\ 
 "gnu: Remove "
 (p (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)))
    var) "." n n
 "* " (car (magit-staged-files)) " (" (s var) "): Delete variable.")

(rename\ 
 "gnu: "
 (p (with-temp-buffer
      (magit-git-wash #'magit-diff-wash-diffs
        "diff" "--staged")
      (beginning-of-buffer)
      (when (search-forward "-(define-public " nil 'noerror)
        (thing-at-point 'sexp 'no-properties)))
   </td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=823997e969718efd6ab56fca7a9aae3f458ba978'>refs</a><a class='active' href='/guix/log/gnu/packages/package-management.scm'>log</a><a href='/guix/tree/gnu/packages/package-management.scm?id=823997e969718efd6ab56fca7a9aae3f458ba978'>tree</a><a href='/guix/commit/gnu/packages/package-management.scm?id=823997e969718efd6ab56fca7a9aae3f458ba978'>commit</a><a href='/guix/diff/gnu/packages/package-management.scm?id=823997e969718efd6ab56fca7a9aae3f458ba978'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/package-management.scm'>
<input type='hidden' name='id' value='823997e969718efd6ab56fca7a9aae3f458ba978'/><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=823997e969718efd6ab56fca7a9aae3f458ba978'>root</a>/<a href='/guix/log/gnu?id=823997e969718efd6ab56fca7a9aae3f458ba978'>gnu</a>/<a href='/guix/log/gnu/packages?id=823997e969718efd6ab56fca7a9aae3f458ba978'>packages</a>/<a href='/guix/log/gnu/packages/package-management.scm?id=823997e969718efd6ab56fca7a9aae3f458ba978'>package-management.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/gnu/packages/package-management.scm?id=823997e969718efd6ab56fca7a9aae3f458ba978&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
                    "^sbcl-" ""
                    (thing-at-point 'sexp 'no-properties)))))
    var) "." n n
 "* " (car (magit-staged-files))
 " (cl-" (s var)  ", ecl-" (s var) ", sbcl-" (s var) "): New variables.")

(https\ 
 "gnu: "
 (p (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)))
    var)
 ": Use HTTPS home page." n n
 "* " (car (magit-staged-files)) " (" (s var) ")[home-page]: Use HTTPS." n
 (mapconcat (lambda (file) (concat "* " file)) (cdr (magit-staged-files))) n)