muse-init.el
;;; muse-init.el --- Initialize Emacs Muse
;;Original Author: Michael Olson
;;Hacked by Suresh Kayamboo
;; In order to see the scripts that I use to publish my website to a
;; remote webserver, check out
;; http://www.mwolson.org/projects/SiteScripts.html.
;;; Setup
;; Add to load path
(add-to-list 'load-path "D:/soft/elisp/muse/lisp")
(add-to-list 'load-path "D:/soft/elisp/muse/experimental")
;; Initialize
(require 'outline) ; I like outline-style faces
(require 'muse) ; load generic module
(require 'muse-colors) ; load coloring/font-lock module
(require 'muse-mode) ; load authoring mode
(require 'muse-blosxom) ; load blosxom module
(require 'muse-docbook) ; load DocBook publishing style
(require 'muse-html) ; load (X)HTML publishing style
(require 'muse-latex) ; load LaTeX/PDF publishing styles
(require 'muse-texinfo) ; load Info publishing style
(require 'muse-wiki) ; load Wiki support
(require 'muse-xml) ; load XML support
;;(require 'muse-message) ; load message support (experimental)
;;+_ Add this else emacs will complain that required muse-config not supplied
(provide 'muse-init)
;; Setup projects
;; Here is an example of making a customized version of your favorite
;; publisher. All this does is run `my-muse-blosoxm-finalize' on the
;; published file immediately after saving it.
(unless (assoc "my-blosxom" muse-publishing-styles)
(muse-derive-style "my-blosxom" "blosxom-xhtml"
:final 'my-muse-blosxom-finalize)
(muse-derive-style "my-pdf" "pdf"
:before 'my-muse-pdf-prepare-buffer)
(muse-derive-style "my-xhtml" "xhtml"
:header "D:/soft/elisp/include/myheader.html"
:footer "D:/soft/elisp/include/myfooter.html"))
;; Here is my master project listing.
(setq muse-project-alist
`(
("Website" ("D:/soft/elisp/wiki/html/"
:force-publish ("WikiIndex")
:default "WelcomePage")
(:base "my-xhtml"
:path "D:/soft/elisp/web/html"))
("Projects" ("D:/soft/elisp/wiki/proj/"
:force-publish ("WikiIndex")
:default "WelcomePage")
(:base "my-xhtml"
:path "D:/soft/elisp/web/proj"))
("Blog" (,@(muse-project-alist-dirs "D:/soft/elisp/wiki/sblog")
:default "index")
;; Publish this directory and its subdirectories. Arguments
;; are as follows. The above `muse-project-alist-dirs' part
;; is also needed, using Argument 1.
;;
;; 1. Source directory
;; 2. Output directory
;; 3. Publishing style
,@(muse-project-alist-styles "D:/soft/elisp/wiki/sblog"
"D:/soft/elisp/web/sblog"
"my-blosxom"))
("MyNotes" ("D:/soft/elisp/wiki/notes/"
:force-publish ("index")
:default "index")
(:base "xhtml"
:path "D:/soft/elisp/web/notes"))
("Plans" ("D:/soft/elisp/wiki/plans/"
:default "TaskPool"
:major-mode planner-mode
:visit-link planner-visit-link)
(:base "planner-xhtml"
:path "D:/soft/elisp/web/plans"))
))
;; Wiki settings
(setq muse-wiki-interwiki-alist
'(("PlugWiki" . "http://plug.student-orgs.purdue.edu/wiki/")
("EmacsWiki" . "http://www.emacswiki.org/cgi-bin/wiki/")
("ArchWiki" . "http://wiki.gnuarch.org/")
;; abbreviations
("CERIAS" . "http://www.cerias.purdue.edu/")
("PlannerMode" . "http://www.plannerlove.com/")
("GP2X" . "http://www.gp2x.co.uk/")
("UbuntuLinux" . "http://ubuntulinux.org/")
("PLUG" . "http://plug.student-orgs.purdue.edu/wiki/")))
;;; Functions
;; Turn relative links into absolute ones
(defun my-muse-pdf-make-links-absolute (str &rest ignored)
"Make relative links absolute."
(when str
(save-match-data
(if (string-match "\\`[/.]+" str)
(replace-match "http://www.armory.com/~suresh/" nil t str)
str))))
;; Make sure my interproject links become absolute when published in
;; PDFs
(defun my-muse-pdf-prepare-buffer ()
(set (make-local-variable 'muse-publish-url-transforms)
(cons 'my-muse-pdf-make-links-absolute muse-publish-url-transforms)))
;; Switch to the given project and prompt for a file
(defun my-muse-project-find-file (project)
(interactive)
(let ((muse-current-project (muse-project project)))
(call-interactively 'muse-project-find-file)))
;; Determine whether we are publishing a certain kind of output
(defun my-muse-format-p (format)
(let ((base (muse-get-keyword :base muse-publishing-current-style)))
(when base (string-match format base))))
(defun my-muse-blosxom-finalize (file output-path target)
;; (my-muse-prepare-entry-for-xanga output-path)
;; For now, do nothing.
)
;; Make the current file display correctly in Xanga
;; I call this using C-c p x now.
(defun my-muse-prepare-entry-for-xanga (file)
"Mangle FILE so that Xanga doesn't bug out, saving to X clipboard.
If FILE is not specified, use the published version of the current file."
(interactive
(list
(expand-file-name (concat (muse-page-name) muse-blosxom-extension)
(muse-style-element
:path (car (muse-project-applicable-styles
buffer-file-name
(cddr (muse-project-of-file))))))))
(save-match-data
(muse-with-temp-buffer
(insert-file-contents file)
;; surround first line in <h3></h3>
(goto-char (point-min))
(insert "<h3>")
(end-of-line)
(insert "</h3>")
;; treat example regions properly
(let (beg end)
(while (re-search-forward "<pre[^>]*>" nil t)
(setq beg (match-end 0))
(setq end (if (re-search-forward "</pre>" nil 1)
(match-beginning 0)
(point)))
(save-restriction
(narrow-to-region beg end)
;; change initial spaces to
(goto-char (point-min))
(while (re-search-forward "^ +" nil t)
(replace-match (apply 'concat (make-list
(length (match-string 0))
" "))))
;; change newline to <br />
(goto-char (point-min))
(while (re-search-forward "\n" nil t)
(replace-match "<br />")))))
;; get rid of 2 spaces together and merge lines
(goto-char (point-min))
(while (re-search-forward (concat "[" muse-regexp-blank "\n]+") nil t)
(replace-match " "))
;; remove trailing space
(goto-char (point-min))
(while (re-search-forward " *</p> *" nil t)
(replace-match "</p>"))
;; make relative links work
(goto-char (point-min))
(while (re-search-forward "href=\"[/.]+" nil t)
(replace-match "href=\"http://www.armory.com/~suresh/" nil t))
;; copy entry to clipboard
(clipboard-kill-ring-save (point-min) (point-max)))))
;;; Key customizations
(global-set-key "\C-cpl" 'muse-blosxom-new-entry)
(global-set-key "\C-cpL" #'(lambda () (interactive)
(my-muse-project-find-file "Blog")))
(global-set-key "\C-cpi" #'(lambda () (interactive)
(my-muse-project-find-file "Private")))
(global-set-key "\C-cpn" #'(lambda () (interactive)
(my-muse-project-find-file "MyNotes")))
(global-set-key "\C-cpp" #'(lambda () (interactive)
(my-muse-project-find-file "Plans")))
(global-set-key "\C-cpr" #'(lambda () (interactive)
(my-muse-project-find-file "Projects")))
(global-set-key "\C-cps" #'(lambda () (interactive)
(my-muse-project-find-file "Classes")))
(global-set-key "\C-cpw" #'(lambda () (interactive)
(my-muse-project-find-file "Website")))
(global-set-key "\C-cpx" 'my-muse-prepare-entry-for-xanga)
;;; Custom variables
(custom-set-variables
'(muse-blosxom-base-directory "D:/soft/elisp/wiki/sblog/")
'(muse-colors-autogen-headings (quote outline))
'(muse-colors-inline-image-method (quote muse-colors-use-publishing-directory))
'(muse-html-charset-default "utf-8")
'(muse-html-encoding-default (quote utf-8))
'(muse-html-footer "D:/soft/elisp/include/myfooter.htmll")
'(muse-html-header "D:/soft/elisp/include/myheader.html")
'(muse-html-meta-content-encoding (quote utf-8))
'(muse-html-style-sheet "<link rel=\"stylesheet\" type=\"text/css\" charset=\"utf-8\" media=\"all\" href=\"/common.css\" />
<link rel=\"stylesheet\" type=\"text/css\" charset=\"utf-8\" media=\"screen\" href=\"/screen.css\" />
<link rel=\"stylesheet\" type=\"text/css\" charset=\"utf-8\" media=\"print\" href=\"/print.css\" />")
;;'(muse-latex-header "~/personal-site/muse/header.tex")
;;'(muse-mode-hook (quote (flyspell-mode footnote-mode)))
;;'(muse-publish-comments-p t)
;;'(muse-publish-desc-transforms (quote (muse-wiki-publish-pretty-title muse-wiki-publish-pretty-interwiki)))
;;'(muse-wiki-publish-small-title-words (quote ("the" "and" "at" "on" "of" "for" "in" "an" "a" "page")))
;;'(muse-xhtml-footer "D:/soft/elisp/include/myfooter.html")
;;'(muse-xhtml-header "D:/soft/elisp/include/myheader.html")
;;'(muse-xhtml-style-sheet "<link rel=\"stylesheet\" type=\"text/css\" charset=\"utf-8\" media=\"all\" href=\"/common.css\" />
;;<link rel=\"stylesheet\" type=\"text/css\" charset=\"utf-8\" media=\"screen\" href=\"/screen.css\" />
;;<link rel=\"stylesheet\" type=\"text/css\" charset=\"utf-8\" media=\"print\" href=\"/print.css\" />")
)
(custom-set-faces
'(muse-bad-link ((t (:foreground "DeepPink" :underline "DeepPink" :weight bold)))))
;;; muse-init.el ends here