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))))
eab0ab9a4230ea212e0e0876aa013'>commit</a><a href='/guix/diff/gnu/services/security-token.scm?id=bffc1ec1871eab0ab9a4230ea212e0e0876aa013'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/services/security-token.scm'>
<input type='hidden' name='id' value='bffc1ec1871eab0ab9a4230ea212e0e0876aa013'/><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=bffc1ec1871eab0ab9a4230ea212e0e0876aa013'>root</a>/<a href='/guix/log/gnu?id=bffc1ec1871eab0ab9a4230ea212e0e0876aa013'>gnu</a>/<a href='/guix/log/gnu/services?id=bffc1ec1871eab0ab9a4230ea212e0e0876aa013'>services</a>/<a href='/guix/log/gnu/services/security-token.scm?id=bffc1ec1871eab0ab9a4230ea212e0e0876aa013'>security-token.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/services/security-token.scm?id=bffc1ec1871eab0ab9a4230ea212e0e0876aa013&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-06-25 01:43:08 +0530'>2022-06-25</span></td><td><a href='/guix/commit/gnu/services/security-token.scm?id=037bfd85458dd0b32a6dd85b7c12e85e3dd716ae'>services: pcscd: Use switch-symlinks from (guix build utils).</a><span class='msg-avail'>...<span class='msg-tooltip'>switch-symlinks has been moved to (guix build utils). We need not duplicate it
anymore.

* gnu/services/security-token.scm (pcscd-activation): Use switch-symlinks
from (guix build utils).
</span></span></td><td>Arun Isaac</td></tr>
<tr><td><span title='2021-07-03 20:13:42 +0200'>2021-07-03</span></td><td><a href='/guix/commit/gnu/services/security-token.scm?id=e789ce538ed848bacb8f4eb5742f78b965ccf57c'>services: pcscd: Fix daemon signal handling.</a><span class='msg-avail'>...<span class='msg-tooltip'>"pcscd" wouldn't handle SIGTERM as it inherit ignoring this signal (and
others) from its parent shepherd; fork+exec-command restore signal
handling.  Fixes &lt;https://issues.guix.gnu.org/45202&gt;.

* gnu/services/security-token.scm (pcscd)[start]: Use
fork+exec-command to start "pcscd".
</span></span></td><td>Brice Waegeneire</td></tr>
<tr><td><span title='2021-06-19 23:49:18 +0200'>2021-06-19</span></td><td><a href='/guix/commit/gnu/services/security-token.scm?id=4bed8486d4c0a4ff142903b8bc1584ce84767355'>services: pcscd: Cleanup socket when started.</a><span class='msg-avail'>...<span class='msg-tooltip'>Otherwise when pcscd doesn't terminate properly (ie. receive a SIGKILL),
it won't start again because of it's socket already existing.

* gnu/services/security-token.scm (pcscd-shepherd-service)[start]:
Remove existing socket file.
</span></span></td><td>Brice Waegeneire</td></tr>
<tr><td><span title='2020-12-13 00:35:49 +0100'>2020-12-13</span></td><td><a href='/guix/commit/gnu/services/security-token.scm?id=a4cd86ff4b7a9dd4bf1a5320b8121b470e381b67'>gnu: htop: Update to 3.0.3.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/admin.scm (htop): Update to 3.0.3.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-12-12 23:10:05 +0100'>2020-12-12</span></td><td><a href='/guix/commit/gnu/services/security-token.scm?id=8f2656f1debffe92ea088f4c88cfe8ec560b2ba3'>services: pcscd-shepherd-service: Fix PID file location.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;http://issues.guix.gnu.org/45202&gt;.

* gnu/services/security-token.scm (pcscd-shepherd-service): Look for
pcscd.pid in /run instead of /var/run.

Reported by Raffael Stocker &lt;r.stocker@mnet-mail.de&gt;.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>