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))
|
(let* ((utf8p (eq (plist-get info :ascii-charset) 'utf-8))
|
||||||
;; Format TITLE. It may be filled if it is too wide,
|
;; Format TITLE. It may be filled if it is too wide,
|
||||||
;; that is wider than the two thirds of the total width.
|
;; 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))
|
(formatted-title (org-ascii--fill-string title title-len info))
|
||||||
(line
|
(line
|
||||||
(make-string
|
(make-string
|
||||||
|
|
Loading…
Reference in New Issue