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

○ というわけで、

今年もよろしくお願いします。> 関係各位

○ 特に

大場君、新年早々ありがとう。

これぐらいは、自分で治すように ssh できるようにしてもらったほうがよいかな？

○ うー

あしたから仕事ジャン ;_;。こんなに出社したくない正月あけもはじめてかも。

しかし、年末年始で結構太ってしまったよ。

○ Mew4

mew-shimbun.el の(おそらく)対応終了。その他のものも commit したり ML に出したり。

○ X31

のトラックポイントのキャップがそろそろ変えたほうがよいかな？という状態になってきた。当然、ずーとクラシックドームを愛用しているのだが、新品の手持ちは後ひとつ。ものは試しに X31 についていたソフトドーム, ソフトリムを試用中。ソフトドームの方がリムドームよりいいかな？だけど、クラシックの方がよいなぁ。と思ったけどリムドームもよいかも。結局、慣れのような気がするが、どれを使ってもタッチパッドよりは 100倍ましなのは間違いない。

○ うるうる ;_;

初日からめちゃくちゃ忙しい。けど、早く帰ろう。。。

○ キャップ

昨日から、ソフトリム使用中。一日使ったら違和感が無くなった。

○ うるうる ;_;

やっぱり早くは帰れなかった。けど、もう寝る。。。

○ はぁ

疲れた。あまりに疲れるので、久しぶりに mew-dist にたくさん書いてみたりした。kit 君に指摘された 2003年問題も直したし。

久しぶりに 'C' を書いているのだけど、(sizeof)HOGE と書いて違和感を感じて 15秒後に sizeof(HOGE)と書き直したほどめちゃくちゃだよ。ほとんど(((病気)))だな。

○ 結局

カメラも時計も説明書なんぞなくても OK なのが一番さ。ばぁちゃんに買ってあげた電波時計式の目覚ましなんか説明書無くしちゃってアラームの鳴らし方がわかんないモンネ ^^;;;

僕の腕時計はめちゃくちゃシンプルな機械式だけど、一日に 15秒進むのは辛い。オーバホール頼もうかなと何年も前から思っているのだが、5万円程度かかるらしいので躊躇している。めんどくさいからうっぱらってカメラにしてしまおうと何度も思ったのだけど、父親の遺品なのであまりぞんざいに扱えないのだ。

○ ダブルアタック！！

朝っぱらからこれでだめだから、めちゃこみのバスで JR に行ったら、そっちもこれでめちゃめちゃこみ。うー、風邪でフラフラしているのに ;_;

○ C-n, C-p

しているだけなのに行頭にカーソルが動くのはやっぱりいやだぞ。

○ invisible + after|before-string

ぼくの summary の body 表示は標準的な方法ではないので、今の Mew 4 の refile 先表示は使えない。けど、悔しい。というわけで、気分転換をしたいときに作っているのだが、いろいろな Emacs 間での挙動の違いに悩む。一番まっとうなのは Emacs20、次が結構変だが Emacs21、XEmacs-21.4 はもっと変だ。

と思ったのだが、Emacs20 も変だ。やっぱ overlay じゃないほうが素直だなぁ。。。

○ 三連休

なのだがうちで結構働いている。が、進捗しない。

○ 土曜日

葛西のイトーヨーカ堂で買い物したりした。ヨドバシカメラからデジカメの退院の連絡があったけど、もうひとつ頼んでいるものがそろったら取りに行こう。

○ 野球

日曜日に初練習。軽くやって、あまりに寒いので "コーヒ飲もうね" って入ったサイゼリヤ篠崎店なのに、1500ml入りイタリアワインを白赤合わせて 5本飲んでしまったよ。昔はサイゼリヤって千葉と東京東部にしかなかったけど、今はすごいたくさんあるよな。

○ *Mew refile view* buffer

ダイレクトメールで "*Mew refile view* buffer" に色がつかないとの指摘あり。とりあえず積極的に色をつけるようにして、パッチをその方に送った。Mew-dist にパッチを送るかどうか考え中。

○ Yet another mew-summary-overricde-body

できたのだが、もう少し熟成期間が必要か。水戸さんの同等のもの[Mew-dist 3031] refileと効果は同じだけど。

;; fancy-refile-body
(defvar mew-override-fancy-setup nil)
;; (setq mew-summary-form-body-starter nil)
 
(defvar mew-override-fancy-body-open "<")
(defvar mew-override-fancy-body-prefix1 ?\ )
(defvar mew-override-fancy-body-prefix2 ?.)
(defvar mew-override-fancy-body-close ">")
(defvar mew-override-fancy-body-regex0 nil)
(defvar mew-override-fancy-body-regex1 nil)
(defvar mew-override-fancy-body-regex2 nil)
 
(setq mew-override-fancy-body-regex0
      (concat (regexp-quote mew-override-fancy-body-open)
	      "[^" (regexp-quote mew-override-fancy-body-open) "]+"
	      (regexp-quote mew-override-fancy-body-close)))
 
(setq mew-override-fancy-body-regex1
      (concat (regexp-quote (string mew-override-fancy-body-prefix2))
	      (regexp-quote (string mew-override-fancy-body-prefix1)) "+"
	      "\\(" mew-override-fancy-body-regex0 "\\)"))
 
(setq mew-override-fancy-body-regex2
      (concat "^[^\r]+"
	      "\\(" (regexp-quote (string mew-override-fancy-body-prefix2))
	      (regexp-quote (string mew-override-fancy-body-prefix1)) "+"
	      mew-override-fancy-body-regex0 "\\)\r"))
 
(defface mew-face-fancy-body nil
  "*Face to highlight the fancy body"
  :group 'mew-highlight)
 
(mew-face-spec-set
 'mew-face-fancy-body
 '((((class color) (type tty)) (:foreground "blue"))
   (((class color) (background light)) (:foreground "medium blue"))
   (((class color) (background dark))  (:foreground "dodger blue"))
   (t (:underline t))))
 
;; (mew-face-spec-set
;;  'mew-face-fancy-body
;;  '((((class color) (type tty)) (:foreground "green"))
;;    (((class color) (background light)) (:foreground "green yellow"))
;;    (((class color) (background dark))  (:foreground "LimeGreen"))
;;    (t (:underline t))))
 
(unless mew-override-fancy-setup
  (setq mew-override-fancy-setup t)
  (defalias 'mew-summary-refile-override-body 'mew-summary-refile-override-fancy-body)
  (defalias 'mew-summary-refile-remove-body 'mew-summary-refile-remove-fancy-body)
  (if mew-xemacs-p
      (progn
	(defalias 'mew-line-beginning-position 'point-at-bol)
	(defalias 'mew-line-end-position 'point-at-eol))
    (defalias 'mew-line-beginning-position 'line-beginning-position)
    (defalias 'mew-line-end-position 'line-end-position)))
 
(add-hook 'mew-thread-display-hook 'mew-thread-refile-override-fancy-body)
 
