ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Export: Allow center, quote, and verse markers to be indented

This commit is contained in:
Carsten Dominik 2009-05-24 20:47:46 +02:00
parent 2be3df3fd8
commit 0b60bf8aac
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -7,6 +7,8 @@
(org-export-remove-indentation): New function.
(org-export-select-backend-specific-text): Allow backend-specific
code to be indented.
(org-export-mark-blockquote-verse-center): Allow markers to be
indented.
* org.el (org-fontify-meta-lines): New function.
(org-set-font-lock-defaults): Call the new fontification

6
lisp/org-exp.el
View File

@ -1682,20 +1682,20 @@ from the buffer."
These special cookies will later be interpreted by the backend."
;; Blockquotes
(goto-char (point-min))
(while (re-search-forward "^#\\+\\(begin\\|end\\)_\\(block\\)?quote\\>.*"
(while (re-search-forward "^[ \t]*#\\+\\(begin\\|end\\)_\\(block\\)?quote\\>.*"
nil t)
(replace-match (if (equal (downcase (match-string 1)) "end")
"ORG-BLOCKQUOTE-END" "ORG-BLOCKQUOTE-START")
t t))
;; Verse
(goto-char (point-min))
(while (re-search-forward "^#\\+\\(begin\\|end\\)_verse\\>.*" nil t)
(while (re-search-forward "^[ \t]*#\\+\\(begin\\|end\\)_verse\\>.*" nil t)
(replace-match (if (equal (downcase (match-string 1)) "end")
"ORG-VERSE-END" "ORG-VERSE-START")
t t))
;; Center
(goto-char (point-min))
(while (re-search-forward "^#\\+\\(begin\\|end\\)_center\\>.*" nil t)
(while (re-search-forward "^[ \t]*#\\+\\(begin\\|end\\)_center\\>.*" nil t)
(replace-match (if (equal (downcase (match-string 1)) "end")
"ORG-CENTER-END" "ORG-CENTER-START")
t t)))