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

ox-texinfo: Remove unused internal functions 

* lisp/ox-texinfo.el (org-texinfo--make-option-string,
  org-texinfo--sanitize-headline,
  org-texinfo--sanitize-headline-contents): Remove.
This commit is contained in:
Nicolas Goaziou 2014-08-10 23:48:29 +02:00
parent 6d75d708a1
commit 4acfe1cba8
1 changed files with 0 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
lisp/ox-texinfo.el
View File

@ -439,18 +439,6 @@ This is used to choose a separator for constructs like \\verb."
when (not (string-match (regexp-quote (char-to-string c)) s))
return (char-to-string c))))
(defun org-texinfo--make-option-string (options)
"Return a comma separated string of keywords and values.
OPTIONS is an alist where the key is the options keyword as
a string, and the value a list containing the keyword value, or
nil."
(mapconcat (lambda (pair)
(concat (first pair)
(when (> (length (second pair)) 0)
(concat "=" (second pair)))))
options
","))
(defun org-texinfo--text-markup (text markup)
"Format TEXT depending on MARKUP text markup.
See `org-texinfo-text-markup-alist' for details."
@ -492,33 +480,6 @@ guarantees the node name is unique."
(plist-put info :texinfo-node-cache (cons (cons headline name) cache))
name))))
;;;; Headline sanitizing
(defun org-texinfo--sanitize-headline (headline info)
"Remove all formatting from the text of a headline for use in
node and menu listing."
(mapconcat 'identity
(org-texinfo--sanitize-headline-contents headline info) " "))
(defun org-texinfo--sanitize-headline-contents (headline info)
"Retrieve the content of the headline.
Any content that can contain further formatting is checked
recursively, to ensure that nested content is also properly
retrieved."
(loop for contents in headline append
(cond
;; already a string
((stringp contents)
(list (replace-regexp-in-string " $" "" contents)))
;; Is exported as-is (value)
((org-element-map contents '(verbatim code)
(lambda (value) (org-element-property :value value)) info))
;; Has content and recurse into the content
((org-element-contents contents)
(org-texinfo--sanitize-headline-contents
(org-element-contents contents) info)))))
;;;; Menu sanitizing
(defun org-texinfo--sanitize-node (title)