")))
(t ""))))
(defvar emacs-wiki-publish-categories
(quote
(("Home" . ("WelcomePage"))
("Projects" . ("ProjectPage"))
("Downloads" . ("DownloadPage"))
("CoolStuff" . ("StuffPage" "GamesPage" "DevelopmentPage" "LinksPage"))
("Journal" . ("JournalPage" "CategoryGames" "CategoryEmacs" "CategoryJava" "CategoryTravel"))
("About" . ("AboutPage" "ProfilePage" "PartnerPage"))))
"Defines how the website is structured. Every entry describes a category.
The top level menu entry will be the car of each entry.
The secondary menu will be constructed from the list of pages in the cdr of the cons.")
(setq emacs-wiki-publishing-transforms '(("WelcomePage" . "index")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;_+ New Markup Tags
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'emacs-wiki-boxes)
;;;_++
;;; Stolen from sachac, in turn
;;; Stolen shamelessy from code by Satyaki Das
;;; http://verify.stanford.edu/satyaki/emacs/EmacsWikiTricks.html
(require 'htmlize)
(defun ole-htmlfontify-insert-region (buffer begin end)
"Insert into BUFFER the htmlified text between BEGIN and END."
(save-excursion
(let* ((hfy-optimisations (cons 'skip-refontification hfy-optimisations))
(input-text (buffer-substring begin end))
(temp-file (make-temp-file "html-input"))
output-buffer)
(with-temp-buffer
(insert input-text)
(setq buffer-file-name temp-file)
(save-excursion (setq output-buffer (htmlfontify-buffer nil nil)))
(set-buffer-modified-p nil))
(unwind-protect
(let (b e yanked-output)
(set-buffer output-buffer)
(goto-char (point-min))
(search-forward "
\n")
(setq b (line-beginning-position))
(goto-char (point-max))
(search-backward "
")
(forward-line -1)
(setq e (line-beginning-position))
(setq yanked-output (buffer-substring-no-properties b e))
(set-buffer buffer)
(insert yanked-output))
(set-buffer output-buffer)
(set-buffer-modified-p nil)
(delete-file temp-file)
(kill-buffer output-buffer)))))
(defun ole-emacs-wiki-example-tag (beg end attrs highlight-p)
"Mark up text as an example with optional font-locking."
(if highlight-p
(progn
(remove-text-properties
beg end '(face nil font-lock-multiline nil
invisible nil intangible nil display nil
mouse-face nil keymap nil help-echo nil))
(goto-char end))
;; I don't know what would happen if you don't have
;; htmlfontify. I guess if you are installing this you
;; should have it...
(let ((end-marker (set-marker (make-marker) (1+ end))))
(save-restriction
(narrow-to-region beg end)
(let* ((mode (cdr (assoc "mode" attrs)))
(start (progn (forward-line) (point)))
(stop (progn (goto-char end) (beginning-of-line) (point)))
(text (buffer-substring-no-properties start stop))
(buffer (current-buffer)))
(delete-region beg end)
(with-temp-buffer
(insert text)
(when (and mode (and (stringp mode) (functionp (intern mode))))
(funcall (intern mode))
(font-lock-fontify-buffer))
(ole-htmlfontify-insert-region buffer (point-min) (point-max)))
(goto-char (point-min))
(insert "
\n")
(goto-char (point-max))
(insert "
\n")
(add-text-properties (point-min) (point-max)
'(rear-nonsticky (read-only) read-only t))))
(goto-char end-marker))))
(add-to-list 'emacs-wiki-markup-tags '("example" t t t ole-emacs-wiki-example-tag))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;_+ Preview and Publish
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun emacs-wiki-preview-source ()
"Preview the html source generated by `emacs-wiki-publish-this-page'"
(interactive)
(emacs-wiki-publish-this-page)
(find-file (emacs-wiki-published-file)))
(defun emacs-wiki-preview-html ()
"Preview the html generated by `emacs-wiki-publish-this-page'.
The browser is called with `browse-url'"
(interactive)
(emacs-wiki-publish-this-page)
(browse-url (emacs-wiki-published-file)))
(defun emacs-wiki-preview-html-mozilla ()
"Preview the html generated by `emacs-wiki-publish-this-page' with mozilla."
(interactive)
(emacs-wiki-publish-this-page)
(browse-url-mozilla (emacs-wiki-published-file)))
;; auto publishing, thanks sacha
(defun sacha/emacs-wiki-auto-publish ()
(when (or (equal major-mode 'emacs-wiki-mode)
(equal major-mode 'planner-mode))
(unless emacs-wiki-publishing-p
(let ((emacs-wiki-publishing-p t)
(emacs-wiki-after-wiki-publish-hook nil))
(emacs-wiki-publish-this-page)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;_+ Emacs Wiki Mode Hook
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun my-wiki-mode-hook ()
(outline-minor-mode 1)
(footnote-mode 1)
;; (flyspell-mode 1)
(local-set-key [(control ?c) ?j] 'emacs-wiki-journal-add-entry)
(local-set-key [(control ?c) ?m ?p] 'emacs-wiki-publish-this-page)
(local-set-key [(control ?c) ?m ?h] 'emacs-wiki-preview-html)
(local-set-key [(control ?c) ?m ?s] 'emacs-wiki-preview-source)
(local-set-key [(control ?c) ?m ?m] 'emacs-wiki-preview-html-mozilla)
(local-set-key [(control ?c) ?m ?i] 'publish-init-files)
(local-set-key [(control ?c) ?m ?W] 'publish-website)
; (add-hook 'after-save-hook 'sacha/emacs-wiki-auto-publish nil t)
)
(add-hook 'emacs-wiki-mode-hook 'my-wiki-mode-hook)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;_+ Tidy Published Markup
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'tidy)
(defun my-emacs-wiki-after-markup-hook ()
"cleanup after markup"
(if (buffer-file-name (current-buffer))
(tidy-buffer)))
(add-hook 'emacs-wiki-after-markup-hook 'my-emacs-wiki-after-markup-hook t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;_+ Simple Wiki
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'simple-wiki-completion nil t)
(require 'simple-emacswiki nil t)
(require 'wiki-remote)
(eval-after-load "simple-emacswiki"
'(progn
(add-to-list 'auto-mode-alist '("w3mtmp" . simple-wiki-mode))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;_+ Files from the Emacs Wiki
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'wikiarea)
(setq wikiarea-managed-directory (expand-file-name "emacs-wiki/" emacs-init-dir)
wikiarea-cached-file-list-file (expand-file-name ".wikiarea.eld" emacs-init-dir))