;;; muse-init.el --- Initialize Emacs Muse
;; This file is part of Michael Olson's Emacs settings.
;; The code in this file may be used, distributed, and modified
;; without restriction.
;; I use initsplit.el to separate customize settings on a per-project
;; basis.
;; In order to see the scripts that I use to publish my website to a
;; remote webserver, check out
;; http://mwolson.org/projects/SiteScripts.html.
;;; Setup
;; Add to load path
(add-to-list 'load-path "/home/mwolson/proj/emacs/muse/git-muse/lisp")
(add-to-list 'load-path "/home/mwolson/proj/emacs/muse/git-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-latex2png) ; publish <latex> tags
(require 'muse-project) ; load support for projects
(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)
;; 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.
(muse-derive-style "my-blosxom" "blosxom-xhtml"
:final 'my-muse-blosxom-finalize)
;; This turns relative links into absolute links
(muse-derive-style "my-pdf" "pdf"
:before 'my-muse-pdf-prepare-buffer)
;; This uses a different header and footer than normal
(muse-derive-style "my-xhtml" "xhtml"
:header "~/personal-site/muse/header.html"
:footer "~/personal-site/muse/footer.html")
;; Define a draft style which provides extra space between sections
(defvar muse-latex-draft-markup-strings
'((chapter . "\\bigskip\n\\bigskip\n\\chapter{")
(section . "\\bigskip\n\\bigskip\n\\section{")
(subsection . "\\bigskip\n\\bigskip\n\\subsection{")
(subsubsection . "\\bigskip\n\\bigskip\n\\subsubsection{"))
"Strings used for marking up Latex draft text.")
(muse-derive-style "latex-draft" "latex"
:strings 'muse-latex-draft-markup-strings)
(muse-derive-style "pdf-draft" "latex-draft"
:final 'muse-latex-pdf-generate
:browser 'muse-latex-pdf-browse-file
:link-suffix 'muse-latex-pdf-extension
:osuffix 'muse-latex-pdf-extension)
;; Define a style with unnumbered titles
(defvar muse-latex-uh-markup-strings
'((chapter . "\\chapter*{")
(section . "\\section*{")
(subsection . "\\subsection*{")
(subsubsection . "\\subsubsection*{"))
"Strings used for marking up Latex text with unnumbered headings.")
(muse-derive-style "latex-uh" "latex"
:strings 'muse-latex-uh-markup-strings)
(muse-derive-style "pdf-uh" "latex-uh"
:final 'muse-latex-pdf-generate
:browser 'muse-latex-pdf-browse-file
:link-suffix 'muse-latex-pdf-extension
:osuffix 'muse-latex-pdf-extension)
;; Here is my master project listing.
(setq muse-project-alist
`(
("Website" ("~/proj/wiki/web/" "~/proj/wiki/web/testdir/"
:force-publish ("WikiIndex")
:default "WelcomePage")
(:base "my-xhtml"
:base-url "http://mwolson.org/web/"
:include "/web/[^/]+"
:path "~/personal-site/site/web")
(:base "my-xhtml"
:base-url "http://mwolson.org/web/"
:include "/testdir/[^/]+"
:path "~/personal-site/site/web/testdir")
(:base "my-pdf"
:base-url "http://mwolson.org/web/"
:path "~/personal-site/site/web"
:include "/\\(CurriculumVitae\\|BriefResume\\)[^/]*$"))
("Projects" ("~/proj/wiki/projects/"
:force-publish ("WikiIndex" "MuseQuickStart")
:default "WelcomePage")
(:base "my-xhtml"
:base-url "http://mwolson.org/projects/"
:path "~/personal-site/site/projects"))
("Blog" (,@(muse-project-alist-dirs "~/proj/wiki/blog")
:default "index")
;; Publish this directory and its subdirectories. Arguments
;; are as follows. The above `muse-project-alist-dirs' part
;; is also needed.
;; 1. Source directory
;; 2. Output directory
;; 3. Publishing style
;; remainder: Other things to put in every generated style
,@(muse-project-alist-styles "~/proj/wiki/blog"
"~/personal-site/site/blog"
"my-blosxom"
:base-url "http://blog.mwolson.org/"))
("MyNotes" ("~/proj/wiki/notes/"
:force-publish ("index")
:default "index")
(:base "xhtml"
:base-url "http://mwolson.org/notes/"
:path "~/personal-site/site/notes")
(:base "my-pdf"
:base-url "http://mwolson.org/notes/"
:path "~/personal-site/site/notes"))
("Private" ("~/Documents"
:default "movielist")
,@(muse-project-alist-styles "~/Documents"
"~/Documents"
"pdf"))
("Classes" (,@(muse-project-alist-dirs "~/proj/wiki/classes")
:default "index")
,@(muse-project-alist-styles "~/proj/wiki/classes"
"~/personal-site/site/classes"
"xhtml"))
("MA366" ("~/proj/classes/ma366")
(:base "pdf-uh"
:path "~/proj/classes/ma366"))
("ENGL238" ("~/proj/classes/engl238")
(:base "pdf-uh"
:path "~/proj/classes/engl238"))
("CS426" ("~/proj/classes/cs426")
(:base "pdf-uh"
:path "~/proj/classes/cs426"))
("Plans" ("~/proj/wiki/plans/"
:default "TaskPool"
:major-mode planner-mode
:visit-link planner-visit-link)
(:base "planner-xhtml"
:path "~/proj/notmine/planner-out"))
))
;; Wiki settings
(setq muse-wiki-interwiki-alist
'(("PlugWiki" . "http://wiki.purduelug.org/")
("EmacsWiki" . "http://www.emacswiki.org/cgi-bin/wiki/")
("ArchWiki" . "http://gnuarch.org/gnuarchwiki/")
;; abbreviations
("CERIAS" . "http://www.cerias.purdue.edu/")
("PlannerMode" . "http://www.emacswiki.org/cgi-bin/wiki/PlannerMode")
("RememberMode" . "http://www.emacswiki.org/cgi-bin/wiki/RememberMode")
("GP2X" . "http://www.gp2x.co.uk/")
("UbuntuLinux" . "http://ubuntulinux.org/")
("PLUG" . "http://purduelug.org/")
("PAC" . "http://web.ics.purdue.edu/~pac/")))
;;; 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://mwolson.org/" 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)))
(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
(muse-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://mwolson.org/" nil t))
;; copy entry to clipboard
(clipboard-kill-ring-save (point-min) (point-max))
(message "Copied blog entry to clipboard"))))
;; Turn a word or phrase into a clickable Wikipedia link
(defun my-muse-dictize (beg end)
(interactive "r")
(let* ((text (buffer-substring-no-properties beg end))
(link (concat "dict:" (replace-regexp-in-string " " "_" text t t))))
(delete-region beg end)
(insert "[[" link "][" text "]]")))
(defun my-muse-surround-math (&optional beg end)
"If a region is higlighted, surround it with <math>...</math>.
If no region is highlighted, insert <math></math> and leave the point
between the two tags."
(interactive (list (ignore-errors (mark)) (point)))
(if (and beg end)
(save-restriction
(narrow-to-region beg end)
(goto-char (point-min))
(insert "<math>")
(goto-char (point-max))
(insert "</math>"))
(insert "<math>")
(save-excursion (insert "</math>"))))
(defun my-muse-cdotize-region (beg end)
(interactive "r")
(save-restriction
(narrow-to-region beg end)
(goto-char (point-min))
(while (re-search-forward " *\\* *" nil t)
(replace-match " \\\\cdot "))))
;;; 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-cpm" #'(lambda () (interactive)
(my-muse-project-find-file "MA453")))
(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-cpC" #'my-muse-cdotize-region)
(global-set-key "\C-cpM" #'my-muse-surround-math)
(global-set-key "\C-cpW" #'my-muse-dictize)
(global-set-key "\C-cpx" #'my-muse-prepare-entry-for-xanga)
;;; Custom variables
(custom-set-variables
'(muse-blosxom-base-directory "~/proj/wiki/blog/")
'(muse-colors-autogen-headings (quote outline))
'(muse-colors-inline-image-method (quote muse-colors-use-publishing-directory))
'(muse-completing-read-function (quote ido-completing-read))
'(muse-html-charset-default "utf-8")
'(muse-html-encoding-default (quote utf-8))
'(muse-html-footer "~/personal-site/muse/generic-footer.html")
'(muse-html-header "~/personal-site/muse/generic-header.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-date-format "%b. %e, %Y")
'(muse-publish-desc-transforms (quote (muse-wiki-publish-pretty-title muse-wiki-publish-pretty-interwiki muse-publish-strip-URL)))
'(muse-wiki-publish-small-title-words (quote ("the" "and" "at" "on" "of" "for" "in" "an" "a" "page")))
'(muse-xhtml-footer "~/personal-site/muse/generic-footer.html")
'(muse-xhtml-header "~/personal-site/muse/generic-header.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
