1 #! /usr
/bin
/emacs --script
3 ;;;; Make html files from .muse files in current dir, put them into ../html/
5 (color-theme-whateveryouwant)
8 (require 'muse-project
)
9 (setq muse-html-table-attributes
" class=\"muse-table\" border=\"1\" cellpadding=\"5\"")
10 (setq muse-colors-inline-image-method
#'muse-colors-use-publishing-directory
)
11 (muse-derive-style "xhtml-plainandsimple" "xhtml1.1"
12 :header
"<?xml version=\"1.0\" encoding=\"<lisp>
13 (muse-html-encoding)</lisp>\"?>
14 <!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.1//EN\" \"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd\">
15 <html xmlns=\"http://www.w3.org/1999/xhtml\">
17 <title><lisp>(muse-publishing-directive \"title\")</lisp></title>
18 <meta name=\"DC.Title\" content=\"<lisp>(muse-publishing-directive \"title\")</lisp>\" />
19 <meta name=\"DC.Creator\" content=\"<lisp>(muse-publishing-directive \"author\")</lisp>\" />
20 <meta name=\"author\" content=\"<lisp>(muse-publishing-directive \"author\")</lisp>\" />
21 <meta name=\"generator\" content=\"muse.el\" />
22 <meta http-equiv=\"<lisp>muse-html-meta-http-equiv</lisp>\" content=\"<lisp>muse-html-meta-content-type</lisp>\" />
24 (let ((maintainer (muse-style-element :maintainer)))
26 (concat \"<link rev=\\\"made\\\" href=\\\"\" maintainer \"\\\" />\")))
28 (muse-style-element :style-sheet muse-publishing-current-style)
33 <h1><lisp>(muse-publishing-directive \"title\")</lisp></h1>
34 <h2><lisp>(muse-publishing-directive \"subtitle\")</lisp></h2>
35 </div><!-- end header -->
37 <lisp>(muse-publishing-directive \"sidebar\")</lisp>
38 <markup><include file=\"sidebar.muse\"></markup>
39 </div><!-- end sidebar -->
41 <!-- Page published by Emacs Muse begins here -->
43 :footer
"<!-- Page published by Emacs Muse ends here -->
44 </div><!-- end content -->
46 <div id=\"footer-right\">
47 <markup><include file=\"footer-right.muse\"></markup>
49 <markup><include file=\"footer.muse\"></markup>
50 </div><!-- end footer -->
53 :style-sheet
"<style type=\"text/css\">
54 /** Style sheet derived from PLAINANDSIMPLE, a free template from */
55 /** http://www.freecsstemplates.org released under a Creative Commons */
56 /** Attribution 2.5 License (http://creativecommons.org/licenses/by/2.5/) */
61 font-family: \"Courier New\", Courier, monospace;
66 border-color: #CCCCCC;
69 border-bottom-width: thin;
70 border-bottom-style: dotted;
71 border-bottom-color: #CCCCCC;
73 h1, h2, h3, h4, h5, h6 {
78 div > p, div > ol, div > ul, div > pre, td, th, dl {
82 list-style-type: circle;
85 border-collapse: collapse;
91 text-decoration: none;
92 background-color: #000000;
99 background-color: #A8A8A8;
116 margin: 1em 0em 0em 0em;
127 margin: .5em 0em 0em 0em;
135 #sidebar > ul > li li {
146 padding: 0px 1em 1px 1em;
149 background-color: #A8A8A8;
164 (setq muse-project-alist
165 '(("Monikop and Pokinom"
166 ("." :default
"index")
168 "xhtml-plainandsimple"
170 :exclude
"\\(footer.muse\\)\\|\\(footer-right.muse\\)\\|\\(sidebar.muse\\)"))))
172 (muse-project-publish "Monikop and Pokinom" t
)