diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-11-11 10:08:49 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-11-11 10:08:49 +0100 |
commit | 4a7d1f7b9e8e374130da96e3088bc7313bf0be3e (patch) | |
tree | 964ff965ec2f32c27e14b754de3ca7de9a3f041a | |
parent | b0a0511ff4e593e2c412e4273fe937a2e106691c (diff) | |
download | org-mode-4a7d1f7b9e8e374130da96e3088bc7313bf0be3e.tar.gz |
org-e-texinfo: Follow noexport tag specifications in menu
* contrib/lisp/org-e-texinfo.el (org-e-texinfo--sanitize-headline-contents,
org-e-texinfo--generate-menu-list): Provide communication channel as
as optional argument so `org-element-map' can properly skip ignored
elements.
(org-e-texinfo--find-copying, org-e-texinfo-headline,
org-e-texinfo-make-menu, org-e-texinfo-table-column-widths): Tiny
refactoring.
-rw-r--r-- | contrib/lisp/org-e-texinfo.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/contrib/lisp/org-e-texinfo.el b/contrib/lisp/org-e-texinfo.el index 6eb536e..d485616 100644 --- a/contrib/lisp/org-e-texinfo.el +++ b/contrib/lisp/org-e-texinfo.el @@ -386,7 +386,7 @@ inserted in a specific location." (org-element-map (plist-get info :parse-tree) 'headline (lambda (copy) (when (org-element-property :copying copy) - (push copy copying))) info 't) + (push copy copying))) info t) ;; Retrieve the single entry (car copying))) @@ -459,7 +459,7 @@ retrieved." ;; Is exported as-is (value) ((org-element-map contents '(verbatim code) (lambda (value) - (org-element-property :value value)))) + (org-element-property :value value)) info)) ;; Has content and recurse into the content ((org-element-contents contents) (org-e-texinfo--sanitize-headline-contents @@ -550,7 +550,8 @@ contextual information." ;; Do not take note of footnotes or copying headlines (not (org-element-property :copying head)) (not (org-element-property :footnote-section-p head))) - (push head seq))))) + (push head seq)))) + info) ;; Return the list of headlines (reverse to have in actual order) (reverse seq))) @@ -912,7 +913,7 @@ holding contextual information." (lambda (ref) (if (member title (org-element-property :title ref)) (push ref heading))) - info 't)) + info t)) (setq listing (org-e-texinfo--build-menu (car heading) level info)) (if listing @@ -1216,7 +1217,7 @@ are generated directly." (top (org-element-map parse 'headline (lambda (headline) - (org-element-property :level headline)) info 't))) + (org-element-property :level headline)) info t))) (cond ;; Generate the main menu ((eq level 'main) @@ -1470,8 +1471,7 @@ TABLE is the table element to transcode. INFO is a plist used as a communication channel." (let* ((rows (org-element-map table 'table-row 'identity info)) (collected (loop for row in rows collect - (org-element-map - row 'table-cell 'identity info))) + (org-element-map row 'table-cell 'identity info))) (number-cells (length (car collected))) cells counts) (loop for row in collected do |