これまで、link タグを使って ChangeLog メモ のスレッド表示をする話をしてきた。今回は、リンク・タグ挿入の補助ツールについて。
初めてリンク・タグを入力するには、関数 clmemo-tag-link-insert ( C-c ( l) を使う。では、二回目以降は? clmemo-tag-link-insert を使って、記憶を頼りにタグを入力してももよいけれど、入力したタグ一覧を見ることができた方がよいよね。というわけで関数を書いた。
(defun clmemo-tag-list-link () "List all the latest link tags." (interactive) (let (link list) (save-excursion (goto-char (point-min)) (while (re-search-forward "^\t\\((link: .+)\\)" nil t) (setq link (match-string 1)) (unless (member link list) (setq list (cons link list)))) (setq list (nreverse list))) (pop-to-buffer "*tag-link*") (delete-region (point-min) (point-max)) (insert " ==clmemo-tag==\n\n") (insert (mapconcat (lambda (l) l) list "\n")) (goto-char (point-min))))
ChangeLog メモファイルの中で、 M-x clmemo-tag-list-link すると、別ウィンドウが開いてリンク・タグの一覧が表示される。目的のタグを見つけたらコピーする。
時間ができたら、リンク・タグの一覧の上で RET するだけでタグを挿入するようにしたい。
P.S. clmemo-tag-link-insert にバグがありました。[2005-07-05] にコードを修正しました。[2005-07-05] 以前のコードをコピーされた方は、もう一度コピーし直して下さい。
ref
- [2005-07-02] 関連するメモのスレッド表示 (2)
- [2005-07-02] 関連するメモのスレッド表示 (1)
No comments:
Post a Comment