[nongnu] elpa/adoc-mode 30176c0f3c 054/199: added skelleton for generig promote / denote

[ELPA Syncer]

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

    added skelleton for generig promote / denote
---
 adoc-mode.el | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/adoc-mode.el b/adoc-mode.el
index d9c6d3648b..57ba3b39f5 100644
--- a/adoc-mode.el
+++ b/adoc-mode.el
@@ -1687,6 +1687,25 @@ anchors in the [[id]] style."
   (goto-char 0)
   (re-search-forward (concat "^\\[\\[" (match-string 1) "\\]\\]")))
 
+(defun adoc-promote (&optional arg)
+  "Promotes the structure at point ARG levels.
+
+When ARG is nil (i.e. when no prefix arg is given), it defaults
+to 1. When ARG is negative, level is denoted that many levels.
+
+The intention is that the structure can be a title or a list
+element or anything else which has a 'level'. However currently
+it works only for titles."
+  (interactive "p")
+  (adoc-promote-title arg))
+
+(defun adoc-denote (&optional arg)
+  "Denotes the structure at point ARG levels.
+
+Analogous to `adoc-promote', see there."
+  (interactive "p")
+  (adoc-denote-title arg))
+
 (defun adoc-promote-title (&optional arg)
   "Promotes the title at point ARG levels.