From: Eshel Yaron <me@eshelyaron.com>
Date: Thu, 29 Sep 2022 20:04:22 +0000 (+0300)
Subject: ADDED: new command sweeprolog-highlight-variable
X-Git-Tag: v0.4.2~2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8d13f21c0d7ac84ddd47014bc1f70019beab71b5;p=sweep.git

ADDED: new command sweeprolog-highlight-variable

* (sweeprolog-highlight-variable): New command
* (sweeprolog-cursor-sensor-functions): use it
---

diff --git a/sweeprolog.el b/sweeprolog.el
index 794e0aa..a824d5f 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -2143,6 +2143,37 @@ Interactively, POINT is set to the current point."
                    (cons car (line-beginning-position))))
                (cdr sol)))))
 
+(defun sweeprolog-highlight-variable (var)
+  "Highlight occurences of the variable VAR in the current clause.
+
+If VAR is nil, clear variable highlighting in the current clause
+instead.
+
+Interactively, if a prefix argument is specificed, clear variable
+highlighting in the current clause.  Otherwise prompt for VAR,
+defaulting to the variable at point, if any."
+  (interactive (unless current-prefix-arg
+                 (let ((v (symbol-at-point)))
+                   (list (read-string "Highlight variable: "
+                                      nil nil
+                                      (and v
+                                           (save-match-data
+                                             (let ((case-fold-search nil))
+                                               (string-match
+                                                (rx bos upper)
+                                                (symbol-name v))))
+                                           (symbol-name v))))))
+               sweeprolog-mode sweeprolog-top-level-mode)
+  (let ((sweeprolog--variable-at-point var))
+    (font-lock-fontify-region (point) (point))))
+
+(defun sweeprolog-cursor-sensor-functions (var)
+  (list
+   (lambda (_win old dir)
+     (if (eq dir 'entered)
+         (sweeprolog-highlight-variable var)
+       (sweeprolog-highlight-variable nil)))))
+
 (defvar-local sweeprolog--timer nil)
 (defvar-local sweeprolog--colourise-buffer-duration 0.2)