" + ;; FIXME org-export-html-content-div is obsolete since 7.7 + (or org-export-html-content-div + (nth 1 org-export-html-divs))) + ;; FIXME this should go in the preamble but is here so + ;; that org-infojs can still find it + "\n

" title "

\n")) + + ;; insert body + (if org-export-with-toc + (progn + (push (format "%s\n" + org-export-html-toplevel-hlevel + (nth 3 lang-words) + org-export-html-toplevel-hlevel) + thetoc) + (push "

\n" thetoc) + (push "

" thetoc) + (setq lines + (mapcar + #'(lambda (org-line) + (if (and (string-match org-todo-line-regexp org-line) + (not (get-text-property 0 'org-protected org-line))) + ;; This is a headline + (progn + (setq have-headings t) + (setq level (- (match-end 1) (match-beginning 1) + level-offset) + level (org-tr-level level) + txt (save-match-data + (org-html-expand + (org-export-cleanup-toc-line + (match-string 3 org-line)))) + todo + (or (and org-export-mark-todo-in-toc + (match-beginning 2) + (not (member (match-string 2 org-line) + org-done-keywords))) + ; TODO, not DONE + (and org-export-mark-todo-in-toc + (= level umax-toc) + (org-search-todo-below + org-line lines level)))) + (if (string-match + (org-re "[ \t]+:\$[[:alnum:]_@:]+\$:[ \t]*$") txt) + (setq txt (replace-match + " \\1" t nil txt))) + (if (string-match quote-re0 txt) + (setq txt (replace-match "" t t txt))) + (setq snumber (org-section-number level)) + (if (and num (if (integerp num) + (>= num level) + num)) + (setq txt (concat snumber " " txt))) + (if (<= level (max umax umax-toc)) + (setq head-count (+ head-count 1))) + (if (<= level umax-toc) + (progn + (if (> level org-last-level) + (progn + (setq cnt (- level org-last-level)) + (while (>= (setq cnt (1- cnt)) 0) + (push "\n
- " thetoc)) + (push "\n" thetoc))) + (if (< level org-last-level) + (progn + (setq cnt (- org-last-level level)) + (while (>= (setq cnt (1- cnt)) 0) + (push "
" thetoc)) + (push "\n" thetoc))) + ;; Check for targets + (while (string-match org-any-target-regexp org-line) + (setq org-line (replace-match + (concat "@" + (match-string 1 org-line) "@ ") + t t org-line))) + (while (string-match "<\$<\$+\\|>\$>\$+" txt) + (setq txt (replace-match "" t t txt))) + (setq href + (replace-regexp-in-string + "\\." "-" (format "sec-%s" snumber))) + (setq href (org-solidify-link-text + (or (cdr (assoc href + org-export-preferred-target-alist)) href))) + (push + (format + (if todo + "
%s" + "
%s") + href txt) thetoc) + + (setq org-last-level level))))) + org-line) + lines)) + (while (> org-last-level (1- org-min-level)) + (setq org-last-level (1- org-last-level)) + (push "

\n" thetoc)) + (push "

\n" thetoc) + (setq thetoc (if have-headings (nreverse thetoc) nil)))) + + (setq head-count 0) + (org-init-section-numbers) + + (org-open-par) + + (while (setq org-line (pop lines) origline org-line) + (catch 'nextline + + ;; end of quote section? + (when (and inquote (string-match org-outline-regexp-bol org-line)) + (insert "\n") + (org-open-par) + (setq inquote nil)) + ;; inside a quote section? + (when inquote + (insert (org-html-protect org-line) "\n") + (throw 'nextline nil)) + + ;; Fixed-width, verbatim lines (examples) + (when (and org-export-with-fixed-width + (string-match "^[ \t]*:\$\\([ \t]\\|$\$\$.*\$\\)" org-line)) + (when (not infixed) + (setq infixed t) + (org-close-par-maybe) + + (insert "

