[elpa] externals/svg-tag-mode 85aed73bc6 58/63: Added custom option to let user decide on action at point.

[ELPA Syncer]

branch: externals/svg-tag-mode
commit 85aed73bc6d96d0d198860f41772b1f12a03e0e5
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>

    Added custom option to let user decide on action at point.
---
 svg-tag-mode.el | 33 ++++++++++++++++++++++-----------
 1 file changed, 22 insertions(+), 11 deletions(-)

diff --git a/svg-tag-mode.el b/svg-tag-mode.el
index c292d42728..bc0c84da96 100644
--- a/svg-tag-mode.el
+++ b/svg-tag-mode.el
@@ -124,10 +124,16 @@
   :group 'convenience
   :prefix "svg-tag-")
 
-(setq svg-tag-tags `((" TODO " . ((svg-tag-make "TODO") nil nil))))
+(defcustom svg-tag-action-at-point 'echo
+  "Action to be executed when the cursor enter a tag area"
+  :type '(radio (const :tag "Edit tag"  edit)
+                (const :tag "Echo tag"  echo)
+                (const :tag "No action" nil))
+  :group 'svg-tag)
+
 
 (defcustom svg-tag-tags
-  `((" TODO " . ((svg-tag-make "TODO") nil nil)))
+  `(("^TODO" . ((svg-tag-make "TODO") nil nil)))
   "An alist mapping keywords to tags used to display them.
 
 Each entry has the form (keyword . tag).  Keyword is used as part
@@ -196,15 +202,20 @@ allows to create dynamic tags."
         (end (if (eq direction 'entered)
                  (next-property-change (point))
                (next-property-change position))))
-    (if (eq direction 'left)
-        (font-lock-flush beg end )
-      (if (and (not view-read-only) (not buffer-read-only))
-          (font-lock-unfontify-region beg end)))
-    ;; (if (eq direction 'entered)
-    ;;     (message (concat "TAG: "
-    ;;                      (substring-no-properties
-    ;;                       (buffer-substring beg end )))))
-      ))
+
+    (if (eq svg-tag-action-at-point 'edit)
+        (if (eq direction 'left)
+            (font-lock-flush beg end )
+          (if (and (not view-read-only) (not buffer-read-only))
+              (font-lock-unfontify-region beg end))))
+    
+    (if (eq svg-tag-action-at-point 'echo)
+        (if (eq direction 'entered)
+            (let ((message-log-max nil))
+              (message (concat "TAG: "
+                               (substring-no-properties
+                                (string-trim
+                                 (buffer-substring beg end ))))))))))
 
 (defun svg-tag--build-keywords (item)
   "Process an item in order to install it as a new keyword."