汚し飯

_ 移行ちぅ

emacs20 から emacs21 に徐々に移行中。
こう書くと大したことなさそうに見えるでしょうけど、よういちくん。的にはとっても大変でした。
と言いますのも、 emacs20 では canna-dl ってのを使って日本語入力をしてたんですが、 Debian では emacs21 になってこのパッケージがなくなっちゃいました。
メンテナが居ないのです。
そうなると、 emacs21 で日本語入力をする際には、elispで実装されたIMEを使うしかなく、これがどれもキーカスタマイズが難しいものばかりです。

今般、ようやく yc.el のキーカスタマイズの道が見えて来ました。
ここ迄来るのにホンット長かった。(;´д⊂)
取り敢えず未だ不完全ですが↓

;;
;; yc.el をVJE-β風のキーアサインに変更する elisp
;;
;; 2004.02.28 by [yoh] (yoh@flcl.org)
;;
;; .emacs の任意の箇所に記入して下さい。
;;
;; yc.el をロードする前に、 C-j を無効化する
(defvar yc-rK-trans-key ""
  "*漢字変換キーを設定する")
;; yc.el をロード
(load "yc")
(setq default-input-method "japanese-yc")
(define-key yc-input-mode-map "\C-c" nil)
(define-key yc-mode-map "\C-c" nil)
(setq yc-rK-trans-key "\C-c")
 
