From mboxrd@z Thu Jan 1 00:00:00 1970 From: Dan Davison Subject: Re: Org-mode version 6.32trans (release_6.32b.127.g471c2); HTML export produces incorrect content Date: Mon, 09 Nov 2009 12:07:46 -0500 Message-ID: <87skcnlj8d.fsf@stats.ox.ac.uk> References: <200911091557.nA9FvXFG025346@gollum.intra.norang.ca> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1N7Xie-00087G-6B for emacs-orgmode@gnu.org; Mon, 09 Nov 2009 12:07:56 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1N7XiY-00085N-NJ for emacs-orgmode@gnu.org; Mon, 09 Nov 2009 12:07:54 -0500 Received: from [199.232.76.173] (port=48612 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1N7XiX-000855-U5 for emacs-orgmode@gnu.org; Mon, 09 Nov 2009 12:07:50 -0500 Received: from markov.stats.ox.ac.uk ([163.1.210.1]:54785) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1N7XiX-000252-8E for emacs-orgmode@gnu.org; Mon, 09 Nov 2009 12:07:49 -0500 In-Reply-To: <200911091557.nA9FvXFG025346@gollum.intra.norang.ca> (Bernt Hansen's message of "Mon, 9 Nov 2009 10:57:33 -0500") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Bernt Hansen Cc: emacs-orgmode@gnu.org Bernt Hansen 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:www-data@www:~/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 > "" :author-info nil :creator-info nil) > ("norang-extra" :base-directory "~/git/www.norang.ca/" :publishing-directory "/ssh:www-data@www:~/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:www-data@www:~/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 > "" :author-info nil :creator-info nil) > ("doc-extra" :base-directory "~/git/doc.norang.ca/" :publishing-directory "/ssh:www-data@www:~/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:www-data@www:~/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 "" :author-info nil :creator-info > nil) > ("doc-org-mode" :base-directory "~/git/org-mode-doc/" :publishing-directory "/ssh:www-data@www:~/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 > "" :author-info nil :creator-info nil) > ("doc-org-mode-extra" :base-directory "~/git/org-mode-doc/" :publishing-directory "/ssh:www-data@www:~/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 "\\" > 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. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode