猫熊は燃えつきた？！日記

○ minibuffer を migemo する

今日、[mew-dist: 24395]のパッチを出したあと、ふと思って残業モードに入る前に気分転換で作ってみた。Mew の summary の "mr", "tr" ぐらいでしか使い道が無いような気がするが、minibuffer 拡張シリーズということで。。。
minibuffer でなにかを入力中に "M-C-m" とするとその内容を migemo する。連続して "M-C-m" すると元に戻す。XEmacs だと minibuffer-exit-hook が走った後に history を追加しているために history がぼろぼろになるので、使わない方が良いと思う。見直す気はしないけど、なんだが処理が冗長だね、こりゃ。

(defvar minibuf-expand-migemo-original nil)
(defvar minibuf-expand-migemo-migemo nil)
 
(defun minibuf-expand-migemo ()
  (interactive)
  (when (featurep 'migemo)
    (remove-hook 'minibuffer-exit-hook 'minibuf-expand-migemo-delete-history)
    (let* ((again (eq last-command this-command))
	   (beg (if (fboundp 'field-beginning) (field-beginning) (point-min)))
	   (end (if (fboundp 'field-end) (field-end) (point-max)))
	   (string (buffer-substring-no-properties beg end)))
      (if (and again minibuf-expand-migemo-original)
	  (setq string minibuf-expand-migemo-original
		minibuf-expand-migemo-original nil)
	(setq minibuf-expand-migemo-original string)
	(setq string (migemo-get-pattern string))
	(setq minibuf-expand-migemo-migemo string)
	(add-hook 'minibuffer-exit-hook 'minibuf-expand-migemo-delete-history))
      (delete-region beg end)
      (insert string))))
 
(defun minibuf-expand-migemo-setup ()
  (when (featurep 'migemo)
    (setq minibuf-expand-migemo-original nil)
    (setq minibuf-expand-migemo-migemo nil)
    (remove-hook 'minibuffer-exit-hook 'minibuf-expand-migemo-delete-history)))
  
(defun minibuf-expand-migemo-delete-history ()
  (when (and minibuf-expand-migemo-migemo
	     (string= minibuf-expand-migemo-migemo
		      (car (symbol-value minibuffer-history-variable))))
    (set minibuffer-history-variable
	 (cdr (symbol-value minibuffer-history-variable)))
    (when minibuf-expand-migemo-original
      (set minibuffer-history-variable
	   (cons minibuf-expand-migemo-original
		 (symbol-value minibuffer-history-variable)))))
  (minibuf-expand-migemo-setup))
 
(unless (featurep 'xemacs)
  (add-hook 'minibuffer-setup-hook 'minibuf-expand-migemo-setup)
  
  (mapcar (lambda (map)
	    (define-key map "\M-\C-m" 'minibuf-expand-migemo))
	  (delq nil (list (and (boundp 'minibuffer-local-map)
			       minibuffer-local-map)
			  (and (boundp 'minibuffer-local-ns-map)
			       minibuffer-local-ns-map)
			  (and (boundp 'minibuffer-local-completion-map)
			       minibuffer-local-completion-map)
			  (and (boundp 'minibuffer-local-must-match-map)
			       minibuffer-local-must-match-map)))))

○ どっかーん

本業のリリースは失敗するし、不用意に書いたメールで叱られるし。。。

○ 業務連絡 ^^;

ここいらへんにある、"goas.no-ip.org" を "ko.meadowy.net" に書き換えていただけるとうれしいです、松下さん。

○ あら、まぁ

半ば無責任にこんなことを書いたのだけど、ここまでとは。。。うーーむ。

山岡さんも書かれているけど、今の Emacs-21.3.50 より XEmacs-21.4.1x の方が軽くてよい面もあるのだよな。たとえば、Mew の local の scan は 3〜4倍 XEmacs の方が速いとか。

だけど、「アムロ終わってる」「アムロ行けてねー」ってなんのことだろう？「アムロ行きまーーす」ならしっているが。

○ エースをねらえ

単行本は知り合いが持っていったので全部読んだことがあるけど、アニメは見たことないなぁ。主題歌を思い出そうとすると『苦しくったって〜〜悲しくたって〜〜』と違うスポーツになってしまう。

お蝶夫人もそうだけど、ここを見ての感想は、藤堂さんのイメージが違いすぎること。宗像コーチと緑川蘭子はなかなかよいかも。