\n"))
+	    (insert (org-html-protect (match-string 3 org-line)) "\n")
+	    (when (or (not lines)
+		      (not (string-match "^[ \t]*:\\(\\([ \t]\\|$\\)\\(.*\\)\\)"
+					 (car lines))))
+	      (setq infixed nil)
+	      (insert "

\n") + (org-open-par)) + (throw 'nextline nil)) + + ;; Protected HTML + (when (and (get-text-property 0 'org-protected org-line) + ;; Make sure it is the entire line that is protected + (not (< (or (next-single-property-change + 0 'org-protected org-line) 10000) + (length org-line)))) + (let (par (ind (get-text-property 0 'original-indentation org-line))) + (when (re-search-backward + "\\(

\\)\$[ \t\r\n]*\$\\=" (- (point) 100) t) + (setq par (match-string 1)) + (replace-match "\\2\n")) + (insert org-line "\n") + (while (and lines + (or (= (length (car lines)) 0) + (not ind) + (equal ind (get-text-property 0 'original-indentation (car lines)))) + (or (= (length (car lines)) 0) + (get-text-property 0 'org-protected (car lines)))) + (insert (pop lines) "\n")) + (and par (insert "

\n"))) + (throw 'nextline nil)) + + ;; Blockquotes, verse, and center + (when (equal "ORG-BLOCKQUOTE-START" org-line) + (org-close-par-maybe) + (insert "

\n") + (org-open-par) + (throw 'nextline nil)) + (when (equal "ORG-BLOCKQUOTE-END" org-line) + (org-close-par-maybe) + (insert "\n

\n") + (org-open-par) + (throw 'nextline nil)) + (when (equal "ORG-VERSE-START" org-line) + (org-close-par-maybe) + (insert "\n

\n") + (setq org-par-open t) + (setq inverse t) + (throw 'nextline nil)) + (when (equal "ORG-VERSE-END" org-line) + (insert "

\n") + (setq org-par-open nil) + (org-open-par) + (setq inverse nil) + (throw 'nextline nil)) + (when (equal "ORG-CENTER-START" org-line) + (org-close-par-maybe) + (insert "\n

") + (org-open-par) + (throw 'nextline nil)) + (when (equal "ORG-CENTER-END" org-line) + (org-close-par-maybe) + (insert "\n

") + (org-open-par) + (throw 'nextline nil)) + (run-hooks 'org-export-html-after-blockquotes-hook) + (when inverse + (let ((i (org-get-string-indentation org-line))) + (if (> i 0) + (setq org-line (concat (mapconcat 'identity + (make-list (* 2 i) "\\nbsp") "") + " " (org-trim org-line)))) + (unless (string-match "\\\\\\\\[ \t]*$" org-line) + (setq org-line (concat org-line "\\\\"))))) + + ;; make targets to anchors + (setq start 0) + (while (string-match + "<<]*\\)>>>?\$(INVISIBLE)\$?[ \t]*\n?" org-line start) + (cond + ((get-text-property (match-beginning 1) 'org-protected org-line) + (setq start (match-end 1))) + ((match-end 2) + (setq org-line (replace-match + (format + "@@" + (org-solidify-link-text (match-string 1 org-line)) + (org-solidify-link-text (match-string 1 org-line))) + t t org-line))) + ((and org-export-with-toc (equal (string-to-char org-line) ?*)) + ;; FIXME: NOT DEPENDENT on TOC????????????????????? + (setq org-line (replace-match + (concat "@" + (match-string 1 org-line) "@ ") + ;; (concat "@" (match-string 1 org-line) "@ ") + t t org-line))) + (t + (setq org-line (replace-match + (concat "@" (match-string 1 org-line) + "@ ") + t t org-line))))) + + (setq org-line (org-html-handle-time-stamps org-line)) + + ;; replace "&" by "&", "<" and ">" by "<" and ">" + ;; handle @<..> HTML tags (replace "@>..<" by "<..>") + ;; Also handle sub_superscripts and checkboxes + (or (string-match org-table-hline-regexp org-line) + (string-match "^[ \t]*\$[+]-\\||[ ]\$[-+ |]*[+|][ \t]*$" org-line) + (setq org-line (org-html-expand org-line))) + + ;; Format the links + (setq org-line (org-html-handle-links org-line opt-plist)) + + ;; TODO items + (if (and org-todo-line-regexp + (string-match org-todo-line-regexp org-line) + (match-beginning 2)) + + (setq org-line + (concat (substring org-line 0 (match-beginning 2)) + "" (match-string 2 org-line) + "" (substring org-line (match-end 2))))) + + ;; Does this contain a reference to a footnote? + (when org-export-with-footnotes + (setq start 0) + (while (string-match "\$[^* \t].*?\$\\[\$[0-9]+\$\\]" org-line start) + ;; Discard protected matches not clearly identified as + ;; footnote markers. + (if (or (get-text-property (match-beginning 2) 'org-protected org-line) + (not (get-text-property (match-beginning 2) 'org-footnote org-line))) + (setq start (match-end 2)) + (let ((n (match-string 2 org-line)) extra a) + (if (setq a (assoc n footref-seen)) + (progn + (setcdr a (1+ (cdr a))) + (setq extra (format ".%d" (cdr a)))) + (setq extra "") + (push (cons n 1) footref-seen)) + (setq org-line + (replace-match + (concat + (format + (concat "%s" + (format org-export-html-footnote-format + (concat "%s"))) + (or (match-string 1 org-line) "") n extra n n) + ;; If another footnote is following the + ;; current one, add a separator. + (if (save-match-data + (string-match "\\`\\[[0-9]+\\]" + (substring org-line (match-end 0)))) + org-export-html-footnote-separator + "")) + t t org-line)))))) + + (cond + ((string-match "^\$\\*+\$\$?: +\\(.*?\$\\)?[ \t]*$" org-line) + ;; This is a headline + (setq level (org-tr-level (- (match-end 1) (match-beginning 1) + level-offset)) + txt (or (match-string 2 org-line) "")) + (if (string-match quote-re0 txt) + (setq txt (replace-match "" t t txt))) + (if (<= level (max umax umax-toc)) + (setq head-count (+ head-count 1))) + (setq first-heading-pos (or first-heading-pos (point))) + (org-html-level-start level txt umax + (and org-export-with-toc (<= level umax)) + head-count opt-plist) + + ;; QUOTES + (when (string-match quote-re org-line) + (org-close-par-maybe) + (insert "

")
+	      (setq inquote t)))
+
+	   ((and org-export-with-tables
+		 (string-match "^\\([ \t]*\\)\\(|\\|\\+-+\\+\\)" org-line))
+	    (when (not table-open)
+	      ;; New table starts
+	      (setq table-open t table-buffer nil table-orig-buffer nil))
+
+	    ;; Accumulate lines
+	    (setq table-buffer (cons org-line table-buffer)
+		  table-orig-buffer (cons origline table-orig-buffer))
+	    (when (or (not lines)
+		      (not (string-match "^\\([ \t]*\\)\\(|\\|\\+-+\\+\\)"
+					 (car lines))))
+	      (setq table-open nil
+		    table-buffer (nreverse table-buffer)
+		    table-orig-buffer (nreverse table-orig-buffer))
+	      (org-close-par-maybe)
+	      (insert (org-format-table-html table-buffer table-orig-buffer))))
+
+	   ;; Normal lines
+
+	   (t
+	    ;; This line either is list item or end a list.
+	    (when (get-text-property 0 'list-item org-line)
+	      (setq org-line (org-html-export-list-line
+			      org-line
+			      (get-text-property 0 'list-item org-line)
+			      (get-text-property 0 'list-struct org-line)
+			      (get-text-property 0 'list-prevs org-line))))
+
+	    ;; Horizontal line
+	    (when (string-match "^[ \t]*-\\{5,\\}[ \t]*$" org-line)
+	      (if org-par-open
+		  (insert "\n
\n
\n\n")
+		(insert "\n
\n"))
+	      (throw 'nextline nil))
+
+	    ;; Empty lines start a new paragraph.  If hand-formatted lists
+	    ;; are not fully interpreted, lines starting with "-", "+", "*"
+	    ;; also start a new paragraph.
+	    (if (string-match "^ [-+*]-\\|^[ \t]*$" org-line) (org-open-par))
+
+	    ;; Is this the start of a footnote?
+	    (when org-export-with-footnotes
+	      (when (and (boundp 'footnote-section-tag-regexp)
+			 (string-match (concat "^" footnote-section-tag-regexp)
+				       org-line))
+		;; ignore this line
+		(throw 'nextline nil))
+	      (when (string-match "^[ \t]*\\[\\([0-9]+\\)\\]" org-line)
+		(org-close-par-maybe)
+		(let ((n (match-string 1 org-line)))
+		  (setq org-par-open t
+			org-line (replace-match
+				  (format
+				   (concat ""
+					   (format org-export-html-footnote-format
+						   (concat
+						    "%s")))
+				   n n n) t t org-line)))))
+	    ;; Check if the line break needs to be conserved
+	    (cond
+	     ((string-match "\\\\\\\\[ \t]*$" org-line)
+	      (setq org-line (replace-match "
" t t org-line)))
+	     (org-export-preserve-breaks
+	      (setq org-line (concat org-line "
"))))
+
+	    ;; Check if a paragraph should be started
+	    (let ((start 0))
+	      (while (and org-par-open
+			  (string-match "\\\\par\\>" org-line start))
+		;; Leave a space in the  so that the footnote matcher
+		;; does not see this.
+		(if (not (get-text-property (match-beginning 0)
+					    'org-protected org-line))
+		    (setq org-line (replace-match "
" t t org-line)))
+		(setq start (match-end 0))))
+
+	    (insert org-line "\n")))))
+
+      ;; Properly close all local lists and other lists
+      (when inquote
+	(insert "

\n") + (org-open-par)) + + (org-html-level-start 1 nil umax + (and org-export-with-toc (<= level umax)) + head-count opt-plist) + ;; the

\\)[^\000]*?\\)\$\\(\\2\$\\|\\'\\)" + nil t) + (push (match-string 1) footnotes) + (replace-match "\\4" t nil) + (goto-char (match-beginning 0)))) + (when footnotes + (insert (format org-export-html-footnotes-section + (nth 4 lang-words) + (mapconcat 'identity (nreverse footnotes) "\n")) + "\n")) + (let ((bib (org-export-html-get-bibliography))) + (when bib + (insert "\n" bib "\n"))) + + (unless body-only + ;; end wrap around body + (insert "\n") + + ;; export html postamble + (let ((html-post (plist-get opt-plist :html-postamble)) + (email + (mapconcat (lambda(e) + (format "%s" e e)) + (split-string email ",+ *") + ", ")) + (creator-info + (concat "Org version " + (org-version) " with Emacs version " + (number-to-string emacs-major-version)))) + + (when (plist-get opt-plist :html-postamble) + (insert "\n

" "")))))))) + +(defun org-export-html-get-bibliography () + "Find bibliography, cut it out and return it." + (catch 'exit + (let (beg end (cnt 1) bib) + (save-excursion + (goto-char (point-min)) + (when (re-search-forward "^[ \t]*

" . "

%s:

, and the corresponding classes will be outline-1, section-number-1, +and outline-text-1. If this is 2, all of these will get a 2 instead. +The default for this variable is 2, because we use

" title "