tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ox-texinfo.el: Fix issue with long headlines and node listings 

* lisp/ox-texinfo.el (org-texinfo-node-description-column): New custom
  variable.
  (org-texinfo--format-menu): Use new variable to set column for
  description in node listings.  If the headline extends past this
  column, add the description after the headline.

The default column is 32 as suggested by Thomas S. Dye,
http://article.gmane.org/gmane.emacs.orgmode/66664
This commit is contained in:
Jonathan Leech-Pepin 2013-02-25 10:44:18 -05:00
parent 2a752e4ce1
commit c94cae1ee6
1 changed files with 20 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lisp/ox-texinfo.el
View File

@ -222,6 +222,16 @@ order to reproduce the default set-up:
:group 'org-export-texinfo
:type 'function)
;;; Node listing (menu)
(defcustom org-texinfo-node-description-column 32
"Column at which to start the description in the node
listings.
If a node title is greater than this length, the description will
be placed after the end of the title."
:group 'org-export-texinfo
:type 'integer)
;;; Footnotes
;;
@ -609,19 +619,20 @@ Other menu items are output as:
With the spacing between :: and description based on the length
of the longest menu entry."
(let* ((lengths (mapcar 'car text-menu))
(max-length (apply 'max lengths))
output)
(let (output)
(setq output
(mapcar (lambda (name)
(let* ((title (nth 1 name))
(desc (nth 2 name))
(length (nth 0 name)))
(let* ((title (nth 1 name))
(desc (nth 2 name))
(length (nth 0 name))
(column (max
length
org-texinfo-node-description-column))
(spacing (- column length)
))
(if (> length -1)
(concat "* " title ":: "
(make-string
(- (+ 3 max-length) length)
?\s)
(make-string spacing ?\s)
(if desc
(concat desc)))
(concat "\n" title "\n"))))