(使い方)action-lock

• メモ中に { } と書くと「トグルスイッチ」
  • その上でリターン叩くと, 叩くたんびに記号が変化

     { } → {*} → {-} → { } → …

• メモ中に {_} と書くと「未処理」
  • その上でリターン叩くと, 日時を挿入

     {_} → [2002-09-13 02:31]

使用例

* 出張チェックリスト
  * 準備
    * 充電
      * { } 計算機(勝負バッテリ)
      * { } 携帯
      * { } PDA
    * { } バックアップ
    * …
  * 持ちもの
    * { } たこ足
    * { } 扇子
    * …
  * 当日
    * { } 目覚し止め
    * { } ビデオタイマー
    * …

* 物品購入テンプレート
  * {_} 予算
  * {_} 選定
  * {_} 見積り
  * {_} 発注
  * {_} 納品
  * {_} 伝票処理

action-lock の追加の例

.emacs に追加。

(setq action-lock-default-rules
      (cons (action-lock-switch
             '("[ ]"
               "[          :  0%]"
               "[+         : 10%]"
               "[++        : 20%]"
               "[+++       : 30%]"
               "[++++      : 40%]"
               "[+++++     : 50%]"
               "[++++++    : 60%]"
               "[+++++++   : 70%]"
               "[++++++++  : 80%]"
               "[+++++++++ : 90%]"
               "[++++++++++:100%]")) action-lock-default-rules))

メモ中に [ ] と書くと上記 action-lock が有効になります。TODO の進捗状況確認に使ってます。

     [ ] → [          :  0%] → [+         : 10%] → [++        : 20%] → …

howm-menu ではこんな感じに表示されます。

> 月 -1 | [2005-03-14]! [++++      : 40%] ミーティングの準備
> 火 -2 | [2005-03-15]! [++        : 20%] 資料 A 作成
> 火 -2 | [2005-03-15]! [          :  0%] 資料 B 作成

自前 action-lock の例

ref. 2ch3:613

;; action-lock-switch と似た動作だが, ラベルの後に日時を自動記入
(defun action-lock-switch-time (label-list)
  (let ((time-format " [%Y-%m-%d %H:%M]")
        (time-regexp (let ((dd "[0-9]\\{2\\}"))
                       (format "\\( \\[%s%s-%s-%s %s:%s\\]\\)?"
                               dd dd dd dd dd dd))))
    (let ((regexp (concat (regexp-opt label-list t) time-regexp)))
      (list regexp
            `(lambda (&optional dummy)
               (let* ((b (match-beginning 0))
                      (e (match-end 0))
                      (ring ',(append label-list (list (car label-list))))
                      (s (match-string-no-properties 1))
                      (next (cadr (member s ring))))
                 (delete-region b e)
                 (insert next (format-time-string ,time-format))
                 (goto-char b)))))))

;; [ ] → [ToDo] → … のスイッチ + 日時の自動記入
(setq action-lock-default-rules
      (cons (action-lock-switch-time
            '("[ ]"
              "[ToDo]"
              "[Wait]"
              "[Assign]"
              "[Review]"
              "[Done]"
              )) action-lock-default-rules))

• 2004-01-09 (金) 03:24:13 名無しさん : 前者は何に使うの？ 使用例希望。後者はチェックリストを作るときに使うのかにゃ？