(defun mew-summary-refile-override-fancy-body (folders-str)
  (save-excursion
    (let* ((flds (concat (make-string 2 mew-override-fancy-body-prefix1)
			 mew-override-fancy-body-open
			 folders-str
			 mew-override-fancy-body-close))
	   (fldsw (string-width flds))
	   invs invsw beg end)
      (mew-summary-refile-remove-fancy-body)
      (while (> fldsw (/ (mew-scan-width) 3))
	(setq flds (concat (make-string 2 mew-override-fancy-body-prefix1)
			   mew-override-fancy-body-open
			   (setq folders-str
				 (substring folders-str
					    0 (* 2 (/ (string-width folders-str) 3))))
			   "..."
			   mew-override-fancy-body-close))
	(setq fldsw (string-width flds)))
      (beginning-of-line)
      (if (search-forward "\r" (mew-line-end-position) t)
	  (setq end (match-beginning 0))
	(setq end (mew-line-end-position)))
      (setq beg end)
      (goto-char beg)
      (while (> fldsw
		(setq invsw (string-width (setq invs (mew-buffer-substring beg end)))))
	(forward-char -1)
	(setq beg (point)))
      (when (< fldsw invsw)
	(setq flds (concat (make-string (- invsw fldsw) mew-override-fancy-body-prefix1)
			   flds)))
      (setq flds (concat (string mew-override-fancy-body-prefix2)
			 (substring flds 1)))
      (goto-char end)
      (mew-elet
       (if mew-xemacs-p
	   (let ((pos (point)))
	     (insert flds)
	     (set-text-properties pos (point) nil))
	 (insert-and-inherit flds))
       (put-text-property beg end 'invisible t)
       (goto-char end)
       (when (looking-at mew-override-fancy-body-regex1)
	 (setq ovl (mew-overlay-make (match-beginning 1) (match-end 1)))
	 (overlay-put ovl 'face 'mew-face-fancy-body)
	 (overlay-put ovl 'evaporate t))))))
 
(defun mew-summary-refile-remove-fancy-body ()
  (save-excursion
    (beginning-of-line)
    (when (looking-at mew-override-fancy-body-regex2)
      (let ((end (match-beginning 1))
	    beg)
	(mew-elet
	 (delete-region end (match-end 1))
	 (when (and (get-text-property end 'invisible)
		    (setq beg (previous-single-property-change
				end 'invisible nil (mew-line-beginning-position)))
		    (not (eq beg (mew-line-beginning-position))))
	   (remove-text-properties beg end '(invisible nil))))))))
 
(defun mew-thread-refile-override-fancy-body ()
  (let ((ofld (mew-thread-to-folder (mew-summary-folder-name 'ext)))
	refalst msg flds)
    (save-excursion
      (when (get-buffer ofld)
	(save-excursion
	  (set-buffer ofld)
	  (setq refalst (mew-sinfo-get-refile)))
	(while refalst
	  (setq msg (car (car refalst)))
	  (setq flds (mapconcat 'identity (cdr (car refalst)) ","))
	  (goto-char (point-min))
	  (when (re-search-forward (mew-regex-sumsyn-msg msg) nil t)
	    (mew-summary-refile-override-fancy-body flds))
 	  (setq refalst (cdr refalst)))))))

○ line-beginning-position(), line-end-position()

あぁ、これは XEmacs には無いんだと思い出す。 point-at-bol(), point-at-eol() って、もう何年も書いたこと無かった。

○ プリンプリン物語

あら、やっているのね。今子供が見ている。リアルタイムではさすがにもう見る年齢じゃなかったけど、ちょっと懐かしいな。

個人的には、五人と一匹探偵団、七瀬さんシリーズ、タイムトラベラー、オヨヨ大統領などの少年ドラマシリーズ(で良いんだよな？)が見たいし、子供に見せたい。

○ 出張デバッグ

で北関東の某所へ。朝から寒かったけど、帰りは吹雪(大げさ？)いていた。終バスの３分前にバス停に行ったら、もう行っちゃった後らしくて、しょうがないからタクシを電話で呼んだ。バス停でタクシが来るのを待つ１０分間の寒かったこと、寒かったこと。

○ 昔のテープ

ってないものが多いらしいですね。残念。

○ やせいのかん

日本語のページから野生の勘を検索しました。     約4,290件中1 - 10件目
日本語のページから野生の感を検索しました。     約1,330件中1 - 10件目
日本語のページから野性の勘を検索しました。       約650件中1 - 10件目
日本語のページから野性の感を検索しました。       約167件中1 - 10件目

個人的には『野性の勘』だと思うのだけど、辞書には載っていないな。

○ 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 の方が速いとか。

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

○ エースをねらえ

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

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

○ Virus だめだめ

こいつのせいで社外への/からの転送が止められてしまった。某工場は全滅状態だそうだ。これは namazu.org から出してみたが、やっぱり手元に帰ってこない。かずさんのメールも来ないしね。(18:00 現在、web で見えているかずさんのお返事はまだ手元に来ない)

○ いかん

社内から "Subject: Hi" "Content-Type: application/x-msdownload;" なメールが送って来たときに ISP に転送しないように ~/.procmailrc 書き換えて実験。。。いかん、正規表現間違えて送っちゃった。その筋からチェックが入りそう。。。

○ 高林哲の『検索技術論』

図書室で日経バイトをコピーして、やっと読んだ。Emacs のことを書いていらっしゃるが「おぉ、これは素晴らしい」と手を出す日経おじさんがいると面白いかも。

○ 無駄足＆再々入院

もうひとつ頼んでいたのは、納期も未定とのことなので、あきらめて昨日デジカメを取りに行った。一度失敗しているので、ちょっと店舗を離れたところで袋を開けて修理明細をみたらこのときと同じことしかやってないじゃん。いゃ〜〜な予感がしたので、一度ヨドバシに戻って電池を買って試したところ、やっぱりぜんぜんなおってない :-<。そのまま、デジカメ売り場に行って、売り場のにいちゃんに症状を確認させて、そのまま再々入院。ちょっとだけ頭にきたので電池は返品して返金してもらった。
やっぱ電池つかわないと動かないカメラはだめだわ。

○ あまりに

疲れたので、今日は早く帰ってきた。

○ mew-fancy-refile

mew-dist に出してみた。

○ LDAP

知っている人は知っていると思うが、うちの会社（というか親会社）の LDAP server はひどいものである。どんなにひどいかは内緒だが、今週たまたま見た資料によると「氏名を全角カタカナ」で検索するのを推奨しているようだ。

じゃぁってんで、「モエ　パンダ」を UTF-8 に符号化して手打ちでいろいろ試してみてもうまくいかない。正解が全然わからなかったので、やっとRFC2254を見たところ、送るほうは Base64 しないのね。どうやって、Base64 した文字列かどうか判定しているのか不思議だったんだわ。(ばかだから (cn:=xxxx) とかも試してしまった)

○ ローマ字 => カタカナ

したい。昔もできそうでできなかったんだけど、最近、どこかで聞いたことあるなぁと思ったら、おぉ灯台下暗し状態だわな。

(defun encode-ldap-utf8 (string)
  (let* ((utf8 (encode-coding-string string 'utf-8))
	 (len (length utf8))
	 (i 0)
	 ret)
    (while (< i len)
      (setq ret (concat ret (format "\\%02x" (aref utf8 i))))
      (setq i (1+ i)))
    ret))
 
(defun mew-ldap-custom-utf8 (str)
  (let ((strs (split-string str "\\."))
	kanas kana)
    (setq kana (mapconcat (lambda (x)
			    (japanese-katakana
			     (suikyo-convert-romaji-kana x)))
			  strs (japanese-zenkaku " ")))
    (when (string-match "\\.$" str)
      (concat kana (japanese-zenkaku " ")))
    (list (encode-ldap-utf8 kana))))
 
(mew-ldap-custom-utf8 "moe.panda")
=> ("\\e3\\83\\a2\\e3\\82\\a8\\e3\\80\\80\\e3\\83\\91\\e3\\83\\b3\\e3\\83\\80")

○ なんだか

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

○ 新年会

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

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

○ 監督

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

○ ねたー

午前中の子ども会の映画鑑賞会も午後の野球の練習もやらないとまずい仕事もすべてすっぽかして、ただひたすら寝た。こんなに寝たのすごい久しぶりなんだけど、すでにもう眠いので寝る。やっぱ、そうとう疲れがたまっているのだろう (21:30)。

○ 水鏡

小松君が教えてくれた。よく見たら更新履歴に『空白による入力区切りの追加』と書いてあったよ。

(suikyo-convert-romaji-kana "shin")  => "しn"
(suikyo-convert-romaji-kana "shin ") => "しん"
(suikyo-convert-kana-romaji "しんいち")  => "sin'iち"
(suikyo-convert-kana-romaji "しんいち ") => "sin'iti"
(suikyo-convert-romaji-kana "shin ichi") => "しんいち"

○ ローマ字入力

POBOX を使い出したときも思ったのだけど、訓令式でもヘボン式でもない昔からの変な癖を直して素直な入力にしたいな、とまた思った。おそらく訓令式にするのがいいと思うのだけど、「shi」だけは譲れないなぁ。

○ ねむー

午前中に会社を出て、北関東のうちの工場まで線表の打ち合わせに行った。17時過ぎに終わって、なんだかんだで自宅には 20時帰着。日ごろこんなに早い時間に帰ってくることはないので、これは、あれもこれもたくさんできるぜ、と喜んでいたのだが、食事後すぐ 21時には寝てました。二日連続たくさん寝たので相当良いかも。

○ ストラップ

そういえば、土曜日にアサヒカメラを買いに本屋さんに行ったとき、発作的に BSD Magagin を買ってしまったのだった。ぼくの派手なオレンジの HV210 によくあう、真っ赤なデーモン君ストラップだったぜ。しかし、2500円のストラップは高いな。

○ お弁当を食べるかえる

っていいかも :-)

○ うちの会社向け mew-ldap.el

水鏡を組み合わせたら、それなりに満足できるものができた。完璧に汚いソースだけど、もし、うちの会社関連のグループの人で使ってみたい人がいたらメール下さいませ。

○ test

気にしちゃだめ

○ 実験おやじ

げんじつとーひのため久しぶりに実験おやじになってしまった。しかし、process-filter でエラーを起こすと大変だわさ。[mew-win32: 04012] で出てくるのはいつかな。で、再度のげんじつとーひのために日記でも書いてみる。

○ 読了

通勤時間に読んでいた、ラプソディ -血脈の子-、プロフェシイ -大地の子-、デスティニィ -大空の子-の三部作(計六冊、しかも分厚い)読了。いわゆるファンタジーを読んだのはめちゃくちゃ久しぶりだったけど、なかなか面白かった。ラプソディちゃんってば、とっても素敵。

作者さんのページを見ると、これは続編かしら？

○ 素敵

他にここ数年で読んだ小説の中で素敵だった女性はパプリカちゃん、ネロこと野沢レイさんだな。おそらく、レイさんは次回作ではなぎなたを持って暴れてくれるであろう。だけど、いっつも同じ青色のワンピースなんだよなぁ、レイさんってば。

○ 来週も

ぼろぼろだよ ;_;

○ デジカメ

三度目の正直で復活。今度は画像制御ボードの交換。直るまで2ヶ月以上かかってしまった。そういえば充電器はまだ見つからない。。。

○ 充電器捜索

おそらくピアノの後ろに落ちているだろう。だけど、人間の目では覗き込めないので、デジカメで捜索。パシャ、パシャ、パシャ

○ あ、あの青っぽいのは！！

○ まさしくサンヨーの充電器

○ ううう、動かないぃ

○ じゃ、細い棒で先端をトリモチ状態にして

○ おぉ、動いた！！

で、この後、宙ぶらりんの状態からなんとか下に落として、充電器も復活。買わないでおいてよかったよ。ちなみに、全部の工程で３０分ほどかかりましたわ。

○ 本購入

ヨドバシカメラにデジカメを取りにいったついでに、［改訂第3版］LaTeX2e美文書作成入門と、暗号技術入門――秘密の国のアリス購入。