mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-11-23 07:18:53 +00:00
HTML export: Show UP and HOME links if defined
org-export-html-link-up and org-export-html-link-home are now also inserted into normal HTML export, above the page title.
This commit is contained in:
parent
697c1c3903
commit
636c524df3
@ -1,3 +1,8 @@
|
||||
2009-07-07 Carsten Dominik <carsten.dominik@gmail.com>
|
||||
|
||||
* org-html.el (org-export-html-home/up-format): New option.
|
||||
(org-export-as-html): Insert the up and HOME links.
|
||||
|
||||
2009-07-06 Carsten Dominik <carsten.dominik@gmail.com>
|
||||
|
||||
* org-html.el (org-export-as-html): Insert the title into the
|
||||
|
@ -221,6 +221,19 @@ CSS classes, then this prefic can be very useful."
|
||||
:group 'org-export-html
|
||||
:type 'string)
|
||||
|
||||
(defcustom org-export-html-home/up-format
|
||||
"<div style=\"text-align:right;font-size:70%%;white-space:nowrap;\">
|
||||
<a accesskey=\"h\" href=\"%s\"> UP </a>
|
||||
|
|
||||
<a accesskey=\"H\" href=\"%s\"> HOME </a>
|
||||
</div>"
|
||||
"Snippet used to insert the HOME and UP links. This is a format,
|
||||
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 <H> level for level 1 headings in HTML export.
|
||||
This is also important for the classes that will be wrapped around headlines
|
||||
@ -608,6 +621,12 @@ PUB-DIR is set, use this as the publishing directory."
|
||||
(file-name-sans-extension
|
||||
(file-name-nondirectory buffer-file-name)))
|
||||
"UNTITLED"))
|
||||
(link-up (and (plist-get opt-plist :link-up)
|
||||
(string-match "\\S-" (plist-get opt-plist :link-up))
|
||||
(plist-get opt-plist :link-up)))
|
||||
(link-home (and (plist-get opt-plist :link-home)
|
||||
(string-match "\\S-" (plist-get opt-plist :link-home))
|
||||
(plist-get opt-plist :link-home)))
|
||||
(dummy (setq opt-plist (plist-put opt-plist :title title)))
|
||||
(html-table-tag (plist-get opt-plist :html-table-tag))
|
||||
(quote-re0 (concat "^[ \t]*" org-quote-string "\\>"))
|
||||
@ -724,6 +743,7 @@ PUB-DIR is set, use this as the publishing directory."
|
||||
<html xmlns=\"http://www.w3.org/1999/xhtml\"
|
||||
lang=\"%s\" xml:lang=\"%s\">
|
||||
<head>
|
||||
%s
|
||||
<title>%s</title>
|
||||
<meta http-equiv=\"Content-Type\" content=\"text/html;charset=%s\"/>
|
||||
<meta name=\"generator\" content=\"Org-mode\"/>
|
||||
@ -744,7 +764,15 @@ lang=\"%s\" xml:lang=\"%s\">
|
||||
|
||||
"")
|
||||
(or charset "iso-8859-1"))
|
||||
language language (org-html-expand title)
|
||||
language language
|
||||
(if (or link-up link-home)
|
||||
(concat
|
||||
(format org-export-html-home/up-format
|
||||
(or link-up link-home)
|
||||
(or link-home link-up))
|
||||
"\n")
|
||||
"")
|
||||
(org-html-expand title)
|
||||
(or charset "iso-8859-1")
|
||||
date author description keywords
|
||||
style))
|
||||
|
Loading…
Reference in New Issue
Block a user