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

Rewrite org-rst-verse-block

Browse Source
This commit is contained in:
Igarashi Masanao
2018-02-17 23:44:10 +09:00
parent 47ad15097a
commit a42402f571
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
ox-rst.el
View File

@@ -1501,11 +1501,11 @@ channel."
"Transcode a VERSE-BLOCK element from Org to reStructuredText. "Transcode a VERSE-BLOCK element from Org to reStructuredText.
CONTENTS is verse block contents. INFO is a plist holding CONTENTS is verse block contents. INFO is a plist holding
contextual information." contextual information."
(concat (let ((lines (split-string contents "\n")))
(replace-regexp-in-string "^" "| " (if (> (string-width contents) 1) (cond ((> (length lines) 0)
(substring contents 0 -1) (mapconcat
contents)) "\n")) (function (lambda (x) (if (> (string-width x) 0)
(concat "| " x "\n") ""))) lines "")))))
;;; Filters ;;; Filters