2002.01.16

1: emacs-wikiのマークアップルールは

2: M-x lm

3: TODO: 進行中

第一歩として今日のファイルじゃなければとってこないように変更。

(defun planner-todays-appoints ()

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

    (if diary-entries

     (mapconcat 'cadr diary-entries "\n\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))

4: 昼間に家から電話

とのこと。帰宅して様子を見てみたら、ディスクアクセスで異音が。 それも何度もリトライしている様子。 幸いネットワーク共有が生きていたので、こちらのマシンから大事なデータ （メールなど）を吸い上げた。

途中引っかからず無事コピーできたのでひと安心。

ちょっと不自由かもしれないけど、 暫く使っていなかったモバIIを代替機として使ってもらうことにしよう。