Hello,
In order to insert sidebar in one of the log pages, I wrote a function
like this:
(defun muse-my-work-dhad-insert-sidebar ()
(goto-char (point-min))
(or (search-forward "<h2>Archives</h2>" nil t)
(search-forward "#include virtual=\"/sidebar.html\"" nil t))
(beginning-of-line)
(if (string= "DHadronic_Log" (muse-page-name))
(insert-file-contents "~/share/wiki/html/my-work-dhad-sidebar.html"))
(goto-char (point-min))
)
(muse-derive-style "my-work-dhad" "xhtml"
:after 'muse-my-work-dhad-insert-sidebar
:header "~/share/wiki/html/my-work-dhad-header.html"
:footer "~/share/wiki/html/my-work-dhad-footer.html")
After doing this, it indeed add a sidebar in the html file. However, the
<contents> in the muse file doesn't work now.
John Wiegley told me that I'll have to write a function that calls both
of my post-processing functions, and set :after to point to that. I've
searched the muse-publish.el file but still have no clue to call both of
the functions.
Could you give me some hints?
Thanks!
Xin
_______________________________________________
Muse-el-commits mailing list
[email protected]
https://mail.gna.org/listinfo/muse-el-commits
