emacs/gnus.el: update gnus-personalities
[dotfiles.git] / emacs / tt25-muse.el
1 ;; -*- emacs-lisp -*-
2
3 ;; Author: Olivier Tetard <olivier.tetard@miskin.fr>
4 ;; URL : http://toutoune25.miskin.fr/
5
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
9 ;; later version.
10
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.
15
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
19 ;; 02111-1307, USA.
20
21 ;; Inspiré par les fichiers de :
22 ;;   * Michael Olson (http://www.mwolson.org/web/WelcomePage.html)
23
24 (require 'muse)
25
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
35
36 ;; Set projects list
37 (setq muse-project-alist
38       '(("FR"
39          ("~/Documents/wiki/muse/fr" :default "WhoAmI")
40          (:base "xhtml" :path "~/Documents/wiki/output/fr/"))
41         ("Doc"
42          ("~/Documents/wiki/muse/documentation/" :default "index")
43          (:base "xhtml" :path "~/Documents/wiki/output/fr/documentation"))
44         ("Projets"
45          ("~/Documents/wiki/muse/projets/" :default "index")
46          (:base "xhtml" :path "~/Documents/wiki/output/fr/projets"))))
47
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))
52
53 (defun lang-selected ()
54   "Return the string 'selected' if the current file is displayed"
55   (buffer-file-name))
56
57 (custom-set-variables
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"))
69
70 (eval-after-load "muse-colors"
71   '(add-to-list 'muse-colors-tags
72                 '("src" t nil muse-colors-example-tag)))
73
74 (custom-set-faces
75  '(muse-bad-link-face ((t (:foreground "DeepPink" :underline "DeepPink" :weight bold))))
76  '(muse-link-face ((t (:foreground "blue" :underline "blue" :weight bold)))))
77
78 (provide 'tt25-muse)