[elpa] externals/svg-tag-mode ee16277655 42/63: Added examples from documentation

[ELPA Syncer]

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

    Added examples from documentation
---
 examples/example-3.el | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)

diff --git a/examples/example-3.el b/examples/example-3.el
new file mode 100644
index 0000000000..ddf02f4ba1
--- /dev/null
+++ b/examples/example-3.el
@@ -0,0 +1,55 @@
+
+;; This replaces any occurence of ":TODO:" with a static SVG tag
+;; displaying "TODO"
+(setq svg-tag-tags
+      '((":TODO:" . ((svg-tag-make "TODO" :margin 0)))))
+
+
+;; This replaces any occurence of ":HELLO:" with a static SVG tag that
+;; can be clicked to execute the specified command. Help message is
+;; displayed when the tag is hovered with the pointer.
+(setq svg-tag-tags
+      '((":HELLO:" .  ((svg-tag-make "HELLO")
+                       (lambda () (interactive) (message "Hello world!"))
+                       "Print a greeting message"))))
+
+;; This replaces any occurence of ":TODO:" with a static SVG tag
+;; displaying ":TODO:"
+(setq svg-tag-tags
+      '((":TODO:" . (svg-tag-make))))
+
+;; This replaces any occurence of ":TODO:" with a dynamic SVG tag
+;; displaying "TODO"
+(setq svg-tag-tags
+      '((":TODO:" . ((lambda (tag)
+                       (svg-tag-make tag :beg 1 :end -1))))))
+
+;; This replaces any occurence of ":XXX:" with a dynamic SVG tag
+;; displaying "XXX"
+(setq svg-tag-tags
+      '(("\\(:[A-Z]+:\\)" . ((lambda (tag)
+                               (svg-tag-make tag :beg 1 :end -1))))))
+
+;; This replaces any occurence of ":XXX|YYY:" with two adjacent
+;; dynamic SVG tags displaying "XXX" and "YYY"
+(setq svg-tag-tags
+      '(("\\(:[A-Z]+\\)\|[a-zA-Z#0-9]+:" . ((lambda (tag)
+                                           (svg-tag-make tag :beg 1 :inverse t
+                                                          :margin 0 
:crop-right t))))
+        (":[A-Z]+\\(\|[a-zA-Z#0-9]+:\\)" . ((lambda (tag)
+                                           (svg-tag-make tag :beg 1 :end -1
+                                                         :margin 0 :crop-left 
t))))))
+
+;; This replaces any occurence of ":#TAG1:#TAG2:…:$" ($ means end of
+;; line) with a dynamic collection of SVG tags. Note the # symbol in
+;; front of tags. This is mandatory because Emacs cannot do regex look
+;; ahead.
+(setq svg-tag-tags
+      '(("\\(:#[A-Za-z0-9]+\\)" . ((lambda (tag)
+                                     (svg-tag-make tag :beg 2))))
+        ("\\(:#[A-Za-z0-9]+:\\)$" . ((lambda (tag)
+                                       (svg-tag-make tag :beg 2 :end -1))))))
+
+
+
+