[elpa] externals/tempel 9948c6889d 43/82: Add tempel-form-prefix and tempel-field-prefix

[ELPA Syncer]

branch: externals/tempel
commit 9948c6889dd93fa8f0a6821af92d1c40343befe4
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Add tempel-form-prefix and tempel-field-prefix
---
 tempel.el | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/tempel.el b/tempel.el
index c4c4e59fbb..46420e1093 100644
--- a/tempel.el
+++ b/tempel.el
@@ -49,6 +49,16 @@
   "Path to the template file."
   :type 'string)
 
+(defcustom tempel-field-prefix
+  #(" " 0 1 (display (space :width (2)) face tempel-field))
+  "Field indicator prefix string."
+  :type 'string)
+
+(defcustom tempel-form-prefix
+  #(" " 0 1 (display (space :width (2)) face tempel-form))
+  "Form indicator prefix string."
+  :type 'string)
+
 (defcustom tempel-insert-annotation 40
   "Annotation width for `tempel-insert'."
   :type '(choice (const nil integer)))
@@ -174,7 +184,7 @@ INIT is the optional initial input."
   (let ((ov (make-overlay (point) (point))))
     (push ov (car st))
     (overlay-put ov 'face 'tempel-field)
-    (overlay-put ov 'before-string #(" " 0 1 (display (space :width (1)) face 
tempel-field)))
+    (overlay-put ov 'before-string tempel-field-prefix)
     (overlay-put ov 'modification-hooks (list #'tempel--field-modified))
     (overlay-put ov 'insert-in-front-hooks (list #'tempel--field-modified))
     (overlay-put ov 'insert-behind-hooks (list #'tempel--field-modified))
@@ -196,7 +206,7 @@ INIT is the optional initial input."
       (void-variable nil))
     (let ((ov (make-overlay beg (point) nil t)))
       (overlay-put ov 'face 'tempel-form)
-      (overlay-put ov 'before-string #(" " 0 1 (display (space :width (1)) 
face tempel-form)))
+      (overlay-put ov 'before-string tempel-form-prefix)
       (overlay-put ov 'tempel--form form)
       (push ov (car st)))))