Re: [Orgmode] Org-mode version 6.32trans (release_6.32b.127.g471c2); HTML export produces incorrect content

[Dan Davison]

Bernt Hansen <address@hidden> writes:

> Remember to cover the basics, that is, what you expected to happen and
> what in fact did happen.  You don't know how to make a good report?  See
>
>      http://orgmode.org/manual/Feedback.html#Feedback
>
> Your bug report will be posted to the Org-mode mailing list.
> ------------------------------------------------------------------------
>
> I updated the content of my org-mode document at
> http://doc.norang.ca/org-mode.html this weekend and exported the new
> commits using the tip of master this morning.
>
> The resulting document is wrong.  The section on FILETAGS
> http://doc.norang.ca/org-mode.html#sec-9.2 includes the #+begin_src
> emacs-lisp block before it instead of the correct output.  Using
> org-mode release_6.30 this exports correctly so something changed
> recently.

Hi Bernt,

I notice that you have org-babel activated, and I believe this is an
org-babel bug. Even when just exporting code, if babel is active then
exp-blocks passes src blocks to babel. I realise that we therefore have
a responsibility to be in good shape; I'll try to sort it out. I just
tried exporting the relevant fragment of your document with babel taken
out of org-export-blocks and it seemed OK.

I feel that I have noticed a similar thing on Worg. Could someone tell
me whether the Worg-exporting emacs process currently has babel
activated?

Thanks,

Dan

