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)