%s:
%s
Date: %d
Generated by %c
%v
")) "The format for the HTML postamble. %a stands for the author's name. %e stands for the author's email. %d stands for the date. %c will be replaced by information about Org/Emacs versions. %v will be replaced by `org-export-e-html-validation-link'. If you need to use a \"%\" character, you need to escape it like that: \"%%\"." :group 'org-export-e-html :type 'string) (defcustom org-export-e-html-home/up-format "" "Snippet used to insert the HOME and UP links. This is a format string, the first %s will receive the UP link, the second the HOME link. If both `org-export-e-html-link-up' and `org-export-e-html-link-home' are empty, the entire snippet will be ignored." :group 'org-export-e-html :type 'string) (defcustom org-export-e-html-toplevel-hlevel 2 "The, 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 for formatting the
document title."
:group 'org-export-e-html
:type 'string)
(defcustom org-export-e-html-link-org-files-as-html t
"Non-nil means make file links to `file.org' point to `file.html'.
When org-mode is exporting an org-mode file to HTML, links to
non-html files are directly put into a href tag in HTML.
However, links to other Org-mode files (recognized by the
extension `.org.) should become links to the corresponding html
file, assuming that the linked org-mode file will also be
converted to HTML.
When nil, the links still point to the plain `.org' file."
:group 'org-export-e-html
:type 'boolean)
(defcustom org-export-e-html-inline-images 'maybe
"Non-nil means inline images into exported HTML pages.
This is done using an ![]()
tag. When nil, an anchor with href is used to
link to the image. If this option is `maybe', then images in links with
an empty description will be inlined, while images with a description will
be linked only."
:group 'org-export-e-html
:type '(choice (const :tag "Never" nil)
(const :tag "Always" t)
(const :tag "When there is no description" maybe)))
(defcustom org-export-e-html-inline-image-extensions
'("png" "jpeg" "jpg" "gif" "svg")
"Extensions of image files that can be inlined into HTML."
:group 'org-export-e-html
:type '(repeat (string :tag "Extension")))
(defcustom org-export-e-html-table-tag
"
| " . " | ") "The opening tag for table header fields. This is customizable so that alignment options can be specified. The first %s will be filled with the scope of the field, either row or col. The second %s will be replaced by a style entry to align the field. See also the variable `org-export-e-html-table-use-header-tags-for-first-column'. See also the variable `org-export-e-html-table-align-individual-fields'." :group 'org-export-tables :type '(cons (string :tag "Opening tag") (string :tag "Closing tag"))) (defcustom org-export-table-data-tags '("|
|---|---|
" (nth 0 org-export-e-html-divs))
"
"
html-pre-real-contents
"
")))))
;; (defun org-e-html-footnote-section (info)
;; (when org-e-html-footnotes-alist
;; (setq org-e-html-footnotes-alist
;; (sort org-e-html-footnotes-alist
;; (lambda (n1 n2) (< (or (nth 1 n1) most-positive-fixnum)
;; (or (nth 1 n2) most-positive-fixnum)))))
;; (org-e-html-format-footnotes-section
;; (nth 4 (or (assoc (plist-get info :language)
;; org-export-language-setup)
;; (assoc "en" org-export-language-setup)))
;; (mapconcat
;; (lambda (x)
;; (org-e-html-format-footnote-definition (nth 2 x) (nth 1 x)))
;; org-e-html-footnotes-alist "\n"))))
(defun org-e-html-bibliography ()
(org-export-e-html-get-bibliography))
(defun org-e-html-postamble (info)
(concat
(when (and (not body-only)
(plist-get info :html-postamble))
(let* ((html-post (plist-get info :html-postamble))
(date (org-e-html-format-date info))
(author (plist-get info :author))
(email (plist-get info :email))
(lang-words (or (assoc (plist-get info :language)
org-export-language-setup)
(assoc "en" org-export-language-setup)))
(email
(mapconcat (lambda(e)
(format "%s" e e))
(split-string email ",+ *")
", "))
(html-validation-link (or org-export-e-html-validation-link ""))
(creator-info
(concat "Org version " org-version " with Emacs version "
(number-to-string emacs-major-version))))
(concat
;; begin postamble
"
"
(cond
;; auto postamble
((eq (plist-get info :html-postamble) 'auto)
(concat
(when (plist-get info :time-stamp-file)
(format "
")))
org-export-e-html-html-helper-timestamp))
(defun org-e-html-template (contents info)
"Return complete document string after HTML conversion.
CONTENTS is the transcoded contents string. RAW-DATA is the
original parsed data. INFO is a plist holding export options."
(concat
(format
(or (and (stringp org-export-e-html-xml-declaration)
org-export-e-html-xml-declaration)
(cdr (assoc (plist-get info :html-extension)
org-export-e-html-xml-declaration))
(cdr (assoc "html" org-export-e-html-xml-declaration))
"")
(or (and coding-system-for-write
(fboundp 'coding-system-get)
(coding-system-get coding-system-for-write
'mime-charset))
"iso-8859-1"))
"
"
(format "
"
(plist-get info :language) (plist-get info :language))
"
"
(org-e-html-meta-info info) ; meta
(org-e-html-style info) ; style
(org-e-html-mathjax info) ; mathjax
"
"
"
"
(let ((link-up (and (plist-get info :link-up)
(string-match "\\S-" (plist-get info :link-up))
(plist-get info :link-up)))
(link-home (and (plist-get info :link-home)
(string-match "\\S-" (plist-get info :link-home))
(plist-get info :link-home))))
(when (or link-up link-home)
(format org-export-e-html-home/up-format
(or link-up link-home)
(or link-home link-up))))
;; preamble
(org-e-html-preamble info)
;; content
(format "
%s: %s
" (nth 2 lang-words) date)) (when (and (plist-get info :with-author) author) (format " " (nth 1 lang-words) author)) (when (and (plist-get info :with-email) email) (format "%s
" email)) (when (plist-get info :with-creator) (format "%s
" creator-info)) html-validation-link "\n")) ;; postamble from a string ((stringp (plist-get info :html-postamble)) (format-spec (plist-get info :html-postamble) `((?a . ,author) (?e . ,email) (?d . ,date) (?c . ,creator-info) (?v . ,html-validation-link)))) ;; postamble from a function ((functionp (plist-get info :html-postamble)) (with-temp-buffer (funcall (plist-get info :html-postamble)) (buffer-string))) ;; default postamble (t (format-spec (or (cadr (assoc (nth 0 lang-words) org-export-e-html-postamble-format)) (cadr (assoc "en" org-export-e-html-postamble-format))) `((?a . ,author) (?e . ,email) (?d . ,date) (?c . ,creator-info) (?v . ,html-validation-link))))) "" (or org-export-e-html-content-div
(nth 1 org-export-e-html-divs)))
(format "
")
;; postamble
(org-e-html-postamble info)
(unless body-only
"
")
"
"))
;;; Transcode Functions
;;;; Block
(defun org-e-html-center-block (center-block contents info)
"Transcode a CENTER-BLOCK element from Org to HTML.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information."
;; (org-e-html--wrap-label
;; center-block
;; (format "\\begin{center}\n%s\\end{center}" contents))
(org-e-html--wrap-label
center-block
(format "%s
\n" (plist-get info :title)) contents (org-e-html-footnote-section info) (org-e-html-bibliography) (unless body-only "\n%s
" contents)))
;;;; Comment
;; Comments are ignored.
;;;; Comment Block
;; Comment Blocks are ignored.
;;;; Drawer
(defun org-e-html-drawer (drawer contents info)
"Transcode a DRAWER element from Org to HTML.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information."
(let* ((name (org-element-get-property :drawer-name drawer))
(output (if (functionp org-e-html-format-drawer-function)
(funcall org-e-html-format-drawer-function
name contents)
;; If there's no user defined function: simply
;; display contents of the drawer.
contents)))
(org-e-html--wrap-label drawer output)))
;;;; Dynamic Block
(defun org-e-html-dynamic-block (dynamic-block contents info)
"Transcode a DYNAMIC-BLOCK element from Org to HTML.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information. See
`org-export-data'."
(org-e-html--wrap-label dynamic-block contents))
;;;; Emphasis
(defun org-e-html-emphasis (emphasis contents info)
"Transcode EMPHASIS from Org to HTML.
CONTENTS is the contents of the emphasized text. INFO is a plist
holding contextual information.."
;; (format (cdr (assoc (org-element-get-property :marker emphasis)
;; org-e-html-emphasis-alist))
;; contents)
(org-e-html-format-fontify
contents (cadr (assoc
(org-element-get-property :marker emphasis)
'(("*" bold)
("/" emphasis)
("_" underline)
("=" code)
("~" verbatim)
("+" strike))))))
;;;; Entity
(defun org-e-html-entity (entity contents info)
"Transcode an ENTITY object from Org to HTML.
CONTENTS are the definition itself. INFO is a plist holding
contextual information."
;; (let ((ent (org-element-get-property :latex entity)))
;; (if (org-element-get-property :latex-math-p entity)
;; (format "$%s$" ent)
;; ent))
(org-element-get-property :html entity))
;;;; Example Block
;; (defun org-odt-format-source-code-or-example-colored
;; (lines lang caption textareap cols rows num cont rpllbl fmt))
(defun org-e-html-format-source-code-or-example-plain
(lines lang caption textareap cols rows num cont rpllbl fmt)
(setq lines
(concat
"\n" (cond (textareap (concat (format "\n")) (unless textareap (setq lines (org-export-number-lines lines 1 1 num cont rpllbl fmt))) ;; (when (string-match "\\(\\`<[^>]*>\\)\n" lines) ;; (setq lines (replace-match "\\1" t nil lines))) lines) (defun org-e-html-format-source-code-or-example-colored (lines lang caption textareap cols rows num cont rpllbl fmt) (let* ((lang-m (when lang (or (cdr (assoc lang org-src-lang-modes)) lang))) (mode (and lang-m (intern (concat (if (symbolp lang-m) (symbol-name lang-m) lang-m) "-mode")))) (org-inhibit-startup t) (org-startup-folded nil)) (setq lines (with-temp-buffer (insert lines) (if (functionp mode) (funcall mode) (fundamental-mode)) (font-lock-fontify-buffer) ;; markup each line separately (org-remove-formatting-on-newlines-in-region (point-min) (point-max)) (org-src-mode) (set-buffer-modified-p nil) (org-export-e-htmlize-region-for-paste (point-min) (point-max)))) (when (string-match "\n\n
\n")) (t (with-temp-buffer (insert lines) (goto-char (point-min)) (while (re-search-forward "[<>&]" nil t) (replace-match (cdr (assq (char-before) '((?&."&")(?<."<")(?>.">")))) t t)) (buffer-string)))) "
\n" lang) t t lines)))
(when caption
(setq lines
(concat
""
(format "" caption)
lines "")))
(unless textareap
(setq lines (org-export-number-lines lines 1 1 num cont rpllbl fmt)))
;; (when (string-match "\\(\\`<[^>]*>\\)\n" lines)
;; (setq lines (replace-match "\\1" t nil lines)))
lines))
(defun org-e-html-format-source-code-or-example
(lang code &optional opts indent caption)
"Format CODE from language LANG and return it formatted for export.
The CODE is marked up in `org-export-current-backend' format.
Check if a function by name
\"org--format-source-code-or-example\" is bound. If yes,
use it as the custom formatter. Otherwise, use the default
formatter. Default formatters are provided for docbook, html,
latex and ascii backends. For example, use
`org-e-html-format-source-code-or-example' to provide a custom
formatter for export to \"html\".
If LANG is nil, do not add any fontification.
OPTS contains formatting options, like `-n' for triggering numbering lines,
and `+n' for continuing previous numbering.
Code formatting according to language currently only works for HTML.
Numbering lines works for all three major backends (html, latex, and ascii).
INDENT was the original indentation of the block."
(save-match-data
(let* ((backend-formatter 'org-e-html-format-source-code-or-example-plain)
num cont rtn rpllbl keepp textareap preserve-indentp cols rows fmt)
(setq opts (or opts "")
num (string-match "[-+]n\\>" opts)
cont (string-match "\\+n\\>" opts)
rpllbl (string-match "-r\\>" opts)
keepp (string-match "-k\\>" opts)
textareap (string-match "-t\\>" opts)
preserve-indentp (or org-src-preserve-indentation
(string-match "-i\\>" opts))
cols (if (string-match "-w[ \t]+\\([0-9]+\\)" opts)
(string-to-number (match-string 1 opts))
80)
rows (if (string-match "-h[ \t]+\\([0-9]+\\)" opts)
(string-to-number (match-string 1 opts))
(org-count-lines code))
fmt (if (string-match "-l[ \t]+\"\\([^\"\n]+\\)\"" opts)
(match-string 1 opts)))
(when (and textareap
;; (eq org-export-current-backend 'html)
)
;; we cannot use numbering or highlighting.
(setq num nil cont nil lang nil))
(if keepp (setq rpllbl 'keep))
(setq rtn (if preserve-indentp code (org-remove-indentation code)))
(when (string-match "^," rtn)
(setq rtn (with-temp-buffer
(insert rtn)
;; Free up the protected lines
(goto-char (point-min))
(while (re-search-forward "^," nil t)
(if (or (equal lang "org")
(save-match-data
(looking-at "\\([*#]\\|[ \t]*#\\+\\)")))
(replace-match ""))
(end-of-line 1))
(buffer-string))))
(when lang
(if (featurep 'xemacs)
(require 'htmlize)
(require 'htmlize nil t)))
(setq backend-formatter
(cond
((fboundp 'htmlize-region-for-paste)
'org-e-html-format-source-code-or-example-colored)
(t
(message
"htmlize.el 1.34 or later is needed for source code formatting")
'org-e-html-format-source-code-or-example-plain)))
(funcall backend-formatter rtn lang caption textareap cols rows
num cont rpllbl fmt))))
(defun org-e-html-example-block (example-block contents info)
"Transcode a EXAMPLE-BLOCK element from Org to HTML.
CONTENTS is nil. INFO is a plist holding contextual information."
(let* ((options (or (org-element-get-property :options example-block) ""))
(value (org-export-handle-code example-block info)))
;; (org-e-html--wrap-label
;; example-block (format "\\begin{verbatim}\n%s\\end{verbatim}" value))
(org-e-html--wrap-label
example-block (org-e-html-format-source-code-or-example nil value))))
;;;; Export Snippet
(defun org-e-html-export-snippet (export-snippet contents info)
"Transcode a EXPORT-SNIPPET object from Org to HTML.
CONTENTS is nil. INFO is a plist holding contextual information."
(org-element-get-property :value export-snippet))
;;;; Export Block
(defun org-e-html-export-block (export-block contents info)
"Transcode a EXPORT-BLOCK element from Org to HTML.
CONTENTS is nil. INFO is a plist holding contextual information."
(when (string= (org-element-get-property :type export-block) "latex")
(org-remove-indentation (org-element-get-property :value export-block))))
;;;; Fixed Width
(defun org-e-html-fixed-width (fixed-width contents info)
"Transcode a FIXED-WIDTH element from Org to HTML.
CONTENTS is nil. INFO is a plist holding contextual information."
(let* ((value (org-element-normalize-string
(replace-regexp-in-string
"^[ \t]*: ?" ""
(org-element-get-property :value fixed-width)))))
;; (org-e-html--wrap-label
;; fixed-width (format "\\begin{verbatim}\n%s\\end{verbatim}" value))
(org-e-html--wrap-label
fixed-width (org-e-html-format-source-code-or-example nil value)) ;; FIXME
))
;;;; Footnote Definition
;; Footnote Definitions are ignored.
;;;; Footnote Reference
(defun org-e-html-footnote-reference (footnote-reference contents info)
"Transcode a FOOTNOTE-REFERENCE element from Org to HTML.
CONTENTS is nil. INFO is a plist holding contextual information."
(concat
;; Insert separator between two footnotes in a row.
(let ((prev (org-export-get-previous-element footnote-reference info)))
(when (and (listp prev) (eq (car prev) 'footnote-reference))
org-e-html-footnote-separator))
;; Use \footnotemark if the footnote has already been defined.
;; Otherwise, define it with \footnote command.
(cond
((not (org-export-footnote-first-reference-p footnote-reference info))
;; (format "\\footnotemark[%s]"
;; (org-export-get-footnote-number footnote-reference info))
(org-e-html-format-footnote-reference
(org-export-get-footnote-number footnote-reference info)
"FIXME" 100) ;; FIXME
)
;; Inline definitions are secondary strings.
((eq (org-element-get-property :type footnote-reference) 'inline)
;; (format "\\footnote{%s}"
;; (org-trim
;; (org-export-secondary-string
;; (org-export-get-footnote-definition footnote-reference info)
;; 'e-html info)))
(let ((n (org-export-get-footnote-number footnote-reference info))
(def (format
"%s
"
(org-trim
(org-export-secondary-string
(org-export-get-footnote-definition footnote-reference info)
'e-html info)))))
(push (cons n def) org-e-html-footnotes-alist)
(org-e-html-format-footnote-reference n def 1)))
;; Non-inline footnotes definitions are full Org data.
(t
;; (format "\\footnote{%s}"
;; (org-trim
;; (org-export-data
;; (org-export-get-footnote-definition footnote-reference info)
;; 'e-html info)))
(let ((n (org-export-get-footnote-number footnote-reference info))
(def (org-trim
(org-export-data
(org-export-get-footnote-definition footnote-reference info)
'e-html info))))
(push (cons n def) org-e-html-footnotes-alist)
(org-e-html-format-footnote-reference n def 1))
))))
;;;; Headline
(defun org-e-html-todo (todo)
(when todo
(org-e-html-format-fontify
(concat
;; (ignore-errors (org-lparse-get 'TODO-KWD-CLASS-PREFIX))
org-export-e-html-todo-kwd-class-prefix
(org-e-html-fix-class-name todo))
(list (if (member todo org-done-keywords) "done" "todo")
todo))))
(defun org-e-html-headline (headline contents info)
"Transcode an HEADLINE element from Org to HTML.
CONTENTS holds the contents of the headline. INFO is a plist
holding contextual information."
(let* ((class (plist-get info :latex-class))
(numberedp (plist-get info :section-numbers))
;; Get level relative to current parsed data.
(level (org-export-get-relative-level headline info))
(class-sectionning (assoc class org-e-html-classes))
;; Section formatting will set two placeholders: one for the
;; title and the other for the contents.
(section-fmt
(let ((sec (if (and (symbolp (nth 2 class-sectionning))
(fboundp (nth 2 class-sectionning)))
(funcall (nth 2 class-sectionning) level numberedp)
(nth (1+ level) class-sectionning))))
(cond
;; No section available for that LEVEL.
((not sec) nil)
;; Section format directly returned by a function.
((stringp sec) sec)
;; (numbered-section . unnumbered-section)
((not (consp (cdr sec)))
(concat (funcall (if numberedp #'car #'cdr) sec) "\n%s"))
;; (numbered-open numbered-close)
((= (length sec) 2)
(when numberedp (concat (car sec) "\n%s" (nth 1 sec))))
;; (num-in num-out no-num-in no-num-out)
((= (length sec) 4)
(if numberedp
(concat (car sec) "\n%s" (nth 1 sec))
(concat (nth 2 sec) "\n%s" (nth 3 sec)))))))
(text (org-export-secondary-string
(org-element-get-property :title headline) 'e-html info))
(todo (and (plist-get info :with-todo-keywords)
(let ((todo (org-element-get-property
:todo-keyword headline)))
(and todo
(org-export-secondary-string todo 'e-html info)))))
(todo-type (and todo (org-element-get-property :todo-type headline)))
(tags (and (plist-get info :with-tags)
(org-element-get-property :tags headline)))
(priority (and (plist-get info :with-priority)
(org-element-get-property :priority headline)))
;; Create the headline text.
(full-text (if (functionp org-e-html-format-headline-function)
;; User-defined formatting function.
(funcall org-e-html-format-headline-function
todo todo-type priority text tags)
;; Default formatting.
(concat
;; (when todo
;; (format "\\textbf{\\textsf{\\textsc{%s}}} " todo))
(org-e-html-todo todo) " "
(when priority (format "\\framebox{\\#%c} " priority))
text
;; (when tags (format "\\hfill{}\\textsc{%s}" tags))
)))
;; Associate some \label to the headline for internal links.
;; (headline-label
;; (format "\\label{sec-%s}\n"
;; (mapconcat 'number-to-string
;; (org-export-get-headline-number headline info)
;; "-")))
;; FIXME - begin
(headline-no (org-export-get-headline-number headline info))
(headline-label
(format "sec-%s" (mapconcat 'number-to-string headline-no "-")))
(headline-labels (list headline-label))
(headline-no (org-export-get-headline-number headline info))
(section-no (mapconcat 'number-to-string headline-no "."))
;; FIXME - end
(pre-blanks (make-string
(org-element-get-property :pre-blank headline) 10)))
(cond
;; Case 1: This is a footnote section: ignore it.
((org-element-get-property :footnote-section-p headline) nil)
;; Case 2. This is a deep sub-tree: export it as a list item.
;; Also export as items headlines for which no section
;; format has been found.
;; ((or (not section-fmt) (org-export-low-level-p headline info)) FIXME
;; ;; Build the real contents of the sub-tree.
;; (let ((low-level-body
;; (concat
;; ;; If the headline is the first sibling, start a list.
;; (when (org-export-first-sibling-p headline info)
;; (format "\\begin{%s}\n" (if numberedp 'enumerate 'itemize)))
;; ;; Itemize headline
;; "\\item " full-text "\n" headline-label pre-blanks contents)))
;; ;; If headline in the last sibling, close the list, before any
;; ;; blank line. Otherwise, simply return LOW-LEVEL-BODY.
;; (if (org-export-last-sibling-p headline info)
;; (replace-regexp-in-string
;; "[ \t\n]*\\'"
;; (format "\n\\\\end{%s}" (if numberedp 'enumerate 'itemize))
;; low-level-body)
;; low-level-body)))
;; Case 3. Standard headline. Export it as a section.
(t
;; (format section-fmt full-text
;; (concat headline-label pre-blanks contents))
(org-e-html-format-outline contents level section-no full-text tags
(car (last headline-labels))
(butlast headline-labels) nil)))))
;;;; Horizontal Rule
(defun org-e-html-horizontal-rule (horizontal-rule contents info)
"Transcode an HORIZONTAL-RULE object from Org to HTML.
CONTENTS is nil. INFO is a plist holding contextual information."
(let ((attr (mapconcat #'identity
(org-element-get-property :attr_html horizontal-rule)
" ")))
(org-e-html--wrap-label horizontal-rule
(org-e-html-format-horizontal-line))))
;;;; Inline Babel Call
;; Inline Babel Calls are ignored.
;;;; Inline Src Block
(defun org-e-html-inline-src-block (inline-src-block contents info)
"Transcode an INLINE-SRC-BLOCK element from Org to HTML.
CONTENTS holds the contents of the item. INFO is a plist holding
contextual information."
(let* ((code (org-element-get-property :value inline-src-block))
(separator (org-e-html--find-verb-separator code)))
(cond
;; Do not use a special package: transcode it verbatim.
((not org-e-html-listings)
(concat "\\verb" separator code separator))
;; Use minted package.
((eq org-e-html-listings 'minted)
(let* ((org-lang (org-element-get-property :language inline-src-block))
(mint-lang (or (cadr (assq (intern org-lang)
org-e-html-minted-langs))
org-lang))
(options (org-e-html--make-option-string
org-e-html-minted-options)))
(concat (format "\\mint%s{%s}"
(if (string= options "") "" (format "[%s]" options))
mint-lang)
separator code separator)))
;; Use listings package.
(t
;; Maybe translate language's name.
(let* ((org-lang (org-element-get-property :language inline-src-block))
(lst-lang (or (cadr (assq (intern org-lang)
org-e-html-listings-langs))
org-lang))
(options (org-e-html--make-option-string
(append org-e-html-listings-options
`(("language" ,lst-lang))))))
(concat (format "\\lstinline[%s]" options)
separator code separator))))))
;;;; Inlinetask
(defun org-e-html-format-section (text class &optional id)
(let ((extra (concat (when id (format " id=\"%s\"" id)))))
(concat (format "\n" class extra) text "\n")))
(defun org-e-html-inlinetask (inlinetask contents info)
"Transcode an INLINETASK element from Org to HTML.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information."
(let ((title (org-export-secondary-string
(org-element-get-property :title inlinetask) 'e-html info))
(todo (and (plist-get info :with-todo-keywords)
(let ((todo (org-element-get-property
:todo-keyword inlinetask)))
(and todo
(org-export-secondary-string todo 'e-html info)))))
(todo-type (org-element-get-property :todo-type inlinetask))
(tags (and (plist-get info :with-tags)
(org-element-get-property :tags inlinetask)))
(priority (and (plist-get info :with-priority)
(org-element-get-property :priority inlinetask))))
;; If `org-e-html-format-inlinetask-function' is provided, call it
;; with appropriate arguments.
(if (functionp org-e-html-format-inlinetask-function)
(funcall org-e-html-format-inlinetask-function
todo todo-type priority title tags contents)
;; Otherwise, use a default template.
(org-e-html--wrap-label
inlinetask
(let ((full-title
(concat
(when todo (format "\\textbf{\\textsf{\\textsc{%s}}} " todo))
(when priority (format "\\framebox{\\#%c} " priority))
title
(when tags (format "\\hfill{}\\textsc{%s}" tags)))))
(format (concat "\\begin{center}\n"
"\\fbox{\n"
"\\begin{minipage}[c]{.6\\textwidth}\n"
"%s\n\n"
"\\rule[.8em]{\\textwidth}{2pt}\n\n"
"%s"
"\\end{minipage}\n"
"}\n"
"\\end{center}")
full-title contents))))))
;;;; Item
(defun org-e-html-format-list-item (contents type &optional arg headline)
(setq headline nil) ; FIXME
(concat
(case type
(ordered
(let* ((counter arg)
(extra (if counter (format " value=\"%s\"" counter) "")))
(format "" extra)))
(unordered
(let* ((id arg)
(extra (if id (format " id=\"%s\"" id) "")))
(concat
(format "" extra)
(when headline (concat headline "
")))))
(descriptive
(let* ((desc-tag (or arg "(no term)")))
(concat (format " %s " desc-tag) ""))))
contents
(case type
(ordered "")
(unordered "")
(descriptive " "))))
(defun org-e-html-item (item contents info)
"Transcode an ITEM element from Org to HTML.
CONTENTS holds the contents of the item. INFO is a plist holding
contextual information."
;; Grab `:level' from plain-list properties, which is always the
;; first element above current item.
(let* ((plain-list (car (org-export-get-genealogy item info)))
(type (org-element-get-property :type plain-list))
(level (org-element-get-property
:level (car (plist-get info :genealogy))))
(counter (let ((count (org-element-get-property :counter item)))
(and count
(< level 4)
(format "\\setcounter{enum%s}{%s}\n"
(nth level '("i" "ii" "iii" "iv"))
(1- count)))))
(checkbox (let ((checkbox (org-element-get-property :checkbox item)))
(cond ((eq checkbox 'on) "$\\boxtimes$ ")
((eq checkbox 'off) "$\\Box$ ")
((eq checkbox 'trans) "$\\boxminus$ "))))
(tag (let ((tag (org-element-get-property :tag item)))
(and tag
(format "[%s]" (org-export-secondary-string
tag 'e-html info))))))
;; (concat counter "\\item" tag " " checkbox contents)
(org-e-html-format-list-item contents type nil)
))
;;;; Keyword
(defun org-e-html-keyword (keyword contents info)
"Transcode a KEYWORD element from Org to HTML.
CONTENTS is nil. INFO is a plist holding contextual information."
(let ((key (downcase (org-element-get-property :key keyword)))
(value (org-element-get-property :value keyword)))
(cond
((string= key "latex") value)
((string= key "index") (format "\\index{%s}" value))
((string= key "target")
(format "\\label{%s}" (org-export-solidify-link-text value)))
((string= key "toc")
(let ((value (downcase value)))
(cond
((string-match "\\" value)
(let ((depth (or (and (string-match "[0-9]+" value)
(string-to-number (match-string 0 value)))
(plist-get info :with-toc))))
(concat
(when (wholenump depth)
(format "\\setcounter{tocdepth}{%s}\n" depth))
"\\tableofcontents")))
((string= "tables" value) "\\listoftables")
((string= "figures" value) "\\listoffigures")
((string= "listings" value)
(cond
((eq org-e-html-listings 'minted) "\\listoflistings")
(org-e-html-listings "\\lstlistoflistings")
;; At the moment, src blocks with a caption are wrapped
;; into a figure environment.
(t "\\listoffigures")))))))))
;;;; Latex Environment
(defun org-e-html-format-latex (latex-frag processing-type)
(let* ((cache-relpath
(concat "ltxpng/" (file-name-sans-extension
(file-name-nondirectory (buffer-file-name)))))
(cache-dir (file-name-directory (buffer-file-name )))
(display-msg "Creating LaTeX Image..."))
(with-temp-buffer
(insert latex-frag)
(org-format-latex cache-relpath cache-dir nil display-msg
nil nil processing-type)
(buffer-string))))
(defun org-e-html-latex-environment (latex-environment contents info)
"Transcode a LATEX-ENVIRONMENT element from Org to HTML.
CONTENTS is nil. INFO is a plist holding contextual information."
;; (org-e-html--wrap-label
;; latex-environment
;; (org-remove-indentation (org-element-get-property :value latex-environment)))
(org-e-html--wrap-label
latex-environment
(let ((latex-frag
(org-remove-indentation
(org-element-get-property :value latex-environment)))
(processing-type (plist-get info :LaTeX-fragments)))
(cond
((member processing-type '(t mathjax))
(org-e-html-format-latex latex-frag 'mathjax))
((equal processing-type 'dvipng)
(let* ((formula-link (org-e-html-format-latex
latex-frag processing-type)))
(when (and formula-link
(string-match "file:\\([^]]*\\)" formula-link))
(setq formula-file (match-string 1 formula-link))
(org-e-html-format-inline-image formula-file))))
(t
latex-frag)))))
;;;; Latex Fragment
(defun org-e-html-latex-fragment (latex-fragment contents info)
"Transcode a LATEX-FRAGMENT object from Org to HTML.
CONTENTS is nil. INFO is a plist holding contextual information."
;; (org-element-get-property :value latex-fragment)
(let* ((latex-frag (org-element-get-property :value latex-fragment)))
(cond
((string-match "\\\\ref{\\([^{}\n]+\\)}" latex-frag)
(let* ((label (match-string 1 latex-frag))
(href (and label (org-export-solidify-link-text label)))
(text (if (string-match "\\`[a-z]\\{1,10\\}:\\(.+\\)" label)
(substring label (match-beginning 1))
label)))
(org-e-html-format-internal-link text href)))
(t
(let ((processing-type (plist-get info :LaTeX-fragments)))
(cond
((member processing-type '(t mathjax))
(org-e-html-format-latex latex-frag 'mathjax))
((equal processing-type 'dvipng)
(let* ((formula-link (org-e-html-format-latex
latex-frag processing-type)))
(when (and formula-link
(string-match "file:\\([^]]*\\)" formula-link))
(setq formula-file (match-string 1 formula-link))
(org-e-html-format-inline-image formula-file))))
(t
latex-frag)))))))
;;;; Line Break
(defun org-e-html-line-break (line-break contents info)
"Transcode a LINE-BREAK object from Org to HTML.
CONTENTS is nil. INFO is a plist holding contextual information."
"
")
;;;; Link
(defun org-e-html-link--inline-image (link info)
"Return HTML code for an inline image.
LINK is the link pointing to the inline image. INFO is a plist
used as a communication channel."
(let* ((parent (org-export-get-parent-paragraph link info))
(path (let ((raw-path (org-element-get-property :path link)))
(if (not (file-name-absolute-p raw-path)) raw-path
(expand-file-name raw-path))))
(caption (org-e-html--caption/label-string
(org-element-get-property :caption parent)
(org-element-get-property :name parent)
info))
(label (org-element-get-property :name parent))
;; Retrieve latex attributes from the element around.
(attr (let ((raw-attr
(mapconcat #'identity
(org-element-get-property :attr_html parent)
" ")))
(unless (string= raw-attr "") raw-attr)))
(disposition
(cond
((and attr (string-match "\\" attr)) 'wrap)
((and attr (string-match "\\" attr)) 'multicolumn)
((or (and attr (string-match "\\" attr))
(not (string= caption "")))
'float)))
(placement
(cond
((and attr (string-match "\\ " extra) contents "")))))
;;;; Plain List
(defun org-e-html-plain-list (plain-list contents info)
"Transcode a PLAIN-LIST element from Org to HTML.
CONTENTS is the contents of the list. INFO is a plist holding
contextual information."
(let* ((type (org-element-get-property :type plain-list))
(paralist-types '("inparaenum" "asparaenum" "inparaitem" "asparaitem"
"inparadesc" "asparadesc"))
(paralist-regexp (concat
"\\("
(mapconcat 'identity paralist-types "\\|")
"\\)"))
(attr (mapconcat #'identity
(org-element-get-property :attr_html plain-list)
" "))
(latex-type (cond
((and attr
(string-match
(format "\\<%s\\>" paralist-regexp) attr))
(match-string 1 attr))
((eq type 'ordered) "enumerate")
((eq type 'unordered) "itemize")
((eq type 'descriptive) "description")))
arg1 ;; FIXME
)
(org-e-html--wrap-label
plain-list
;; (format "\\begin{%s}%s\n%s\\end{%s}"
;; latex-type
;; ;; Once special environment, if any, has been removed, the
;; ;; rest of the attributes will be optional arguments.
;; ;; They will be put inside square brackets if necessary.
;; (let ((opt (replace-regexp-in-string
;; (format " *%s *" paralist-regexp) "" attr)))
;; (cond ((string= opt "") "")
;; ((string-match "\\`\\[[^][]+\\]\\'" opt) opt)
;; (t (format "[%s]" opt))))
;; contents
;; latex-type)
(format "%s\n%s%s"
(case type
(ordered
(format "" (if arg1
(format " start=\"%d\"" arg1)
"")))
(unordered "")
(descriptive ""))
contents
(case type
(ordered "")
(unordered "
")
(descriptive "")))
)))
;;;; Plain Text
(defun org-e-html-convert-special-strings (string)
"Convert special characters in STRING to HTML."
(let ((all org-export-e-html-special-string-regexps)
e a re rpl start)
(while (setq a (pop all))
(setq re (car a) rpl (cdr a) start 0)
(while (string-match re string start)
(setq string (replace-match rpl t nil string))))
string))
(defun org-e-html-encode-plain-text (s)
"Convert plain text characters to HTML equivalent.
Possible conversions are set in `org-export-html-protect-char-alist'."
(let ((cl org-export-e-html-protect-char-alist) c)
(while (setq c (pop cl))
(let ((start 0))
(while (string-match (car c) s start)
(setq s (replace-match (cdr c) t t s)
start (1+ (match-beginning 0))))))
s))
(defun org-e-html-plain-text (text info)
"Transcode a TEXT string from Org to HTML.
TEXT is the string to transcode. INFO is a plist holding
contextual information."
(setq text (org-e-html-encode-plain-text text))
;; Protect %, #, &, $, ~, ^, _, { and }.
;; (while (string-match "\\([^\\]\\|^\\)\\([%$#&{}~^_]\\)" text)
;; (setq text
;; (replace-match (format "\\%s" (match-string 2 text)) nil t text 2)))
;; Protect \
;; (setq text (replace-regexp-in-string
;; "\\(?:[^\\]\\|^\\)\\(\\\\\\)\\(?:[^%$#&{}~^_\\]\\|$\\)"
;; "$\\backslash$" text nil t 1))
;; HTML into \HTML{} and TeX into \TeX{}.
;; (let ((case-fold-search nil)
;; (start 0))
;; (while (string-match "\\<\\(\\(?:La\\)?TeX\\)\\>" text start)
;; (setq text (replace-match
;; (format "\\%s{}" (match-string 1 text)) nil t text)
;; start (match-end 0))))
;; Handle quotation marks
;; (setq text (org-e-html--quotation-marks text info))
;; Convert special strings.
;; (when (plist-get info :with-special-strings)
;; (while (string-match (regexp-quote "...") text)
;; (setq text (replace-match "\\ldots{}" nil t text))))
(when (plist-get info :with-special-strings)
(setq text (org-e-html-convert-special-strings text)))
;; Handle break preservation if required.
(when (plist-get info :preserve-breaks)
(setq text (replace-regexp-in-string "\\(\\\\\\\\\\)?[ \t]*\n" " \\\\\\\\\n"
text)))
;; Return value.
text)
;;;; Property Drawer
(defun org-e-html-property-drawer (property-drawer contents info)
"Transcode a PROPERTY-DRAWER element from Org to HTML.
CONTENTS is nil. INFO is a plist holding contextual
information."
;; The property drawer isn't exported but we want separating blank
;; lines nonetheless.
"")
;;;; Quote Block
(defun org-e-html-quote-block (quote-block contents info)
"Transcode a QUOTE-BLOCK element from Org to HTML.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information."
;; (org-e-html--wrap-label
;; quote-block
;; (format "\\begin{quote}\n%s\\end{quote}" contents))
(org-e-html--wrap-label
quote-block (format "\n%s
" contents)))
;;;; Quote Section
(defun org-e-html-quote-section (quote-section contents info)
"Transcode a QUOTE-SECTION element from Org to HTML.
CONTENTS is nil. INFO is a plist holding contextual information."
(let ((value (org-remove-indentation
(org-element-get-property :value quote-section))))
(when value
;; (format "\\begin{verbatim}\n%s\\end{verbatim}" value)
(format "\n%s
" value))))
;;;; Section
(defun org-e-html-section (section contents info)
"Transcode a SECTION element from Org to HTML.
CONTENTS holds the contents of the section. INFO is a plist
holding contextual information."
contents)
;;;; Radio Target
(defun org-e-html-radio-target (radio-target text info)
"Transcode a RADIO-TARGET object from Org to HTML.
TEXT is the text of the target. INFO is a plist holding
contextual information."
;; (format "\\label{%s}%s"
;; (org-export-solidify-link-text
;; (org-element-get-property :raw-value radio-target))
;; text)
(org-e-html-format-anchor
text
(org-export-solidify-link-text
(org-element-get-property :raw-value radio-target))))
;;;; Special Block
(defun org-e-html-special-block (special-block contents info)
"Transcode a SPECIAL-BLOCK element from Org to HTML.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information."
(let ((type (downcase (org-element-get-property :type special-block))))
(org-e-html--wrap-label
special-block
(format "\\begin{%s}\n%s\\end{%s}" type contents type))))
;;;; Src Block
(defun org-e-html-src-block (src-block contents info)
"Transcode a SRC-BLOCK element from Org to HTML.
CONTENTS holds the contents of the item. INFO is a plist holding
contextual information."
(let* ((lang (org-element-get-property :language src-block))
(code (org-export-handle-code src-block info))
(caption (org-element-get-property :caption src-block))
(label (org-element-get-property :name src-block))
(custom-env (and lang
(cadr (assq (intern lang)
org-e-html-custom-lang-environments)))))
;; FIXME: Handle caption
(org-e-html-format-source-code-or-example lang code)
;; (cond
;; ;; No source fontification.
;; ((not org-e-html-listings)
;; (let ((caption-str (org-e-html--caption/label-string
;; caption label info))
;; (float-env (when caption "\\begin{figure}[H]\n%s\n\\end{figure}")))
;; (format (or float-env "%s")
;; (concat
;; caption-str
;; (format "\\begin{verbatim}\n%s\\end{verbatim}" code)))))
;; ;; Custom environment.
;; (custom-env
;; (format "\\begin{%s}\n%s\\end{%s}\n" custom-env code custom-env))
;; ;; Use minted package.
;; ((eq org-e-html-listings 'minted)
;; (let* ((mint-lang (or (cadr (assq (intern lang) org-e-html-minted-langs))
;; lang))
;; (float-env (when (or label caption)
;; (format "\\begin{listing}[H]\n%%s\n%s\\end{listing}"
;; (org-e-html--caption/label-string
;; caption label info))))
;; (body (format "\\begin{minted}[%s]{%s}\n%s\\end{minted}"
;; (org-e-html--make-option-string
;; org-e-html-minted-options)
;; mint-lang code)))
;; (if float-env (format float-env body) body)))
;; ;; Use listings package.
;; (t
;; (let ((lst-lang
;; (or (cadr (assq (intern lang) org-e-html-listings-langs)) lang))
;; (caption-str
;; (when caption
;; (let ((main (org-export-secondary-string
;; (car caption) 'e-html info)))
;; (if (not (cdr caption)) (format "{%s}" main)
;; (format
;; "{[%s]%s}"
;; (org-export-secondary-string (cdr caption) 'e-html info)
;; main))))))
;; (concat (format "\\lstset{%s}\n"
;; (org-e-html--make-option-string
;; (append org-e-html-listings-options
;; `(("language" ,lst-lang))
;; (when label `(("label" ,label)))
;; (when caption-str
;; `(("caption" ,caption-str))))))
;; (format "\\begin{lstlisting}\n%s\\end{lstlisting}" code)))))
))
;;;; Statistics Cookie
(defun org-e-html-statistics-cookie (statistics-cookie contents info)
"Transcode a STATISTICS-COOKIE object from Org to HTML.
CONTENTS is nil. INFO is a plist holding contextual information."
(org-element-get-property :value statistics-cookie))
;;;; Subscript
(defun org-e-html-subscript (subscript contents info)
"Transcode a SUBSCRIPT object from Org to HTML.
CONTENTS is the contents of the object. INFO is a plist holding
contextual information."
;; (format (if (= (length contents) 1) "$_%s$" "$_{\\mathrm{%s}}$") contents)
(org-e-html-format-fontify contents 'subscript))
;;;; Superscript
(defun org-e-html-superscript (superscript contents info)
"Transcode a SUPERSCRIPT object from Org to HTML.
CONTENTS is the contents of the object. INFO is a plist holding
contextual information."
;; (format (if (= (length contents) 1) "$^%s$" "$^{\\mathrm{%s}}$") contents)
(org-e-html-format-fontify contents 'superscript))
;;;; Table
(defun org-e-html-table--format-string (table table-info info)
"Return an appropriate format string for TABLE.
TABLE-INFO is the plist containing format info about the table,
as returned by `org-export-table-format-info'. INFO is a plist
used as a communication channel.
The format string leaves one placeholder for the body of the
table."
(let* ((label (org-element-get-property :name table))
(caption (org-e-html--caption/label-string
(org-element-get-property :caption table) label info))
(attr (mapconcat 'identity
(org-element-get-property :attr_html table)
" "))
;; Determine alignment string.
(alignment (org-e-html-table--align-string attr table-info))
;; Determine environment for the table: longtable, tabular...
(table-env (cond
((not attr) org-e-html-default-table-environment)
((string-match "\\" attr) "longtable")
((string-match "\\" attr)
(org-match-string-no-properties 0 attr))
(t org-e-html-default-table-environment)))
;; If table is a float, determine environment: table or table*.
(float-env (cond
((string= "longtable" table-env) nil)
((and attr
(or (string-match (regexp-quote "table*") attr)
(string-match "\\" attr)))
"table*")
((or (not (string= caption "")) label) "table")))
;; Extract others display options.
(width (and attr (string-match "\\%s" (or caption "")))))
(defun org-e-html-end-table ()
(when org-lparse-table-is-styled
;; column groups
;; (unless (car org-table-colgroup-info)
;; (setq org-table-colgroup-info
;; (cons :start (cdr org-table-colgroup-info))))
;; column alignment
(let ((c -1))
;; (mapc
;; (lambda (x)
;; (incf c)
;; (setf (aref org-lparse-table-colalign-vector c)
;; (or (aref org-lparse-table-colalign-vector c)
;; (if (> (/ (float x) (1+ org-lparse-table-rownum))
;; org-table-number-fraction)
;; "right" "left"))))
;; org-lparse-table-num-numeric-items-per-column)
))
;; html specific stuff starts here
;; (org-e-html-end-table)
" \n" (replace-regexp-in-string "\\(\\\\\\\\\\)?[ \t]*\n" "
\n" (org-remove-indentation (org-export-secondary-string (org-element-get-property :value verse-block) 'e-html info))))) (while (string-match "^[ \t]+" contents) (let ((new-str (format " " (length (match-string 0 contents))))) (setq contents (replace-match new-str nil t contents)))) (format "
\n%s
" contents))) ) ;;; Interactive functions (setq org-e-html-pp t) (defun org-e-html-export-to-html (&optional subtreep visible-only body-only ext-plist pub-dir) "Export current buffer to a HTML file. If narrowing is active in the current buffer, only export its narrowed part. If a region is active, export that region. When optional argument SUBTREEP is non-nil, export the sub-tree at point, extracting information from the headline properties first. When optional argument VISIBLE-ONLY is non-nil, don't export contents of hidden elements. When optional argument BODY-ONLY is non-nil, only write code between \"\\begin{document}\" and \"\\end{document}\". EXT-PLIST, when provided, is a property list with external parameters overriding Org default settings, but still inferior to file-local settings. When optional argument PUB-DIR is set, use it as the publishing directory. Return output file's name." (interactive) (setq org-e-html-footnotes-alist nil) ;; FIXME (with-current-buffer (get-buffer-create "*debug*") (erase-buffer)) (let ((outfile (org-export-output-file-name ".html" subtreep pub-dir))) (org-export-to-file 'e-html outfile subtreep visible-only body-only ext-plist))) (defun org-e-html-export-to-pdf (&optional subtreep visible-only body-only ext-plist pub-dir) "Export current buffer to HTML then process through to PDF. If narrowing is active in the current buffer, only export its narrowed part. If a region is active, export that region. When optional argument SUBTREEP is non-nil, export the sub-tree at point, extracting information from the headline properties first. When optional argument VISIBLE-ONLY is non-nil, don't export contents of hidden elements. When optional argument BODY-ONLY is non-nil, only write code between \"\\begin{document}\" and \"\\end{document}\". EXT-PLIST, when provided, is a property list with external parameters overriding Org default settings, but still inferior to file-local settings. When optional argument PUB-DIR is set, use it as the publishing directory. Return PDF file's name." (interactive) (org-e-html-compile (org-e-html-export-to-html subtreep visible-only body-only ext-plist pub-dir))) (defun org-e-html-compile (texfile) "Compile a TeX file. TEXFILE is the name of the file being compiled. Processing is done through the command specified in `org-e-html-pdf-process'. Return PDF file name or an error if it couldn't be produced." (let* ((wconfig (current-window-configuration)) (texfile (file-truename texfile)) (base (file-name-sans-extension texfile)) errors) (message (format "Processing HTML file %s ..." texfile)) (unwind-protect (progn (cond ;; A function is provided: Apply it. ((functionp org-latex-to-pdf-process) (funcall org-latex-to-pdf-process (shell-quote-argument texfile))) ;; A list is provided: Replace %b, %f and %o with appropriate ;; values in each command before applying it. Output is ;; redirected to "*Org PDF HTML Output*" buffer. ((consp org-e-html-pdf-process) (let* ((out-dir (or (file-name-directory texfile) "./")) (outbuf (get-buffer-create "*Org PDF HTML Output*"))) (mapc (lambda (command) (shell-command (replace-regexp-in-string "%b" (shell-quote-argument base) (replace-regexp-in-string "%f" (shell-quote-argument texfile) (replace-regexp-in-string "%o" (shell-quote-argument out-dir) command))) outbuf)) org-e-html-pdf-process) ;; Collect standard errors from output buffer. (setq errors (org-e-html-collect-errors outbuf)))) (t (error "No valid command to process to PDF"))) (let ((pdffile (concat base ".pdf"))) ;; Check for process failure. Provide collected errors if ;; possible. (if (not (file-exists-p pdffile)) (error (concat (format "PDF file %s wasn't produced" pdffile) (when errors (concat ": " errors)))) ;; Else remove log files, when specified, and signal end of ;; process to user, along with any error encountered. (when org-e-html-remove-logfiles (dolist (ext org-e-html-logfiles-extensions) (let ((file (concat base "." ext))) (when (file-exists-p file) (delete-file file))))) (message (concat "Process completed" (if (not errors) "." (concat " with errors: " errors))))) ;; Return output file name. pdffile)) (set-window-configuration wconfig)))) (defun org-e-html-collect-errors (buffer) "Collect some kind of errors from \"pdflatex\" command output. BUFFER is the buffer containing output. Return collected error types as a string, or nil if there was none." (with-current-buffer buffer (save-excursion (goto-char (point-max)) ;; Find final "pdflatex" run. (when (re-search-backward "^[ \t]*This is pdf.*?TeX.*?Version" nil t) (let ((case-fold-search t) (errors "")) (when (save-excursion (re-search-forward "Reference.*?undefined" nil t)) (setq errors (concat errors " [undefined reference]"))) (when (save-excursion (re-search-forward "Citation.*?undefined" nil t)) (setq errors (concat errors " [undefined citation]"))) (when (save-excursion (re-search-forward "Undefined control sequence" nil t)) (setq errors (concat errors " [undefined control sequence]"))) (when (save-excursion (re-search-forward "^! HTML.*?Error" nil t)) (setq errors (concat errors " [HTML error]"))) (when (save-excursion (re-search-forward "^! Package.*?Error" nil t)) (setq errors (concat errors " [package error]"))) (and (org-string-nw-p errors) (org-trim errors))))))) (provide 'org-e-html) ;;; org-e-html.el ends here