Two patches are attached below, to polish some behaviors of exporting
as ascii. They are made in GNU Emacs' source tree.
The first one fixes the length of toc underline in the exported text.
In multibyte context, using `length' makes the underline shorter than
the toc name.
The second one makes exporting as ascii regard the value of
`fill-column'. Since normally the text is filled with M-q, which
adjusts the text according to its value, I think replacing the fixed
value 80 with `fill-column' can generate more pretty ascii text.
Regards,
Guanpeng Xu
diff -c -r1.4 org-exp.el
*** org-exp.el 15 May 2008 03:31:34 -0000 1.4
--- org-exp.el 14 Jun 2008 00:10:47 -0000
***************
*** 1673,1679 ****
(if org-export-with-toc
(progn
(push (concat (nth 3 lang-words) "\n") thetoc)
! (push (concat (make-string (length (nth 3 lang-words)) ?=) "\n")
thetoc)
(mapc '(lambda (line)
(if (string-match org-todo-line-regexp
line)
--- 1673,1679 ----
(if org-export-with-toc
(progn
(push (concat (nth 3 lang-words) "\n") thetoc)
! (push (concat (make-string (string-width (nth 3 lang-words)) ?=)
"\n") thetoc)
(mapc '(lambda (line)
(if (string-match org-todo-line-regexp
line)
***************
*** 1847,1853 ****
(defun org-insert-centered (s &optional underline)
"Insert the string S centered and underline it with character UNDERLINE."
! (let ((ind (max (/ (- 80 (string-width s)) 2) 0)))
(insert (make-string ind ?\ ) s "\n")
(if underline
(insert (make-string ind ?\ )
--- 1847,1853 ----
(defun org-insert-centered (s &optional underline)
"Insert the string S centered and underline it with character UNDERLINE."
! (let ((ind (max (/ (- fill-column (string-width s)) 2) 0)))
(insert (make-string ind ?\ ) s "\n")
(if underline
(insert (make-string ind ?\ )
2008-06-14 Guanpeng Xu
* org/org-exp.el (org-export-as-ascii): Use `string-width' to
compute correct width for multibyte strings.
(org-insert-centered): Regard the value of `fill-column'.
_________________________________________________________________
News, entertainment and everything you care about at Live.com. Get it now!
http://www.live.com/getstarted.aspx
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
