Making of Wiki Tech

ウィキテクノロジー（仮）のできるまで。

EmacsWikiのインストロール

配布元のページから、

• emacs-wiki.el
• planner.el
• remember.el

をダウンロードしてきて、load-pathの通った場所にコピーします。

~/.emacs に、下記のような内容を追記します。

;;; remember.el

(autoload 'remember "remember" nil t)

(autoload 'remember-region "remember" nil t)



(define-key global-map [f8] 'remember)

(define-key global-map [f9] 'remember-region)



;;; planner.el & emacs-wiki.el

(load "planner.el")

※planner.el の中で、emacs-wiki.el を読み込んでいます。

各種ファイルを格納するためのディレクトリを作成。 場所や名前が気に入らない場合は、自由に変更できます。

• ~/Plans ‥‥‥ planner で使う全てのテキストを保存するディレクトリ
• ~/WebWiki ‥‥‥ publish でコンバートされた html ファイルが入るディレクトリ

※ WebWiki は ~/public_html/wiki へのシンボリックリンクにしてある。

これでおしまい。

Meadow での問題点と回避については EmacsWiki に移動しました。(2002.01.13)

カスタマイズ

customize機能を使っていろいろカスタマイズできます。¹

M-x customize-group

Customize gourp: (default emacs) emacs-wiki

だいたい次のようなところをいじっています。

• メールアドレス
• 外部スタイルシートの読み込み
• 日記の各段落にアンカーを埋め込む
• 文字コードをEUCに
• 最終更新日の日付フォーマット
• publish するときかなにかにこけたか何かで展開ディレクトリを絶対パスで指定するようにした

(custom-set-variables

 '(emacs-wiki-maintainer "mailto:cake-smd@ops.dti.ne.jp")

 '(emacs-wiki-style-sheet

   "<link rel=\"stylesheet\" type=\"text/css\" href=\"rubyStyle.css\">")

 '(planner-publishing-markup

   (quote

    (["^#\\([A-C]\\)" 0 "- **\\1** "]

     ["^#\\([A-C][0-9]+\\)" 0 "- <a name=\"\\1\"/> **\\1** "]

     ["^\\.#\\([0-9]\\)" 0 "** <a name=\"\\1\" href=\"#\\1\">\\1:</a> "])))

 '(emacs-wiki-meta-content "text/html;charset=sjis")

 '(emacs-wiki-footer-date-format "%Y-%m-%d %T")

 '(emacs-wiki-publishing-directory "/home/cake/WebWiki")

 '(remember-handler-functions (quote (remember-append-to-planner))))

注: ~/.emacs の中で、planner.el をロードする前に custom-set-variables がないと、 planner が emacs-wiki を上書きする部分が有効にならないような気がします。 (‥‥‥と思い込んでましたが違いました。Thu Jan 10 23:20:26 2002 追記)

最後の remember-... は、remember.el を使って日記を書くための設定です。

書くと長くなるので省いたものは、

• ChangeLogの H1 タグに class 指定を追加(文字サイズを小さくするため)
• ページのヘッダにもフッタと同じナビリンクを追加

といったところ。

それから、ディフォルトでつけられるWikiNameへの色がちょっと見にくいので、

(custom-set-faces

 '(emacs-wiki-link-face ((t (:foreground "blue")))))

あと、~/.emacs の中でいくつか emacs-wiki の関数を上書きするなどして 動作を変更しています。

• Index 一覧を、最新更新日順に＆更新日も表示 (⇒ 2001.11.24)

  
  (defun emacs-wiki-generate-index (&optional as-list exclude-private)
  
    "Generate an index of all Wiki pages."
  
    (let ((project emacs-wiki-current-project))
  
      (with-current-buffer (get-buffer-create "*Wiki Index*")
  
        (if project
  
            (emacs-wiki-change-project project))
  
        (let ((files (sort (copy-alist (emacs-wiki-file-alist))
  
                           (lambda (l r)
  
                             (let ((left-timestamp
  
                                    (nth 5 (file-attributes (cdr l))))
  
                                   (right-timestamp
  
                                    (nth 5 (file-attributes (cdr r)))))
  
                               (if (= (car left-timestamp) (car right-timestamp))
  
                                   (> (cadr left-timestamp) (cadr right-timestamp))
  
                                 (> (car left-timestamp) (car right-timestamp)))))))
  
              file)
  
          (while files
  
            (unless (and exclude-private
  
                         (emacs-wiki-private-p (caar files)))
  
              (insert (if as-list "- " "") "[[" (caar files) "]] "
  
                      (format-time-string "%Y-%m-%d %T" (nth 5 (file-attributes (cdar files))))
  
                      "\n"))
  
            (setq files (cdr files))))
  
        (current-buffer))))
  
  

※消し忘れていた不要な一時変数（cake-pocket）を削除。(2002.01.15)

• Emacs Lisp関数のアドバイスを参考に、 publishするとき毎回 MyDiaryPages を作り直すようにしてみた。(2001.12.06)

  
  (defadvice emacs-wiki-publish (before force-publish-calendar ())
  
    "Rebuild calendar page every time."
  
    (emacs-wiki-publish-files
  
     (list (concat planner-directory "/MyDiaryPages")) t))
  
  (ad-activate 'emacs-wiki-publish)
  
  

• MyDiaryPages で使っているカレンダー生成の関数 (2001.12.05)

  
  (load-library "mhc-date.el")
  
  (defun cake-wiki-calendar (&optional year month)
  
    (interactive)
  
    (let*
  
        ((yy (or year (ddate-yy (ddate-now))))
  
         (mm (or month (ddate-mm (ddate-now))))
  
         (from (list yy mm 1))
  
         (to (ddate-mm-last-day from)))
  
      (concat "Su||Mo||Tu||We||Th||Fr||Sa\n"
  
              (let ((f
  
                     (lambda (n)
  
                       (if (> n 0)
  
                           (concat "　|"
  
                                   (funcall f (- n 1)))))))
  
                (funcall f (ddate-ww from)))
  
              (let ((fn
  
                     (lambda (d)
  
                       (if (ddate<= d to)
  
                           (concat
  
  			  (if (emacs-wiki-page-file (ddate-to-s1 d "."))
  
                                (concat "[[" (ddate-to-s1 d ".") "]"
  
                                        "[ " (ddate-dd-s d) "]]")
  
                              (ddate-dd-s d))
  
                            (if (= 6 (ddate-ww d)) "\n" "|")
  
                            (funcall fn (ddate-inc d)))))))
  
                (funcall fn from)))))
  
  

  ※mhc の中の mhc-date.el が必要。

追記

WikiName の実在チェックをする部分をemacs-wiki-page-file() を使うように変更。(2001.12.08)

運用

1. メールで職場から送った日記を、remember-region([f9]) を使って 日記ファイルに保存。
2. その場で思いついたネタを remember([f8]) を使って日記ファイルに追加。
3. plan([M-x plan]) を使って日記ファイルを開き、適宜編集する。
4. 他のページも必要に応じて編集する。
5. add-change-log-entry-other-window([C-x 4 a]) を使って、ChangeLog に 変更事項を記載する。
6. emacs-wiki-publish(C-c C-p)でhtml形式に変換。
7. サーバーにアップロード

という感じ。

planner について

本来毎日のTODOやメモを管理するためのPIMアプリです。 EmacsWiki を拡張して作られているのでその機能を全て含みます。

• １日１ファイルのページをCCYY.MM.DDの名前で自動作成
• WikiName のルールを拡張して、CCYY.MM.DD 形式も WikiName として認識
• TODOの管理（優先度の管理、未了事項の繰越など）

XEmacsではなぜかTODOの部分がうまく動かないので使ってません。(2001.11.23)

‥‥‥でしたが、Emacs20 に乗り換えてからはちゃんと動くので使うようになりました。

PIM として使うには

それを補うために、毎日のファイルを作成するとき ~/diary ファイルからその日のスケジュールを拾ってきて、 追記しちゃうようにします。(2002.01.10)

;;; Planner に * Schedule を追加

;;; 内容は ~/diary から転記する

(defun planner-todays-appoints ()

  (let ((diary-entries (diary)))

    (if diary-entries

     (mapconcat 'cadr diary-entries "\n")

      "")))



(defun planner-goto-schedule ()

  (interactive)

  (let ((appo

         (if (string-equal (buffer-name) (planner-today))

             (planner-todays-appoints)

           "")))

    (goto-char (point-min))

    (unless (re-search-forward "^\\* Schedule\n\n" nil t)

      (re-search-forward "^\\* Notes")

      (beginning-of-line)

      (insert (concat "* Schedule\n\n" appo "\n\n"))

      (forward-line -2))))



(defadvice plan (after insert-diary-entries activate)

  "今日のファイルを開くと予定の部分に飛ぶ"

  (planner-goto-schedule))

改善:今日以外のPlanファイルにも今日の予定を挿入するようになっていたので、 日付が違えば挿入しないように変更。(2002.01.16)

diaryファイルの更新

しかし ~/diary ファイルを閲覧専用と割り切って 別の予定管理ソフトか何かからデータを流し込んでくるというアプローチもあります。

(calendar+diaryという組合せは、そんなに高機能でもないし使い勝手もよくないので)

カレンダーを表示するたびに、別のデータを変換して反映するには、 こんな感じ。(2002.01.11)

(defadvice calendar (before remind-generate-diary activate)

  "Generate a diary file from Outlook data."

  (save-excursion

    (with-current-buffer (find-file-noselect diary-file)

      (erase-buffer)

      (shell-command "/usr/home/bin/olconv" (current-buffer))

      (save-buffer))))

"/usr/home/bin/olconv" の部分は自分の書いたスクリプトを入れる。 このolconvがどんなものかは RubyOnWindows を参照のこと。

"Franklin-Covey" とは (2002.04.11追記)

;; This package extends emacs-wiki.el to act as a day planner, roughly

;; equivalent to the one used by *Franklin-Covey*.  If they have patents

;; and trademarks and copyrights to prevent me even thinking in terms

;; of their methodology, then I can't believe they care at all about

;; productivity.

とあるのですが、"Franklin-Covey" が何かずっと謎でした。 最近教会の知り合いからフランクリン・プランナーについて教えてもらい、 また書籍「タイムクエスト」を借りて読んだところようやく判明しました。

• http://www.franklincovey.co.jp/

日本法人のサイトです。

フランクリン・プランナーというシステム手帳の製品があるみたいですが、 独自サイズで一般のバイブルサイズと互換なし、という点や、 高級感を重視するデザイン・価格設定という商売っけがちょっとアレゲかも。

• フランクリンシステム徹底攻略

ユーザーさんのページです。 フランクリン・プランナーの概要がよくまとめ られています。

^[1] 'planner-publishing-markup の customize-group が、'planner ではなく 'emacs-planner になっているため、customize-group で探してもみつかりません。 これは多分 typo と思われ。