[elpa] externals/svg-tag-mode 40d7820143 28/63: Moved examples into a directory

[ELPA Syncer]

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

    Moved examples into a directory
---
 example-2.el                          |  80 -------------------
 example-1.el => examples/example-1.el |   0
 examples/example-2.el                 | 142 ++++++++++++++++++++++++++++++++++
 3 files changed, 142 insertions(+), 80 deletions(-)

diff --git a/example-2.el b/example-2.el
deleted file mode 100644
index 9670b35a08..0000000000
--- a/example-2.el
+++ /dev/null
@@ -1,80 +0,0 @@
-;; Copyright (C) 2020  Nicolas P. Rougier
-;; This file is not part of GNU Emacs.
-;;
-;; This file is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; This file is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-;;
-;; For a full copy of the GNU General Public License
-;; see <http://www.gnu.org/licenses/>.
-(require 'svg-tag-mode)
-
-(defface svg-tag-todo-face
-  '((t :foreground "#ffffff" :background "#FFAB91" :box "#FFAB91"
-       :family "Roboto Mono" :weight regular :height 120))
-  "Face for TODO  svg tag" :group nil)
-
-(defface svg-tag-next-face
-  '((t :foreground "white" :background "#673AB7" :box "#673AB7"
-       :family "Roboto Mono" :weight regular :height 120))
-  "Face for NEXT svg tag" :group nil)
-
-(defface svg-tag-done-face
-  '((t :foreground "white" :background "#B0BEC5" :box "#B0BEC5"
-       :family "Roboto Mono" :weight regular :height 120))
-  "Face for DONE  svg tag" :group nil)
-
-(defface svg-tag-date-face
-  '((t :foreground "black" :background "#ECEFF1" :box "#ECEFF1"
-       :family "Roboto Mono" :weight light :height 120))
-  "Face for date svg tag" :group nil)
-
-(defface svg-tag-org-face
-  '((t :foreground "black" :background "white" :box "black"
-       :family "Roboto Mono" :weight regular :height 120))
-  "Default face for svg tag" :group nil)
-
-(setq radius 2)
-
-(setq svg-tag-org-todo (svg-tag-make "TODO" 'svg-tag-todo-face 1 1 radius))
-(setq svg-tag-org-done (svg-tag-make "DONE" 'svg-tag-done-face 1 1 radius))
-(setq svg-tag-org-hold (svg-tag-make "HOLD" 'svg-tag-done-face 1 1 radius))
-(setq svg-tag-org-next (svg-tag-make "NEXT" 'svg-tag-next-face 1 1 radius))
-(setq svg-tag-org-note (svg-tag-make "NOTE" 'svg-tag-org-face  1 1 radius))
-
-(defun svg-tag-make-org-todo (text)
-  (svg-tag-make (substring text 1 -1) 'svg-tag-done-face 1 1 radius))
-(defun svg-tag-make-org-tag (text)
-  (svg-tag-make (substring text 1 -1) 'svg-tag-org-face 1 1 radius))
-(defun svg-tag-make-org-priority (text)
-  (svg-tag-make (substring text 2 -1) 'svg-tag-org-face 1 0 radius))
-(defun svg-tag-make-org-date (text)
-  (svg-tag-make (substring text 1 -1) 'svg-tag-date-face 0 0 radius))
-
-(setq svg-tag-tags
-      '(("@[0-9a-zA-Z]+:"                   . svg-tag-make-org-tag)
-        ("\\[#[ABC]\\]"                     . svg-tag-make-org-priority)
-        (" TODO "                           . svg-tag-org-todo)
-        (" DONE "                           . svg-tag-org-done)
-        (" NEXT "                           . svg-tag-org-next)
-        (" HOLD "                           . svg-tag-org-hold)
-        (" NOTE "                           . svg-tag-org-note)
-        ("<[0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [A-Za-z]\\{3\\}>"
-                                            . svg-tag-make-org-date)))
-
-(global-svg-tag-mode)
-
-;; To do:      TODO  NEXT  HOLD  DONE  
-;; Tags:       :@MEETING:@NOTE:
-;; Priorities: [#A] [#B] [#C]
-;; Date:       <2020-11-07 Sat>
-
-;; DONE Make a pull request on melpa                             <2020-11-07 
Sat>
-;; NEXT Wait for review
-;; TODO Post on Reddit
diff --git a/example-1.el b/examples/example-1.el
similarity index 100%
rename from example-1.el
rename to examples/example-1.el
diff --git a/examples/example-2.el b/examples/example-2.el
new file mode 100644
index 0000000000..40d55a3d6c
--- /dev/null
+++ b/examples/example-2.el
@@ -0,0 +1,142 @@
+;; Copyright (C) 2020  Nicolas P. Rougier
+;; This file is not part of GNU Emacs.
+;;
+;; This file is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+;;
+;; This file is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; For a full copy of the GNU General Public License
+;; see <http://www.gnu.org/licenses/>.
+(require 'svg-tag-mode)
+
+(defface svg-tag-org-face
+  '((t :foreground "#333333" :background "white"
+       :box (:line-width 1 :color "black" :style nil)
+       :family "Roboto Mono" :weight regular :height 120))
+  "Default face for svg tag" :group nil)
+
+(defface svg-tag-note-face
+  '((t :foreground "#333333" :background "#FFFFFF"
+       :box (:line-width 1 :color "#333333" :style nil)
+       :family "Roboto Mono" :weight regular :height 120))
+  "Default face for svg tag" :group nil)
+
+(defface svg-tag-todo-face
+  '((t :foreground "#ffffff" :background "#FFAB91"
+       :box (:line-width 1 :color "#FFAB91" :style nil)
+       :family "Roboto Mono" :weight regular :height 120))
+  "Face for TODO  svg tag" :group nil)
+
+(defface svg-tag-next-face
+  '((t :foreground "white" :background "#673AB7"
+       :box (:line-width 1 :color "#673AB7" :style nil)
+       :family "Roboto Mono" :weight regular :height 120))
+  "Face for NEXT svg tag" :group nil)
+
+(defface svg-tag-done-face
+  '((t :foreground "white" :background "#B0BEC5"
+       :box (:line-width 1 :color "#B0BEC5" :style nil)
+       :family "Roboto Mono" :weight regular :height 120))
+  "Face for DONE  svg tag" :group nil)
+
+(defface svg-tag-org-tag-face
+  '((t :foreground "#ffffff" :background "#FFAB91"
+       :box (:line-width 1 :color "#FFAB91" :style nil)
+       :family "Roboto Mono" :weight regular :height 120))
+  "Face for TODO  svg tag" :group nil)
+
+(defface svg-tag-date-active-face
+  '((t :foreground "white" :background "#673AB7"
+       :box (:line-width 1 :color "#673AB7" :style nil)
+       :family "Roboto Mono" :weight regular :height 120))
+  "Face for active date svg tag" :group nil)
+
+(defface svg-tag-time-active-face
+  '((t :foreground "#673AB7" :background "#ffffff"
+       :box (:line-width 1 :color "#673AB7" :style nil)
+       :family "Roboto Mono" :weight light :height 120))
+  "Face for active time svg tag" :group nil)
+
+(defface svg-tag-date-inactive-face
+  '((t :foreground "#ffffff" :background "#B0BEC5"
+       :box (:line-width 1 :color "#B0BEC5" :style nil)
+       :family "Roboto Mono" :weight regular :height 120))
+  "Face for inactive date svg tag" :group nil)
+
+(defface svg-tag-time-inactive-face
+  '((t :foreground "#B0BEC5" :background "#ffffff"
+       :box (:line-width 2 :color "#B0BEC5" :style nil)
+       :family "Roboto Mono" :weight light :height 120))
+  "Face for inactive time svg tag" :group nil)
+
+(setq svg-tag-org-todo (svg-tag-make "TODO" 'svg-tag-todo-face 1 1 2))
+(setq svg-tag-org-done (svg-tag-make "DONE" 'svg-tag-done-face 1 1 2))
+(setq svg-tag-org-hold (svg-tag-make "HOLD" 'svg-tag-org-face 1 1 2))
+(setq svg-tag-org-next (svg-tag-make "NEXT" 'svg-tag-next-face 1 1 2))
+(setq svg-tag-org-note-tag (svg-tag-make "NOTE" 'svg-tag-note-face 1 1 2))
+(setq svg-tag-org-canceled-tag (svg-tag-make "CANCELED" 'svg-tag-note-face 1 1 
2))
+
+(defun svg-tag-make-org-tag (text)
+  (svg-tag-make (substring text 1 -1) 'svg-tag-org-tag-face 1 1 2))
+(defun svg-tag-make-org-priority (text)
+  (svg-tag-make (substring text 2 -1) 'svg-tag-org-face 1 0 2))
+
+(defun svg-tag-make-org-date-active (text)
+  (svg-tag-make (substring text 1 -1) 'svg-tag-date-active-face 0 0 0))
+(defun svg-tag-make-org-time-active (text)
+  (svg-tag-make (substring text 0 -1) 'svg-tag-time-active-face 1 0 0))
+(defun svg-tag-make-org-range-active (text)
+  (svg-tag-make (substring text 0 -1) 'svg-tag-time-active-face 0 0 0))
+
+(defun svg-tag-make-org-date-inactive (text)
+  (svg-tag-make (substring text 1 -1) 'svg-tag-date-inactive-face 0 0 0))
+(defun svg-tag-make-org-time-inactive (text)
+  (svg-tag-make (substring text 0 -1) 'svg-tag-time-inactive-face 1 0 0))
+(defun svg-tag-make-org-range-inactive (text)
+  (svg-tag-make (substring text 0 -1) 'svg-tag-time-inactive-face 0 0 0))
+
+
+(defconst date-re "[0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}")
+(defconst time-re "[0-9]\\{2\\}:[0-9]\\{2\\}")
+(defconst day-re "[A-Za-z]\\{3\\}")
+
+(setq svg-tag-tags
+      `(("@[0-9a-zA-Z]+:"                   . svg-tag-make-org-tag)
+        ("@NOTE:"                           . svg-tag-org-note-tag)
+        ("@CANCELED:"                       . svg-tag-org-canceled-tag)
+        ("\\[#[ABC]\\]"                     . svg-tag-make-org-priority)
+        (" TODO "                           . svg-tag-org-todo)
+        (" DONE "                           . svg-tag-org-done)
+        (" NEXT "                           . svg-tag-org-next)
+        (" HOLD "                           . svg-tag-org-hold)
+
+        (,(concat "<" date-re  "[ >]")             . 
svg-tag-make-org-date-active)    
+        (,(concat "<" date-re " " day-re "[ >]")   . 
svg-tag-make-org-date-active)    
+        (,(concat time-re ">")                     . 
svg-tag-make-org-time-active)
+        (,(concat time-re "-" time-re ">")         . 
svg-tag-make-org-range-active)
+
+        (,(concat "\\[" date-re  "[] ]")           . 
svg-tag-make-org-date-inactive)    
+        (,(concat "\\[" date-re " " day-re "[] ]") . 
svg-tag-make-org-date-inactive)    
+        (,(concat time-re "\\]")                   . 
svg-tag-make-org-time-inactive)
+        (,(concat time-re "-" time-re "\\]")       . 
svg-tag-make-org-range-inactive)))
+
+(svg-tag-mode)
+
+;; To do:       TODO  NEXT  HOLD  DONE  
+;; Tags:       @MEETING:@NOTE:
+;; Priorities:  [#A] [#B] [#C]
+;; Active date:   <2020-11-07>
+;;                <2020-11-07 Sat>
+;;                <2020-11-07 Sat 14:00>
+;;                <2020-11-07 Sat 14:00-15:00>
+
+;; Inactive date: [2020-11-07]
+;;                [2020-11-07 Sat]
+;;                [2020-11-07 Sat 14:00]
+;;                [2020-11-07 Sat 14:00-15:00]