[nongnu] elpa/adoc-mode 4b6054b5c8 079/199: added adoc-insert-indented

[ELPA Syncer]

branch: elpa/adoc-mode
commit 4b6054b5c8f934f19b84b0f2467cfbadaf643d3e
Author: Florian Kaufmann <sensorflo@gmail.com>
Commit: Florian Kaufmann <sensorflo@gmail.com>

    added adoc-insert-indented
---
 adoc-mode-test.el | 11 +++++++++++
 adoc-mode.el      |  5 +++++
 2 files changed, 16 insertions(+)

diff --git a/adoc-mode-test.el b/adoc-mode-test.el
index d6c8f7a701..8ad4079fdd 100644
--- a/adoc-mode-test.el
+++ b/adoc-mode-test.el
@@ -756,6 +756,17 @@ removed before TRANSFORM is evaluated.
   (should (equal (adoc-repeat-string "lorem" 1) "lorem"))
   (should (equal (adoc-repeat-string "lorem" 2) "loremlorem")))
     
+(ert-deftest adoctest-test-indent-by-example ()
+  (let ((tab-width 2)
+       (indent-tabs-mode nil))
+    (adoctest-trans "" " x"   '(adoc-insert-indented "x" 1))
+    (adoctest-trans "" "   x" '(adoc-insert-indented "x" 2)))
+
+  (let ((tab-width 3)
+       (indent-tabs-mode t))
+    (adoctest-trans "" "  x"   '(adoc-insert-indented "x" 1))
+    (adoctest-trans "" "\t  x" '(adoc-insert-indented "x" 2))))
+
 ;; purpose
 ;; - ensure that the latest version, i.e. the one currently in buffer(s), of
 ;;   adoc-mode and adoc-mode-test is used for the test
diff --git a/adoc-mode.el b/adoc-mode.el
index d65d964faa..7ab3e21186 100644
--- a/adoc-mode.el
+++ b/adoc-mode.el
@@ -2467,6 +2467,11 @@ Is influenced by customization variables such as 
`adoc-title-style'."))))
 
 
 ;;;; misc
+(defun adoc-insert-indented (str indent-level)
+  "Indents and inserts STR such that point is at INDENT-LEVEL."
+  (indent-to (- (* tab-width indent-level) (length str)))
+  (insert str))
+
 (defun adoc-repeat-string (str n)
   "Returns str n times concatenated"
   (let ((retval ""))