;; -*- emacs-lisp -*-

;; Author: Olivier Tetard <olivier.tetard@miskin.fr>
;; URL : http://toutoune25.miskin.fr/

;; This file is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by the
;; Free Software Foundation; either version 2, or (at your option) any
;; later version.

;; This file is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the Free
;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
;; 02111-1307, USA.

;; Inspiré par les fichiers de :
;;   * Michael Olson (http://www.mwolson.org/web/WelcomePage.html)

(require 'muse)

(require 'muse-blosxom)                 ; load blosxom module
(require 'muse-colors)                ; load coloring/font-lock module
(require 'muse-docbook)                ; load DocBook publishing style
(require 'muse-html)                   ; load (X)HTML publishing style
(require 'muse-mode)                    ; load authoring mode
(require 'muse-project)
(require 'muse-texinfo)              ; load Info/PDF publishing styles
(require 'muse-wiki)                    ; load Wiki support
(require 'muse-latex)                   ; load LaTeX support

;; Set projects list
(setq muse-project-alist
      '(("FR"
	 ("~/Documents/wiki/muse/fr" :default "WhoAmI")
	 (:base "xhtml" :path "~/Documents/wiki/output/fr/"))
        ("Doc"
         ("~/Documents/wiki/muse/documentation/" :default "index")
         (:base "xhtml" :path "~/Documents/wiki/output/fr/documentation"))
        ("Projets"
         ("~/Documents/wiki/muse/projets/" :default "index")
         (:base "xhtml" :path "~/Documents/wiki/output/fr/projets"))))

(defun archzoom (branch file &optional repo)
  "Return the path to a specified file in a arch repository."
  (unless repo (setq repo "toutoune25@free.fr--2005"))
  (concat "http://arch.miskin.fr/archzoom.cgi/" repo "/" branch "--LATEST/" file))

(defun lang-selected ()
  "Return the string 'selected' if the current file is displayed"
  (buffer-file-name))

(custom-set-variables
 '(muse-file-extension "muse")
 '(muse-html-charset-default "utf-8")
 '(muse-html-encoding-default (quote utf-8))
 '(muse-html-meta-content-encoding (quote utf-8))
 '(muse-html-style-sheet "<link rel=\"stylesheet\" type=\"text/css\" charset=\"utf-8\" media=\"all\" href=\"/style.css\" />")
 '(muse-mode-auto-p nil)
 ;; '(muse-mode-hook (quote (footnote-mode muse-wiki-update-custom-values)))
 '(muse-publish-desc-transforms (quote (muse-wiki-publish-pretty-title muse-wiki-publish-pretty-interwiki muse-publish-escape-specials-in-string)))
 '(muse-wiki-publish-small-title-words (quote ("the" "and" "at" "on" "of" "for" "in" "an" "a" "page" "anime")))
 '(muse-xhtml-footer "~/Documents/wiki/common/footer.html")
 '(muse-xhtml-header "~/Documents/wiki/common/header.html"))

(eval-after-load "muse-colors"
  '(add-to-list 'muse-colors-tags
                '("src" t nil muse-colors-example-tag)))

(custom-set-faces
 '(muse-bad-link-face ((t (:foreground "DeepPink" :underline "DeepPink" :weight bold))))
 '(muse-link-face ((t (:foreground "blue" :underline "blue" :weight bold)))))

(provide 'tt25-muse)