daniel/ox-rst
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make headline underline characters customizable

Browse Source
This commit is contained in:
Sergio Conde Gomez
2018-03-14 20:20:35 +01:00
parent 313640ac94
commit ae90eab92c
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ox-rst.el
View File

@@ -99,6 +99,7 @@
(:rst-link-use-ref-role nil nil org-rst-link-use-ref-role) (:rst-link-use-ref-role nil nil org-rst-link-use-ref-role)
(:rst-text-markup-alist nil nil org-rst-text-markup-alist) (:rst-text-markup-alist nil nil org-rst-text-markup-alist)
(:rst-quote-margin nil nil org-rst-quote-margin) (:rst-quote-margin nil nil org-rst-quote-margin)
(:rst-headline-underline-characters nil nil org-rst-headline-underline-characters)
(:rst-headline-spacing nil nil org-rst-headline-spacing) (:rst-headline-spacing nil nil org-rst-headline-spacing)
(:rst-paragraph-spacing nil nil org-rst-paragraph-spacing) (:rst-paragraph-spacing nil nil org-rst-paragraph-spacing)
(:rst-format-drawer-function nil nil org-rst-format-drawer-function) (:rst-format-drawer-function nil nil org-rst-format-drawer-function)
@@ -231,6 +232,11 @@ the same number of blank lines as in the original document."
(const :tag "Preserve original spacing" auto))) (const :tag "Preserve original spacing" auto)))
(defcustom org-rst-headline-underline-characters '(?- ?~ ?^ ?: ?' ?\ ?_)
"List of underline characters for each headline level."
:group 'org-export-rst
:type 'list)
;;;; Drawers ;;;; Drawers
(defcustom org-rst-format-drawer-function nil (defcustom org-rst-format-drawer-function nil
@@ -388,7 +394,7 @@ possible. It doesn't apply to `inlinetask' elements."
(when (and underline headlinep) (when (and underline headlinep)
(let ((under-char (let ((under-char
(nth (1- (org-export-get-relative-level element info)) (nth (1- (org-export-get-relative-level element info))
'(?- ?~ ?^ ?: ?' ?\ ?_)))) org-rst-headline-underline-characters)))
(and under-char (and under-char
(concat "\n" (concat "\n"
(make-string (string-width first-part) under-char)))))))) (make-string (string-width first-part) under-char))))))))