(define-key yc-mode-map (cond ((vectorp yc-rK-trans-key)
                               (vconcat [?\C-v] yc-rK-trans-key))
                              ((stringp yc-rK-trans-key)
                               (concat "\C-v" yc-rK-trans-key)))
  'yc-wclist-mode)
(define-key yc-input-mode-map (cond ((vectorp yc-rK-trans-key)
                                     (vconcat [?\C-v] yc-rK-trans-key))
                                    ((stringp yc-rK-trans-key)
                                     (concat "\C-v" yc-rK-trans-key)))
  'yc-wclist-mode)
 
(define-key yc-edit-mode-map "\C-g" 'yc-edit-cancel)
(define-key yc-edit-mode-map "\C-a" 'yc-edit-beginning-of-fence)
;(define-key yc-edit-mode-map "\C-e" 'yc-edit-end-of-fence)
(define-key yc-edit-mode-map "\C-e" nil)
;(define-key yc-edit-mode-map "\C-b" 'yc-edit-backward-char)
(define-key yc-edit-mode-map "\C-b" nil)
(define-key yc-edit-mode-map "\C-s" 'yc-edit-backward-char)
;(define-key yc-edit-mode-map "\C-f" 'yc-edit-forward-char)
(define-key yc-edit-mode-map "\C-d" 'yc-edit-forward-char)
(define-key yc-edit-mode-map "\C-f" 'yc-edit-end-of-fence)
(define-key yc-edit-mode-map "\C-h" 'yc-edit-backward-delete-char)
(define-key yc-edit-mode-map "\177" 'yc-edit-backward-delete-char)
(define-key yc-edit-mode-map [backspace] 'yc-edit-backward-delete-char)
;(define-key yc-edit-mode-map "\C-h" 'yc-edit-delete-char)
(define-key yc-edit-mode-map "\C-h" 'yc-edit-backward-delete-char)
;(define-key yc-edit-mode-map "\C-d" 'yc-edit-delete-char)
;(define-key yc-edit-mode-map "\C-g" 'yc-edit-delete-char)
(define-key yc-edit-mode-map " "    'yc-edit-henkan)
(define-key yc-edit-mode-map yc-rK-trans-key 'yc-edit-henkan)
(define-key yc-edit-mode-map "\C-m" 'yc-edit-kakutei)
(define-key yc-edit-mode-map "\C-k" 'yc-edit-kill-line)
;(define-key yc-edit-mode-map "\C-p" 'yc-edit-katakana)
(define-key yc-edit-mode-map "\C-p" nil)
;(define-key yc-edit-mode-map "\C-n" 'yc-edit-alphabet)
(define-key yc-edit-mode-map "\C-n" nil)
(define-key yc-edit-mode-map "\C-p" 'yc-edit-previous)
(define-key yc-edit-mode-map "\C-n" 'yc-edit-next)
(define-key yc-edit-mode-map [up] 'yc-edit-end-of-fence)
(define-key yc-edit-mode-map [down] 'yc-edit-beginning-of-fence)
(define-key yc-edit-mode-map [right] 'yc-edit-forward-char)
(define-key yc-edit-mode-map [left] 'yc-edit-backward-char)
 
(defun yc-edit-hiragana ()
  "読み編集中にひら仮名-漢字変換した後、ひらがな変換する"
  (interactive)
  (yc-edit-henkan)
  (yc-hiragana)
)
(define-key yc-edit-mode-map "\C-j" 'yc-edit-hiragana)
(defun yc-edit-katakana ()
  "読み編集中にひら仮名-漢字変換した後、カタカナ変換する"
  (interactive)
  (yc-edit-henkan)
  (yc-katakana)
)
(define-key yc-edit-mode-map "\C-k" 'yc-edit-katakana)
 
(define-key yc-henkan-mode-map "\C-m" 'yc-kakutei)
(define-key yc-henkan-mode-map "\C-g" 'yc-cancel)
(define-key yc-henkan-mode-map "\C-h" 'yc-cancel)
(define-key yc-henkan-mode-map "\C-n" 'yc-next)
(define-key yc-henkan-mode-map yc-rK-trans-key 'yc-next)
(define-key yc-henkan-mode-map " "    'yc-modeless-next)
(define-key yc-henkan-mode-map "\C-p" 'yc-previous)
;(define-key yc-henkan-mode-map "\C-f" 'yc-forward)
(define-key yc-henkan-mode-map "\C-f" nil)
(define-key yc-henkan-mode-map "\C-d" 'yc-forward)
;(define-key yc-henkan-mode-map "\C-b" 'yc-backward)
(define-key yc-henkan-mode-map "\C-b" nil)
(define-key yc-henkan-mode-map "\C-s" 'yc-backward)
(define-key yc-henkan-mode-map "\C-a" 'yc-beginning-of-fence)
;(define-key yc-henkan-mode-map "\C-e" 'yc-end-of-fence)
(define-key yc-henkan-mode-map "\C-e" nil)
(define-key yc-henkan-mode-map "\C-f" 'yc-end-of-fence)
;(define-key yc-henkan-mode-map "\C-i" 'yc-shrink)
(define-key yc-henkan-mode-map "\C-i" nil)
(define-key yc-henkan-mode-map "\C-q" 'yc-shrink)
(define-key yc-henkan-mode-map "\C-x" 'yc-shrink)
;(define-key yc-henkan-mode-map "\C-o" 'yc-enlarge)
(define-key yc-henkan-mode-map "\C-o" nil)
(define-key yc-henkan-mode-map "\C-w" 'yc-enlarge)
(define-key yc-henkan-mode-map "\C-e" 'yc-enlarge)
(define-key yc-henkan-mode-map "\C-t" 'yc-kakutei-and-touroku)
(define-key yc-henkan-mode-map "\177" 'yc-hiragana)
(define-key yc-henkan-mode-map [backspace] 'yc-hiragana)
;(define-key yc-henkan-mode-map "\C-h" 'yc-hiragana)
(define-key yc-henkan-mode-map "\C-j" 'yc-hiragana)
(define-key yc-henkan-mode-map "\C-u" 'yc-alphabet2)
(define-key yc-henkan-mode-map "\C-l" 'yc-alphabet)
(define-key yc-henkan-mode-map "\C-k" 'yc-katakana)
(define-key yc-henkan-mode-map [up] 'yc-previous)
(define-key yc-henkan-mode-map [down] 'yc-next)
(define-key yc-henkan-mode-map [right] 'yc-forward)
(define-key yc-henkan-mode-map [left] 'yc-backward)

既に定義済のプリフィックスキーを解除するには nil を割り当てれば良い、と判るまで時間が掛かりました。
C-j を C-c に置き換えるのは、究極的には本体のソースに手を入れないといけないっぽいので、ちょっと考えちぅ。

_ む?

2ウィークアキュビューのCMに出てる子、村川絵梨じゃね?
しっかし、村川絵梨でぐぐると、オフィシャルを抑えてトップに出て来るサイトが(ry

_ 録画してあるものを観る

土曜の朝の学芸会は、まこちゃん@安座間美優ちゃそスペシャル。
頑張ってるのは認めるけど、まだイマイチ。
それよりも、スコーンと役に入って不敵な笑みを浮かべる亜美ちゃん@千咲ちゃそが見事。
「逃げても…無駄よ」の迫力は正直圧倒されたっす。
うさ@沢井美優ちゃそと浜千咲ちゃそは、番組開始当初と比べてぐんぐん良くなってる。

ぐらんせいざ。
ちすんちゃその病院シーンがエロい。(笑)