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

Merge pull request #23 from fritzvm/issue-21

Browse Source 
Prefixing problem when org-export-preserve-breaks is set
This commit is contained in:
Masanao Igarashi
2016-10-07 00:21:18 +09:00
committed by GitHub
parent 958ce46c0e 60ff2d1fd0
commit b4aceca6ba
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
ox-rst.el
View File

@@ -1080,6 +1080,12 @@ information."
"Transcode a PARAGRAPH element from Org to reStructuredText. "Transcode a PARAGRAPH element from Org to reStructuredText.
CONTENTS is the contents of the paragraph, as a string. INFO is CONTENTS is the contents of the paragraph, as a string. INFO is
the plist used as a communication channel." the plist used as a communication channel."
(when (plist-get _info :preserve-breaks)
(let ((lines (split-string contents "\n+[ \t\n]*")))
(cond ((> (length lines) 2)
(setq contents (apply 'concat (mapcar
'(lambda (x) (if (> (length x) 0) (concat "| " x "\n") x))
lines)))))))
contents) contents)
@@ -1106,9 +1112,6 @@ contextual information."
(setq text (replace-regexp-in-string "^[\s-]*\\.\\. [^\\[]" "\\\\.. " text)) (setq text (replace-regexp-in-string "^[\s-]*\\.\\. [^\\[]" "\\\\.. " text))
;; Protect ^\d+. ;; Protect ^\d+.
(setq text (replace-regexp-in-string "^\\(\\d\\)+\\." "\\1\\." text)) (setq text (replace-regexp-in-string "^\\(\\d\\)+\\." "\\1\\." text))
;; Handle break preservation, if required.
(when (plist-get info :preserve-breaks)
(setq text (replace-regexp-in-string "^" "| " text)))
;; Return value. ;; Return value.
text) text)