1
0
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:
Carsten Dominik 2009-07-07 13:20:25 +02:00
parent 697c1c3903
commit 636c524df3
2 changed files with 34 additions and 1 deletions

View File

@ -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

View File

@ -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))