■ 2004-04-12 (Mon) [長年日記]
» 遂に小川が!
ネタ路線に走った K-1 との差が一気に開くのか,ハッスル効果で K-1 以上のネタ路線に行くのか.
» [xyzzy] Re: xyzzy で < とかって一発挿入できないんですか 2
普段はこういう所は気にしないんだけど,待ち時間が長かったんで練習がてら考えてみたよ. lisp 風のモノを書くのも今年初な気がするんで,HIE さんちのパクりがほとんどなのに,ハードな練習だったですよ (へなちょこ杉). “一発”じゃないけど,まぁコレぐらいの方が使いやすいかな. global-set-key してるのは html+-mode と tdiary-mode と xml-mode のそれぞれに設定するのが面倒だからです. はい.
多分ツッコミ所多数だろうけど,まぁ,ねぇ…….
(setq my-character-reference-list
'(("<" . "<") (">" . ">") ("&" . "&") ("\\"" . """) (" " . " ")))
(defun convert-character-reference()
(interactive)
(let ((b_ime (get-ime-mode)))
(toggle-ime nil)
(let ((c (read-char *keyboard*)) s)
(setq s (assoc c my-character-reference-list :test #'string-equal))
(when s (setq c (cdr s)))
(insert c))
(toggle-ime b_ime)))
(global-set-key ’(#¥ESC #¥[) ’convert-character-reference)
;04/14 : ESC i だと TAB キー使う時におもろい事になってしまうんで ESC [ に変更
>
場所は…,ここまできちゃうと私のおうちが見えちゃうので内緒です。sns(http://www3.vis.ne.jp/~asaki/sns/) は,修正版になってなかったのかな? ちーとも気付きませんでした…。