[elpa] externals/lentic 6c5fabb400 091/333: dev options added.

[ELPA Syncer]

branch: externals/lentic
commit 6c5fabb4009126f71df8a74f2b8d9ab292a3a363
Author: Phillip Lord <phillip.lord@newcastle.ac.uk>
Commit: Phillip Lord <phillip.lord@newcastle.ac.uk>

    dev options added.
---
 linked-buffer-dev.el | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)

diff --git a/linked-buffer-dev.el b/linked-buffer-dev.el
new file mode 100644
index 0000000000..18014e82c4
--- /dev/null
+++ b/linked-buffer-dev.el
@@ -0,0 +1,47 @@
+(require 'linked-buffer)
+
+(defvar linked-buffer-dev-insert-faces
+  '(font-lock-builtin-face
+    font-lock-comment-face
+    font-lock-constant-face
+    font-lock-doc-face
+    font-lock-function-name-face
+    font-lock-keyword-face
+    font-lock-negation-char-face
+    font-lock-preprocessor-face))
+
+(defun linked-buffer-dev-rotate-face ()
+  (interactive)
+  (setq linked-buffer-dev-insert-faces
+        (-rotate 1 linked-buffer-dev-insert-faces))
+  (message "Insert face is now %s"
+           (propertize
+            "this"
+            'face
+            (car linked-buffer-dev-insert-faces))))
+
+(defadvice linked-buffer-insertion-string-transform
+  (after face-transform
+         (string)
+         disable)
+  (setq ad-return-value
+        (propertize
+         string
+         'font-lock-face
+         (car linked-buffer-dev-insert-faces))))
+
+(defvar linked-buffer-enable-insertion-marking nil)
+(defun linked-buffer-enable-insertion-marking ()
+  (interactive)
+  (if linked-buffer-enable-insertion-marking
+      (progn
+        (ad-deactivate 'linked-buffer-insertion-string-transform)
+        (setq linked-buffer-enable-insertion-marking nil)
+        (message "Insertion marking off"))
+    (ad-enable-advice 'linked-buffer-insertion-string-transform
+                      'after 'face-transform)
+    (ad-activate 'linked-buffer-insertion-string-transform)
+    (setq linked-buffer-enable-insertion-marking t)
+    (message "Insertion marking on")))
+
+(provide 'linked-buffer-dev)