[Tokyodebian-commits] TokyoDebian CVS update: muse muse-config.el

Tue Mar 28 11:57:38 UTC 2006

  User: dancer  
  Date: 06/03/28 11:57:38

  Modified:    .        muse-config.el
  Log:
  add html header which contains a index link.

  Revision  Changes    Path
  1.2       +31 -0     muse/muse-config.el

  CVSWEB Options: -------------------

  CVSWeb: Annotate this file:            http://cvs.alioth.debian.org/cgi-bin/cvsweb.cgi/tokyodebian/muse/muse-config.el?annotate=1.2&cvsroot=

  CVSWeb: View this file:             http://cvs.alioth.debian.org/cgi-bin/cvsweb.cgi/tokyodebian/muse/muse-config.el?rev=1.2&content-type=text/x-cvsweb-markup&cvsroot=

  CVSWeb: Diff to previous version:   http://cvs.alioth.debian.org/cgi-bin/cvsweb.cgi/tokyodebian/muse/muse-config.el.diff?r1=1.2&r2=1.1&cvsroot=

  -----------------------------------

  Index: muse-config.el
  ===================================================================
  RCS file: /cvsroot/tokyodebian/muse/muse-config.el,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- muse-config.el	19 Mar 2006 04:09:18 -0000	1.1
  +++ muse-config.el	28 Mar 2006 11:57:38 -0000	1.2
  @@ -9,3 +9,34 @@
   	 (,default-directory :default "index")
   	 (:base "html" :path ,(concat default-directory "html")))))
   (setq muse-html-style-sheet "<link rel=\"stylesheet\" type=\"text/css\" href=\"debianmeeting.css\">")
  +(setq muse-html-header
  +"<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">
  +<html>
  +  <head>
  +    <title><lisp>
  +  (concat (muse-publishing-directive \"title\")
  +          (let ((author (muse-publishing-directive \"author\")))
  +            (if (not (string= author (user-full-name)))
  +                (concat \" (by \" author \")\"))))</lisp></title>
  +    <meta name=\"generator\" content=\"muse.el\">
  +    <meta http-equiv=\"<lisp>muse-html-meta-http-equiv</lisp>\"
  +          content=\"<lisp>muse-html-meta-content-type</lisp>\">
  +    <lisp>
  +      (let ((maintainer (muse-style-element :maintainer)))
  +        (when maintainer
  +          (concat \"<link rev=\\\"made\\\" href=\\\"\" maintainer \"\\\">\")))
  +    </lisp>
  +    <lisp>muse-html-style-sheet</lisp>
  +  </head>
  +  <body>
  +    <h1><lisp>
  +  (concat (muse-publishing-directive \"title\")
  +          (let ((author (muse-publishing-directive \"author\")))
  +            (if (not (string= author (user-full-name)))
  +                (concat \" (by \" author \")\"))))</lisp></h1>
  +    <div class=\"toplinks\">
  +      <a class=\"toplinks\" href=\"index.html\">Index</a>
  +    </div>    
  +
  +    <!-- Page published by Emacs Muse begins here -->
  +")