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

○ 昨日の Mew

(setq mew-secure-format
      (concat " "
	      (with-temp-buffer
		(bitmap-insert-xbm-file "どこかの xbm")
		(goto-char (point-min))
		(buffer-substring (point) (line-end-position)))))

○ ここ半年悩んでいた Mew

突然ここ半年悩んでいた現象の原因がわかってしまった。\(^^)/

Mew で 'i' したあと、なんか process 回りがおかしくなるなぁ、けど、mew-nmz-mknmz がなんか失敗しているのかなぁ、けど、なんで同じノートパソコンを持ち歩いているのに会社だとほとんど起きないで自宅の環境だとしょっちゅう起きるんだろう？ ほとんど同じ使い方なのになぁ。。。と、ず〜〜〜と悩んでいたんだけど、mew-ssh-keep-connection が会社では t で自宅だと nil だったのがその挙動の差だった自宅だと、'i' する度に ssh の process を exit していて、会社では ssh の process をキープするようになっていた。

で、Meadow は PTY(process-connection-type => non-nil) かつ start-process を buffer 指定なしで動かすと、その process の sentinel が発生したときに、そいつが特定のプログラム(mozilla もなるなぁ)だとなにかしら変になることが多いのであった。そして、それ以降の start-process で特定のプログラム(mewls は大丈夫だけど、migemo, w3m, sdic はだめとか)は全滅になるのであった。

mew-ssh.el を変更して、きちんと process と buffer を結び付けるようにして今日１日試したところ、耐久試験をしていたときに一回おかしくなっただけであとは全然大丈夫。もう数日試して OK だったらパッチを投げよう。

○ 一升瓶

数週間前に買ってきた一升瓶(当然中身は日本酒)を、ビールが無かったので飲もうと思ったらほとんど空であった。やるなぁ〜、我が女房。

○ なんだか

どたばたどたばたと一日中あっち行ったり、こっち行ったり。

○ 新年会

19:00-21:00 はちょっと堅苦しいところに参加していたので、その反動で 21:00 以降は野球の仲間６人で 0:30 ぐらいまで庄屋で焼酎。最後に食べた屋台のラーメンがおいしかったぁ。

どんなにおいしい(といわれている)ラーメン屋さんのラーメンより、飲んだ後の普通の屋台の普通の醤油ラーメンがおいしいなと感じるのは酒飲み共通の認識だと思う。

○ 監督

は Nemacs, Mule と使っていた/いるそうだ。Meadow のことは知らなかった。

○ 雪の中のダン

○ ac-mode

この前のEmacs ユーザーの方に質問です。これは便利!(以下略)で ac-mode を使いはじめてみた。従来からインストールはしてあったのだけど、全然使ったことなかった。さすがに、C-i が取られちゃうと、indent が大変なので、key bind を変えたりしていたら、一個バグを見付けてしまった。

一ヶ所だけある meassage() に "%任意の文字" が渡るとエラーになる。適当に princ() にしてしまったのよ。

もう一点、日本語の後にすぐ ascii がつながっているときの ac-dabbrev-completion() はちょっとだめだな。あとで、考えてみよう。

○ もう一丁 ac-mode

(defun url-complete ()
  (interactive)
  (save-excursion
    (let ((begin (point))
	  (buf (get-buffer url-complete--buffer))
	  (url-regexp (concat "[" ac-mode-url-char "]+"))
	  match-url match-region comp w3m)
      (when (and (< (skip-chars-backward ac-mode-url-char) 0)
		 (or (looking-at "https?:")
		     (looking-at "ftp:"))
		 (file-exists-p ac-mode-url-file))
	(re-search-forward url-regexp begin t)
	(setq match-url (match-string 0))
	(setq match-data
	      (list (match-string 0) (match-beginning 0) (match-end 0)
		    (ac-point-at-eow url-regexp)))
	(set-buffer url-complete--buffer)
	(erase-buffer)
	(call-process "look" nil url-complete--buffer nil match-url
		      (expand-file-name ac-mode-url-file))
	(and (or (featurep 'w3m) (require 'w3m))
	     (boundp 'w3m-input-url-history)
	     (not w3m-input-url-history)
	     (w3m-arrived-setup))
	(setq w3m (boundp 'w3m-input-url-history))
	(let* ((line1 (progn (goto-char (point-min))
			     (when (re-search-forward "^.+$" nil t)
			       (list (match-string 0)))))
	       (line2 (progn (goto-char (point-max))
			     (when (re-search-backward "^.+$" nil t)
			       (list (match-string 0)))))
	       (comp (when (and line1 line2)
		       (try-completion match-url (list line1 line2))))
	       (w3mcomp (when w3m
			  (try-completion match-url w3m-input-url-history)))
	       (w3mall (when w3m
			 (all-completions match-url w3m-input-url-history nil 'nospace))))
	  (cond ((and (stringp comp) (string-lessp match-url comp))
		 (list match-data comp))
		((and (stringp w3mcomp) (string-lessp match-url w3mcomp))
		 (list match-data w3mcomp))
		(t
		 (cons match-data (nconc (split-string (buffer-string))
					 w3mall)))))))))

○ いろんな complete

現在使っている complete 関係の関数と key bind は

• M-C-i => 普通？の complete
• M-/ => dabbrev-expand
• C-x9i => hippie-expand
• M-] => ac-complete
• M-' => migemo-dabbrev-expand

とあいなりました。他にもあるかも。普段は最初の三つぐらいしか使わないような気がするけど、url-complete() 改造版は結構便利かもです。