forked from mirrors/org-mode
ox-ascii: Fix titles with line breaks
* lisp/ox-ascii.el (org-ascii-template--document-title): Take into consideration line breaks when computing title's width.
This commit is contained in:
parent
9bf5ecbad1
commit
12a63035e9
|
@ -1012,7 +1012,9 @@ INFO is a plist used as a communication channel."
|
|||
(let* ((utf8p (eq (plist-get info :ascii-charset) 'utf-8))
|
||||
;; Format TITLE. It may be filled if it is too wide,
|
||||
;; that is wider than the two thirds of the total width.
|
||||
(title-len (min (length title) (/ (* 2 text-width) 3)))
|
||||
(title-len (min (apply #'max
|
||||
(mapcar #'length (org-split-string title)))
|
||||
(/ (* 2 text-width) 3)))
|
||||
(formatted-title (org-ascii--fill-string title title-len info))
|
||||
(line
|
||||
(make-string
|
||||
|
|
Loading…
Reference in a new issue