emacs-orgmode
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Orgmode] Re: html export - howto change UP|HOME link style?

From: Sebastian Rose
Subject: Re: [Orgmode] Re: html export - howto change UP|HOME link style?
Date: Sun, 15 Nov 2009 00:02:42 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1 (gnu/linux) 
Bernt Hansen <address@hidden> writes:
> ,----[ test.org exported to HTML buffer ]
> | <head>
> | <div style="text-align:right;font-size:70%;white-space:nowrap;">
> |  <a accesskey="h" href="up_goes_here"> UP </a>
> |  |
> |  <a accesskey="H" href="home_goes_there"> HOME </a>
> | </div>
> | 
> | <title>test.org</title>
> `----
>
> Shouldn't the up and home links both be moved to the body of the page,
> stripped of their in-line style info (text-align, font-size,
> white-space) and use CSS for this instead?  I think that might be more
> flexible for formatting.



This patch fixes it. I've put the LINK_UP and ..._HOME directly after
the <body> tag:

<body>
   -----  HERE ---
  <div id="content">

..


The links can be formated customizing the variable

          `org-export-html-home/up-format'



  Sebastian



diff --git a/lisp/org-html.el b/lisp/org-html.el
index 11a692e..66cc86b 100644
--- a/lisp/org-html.el
+++ b/lisp/org-html.el
@@ -753,7 +753,6 @@ 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\"/>
@@ -765,6 +764,7 @@ lang=\"%s\" xml:lang=\"%s\">
 </head>
 <body>
 <div id=\"content\">
+%s
 "
                 (format
                  (or (and (stringp org-export-html-xml-declaration)
@@ -775,17 +775,17 @@ lang=\"%s\" xml:lang=\"%s\">
                      "")
                  (or charset "iso-8859-1"))
                 language language
+                (org-html-expand title)
+                (or charset "iso-8859-1")
+                date author description keywords
+                style
                 (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))
+                  "")))
 
         (org-export-html-insert-plist-item opt-plist :preamble opt-plist)
reply via email to
[Prev in Thread] Current Thread [Next in Thread]