今に始まったことじゃないが、どうも物忘れがひどい。
はてな記法もそのうちのひとつ。すさまじい勢いで忘れている。というか憶える気がないのか。
頭が悪いのはツールで補う。いつものことだ。
決まったキーを押すたびに候補を順繰りに挿入してくれるやつを書いた。
2011.4.6 *hatena-insert-alist* の名前が間違ってたので直した。
;;; ;;; hatena-insert ;;; (defvar *hatena-insert-alist* '(("<br>" . "改行") (">||\n||<" . "スーパー pre") (">|lisp|\n||<" . "スーパー pre lisp") ("[:title=]" . "リンク") ("(())" . "脚注") (">>\n<<" . "引用") ;("-" . "リスト") ;("+" . "リスト 番号つき") ("**" . "小見出し"))) (defvar *hatena-insert-last-num* 0) (defun hatena-insert () (interactive) (let ((lst *hatena-insert-alist*)) (setq *hatena-insert-last-num* (if (eq *last-command* 'hatena-insert) (progn (delete-char (1+ (length (car (nth *hatena-insert-last-num* lst))))) (mod (incf *hatena-insert-last-num*) (length *hatena-insert-alist*))) 0)) (let ((e (nth *hatena-insert-last-num* lst))) (save-excursion (insert (car e) "\n")) (message "~D/~D ~A" (1+ *hatena-insert-last-num*) (length *hatena-insert-alist*) (cdr e))))) (global-set-key #\M-3 'hatena-insert)
せっかく候補を出してくれても、意味すら忘れているアホな自分のために、下のステータスバーに候補番号と記法名を表示するようにした。
候補の追加とかは *hatena-insert-alist* に。
キーバインドは、なんでか M-3 に割り付けてしまった。なんでか。