Re: [emacs-wiki-discuss] Files under DeaultProject

[Yamagata Yoriyuki]

From: Yamagata Yoriyuki <address@hidden>
Subject: Re: [emacs-wiki-discuss] Files under DeaultProject
Date: Wed, 01 Jun 2005 21:23:14 +0900 (JST)

> From: Yamagata Yoriyuki <address@hidden>
> Subject: [emacs-wiki-discuss] Files under DeaultProject
> Date: Sun, 27 Mar 2005 03:29:21 +0900 (JST)
> 
> > Hi, 
> > 
> > I notice that somehow, files under JournalWiki (the project keeping
> > emacs-wiki-journal files) are published under DefaultProject's
> > publising directory.  JournalWiki files are also appearing in the
> > index of DefaultProject.  Anyone else has a problem like this?  I am
> > using sources in the newest Arch repos, with several changes of mine
> > to emacs-wiki-publish.el.
> 
> The probelm is solved by changing emacs-wiki-directories from
> (setq emacs-wiki-directories (quote ("~/Wiki" "~/Blog" "~/Plan")))
> to
> (setq emacs-wiki-directories (quote ("~/Wiki")))

Ughh...  Now InterWiki links between projects do not work.

Is there someone who experiences similar problems?  Do InterWiki links
work for everyone else?

My .emacs is the following.  Is there any problem?  

(snip)

