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

○ 金曜日

これとかこれ。SL-C760がもうちょっと薄ければなぁ。X31 もいいなぁ。T20 がそろそろ壊れそうだし。

○ 土曜日

これ。140万人も集まるところで、2時間遅刻した大場君夫婦とよく会えたもんだよなぁ、PHS は偉大だ。

○ 日曜日

15:00 から野球の練習があったのだけど、お昼寝をしていて起きられなかった。あとから電話があってスポーツ用品店でのユニフォームの採寸と、その後の部室での打上げだけ参加。3連ちゃんは、ちょっと辛い。。。

○ 履歴マニア in Emacs その一

ふと、emacs-w3m の w3m-input-url-history は session.el の配下においてはダメなことに気付く。

<<....>>
(require 'session)
<<....>>
(nconc session-globals-exclude '(w3m-input-url-history))
<<....>>
(add-hook 'after-init-hook 'session-initialize)

な感じ。他にもこういう変数があるような気がする。

○ 履歴マニア in Emacs その二

session.el + minibuf-isearch.el で minibuffer を使うものの履歴は大体 OK なのだが、resentf.el が管理している list の制御がとてもきめ細かいので、そいつを file-name-history でも同時に使いたくなった。まだまだ改善の余地があると思うけど、とりあえず、

(defun my-minibuffer-setup-function ()
  (let ((case-fold-search nil)
	(home (concat "^" (regexp-quote (expand-file-name "~/"))))
	(hist (symbol-value minibuffer-history-variable))
	elt lst rl rlst)
    (when (and (boundp 'recentf-list)
	       (eq 'file-name-history minibuffer-history-variable))
      (setq rl (copy-sequence recentf-list))
      (while rl
	(if (string-match home (car rl))
	    (setq rlst (cons (concat "~/" (substring (car rl) (match-end 0)))
			     rlst))
	  (setq rlst (cons (car rl) rlst)))
	(setq rl (cdr rl)))
      (setq hist (append hist (nreverse rlst))))
    (let ((tmp hist))
      (while tmp (setq tmp (setcdr tmp (delete (car tmp) (cdr tmp))))))
    (set minibuffer-history-variable hist)))
 
(add-hook 'minibuffer-setup-hook 'my-minibuffer-setup-function)

ついでに history の list を uniq している。(これ毎回やるのはちょっと何なんだよな)