>
> Emacs  : GNU Emacs 22.2.1 (i486-pc-linux-gnu, GTK+ Version 2.12.11)
>  of 2008-11-09 on raven, modified by Debian
> Package: Org-mode version 6.32trans (release_6.32b.127.g471c2)
>
> current state:
> ==============
> (setq
>  org-export-html-final-hook '(org-inlinetask-remove-terminator)
>  org-log-done 'time
>  org-remember-default-headline "Tasks"
>  org-clock-in-switch-to-state "STARTED"
>  org-todo-keyword-faces '(("TODO" :foreground "red" :weight bold) ("STARTED" 
> :foreground "blue" :weight bold) ("DONE" :foreground "forest green" :weight 
> bold) ("WAITING" :foreground "orange" :weight bold)
>                         ("SOMEDAY" :foreground "magenta" :weight bold) 
> ("CANCELLED" :foreground "forest green" :weight bold) ("QUOTE" :foreground 
> "red" :weight bold)
>                         ("QUOTED" :foreground "magenta" :weight bold) 
> ("APPROVED" :foreground "forest green" :weight bold) ("EXPIRED" :foreground 
> "forest green" :weight bold)
>                         ("REJECTED" :foreground "forest green" :weight bold) 
> ("OPEN" :foreground "blue" :weight bold))
>  org-show-siblings nil
>  org-special-ctrl-a/e t
>  org-agenda-clockreport-parameter-plist '(:link nil :maxlevel 2)
>  org-default-priority 71
>  org-agenda-custom-commands '(("s" "Started Tasks" todo "STARTED" 
> ((org-agenda-todo-ignore-scheduled nil) (org-agenda-todo-ignore-deadlines 
> nil) (org-agenda-todo-ignore-with-date nil)))
>                             ("w" "Tasks waiting on something" tags 
> "WAITING/!" ((org-use-tag-inheritance nil)))
>                             ("r" "Refile New Notes and Tasks" tags 
> "LEVEL=1+REFILE" ((org-agenda-todo-ignore-with-date nil))) ("N" "Notes" tags 
> "NOTE" nil)
>                             ("n" "Next" tags "NEXT-WAITING-CANCELLED/!" nil) 
> ("p" "Projects" tags-todo "LEVEL=2-NEXT-WAITING-CANCELLED/!-DONE" nil)
>                             ("A" "Tasks to be Archived" tags 
> "LEVEL=2/DONE|CANCELLED" nil))
>  org-agenda-files '("~/git/bzflag/bzflag-website/TODO.org" 
> "~/git/org/bzflag.org" "~/git/org/git.org" "~/git/org/todo.org" 
> "~/git/org/jobs.org" "~/git/org/refile.org" "~/git/org/farm.org"
>                   "~/git/org/mark.org" "~/git/org/org.org" 
> "~/git/org/norang.org")
>  org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
>  org-agenda-tags-column -102
>  org-export-ascii-final-hook '(org-inlinetask-remove-terminator)
>  org-export-with-sub-superscripts nil
>  org-clock-into-drawer "CLOCK"
>  org-checklist-export-function 'org-export-as-ascii
>  org-completion-use-ido t
>  org-metaup-hook '(org-babel-load-in-session-maybe)
>  org-agenda-skip-timestamp-if-done t
>  org-after-todo-state-change-hook '(org-checklist org-clock-out-if-current)
>  org-clock-out-when-done nil
>  org-agenda-text-search-extra-files '(agenda-archives)
>  org-agenda-todo-ignore-scheduled t
>  org-clock-history-length 35
>  org-babel-interpreters '("ditaa" "python" "ruby" "R" "sh" "emacs-lisp")
>  org-show-hierarchy-above t
>  org-time-stamp-rounding-minutes '(1 15)
>  org-speed-commands-user '(("1" . delete-other-windows) ("2" . 
> split-window-horizontally) ("3" . split-window-vertically))
>  org-todo-state-tags-triggers '(("CANCELLED" ("CANCELLED" . t)) ("WAITING" 
> ("WAITING" . t) ("NEXT")) ("SOMEDAY" ("WAITING" . t)) (done ("NEXT") 
> ("WAITING")) ("TODO" ("WAITING") ("CANCELLED") ("NEXT"))
>                               ("DONE" ("WAITING") ("CANCELLED") ("NEXT")))
>  org-special-ctrl-k t
>  org-remember-clock-out-on-exit nil
>  org-agenda-sorting-strategy '((agenda habit-down time-up priority-down 
> effort-up category-up) (todo priority-down) (tags priority-down))
>  org-deadline-warning-days 30
>  org-agenda-skip-scheduled-if-done t
>  org-stuck-projects 
> '("LEVEL=2-REFILE-WAITING|LEVEL=1+REFILE/!-DONE-CANCELLED-OPEN" nil ("NEXT") 
> "")
>  org-agenda-time-grid '(nil "----------------" (800 1000 1200 1400 1600 1800 
> 2000))
>  org-clock-in-resume t
>  org-quote-string "FOOBAR"
>  org-export-preprocess-hook '(org-export-blocks-preprocess)
>  org-tags-exclude-from-inheritance '("crypt")
>  org-tab-first-hook '(org-hide-block-toggle-maybe)
>  outline-regexp "\\*+ "
>  org-src-mode-hook '(org-src-mode-configure-edit-buffer)
>  org-finalize-agenda-hook '(bh/org-agenda-to-appt)
>  org-confirm-shell-link-function 'yes-or-no-p
>  org-table-export-default-format "orgtbl-to-csv"
>  org-clock-persist 'history
>  org-clock-sound "/usr/local/lib/alert1.wav"
>  org-todo-keywords '((sequence "TODO(t!)" "STARTED(s!)" "|" "DONE(d!/!)") 
> (sequence "WAITING(w@/!)" "SOMEDAY(S!)" "OPEN(O@)" "|" "CANCELLED(c@/!)")
>                    (sequence "QUOTE(q!)" "QUOTED(Q!)" "|" "APPROVED(A@)" 
> "EXPIRED(E@)" "REJECTED(R@)"))
>  org-agenda-before-write-hook '(org-agenda-add-entry-text)
>  org-default-notes-file "~/git/org/refile.org"
>  org-export-docbook-xslt-proc-command "xsltproc --output %s 
> /usr/share/xml/docbook/stylesheet/nwalsh/fo/docbook.xsl %s"
>  org-insert-heading-hook '(bh/insert-inactive-timestamp)
>  org-tag-alist '((:startgroup) ("@errand" . 101) ("@office" . 111) ("@home" . 
> 104) ("@farm" . 102) (:endgroup) ("PHONE" . 112) ("QUOTE" . 113) ("NEXT" . 
> 110) ("WAITING" . 119) ("HOME" . 72) ("FARM" . 70)
>                ("ORG" . 79) ("JOBS" . 74) ("SAPPI" . 83) ("NORANG" . 78) 
> ("crypt" . 101) ("inet" . 105) ("MARK" . 77) ("BZFLAG" . 66))
>  org-blank-before-new-entry '((heading) (plain-list-item))
>  org-habit-graph-column 50
>  org-export-html-inline-images t
>  org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers 
> org-cycle-show-empty-lines org-optimize-window-after-visibility-change)
>  org-export-latex-classes '(("myletter"
>                            "% BEGIN My Letter 
> Defaults\n\\documentclass[10pt,letterpaper]{letter}\n\\usepackage[letterpaper,includeheadfoot,top=0.5in,bottom=0.5in,left=0.75in,right=0.75in]{geometry}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{hyperref}\n\\usepackage{lastpage}\n\\usepackage{fancyhdr}\n\\pagestyle{fancy}\n\\renewcommand{\\footrulewidth}{0.5pt}\n\n%
>  Default footer\n\\fancyfoot[C]{\\small Page \\thepage\\ of 
> \\pageref{LastPage}}\n% END My Letter Defaults\n\n"
>                            ("\\section{%s}" . "\\section*{%s}") 
> ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . 
> "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}")
>                            ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
>                           ("myarticle"
>                            "% BEGIN My Article 
> Defaults\n\\documentclass[10pt,letterpaper]{article}\n\\usepackage[letterpaper,includeheadfoot,top=0.5in,bottom=0.5in,left=0.75in,right=0.75in]{geometry}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{hyperref}\n\\usepackage{lastpage}\n\\usepackage{fancyhdr}\n\\pagestyle{fancy}\n\\renewcommand{\\headrulewidth}{1pt}\n\\renewcommand{\\footrulewidth}{0.5pt}\n\n%
>  Default footer\n\\fancyfoot[L]{\\small \\jobname \\\\ 
> \\today}\n\\fancyfoot[C]{\\small Page \\thepage\\ of 
> \\pageref{LastPage}}\n\\fancyfoot[R]{\\small \\copyright \\the\\year\\  
> Norang Consulting Inc.}\n% END My Article Defaults\n\n"
>                            ("\\section{%s}" . "\\section*{%s}") 
> ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . 
> "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}")
>                            ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
>                           ("article" 
> "\\documentclass[11pt,letterpaper]{article}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{graphicx}\n\\usepackage{hyperref}"
>                            ("\\section{%s}" . "\\section*{%s}") 
> ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . 
> "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}")
>                            ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
>                           ("report" 
> "\\documentclass[11pt,letterpaper]{report}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{graphicx}\n\\usepackage{hyperref}"
>                            ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . 
> "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . 
> "\\subsection*{%s}")
>                            ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
>                           ("book" 
> "\\documentclass[11pt,letterpaper]{book}\n\\usepackage[utf8]{inputenc}\n\\usepackage[T1]{fontenc}\n\\usepackage{graphicx}\n\\usepackage{hyperref}"
>                            ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . 
> "\\chapter*{%s}") ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . 
> "\\subsection*{%s}")
>                            ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
>                           )
>  org-publish-project-alist '(("norang-org" :base-directory 
> "~/git/www.norang.ca" :publishing-directory 
> "/ssh:address@hidden:~/www.norang.ca/htdocs" :recursive t :section_numbers 
> nil :table-of-contents nil
>                             :base-extension "org" :publishing-function 
> org-publish-org-to-html :style-include-default nil :section-numbers nil 
> :table-of-contents nil :style-include-default nil :style
>                             "<link rel=\"stylesheet\" href=\"norang.css\" 
> type=\"text/css\" />" :author-info nil :creator-info nil)
>                            ("norang-extra" :base-directory 
> "~/git/www.norang.ca/" :publishing-directory 
> "/ssh:address@hidden:~/www.norang.ca/htdocs" :base-extension 
> "css\\|pdf\\|png\\|jpg\\|gif"
>                             :publishing-function org-publish-attachment 
> :recursive t :author nil)
>                            ("norang" :components ("norang-org" 
> "norang-extra"))
>                            ("doc-org" :base-directory "~/git/doc.norang.ca/" 
> :publishing-directory "/ssh:address@hidden:~/doc.norang.ca/htdocs" :recursive 
> t :section_numbers nil :table-of-contents nil
>                             :base-extension "org" :publishing-function 
> (org-publish-org-to-html org-publish-org-to-org) :plain-source t 
> :htmlized-source t :style-include-default nil :style
>                             "<link rel=\"stylesheet\" href=\"/org.css\" 
> type=\"text/css\" />" :author-info nil :creator-info nil)
>                            ("doc-extra" :base-directory 
> "~/git/doc.norang.ca/" :publishing-directory 
> "/ssh:address@hidden:~/doc.norang.ca/htdocs" :base-extension 
> "css\\|pdf\\|png\\|jpg\\|gif"
>                             :publishing-function org-publish-attachment 
> :recursive t :author nil)
>                            ("org" :base-directory "~/git/org/" 
> :publishing-directory "/ssh:address@hidden:~/org" :recursive t 
> :section_numbers nil :table-of-contents nil :base-extension "org"
>                             :publishing-function org-publish-org-to-html 
> :style-include-default nil :style "<link rel=\"stylesheet\" href=\"/org.css\" 
> type=\"text/css\" />" :author-info nil :creator-info
>                             nil)
>                            ("doc-org-mode" :base-directory 
> "~/git/org-mode-doc/" :publishing-directory 
> "/ssh:address@hidden:~/doc.norang.ca/htdocs" :recursive t :section_numbers 
> nil :table-of-contents nil
>                             :base-extension "org" :publishing-function 
> (org-publish-org-to-html org-publish-org-to-org) :plain-source t 
> :htmlized-source t :style-include-default nil :style
>                             "<link rel=\"stylesheet\" href=\"/org.css\" 
> type=\"text/css\" />" :author-info nil :creator-info nil)
>                            ("doc-org-mode-extra" :base-directory 
> "~/git/org-mode-doc/" :publishing-directory 
> "/ssh:address@hidden:~/doc.norang.ca/htdocs" :base-extension 
> "css\\|pdf\\|png\\|jpg\\|gif"
>                             :publishing-function org-publish-attachment 
> :recursive t :author nil)
>                            ("doc" :components ("doc-org" "doc-extra" 
> "doc-org-mode" "doc-org-mode-extra")))
>  org-agenda-tags-todo-honor-ignore-options t
>  org-use-speed-commands t
>  org-mode-hook '(org-clock-load
>                (lambda nil (make-variable-buffer-local (quote 
> yas/trigger-key)) (org-set-local (quote yas/trigger-key) [tab]) (define-key 
> yas/keymap [tab] (quote yas/next-field-group)) (flyspell-mode 1))
>                #[nil "\300\301\302\303\304$\207" [add-hook before-save-hook 
> org-encrypt-entries nil t] 5]
>                #[nil "\300\301\302\303\304$\207" [org-add-hook 
> change-major-mode-hook org-show-block-all append local] 5])
>  org-clock-out-remove-zero-time-clocks t
>  org-cycle-include-plain-lists nil
>  org-font-lock-hook '(org-inlinetask-fontify)
>  org-agenda-ndays 1
>  org-global-properties '(("Effort_ALL" . "0:10 0:30 1:00 2:00 4:00 6:00 8:00 
> 12:00 16:00 24:00 40:00") ("STYLE_ALL" . "habit"))
>  org-refile-targets '((nil :maxlevel . 5) (org-agenda-files :maxlevel . 5))
>  org-ctrl-c-ctrl-c-hook '(org-babel-lob-execute-maybe 
> org-babel-execute-src-block-maybe)
>  org-return-follows-link t
>  org-confirm-elisp-link-function 'yes-or-no-p
>  org-refile-use-outline-path 'file
>  org-fast-tag-selection-single-key 'expert
>  org-log-into-drawer t
>  org-agenda-mode-hook '((lambda nil (hl-line-mode 1)))
>  org-agenda-start-on-weekday nil
>  org-agenda-todo-ignore-with-date t
>  org-export-interblocks '((lob org-babel-exp-lob-one-liners) (src 
> org-babel-exp-inline-src-blocks))
>  org-enforce-todo-dependencies t
>  org-agenda-skip-deadline-if-done t
>  org-show-following-heading t
>  org-insert-heading-respect-content t
>  org-crypt-key "F0B66B40"
>  org-occur-hook '(org-first-headline-recenter)
>  org-from-is-user-regexp "\\<Bernt Hansen\\>"
>  org-yank-adjusted-subtrees t
>  org-drawers '("PROPERTIES" "LOGBOOK" "CLOCK")
>  org-agenda-log-mode-items '(clock)
>  org-treat-S-cursor-todo-selection-as-state-change nil
>  org-export-docbook-xsl-fo-proc-command "fop %s %s"
>  org-agenda-todo-ignore-deadlines t
>  org-modules '(org-bbdb org-bibtex org-crypt org-gnus org-id org-info 
> org-jsinfo org-habit org-inlinetask org-irc org-mew org-mhe org-protocol 
> org-rmail org-vm org-wl org-w3m)
>  org-columns-default-format "%80ITEM(Task) %10Effort(Estimated Effort){:} 
> %10CLOCKSUM"
>  org-agenda-auto-exclude-function 'bh/org-auto-exclude-function
>  org-remember-templates '(("todo" 116 "* TODO %?\n  %U\n  %a" nil bottom nil) 
> ("note" 110 "* %?                                        :NOTE:\n  %U\n  %a" 
> nil bottom nil)
>                         ("phone" 112 "* PHONE %:name - %:company -            
>     :PHONE:\n  Contact Info: %a\n  %U\n  :CLOCK-IN:\n  %?" nil bottom nil)
>                         ("Apply to Job" 106 "* TODO jobtask%?                 
>            :NEXT:inet:\n  :PROPERTIES:\n  :Effort: 0:30\n  :END:\n  %U\n  
> jobdetails" "~/git/org/jobs.org" "TODO Job Search"
>                          nil)
>                         ("appointment" 97 "* %?\n  %U" "~/git/org/todo.org" 
> "Appointments" nil)
>                         ("Search job site" 115 "* TODO Search job site%!      
>              :NEXT:inet:\n  %U\n  :PROPERTIES:\n  :Effort: 0:10\n  :END:\n  
> %a  " "~/git/org/jobs.org" "Search Jobs" nil)
>                         ("org-protocol" 119 "* TODO Review %c%!  :NEXT:\n  
> %U\n  :PROPERTIES:\n  :Effort: 0:10\n  :END:" nil bottom nil))
>  org-export-preprocess-after-tree-selection-hook 
> '(org-inlinetask-export-handler)
>  org-export-docbook-final-hook '(org-inlinetask-remove-terminator)
>  org-export-latex-final-hook '(org-inlinetask-remove-terminator)
>  org-lowest-priority 71
>  org-metadown-hook '(org-babel-pop-to-session-maybe)
>  org-clock-idle-time 1
>  org-export-blocks '((src org-babel-exp-src-blocks nil) (comment 
> org-export-blocks-format-comment t) (ditaa org-export-blocks-format-ditaa 
> nil) (dot org-export-blocks-format-dot nil))
>  )
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode