3 ;; Author: Olivier Tetard <olivier.tetard@miskin.fr>
4 ;; URL : http://toutoune25.miskin.fr/
6 ;; This file is free software; you can redistribute it and/or modify it
7 ;; under the terms of the GNU General Public License as published by the
8 ;; Free Software Foundation; either version 2, or (at your option) any
11 ;; This file is distributed in the hope that it will be useful, but
12 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 ;; General Public License for more details.
16 ;; You should have received a copy of the GNU General Public License
17 ;; along with GNU Emacs; see the file COPYING. If not, write to the Free
18 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
21 ;; Inspiré par les fichiers de :
22 ;; * Michael Olson (http://www.mwolson.org/web/WelcomePage.html)
26 (require 'muse-blosxom) ; load blosxom module
27 (require 'muse-colors) ; load coloring/font-lock module
28 (require 'muse-docbook) ; load DocBook publishing style
29 (require 'muse-html) ; load (X)HTML publishing style
30 (require 'muse-mode) ; load authoring mode
31 (require 'muse-project)
32 (require 'muse-texinfo) ; load Info/PDF publishing styles
33 (require 'muse-wiki) ; load Wiki support
34 (require 'muse-latex) ; load LaTeX support
37 (setq muse-project-alist
39 ("~/Documents/wiki/muse/fr" :default "WhoAmI")
40 (:base "xhtml" :path "~/Documents/wiki/output/fr/"))
42 ("~/Documents/wiki/muse/documentation/" :default "index")
43 (:base "xhtml" :path "~/Documents/wiki/output/fr/documentation"))
45 ("~/Documents/wiki/muse/projets/" :default "index")
46 (:base "xhtml" :path "~/Documents/wiki/output/fr/projets"))))
48 (defun archzoom (branch file &optional repo)
49 "Return the path to a specified file in a arch repository."
50 (unless repo (setq repo "toutoune25@free.fr--2005"))
51 (concat "http://arch.miskin.fr/archzoom.cgi/" repo "/" branch "--LATEST/" file))
53 (defun lang-selected ()
54 "Return the string 'selected' if the current file is displayed"
58 '(muse-file-extension "muse")
59 '(muse-html-charset-default "utf-8")
60 '(muse-html-encoding-default (quote utf-8))
61 '(muse-html-meta-content-encoding (quote utf-8))
62 '(muse-html-style-sheet "<link rel=\"stylesheet\" type=\"text/css\" charset=\"utf-8\" media=\"all\" href=\"/style.css\" />")
63 '(muse-mode-auto-p nil)
64 ;; '(muse-mode-hook (quote (footnote-mode muse-wiki-update-custom-values)))
65 '(muse-publish-desc-transforms (quote (muse-wiki-publish-pretty-title muse-wiki-publish-pretty-interwiki muse-publish-escape-specials-in-string)))
66 '(muse-wiki-publish-small-title-words (quote ("the" "and" "at" "on" "of" "for" "in" "an" "a" "page" "anime")))
67 '(muse-xhtml-footer "~/Documents/wiki/common/footer.html")
68 '(muse-xhtml-header "~/Documents/wiki/common/header.html"))
70 (eval-after-load "muse-colors"
71 '(add-to-list 'muse-colors-tags
72 '("src" t nil muse-colors-example-tag)))
75 '(muse-bad-link-face ((t (:foreground "DeepPink" :underline "DeepPink" :weight bold))))
76 '(muse-link-face ((t (:foreground "blue" :underline "blue" :weight bold)))))