From: Carsten Dominik <carsten.dominik@gmail.com>
To: Tomas Hlavaty <kvietaag@seznam.cz>
Cc: emacs-orgmode@gnu.org
Subject: Re: Re: Fully featured Web publishing
Date: Sat, 18 Apr 2009 13:04:07 +0200 [thread overview]
Message-ID: <5ED87B67-0654-411B-BA8A-31F7E5083049@gmail.com> (raw)
In-Reply-To: <87d4ba71tw.fsf@logand.com>
Hi Tomas,
if you have or will sign a copyright assignment, I'd be happy to accept
a patch to this effect.
- Carsten
On Apr 18, 2009, at 11:23 AM, Tomas Hlavaty wrote:
> Hi all,
>
> thanks for the excelent org-mode;-)
>
>> Automatical computing of navigations is not possible (yet).
>
> There is a way of achieving this:
>
> 1. define and use function my-org-publish-org-to-html which determines
> what directory level we are on and then calls the original
> org-publish-org-to-html function
>
> 2. define and use my-org-preamble which inserts the preamble based on
> the directory level computed above
>
> 3. patch org-export-as-html so that the config parameters :style and
> :preamble can be functions as well as strings.
>
> Here is rough code.
>
> Configuration:
>
> :publishing-function my-org-publish-org-to-html
> :style my-org-style
> :preamble my-org-preamble
>
> The "user" code:
>
> (defun my-org-publish-org-to-html (plist filename pubdir)
> (let* ((dir (file-name-as-directory
> (file-truename (plist-get plist :base-directory))))
> (fname (file-truename filename))
> (rel (substring fname (length dir)))
> (*org-publish-level*
> (loop for x in (split-string rel "")
> count (and (stringp x) (string= "/" x)))))
> (org-publish-org-to-html plist filename pubdir)))
>
> (defun my-org-preamble ()
> (let ((pre (apply 'concat
> (loop for i from 1 upto *org-publish-level* collect
> "../"))))
> (insert "
> <div id=\"menu\">
> <a href=\"" pre "index.html\">Home</a>
> | <a href=\"" pre "sw/index.html\">Software</a>
> | <a href=\"" pre "blog/index.html\">Blog</a>
> | <a href=\"" pre "contact.html\">Contact</a>
> | <a href=\"" pre "sitemap.html\">Site Map</a>
> </div>
> <div>
> ")))
>
> (defun my-org-style ()
> (let ((pre (apply 'concat
> (loop for i from 1 upto *org-publish-level* collect
> "../"))))
> (concat "
> <link rel=\"stylesheet\" href=\"" pre "style.css\" type=\"text/css\"/>
> <link rel=\"icon\" href=\"" pre "favicon.ico\" type=\"image/x-icon\"/>
> <link rel=\"shortcut icon\" href=\"" pre "favicon.ico\" type=\"image/
> x-icon\"/>")))
>
> The "patched" code in org-export-as-html:
>
> @@ -465,7 +465,12 @@ PUB-DIR is set, use this as the publishing
> directory."
> (org-infile-export-plist))))
> (style (concat (if (plist-get opt-plist :style-include-default)
> org-export-html-style-default)
> - (plist-get opt-plist :style)
> + ;;; THL Changed !!!
> + (let ((s (plist-get opt-plist :style)))
> + (cond
> + ((and s (stringp s)) s)
> + (s (funcall s))))
> + ;;;(plist-get opt-plist :style)
> (plist-get opt-plist :style-extra)
> "\n"
> (if (plist-get opt-plist :style-include-scripts)
> @@ -664,7 +669,12 @@ lang=\"%s\" xml:lang=\"%s\">
> date author description keywords
> style))
>
> - (insert (or (plist-get opt-plist :preamble) ""))
> + ;; THL Changed !!!
> + (let ((preamble (plist-get opt-plist :preamble)))
> + (cond
> + ((and preamble (stringp preamble)) (insert preamble))
> + (preamble (funcall preamble))))
> + ;;(insert (or (plist-get opt-plist :preamble) ""))
>
> (when (plist-get opt-plist :auto-preamble)
> (if title (insert (format org-export-html-title-format
>
> I think that in general, the org-mode configuration
> (org-publish-project-alist) would be more flexible/user programable if
> the config parameters could also be functions (i.e. not limited to
> strings only). Any ideas whether and how to improve and make the
> above functionality available in the official release?
>
> Thank you,
>
> Tomas
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
next prev parent reply other threads:[~2009-04-18 11:04 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-04-18 9:23 Re: Fully featured Web publishing Tomas Hlavaty
2009-04-18 11:04 ` Carsten Dominik [this message]
-- strict thread matches above, loose matches on Subject: below --
2009-03-18 16:04 Sébastien Vauban
2009-03-18 16:57 ` Sebastian Rose
2009-03-18 21:20 ` Sébastien Vauban
2009-03-18 22:38 ` Sebastian Rose
2009-03-18 22:56 ` Rasmus Pank Roulund
2009-03-18 23:19 ` Richard Riley
2009-03-19 7:46 ` Rasmus Pank Roulund
2009-03-19 8:28 ` Richard Riley
2009-03-19 10:37 ` Sebastian Rose
2009-03-19 13:38 ` Richard Riley
2009-03-19 15:03 ` Sebastian Rose
2009-03-19 16:12 ` Matthew Lundin
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=5ED87B67-0654-411B-BA8A-31F7E5083049@gmail.com \
--to=carsten.dominik@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=kvietaag@seznam.cz \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.