Home | Index | Changes | Diaries

2002.01.16

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

ここが参考になるかも。

2: M-x lm

動きが速すぎて面白くない。

3: TODO: 進行中

今日以外の日にScheduleを作るとき、その日のスケジュールを取ってこれるようにする

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


(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を代替機として使ってもらうことにしよう。