-- begin --
;;journal
(load "~/share/emacs/site-lisp/emacs-wiki-journal/emacs-wiki-journal.el")
(define-key ctl-x-4-map
"j" 'emacs-wiki-journal-add-entry-other-window)

(add-hook 'emacs-wiki-mode-hook
          (lambda ()
            (local-set-key "\C-cj" 'emacs-wiki-journal-add-entry)))


(require 'emacs-wiki-mimetex)
(require 'emacs-wiki-journal)
(emacs-wiki-journal-update-wiki-project)
;;planner
(load "planner")
(setq mark-diary-entries-in-calendar t)
(require 'planner-cyclic)
(add-hook 'diary-display-hook 'fancy-diary-display)

;;emacs-wiki
(setq emacs-wiki-charset-default "utf-8")
(setq emacs-wiki-coding-default (quote utf-8))
(setq emacs-wiki-directories (quote ("~/Wiki")))

(setq emacs-wiki-projects 
      (cons
       '("DefaultProject"
         (emacs-wiki-directories .  ("~/Wiki"))
         (emacs-wiki-home-page . "WelcomePage")
         (emacs-wiki-publishing-directory . "/address@hidden:public_html/Wiki")
         (emacs-wiki-project-server-prefix . "../Wiki/")
         (emacs-wiki-index-title-threshold . t))
       emacs-wiki-projects))

(setq emacs-wiki-interwiki-names 
      (quote (("DefaultProject" lambda
               (tag) (emacs-wiki-project-interwiki-link "DefaultProject" tag))
              ("WikiPlanner" lambda (tag) 
               (emacs-wiki-project-interwiki-link
                "WikiPlanner" tag)) 
              ("JournalWiki" lambda (tag)
               (emacs-wiki-project-interwiki-link "JournalWiki" tag)))))

(setq emacs-wiki-journal-category-regexp "^Category\\([A-Z][a-z]*\\)+$")
(setq emacs-wiki-menu-default "<div class=\"menu\">
       <div class=\"menuitem\"><a href=\"WelcomPage\">WelcomPage.html</a></div>
       <div class=\"menuitem\"><a href=\"WikiIndex.html\">WikiIndex</a></div>
    </div>
")
(setq emacs-wiki-menu-factory (quote emacs-wiki-menu-make-from-projects))
(setq emacs-wiki-private-pages (quote ("Publications")))

(nconc emacs-wiki-changelog-markup
       (list
        ;; 変更者名を省略する。
        ["^<h2>\\(\\S-+\\)\\s-+.+</h2>" 0 "<h2>\\1</h2>"]
        ))

(setq emacs-wiki-maintainer nil)

(setq system-time-locale "ja_JP.eucJP")

;; Inline LaTex
(load "latex2png.el")
(push '("latex" t t t gs-latex-tag) emacs-wiki-markup-tags)
(setq gs-latex2png-scale-factor 1)

;; emacs-wiki-journal
(setq emacs-wiki-journal-category-regexp "^Category\\([A-Z][a-z]*\\)+$")
(setq emacs-wiki-journal-entries-per-page 10)
(setq emacs-wiki-journal-more-entries-link "(これまでのお話)")
(setq emacs-wiki-journal-old-title-format-1 "欝っぽい日記 %s から %s まで")
(setq emacs-wiki-journal-old-title-format-2 "欝っぽい日記 %s")
(setq emacs-wiki-journal-publishing-directory 
      "/address@hidden:public_html/Blog")
(setq emacs-wiki-journal-self-link-name "リンクする")
(setq emacs-wiki-journal-server-prefix "../Blog/")
(setq emacs-wiki-journal-time-format "%Y/%2m/%2d (%a)")
(setq emacs-wiki-journal-title "欝っぽい日記")
(emacs-wiki-journal-update-wiki-project)
(setq emacs-wiki-after-wiki-publish-hook nil)

;; emacs-wiki-publishing
(setq emacs-wiki-publishing-directory "/address@hidden:public_html/Wiki")
(setq emacs-wiki-publishing-footer "
    <!-- Page published by Emacs Wiki ends here -->
    <div class=\"navfoot\">
      <hr />
      <table width=\"100%\" border=\"0\" summary=\"Footer navigation\">
        <col width=\"33%\"/><col width=\"34%\"/><col width=\"33%\"/>
        <tr>
          <td align=\"left\">
            <lisp>
              (if buffer-file-name
                  (concat
                   \"<span class=\\\"footdate\\\">Updated: \"
                   (format-time-string emacs-wiki-footer-date-format
                    (nth 5 (file-attributes buffer-file-name)))
                   (and emacs-wiki-serving-p
                        (emacs-wiki-editable-p (emacs-wiki-page-name))
                        (concat
                         \" / \"
                         (emacs-wiki-link-href
                          (concat \"editwiki?\" (emacs-wiki-page-name))
                          \"Edit\")))
                   \"</span>\"))
            </lisp>
          </td>
          <td align=\"center\">
            <span class=\"foothome\">
              <lisp>
                (concat
                      (concat
                       (emacs-wiki-link-href \"../Wiki/WelcomePage\" \"Home\")
                       \" / \")
                 (emacs-wiki-link-href emacs-wiki-index-page \"Index\")
                 (and (emacs-wiki-page-file \"ChangeLog\" t)
                      (not (emacs-wiki-private-p \"ChangeLog\"))
                      (concat
                       \" / \"
                       (emacs-wiki-link-href \"ChangeLog\" \"Changes\"))))
              </lisp> / <a href=\"http://d.hatena.ne.jp/yoriyuki/\";>はてな</a>
            </span>
          </td>
          <td align=\"right\">
            <lisp>
              (if emacs-wiki-serving-p
                  (concat
                   \"<span class=\\\"footfeed\\\">\"
                   (emacs-wiki-link-href \"searchwiki?get\" \"Search\")
                   (and buffer-file-name
                        (concat
                         \" / \"
                         (emacs-wiki-link-href
                          (concat \"searchwiki?q=\" (emacs-wiki-page-name))
                          \"Referrers\")))
                   \"</span>\"))
            </lisp>
          </td>
        </tr>
      </table>
    </div>
  </body>
</html>
")
(setq emacs-wiki-publishing-header "<?xml version=\"1.0\"?>
<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"
    \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\";>
<html xmlns=\"http://www.w3.org/1999/xhtml\";>
  <head>
    <title><lisp>(emacs-wiki-page-title)</lisp></title>
    <meta name=\"generator\" content=\"emacs-wiki.el\" />
    <meta http-equiv=\"<lisp>emacs-wiki-meta-http-equiv</lisp>\"
          content=\"<lisp>emacs-wiki-meta-content</lisp>\" />
    <link rel=\"home\" href=\"<lisp>(emacs-wiki-published-name
                                     emacs-wiki-home-page)</lisp>\" />
    <link rel=\"index\" href=\"<lisp>(emacs-wiki-published-name
                                      emacs-wiki-index-page)</lisp>\" />
    <lisp>emacs-wiki-style-sheet</lisp>
  </head>
  <body>


    <h1 id=\"top\"><lisp>(emacs-wiki-page-title)</lisp></h1>

    <!-- Page published by Emacs Wiki begins here -->
")

(setq emacs-wiki-style-sheet "<link rel=\"stylesheet\" type=\"text/css\" 
href=\"../style.css\" />")
-- end  --

--
Yamagata Yoriyuki