Copyright © 2017 Oleg Pykhalov <go.wigust@gmail.com>
Copyright © 2017 Ludovic Courtès <ludo@gnu.org>

This patch adds highlighting for (guix) G-Expressions.

diff --git a/highlight-stages.el b/highlight-stages.el
index 3094c3c..e11260e 100644
--- a/highlight-stages.el
+++ b/highlight-stages.el
@@ -237,14 +237,14 @@ non-nil, (match-string 0) must be the expression matched."
 
 (defun highlight-stages-lisp-quote-matcher (&optional limit)
   (when (highlight-stages--search-forward-regexp
-         "\\(?:`\\|\\(#?'\\)\\)\\|([\s\t\n]*\\(?:backquote\\|\\(quote\\)\\)[\s\t\n]+" limit)
+         "\\(?:`\\|\\(#?'\\)\\)\\|([\s\t\n]*\\(?:backquote\\|\\(quote\\)\\)[\s\t\n]+\\|\\(?:#~\\)\\|([\s\t\n]*\\(?:gexp\\)[\s\t\n]+" limit)
     (prog1 (if (or (match-beginning 1) (match-beginning 2)) 'real t)
       (set-match-data
        (list (point)
              (progn (ignore-errors (forward-sexp 1)) (point)))))))
 
 (defun highlight-stages-lisp-escape-matcher (&optional limit)
-  (when (highlight-stages--search-forward-regexp ",@?\\|([\s\t\n]*\\\\,@?+[\s\t\n]+" limit)
+  (when (highlight-stages--search-forward-regexp ",@?\\|([\s\t\n]*\\\\,@?+[\s\t\n]+\\|\\(unquote\\)\\|\\(unquote-splicing\\)\\|\\(ungexp-native\\)\\|\\(ungexp-splicing\\)\\|\\(ungexp-native-splicing\\)\\|\\(ungexp\\)\\|#\\$" limit)
     (set-match-data
      (list (point)
            (progn (ignore-errors (forward-sexp 1)) (point))))
>commit</a><a href='/guix/diff/gnu/packages/graphviz.scm?id=d31301dfe08076e5d229175b2cd093c6fe60a6d5'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/graphviz.scm'>
<input type='hidden' name='id' value='d31301dfe08076e5d229175b2cd093c6fe60a6d5'/><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=d31301dfe08076e5d229175b2cd093c6fe60a6d5'>root</a>/<a href='/guix/log/gnu?id=d31301dfe08076e5d229175b2cd093c6fe60a6d5'>gnu</a>/<a href='/guix/log/gnu/packages?id=d31301dfe08076e5d229175b2cd093c6fe60a6d5'>packages</a>/<a href='/guix/log/gnu/packages/graphviz.scm?id=d31301dfe08076e5d229175b2cd093c6fe60a6d5'>graphviz.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/graphviz.scm?id=d31301dfe08076e5d229175b2cd093c6fe60a6d5&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-07-23 17:29:34 +0200'>2021-07-23</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=277f58040b2d4613795411f5b84f7e00b623135f'>gnu: graphviz: Use HTTPS home page.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/graphviz.scm (graphviz)[home-page]: Use HTTPS.
</span></span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2021-05-15 17:04:01 -0400'>2021-05-15</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=7c4c781aa40c42d4cd10b8d9482199f3db345e1b'>gnu: Graphviz: Fix CVE-2020-18032.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/patches/graphviz-CVE-2020-18032.patch: New file.
* gnu/local.mk (dist_patch_DATA): Add it.
* gnu/packages/graphviz.scm (graphviz)[replacement]: New field.
(graphviz/fixed): New variable.
</span></span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2021-04-15 11:22:29 +0300'>2021-04-15</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=c578d7a25af52d2c35ee9baee97b6e4ab3095783'>gnu: Add python-uqbar.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/graphviz.scm (python-uqbar): New variable.

Co-authored-by: jgart &lt;jgart@dismail.de&gt;
Signed-off-by: Efraim Flashner &lt;efraim@flashner.co.il&gt;
</span></span></td><td>BonfaceKilz</td></tr>
<tr><td><span title='2020-11-23 15:43:36 +0200'>2020-11-23</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=f8be1474112bd94e195f75b38b550f7a165e5140'>gnu: python-pydot: Update home-page URI.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/graphviz.scm (python-pydot)[home-page]: Update to new
home-page URI.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2020-11-23 15:43:36 +0200'>2020-11-23</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=b1aac582caee711020c078217c58b15aeeef550e'>gnu: python-pydot: Run tests.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packges/graphviz.scm (python-pydot)[source]: Add patch.
[arguments]: Override check phase.
[native-inputs]: Add graphviz.
* gnu/packages/patches/python-pydot-regression-test.patch: New file.
* gnu/local.mk (dist_patch_DATA): Register it.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2020-11-23 15:43:32 +0200'>2020-11-23</span></td><td><a href='/guix/commit/gnu/packages/graphviz.scm?id=79f3e2618410481d7798a3bd26e0aa97f27a0763'>gnu: python-pydot: Update to 1.4.1.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/graphviz.scm (python-pydot): Update to 1.4.1.
</span></span></td><td>Efraim Flashner</td></tr>