Revision to handling of blank lines. Start of declaration protocol.
Followed Wes Hardaker's idea of permitting alternative rewrites for blank lines, instead of making the blank line handler be a boolean and hard-wiring a newline character. Also added a declaration form, with type and documentation options, for the keywords used in defining a generic export method.
This commit is contained in:
parent
557ce7c01c
commit
adf2e016e0
|
@ -444,6 +444,31 @@ in this way, it will be wrapped."
|
||||||
export definitions."
|
export definitions."
|
||||||
(aput 'org-generic-alist type definition))
|
(aput 'org-generic-alist type definition))
|
||||||
|
|
||||||
|
;;; helper functions for org-set-generic-type
|
||||||
|
(defvar org-export-generic-keywords nil)
|
||||||
|
(defmacro* def-org-export-generic-keyword (keyword
|
||||||
|
&key documentation
|
||||||
|
type)
|
||||||
|
"Define KEYWORD as a legitimate element for inclusion in
|
||||||
|
the body of an org-set-generic-type definition."
|
||||||
|
`(progn
|
||||||
|
(pushnew ,keyword org-export-generic-keywords)
|
||||||
|
;; TODO: push the documentation and type information
|
||||||
|
;; somewhere where it will do us some good.
|
||||||
|
))
|
||||||
|
|
||||||
|
(def-org-export-generic-keyword :body-newline-paragraph
|
||||||
|
:documentation "Bound either to NIL or to a pattern to be
|
||||||
|
inserted in the output for every blank line in the input.
|
||||||
|
The intention is to handle formats where text is flowed, and
|
||||||
|
newlines are interpreted as significant \(e.g., as indicating
|
||||||
|
preformatted text\). A common non-nil value for this keyword
|
||||||
|
is \"\\n\". Should typically be combined with a value for
|
||||||
|
:body-line-format that does NOT end with a newline."
|
||||||
|
:type string))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(defun org-export-generic-remember-section (type suffix &optional prefix)
|
(defun org-export-generic-remember-section (type suffix &optional prefix)
|
||||||
(setq org-export-generic-section-type type)
|
(setq org-export-generic-section-type type)
|
||||||
(setq org-export-generic-section-suffix suffix)
|
(setq org-export-generic-section-suffix suffix)
|
||||||
|
@ -946,7 +971,7 @@ underlined headlines. The default is 3."
|
||||||
((string-match "^\\s-*$" line)
|
((string-match "^\\s-*$" line)
|
||||||
;; blank line
|
;; blank line
|
||||||
(if bodynewline-paragraph
|
(if bodynewline-paragraph
|
||||||
(insert "\n")))
|
(insert bodynewline-paragraph)))
|
||||||
(t
|
(t
|
||||||
;;
|
;;
|
||||||
;; body
|
;; body
|
||||||
|
|
Loading…
Reference in New Issue