%s:
%s
Date: %d
Generated by %c
%v
")) "Alist of languages and format strings for the HTML postamble. The first element of each list is the language code, as used for the #+LANGUAGE keyword. The second element of each list is a format string to format the postamble itself. This format string can contain these elements: %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-html-validation-link'. If you need to use a \"%\" character, you need to escape it like that: \"%%\"." :group 'org-export-html :version "24.1" :type 'string) (defcustom org-export-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-html-link-up' and `org-export-html-link-home' are empty, the entire snippet will be ignored." :group 'org-export-html :type 'string) (defcustom org-export-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-html
:type 'string)
(defcustom org-export-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-html
:type 'boolean)
(defcustom org-export-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-html
:type '(choice (const :tag "Never" nil)
(const :tag "Always" t)
(const :tag "When there is no description" maybe)))
(defcustom org-export-html-inline-image-extensions
'("png" "jpeg" "jpg" "gif" "svg")
"Extensions of image files that can be inlined into HTML."
:group 'org-export-html
:type '(repeat (string :tag "Extension")))
(defcustom org-export-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-html-table-use-header-tags-for-first-column'. See also the variable `org-export-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 '("
|---|
" (pop fields))) field-buffer)) (setq field-buffer fields)))) (setq html (concat html "
"))) r)))) (defvar htmlize-buffer-places) ; from htmlize.el (defun org-export-htmlize-region-for-paste (beg end) "Convert the region to HTML, using htmlize.el. This is much like `htmlize-region-for-paste', only that it uses the settings define in the org-... variables." (let* ((htmlize-output-type org-export-htmlize-output-type) (htmlize-css-name-prefix org-export-htmlize-css-font-prefix) (htmlbuf (htmlize-region beg end))) (unwind-protect (with-current-buffer htmlbuf (buffer-substring (plist-get htmlize-buffer-places 'content-start) (plist-get htmlize-buffer-places 'content-end))) (kill-buffer htmlbuf)))) ;;;###autoload (defun org-export-htmlize-generate-css () "Create the CSS for all font definitions in the current Emacs session. Use this to create face definitions in your CSS style file that can then be used by code snippets transformed by htmlize. This command just produces a buffer that contains class definitions for all faces used in the current Emacs session. You can copy and paste the ones you need into your CSS file. If you then set `org-export-htmlize-output-type' to `css', calls to the function `org-export-htmlize-region-for-paste' will produce code that uses these same face definitions." (interactive) (require 'htmlize) (and (get-buffer "*html*") (kill-buffer "*html*")) (with-temp-buffer (let ((fl (face-list)) (htmlize-css-name-prefix "org-") (htmlize-output-type 'css) f i) (while (setq f (pop fl) i (and f (face-attribute f :inherit))) (when (and (symbolp f) (or (not i) (not (listp i)))) (insert (org-add-props (copy-sequence "1") nil 'face f)))) (htmlize-region (point-min) (point-max)))) (org-pop-to-buffer-same-window "*html*") (goto-char (point-min)) (if (re-search-forward "
, but first close previous paragraph if any." (org-close-par-maybe) (insert "\n
") (setq org-par-open t)) (defun org-close-par-maybe () "Close paragraph if there is one open." (when org-par-open (insert "
") (setq org-par-open nil))) (defun org-close-li (&optional type) "Close\n") (insert "
\n"))) (aset org-levels-open (1- level) t) (org-close-par-maybe) (if target (insert (format "
- \n
- " (org-solidify-link-text (or preferred target)))
extra-targets title "
\n") (insert "- \n
- " title "
\n")))) (aset org-levels-open (1- level) t) (setq snumber (org-section-number level) snu (replace-regexp-in-string "\\." "-" snumber)) (setq level (+ level org-export-html-toplevel-hlevel -1)) (if (and num (not body-only)) (setq title (concat (format "%s" level (if (and num (if (integerp num) ;; fix up num to take into ;; account the top-level ;; heading value (>= (+ num org-export-html-toplevel-hlevel -1) level) num)) snumber "")) " " title))) (unless (= head-count 1) (insert "\n\n")) (setq href (cdr (assoc (concat "sec-" snu) org-export-preferred-target-alist))) (setq suffix (org-solidify-link-text (or href snu))) (setq href (org-solidify-link-text (or href (concat "sec-" snu)))) (insert (format "\n\n\n" suffix level (if extra-class (concat " " extra-class) "") level href extra-targets title level level suffix)) (org-open-par))))) (defun org-export-html-get-tag-class-name (tag) "Turn tag into a valid class name. Replaces invalid characters with \"_\" and then prepends a prefix." (save-match-data (while (string-match "[^a-zA-Z0-9_]" tag) (setq tag (replace-match "_" t t tag)))) (concat org-export-html-tag-class-prefix tag)) (defun org-export-html-get-todo-kwd-class-name (kwd) "Turn todo keyword into a valid class name. Replaces invalid characters with \"_\" and then prepends a prefix." (save-match-data (while (string-match "[^a-zA-Z0-9_]" kwd) (setq kwd (replace-match "_" t t kwd)))) (concat org-export-html-todo-kwd-class-prefix kwd)) (defun org-html-level-close (level max-outline-level) "Terminate one level in HTML export." (if (<= level max-outline-level) (insert "\n") (org-close-li) (insert "\n"))) (defun org-html-export-list-line (org-line pos struct prevs) "Insert list syntax in export buffer. Return ORG-LINE, maybe modified. POS is the item position or org-line position the org-line had before modifications to buffer. STRUCT is the list structure. PREVS is the alist of previous items." (let* ((get-type (function ;; Translate type of list containing POS to "d", "o" or ;; "u". (lambda (pos struct prevs) (let ((type (org-list-get-list-type pos struct prevs))) (cond ((eq 'ordered type) "o") ((eq 'descriptive type) "d") (t "u")))))) (get-closings (function ;; Return list of all items and sublists ending at POS, in ;; reverse order. (lambda (pos) (let (out) (catch 'exit (mapc (lambda (e) (let ((end (nth 6 e)) (item (car e))) (cond ((= end pos) (push item out)) ((>= item pos) (throw 'exit nil))))) struct)) out))))) ;; First close any previous item, or list, ending at POS. (mapc (lambda (e) (let* ((lastp (= (org-list-get-last-item e struct prevs) e)) (first-item (org-list-get-list-begin e struct prevs)) (type (funcall get-type first-item struct prevs))) (org-close-par-maybe) ;; Ending for every item (org-close-li type) ;; We're ending last item of the list: end list. (when lastp (insert (format "\n" type)) (org-open-par)))) (funcall get-closings pos)) (cond ;; At an item: insert appropriate tags in export buffer. ((assq pos struct) (string-match (concat "[ \t]*\\(\\S-+[ \t]*\\)" "\\(?:\\[@\\(?:start:\\)?\\([0-9]+\\|[A-Za-z]\\)\\][ \t]*\\)?" "\\(?:\\(\\[[ X-]\\]\\)[ \t]+\\)?" "\\(?:\\(.*\\)[ \t]+::\\(?:[ \t]+\\|$\\)\\)?" "\\(.*\\)") org-line) (let* ((checkbox (match-string 3 org-line)) (desc-tag (or (match-string 4 org-line) "???")) (body (or (match-string 5 org-line) "")) (list-beg (org-list-get-list-begin pos struct prevs)) (firstp (= list-beg pos)) ;; Always refer to first item to determine list type, in ;; case list is ill-formed. (type (funcall get-type list-beg struct prevs)) (counter (let ((count-tmp (org-list-get-counter pos struct))) (cond ((not count-tmp) nil) ((string-match "[A-Za-z]" count-tmp) (- (string-to-char (upcase count-tmp)) 64)) ((string-match "[0-9]+" count-tmp) count-tmp))))) (when firstp (org-close-par-maybe) (insert (format "<%sl>\n" type))) (insert (cond ((equal type "d") (format "- %s
- " desc-tag)) ((and (equal type "o") counter) (format "
- " counter)) (t "
- "))) ;; If line had a checkbox, some additional modification is required. (when checkbox (setq body (concat (cond ((string-match "X" checkbox) "
[X]") ((string-match " " checkbox) "[ ]") (t "[-]")) body))) ;; Return modified line body)) ;; At a list ender: go to next line (side-effects only). ((equal "ORG-LIST-END-MARKER" org-line) (throw 'nextline nil)) ;; Not at an item: return line unchanged (side-effects only). (t org-line)))) (provide 'org-html) ;;; org-html.el ends here
- " title "