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

○ ネットワークにおける匿名の是非

某雑談系の ML における himiさんの投稿を読んで思い出したんだけど、数週間前の読売新聞(新聞 *紙* で読んだので URL はわからん)で、「最近、web日記が流行ってきている。そのうちの 70%ぐらいは匿名で書いている」という記事があった。

もともとぼくはネットワークだろうが、実世界だろうが匿名なんていやなので、自分の名前や連絡先は書くようにしているんだよなぁ。。。とか思ったんだけど、よくよく見たら、この日記って完璧に『匿名』じゃん ^^;;;

というわけで、あとで付け加えておこう。

○ Look for Palm 再び

前回、Look専用で POBox を復活させてみたのだけど、やっぱり、Wnn for Palm と両方使うのはしんどいので、いろいろと探していたら、増井さんの ASearch というのを見つけた。おぉ、と思って導入したところなかなか良い。
ただし、どうも辞書がぼくと合わないのでソースの Makefile を見たら、edic2bin というコマンドに words file を喰わせれば自分で辞書が作れる様だ。で、edic2bin ってどこ？と、またまた探した(ソース一式には入っていなかった)ところ、増井さんの Unix Magazion 1998年2月号 Pilotの動的曖昧検索FEP 内で発見。この前、stemming したものを喰わせて自分の辞書が出来た :-)

○ 銀行の手数料

今、6chの News23 をみていたら、銀行が手数料をあげている、という話をしていた。

この前、AM/PM の SMBC(?) で土曜日の午前中にお金を下ろしたときに手数料を取られて、あれ？と思った後、横の張り紙をみて『なんなんだぁ、ばかやろう』と思いましたとさ。しかも、その前に SMBC から郵政省メールを使って『あなたの6ヶ月間のほんのわずかな積立て貯金は xx,xxx円になりました。なお、利子は 0円です』とかきて、お手紙いらないから、その分利子に入れてくださいよとか感じた後だったのでなおさら怒りがふつふつと。。。

しかし、News23 でやっていた東京三菱の両替機で両替すると手数料を取られるのは、なんだかネタとしか思えないぐらいの話だ。

○ わかしお銀行 vs 三井住友銀行

ついでに銀行ネタ。この前、古くからの友人で SMBC(元住友)の奴(ぶっちょーだいりだけど別にこいつが悪いわけではないが)と飲んだときに『あのぉ、うちの会社はちゃんと大きな方を存続会社にして、小さなうちの会社はきゅーしゅーがっぺいされたんですけどぉ、銀行ってああいうのでいいんですかぁ？』と聞いたら、もう勘弁してくださいと苦笑いしていた。ま、ぼくの取り引き銀行は、もともと三井銀行で、かつ、ごく近所にわかしお銀行があるから便利になるのは便利になるんだけどね。(だけど土曜日に引き落としできないじゃん)

○ ひな祭り

いかん、まだ、雛人形が出ている ^^;;;

○ もうすぐは〜〜〜るですねぇえ

数日前(日曜日？)に春一番が吹いたらしいが、今日はとっても寒い。とりあえず年中行事なので 春一番 を歌っておいた。

○ おめでとー

けど、後藤さんのことは(ほとんど)酔っぱらったところしか見ていないから、運転している姿が想像出来ない。お互い様の様な気がするが、ぼくは himi さんを最寄り駅から自宅まで車で連れてったもんね :-)

○ sendmail version up

問答無用で、やれ！！とお達しが出たので完了。最近、全然ご無沙汰でインストールとセットアップの手法が結構変わっていて疲れた。

がーん、ぼく以外の人が社外に送れなくなってしまった。。。。

...1時間経過... 結局、relay-domains の書き方を間違っていましたとさ(あぁ、つかれた)

○ sendmail その後

うちの本社(九州)からのメールを全部はじいているとのこと。syslog 見てみたら、domain の DNS をひけないで終わっている。どうしようもないので、

FEATURE(`accept_unresolvable_domains')dnl

FEATURE(`accept_unqualified_senders')dnl

で対応。よくよく syslog をみたら、結構 spam 系のメールを DNS 引けないではじいていたようだ。

○ ドッチボール大会

昨日、地元の大ドッチボール大会に参加したのだが、ドッチボールぐらいで全身筋肉痛になるのは、ちょっとなさけないかも。

○ migemo-dabbrev-expand

小関さんのリクエストで、migemo-dabbrev-expand() がある程度ちゃんと動くように作ってみた。(元祖)光る dabbrev 機能付き。

(defvar migemo-dabbrev-pattern nil)
(defvar migemo-dabbrev-start-point nil)
(defvar migemo-dabbrev-search-point nil)
(defvar migemo-dabbrev-pre-patterns nil)
(defvar migemo-dabbrev-ol nil)
(defvar migemo-dabbrev-ol-face 'highlight)
 
(defun migemo-dabbrev-expand-done ()
  (remove-hook 'pre-command-hook 'migemo-dabbrev-expand-done)
  (when migemo-dabbrev-ol
    (delete-overlay migemo-dabbrev-ol)))
 
(defun migemo-dabbrev-expand ()
  (interactive)
  (let ((end-pos (point))
	matched-start matched-string)
    (if (eq last-command this-command)
	(goto-char migemo-dabbrev-search-point)
      (goto-char (- end-pos 1))
      (if (re-search-backward "[^a-z-]" (line-beginning-position) t)
	  (forward-char 1)
	(beginning-of-line))
      (setq migemo-dabbrev-start-point (point))
      (setq migemo-dabbrev-search-point (point))
      (setq migemo-dabbrev-pattern
	    (buffer-substring-no-properties (point) end-pos))
      (setq migemo-dabbrev-pre-patterns nil))
    (if (catch 'found
	  (while (if (> migemo-dabbrev-search-point migemo-dabbrev-start-point)
		     (and (migemo-forward migemo-dabbrev-pattern (point-max) t)
			  (setq migemo-dabbrev-search-point (match-end 0)))
		   (if (migemo-backward migemo-dabbrev-pattern (point-min) t)
		       (setq migemo-dabbrev-search-point (match-beginning 0))
		     (goto-char migemo-dabbrev-start-point)
		     (forward-word 1)
		     (message (format "Trun back for `%s'" migemo-dabbrev-pattern))
		     (and (migemo-forward migemo-dabbrev-pattern (point-max) t)
			  (setq migemo-dabbrev-search-point (match-end 0)))))
	    (setq matched-start (match-beginning 0))
	    (unless (re-search-forward ".\\>" (line-end-position) t)
	      (end-of-line))
	    (setq matched-string (buffer-substring-no-properties matched-start (point)))
	    (unless (member matched-string migemo-dabbrev-pre-patterns)
	      (let ((matched-end (point))
		    (str (copy-sequence matched-string))
		    lstart lend)
		(if (and (pos-visible-in-window-p matched-start)
			 (pos-visible-in-window-p matched-end))
		    (progn
		      (if migemo-dabbrev-ol
			  (move-overlay migemo-dabbrev-ol matched-start (point))
			(setq migemo-dabbrev-ol (make-overlay matched-start (point))))
		      (overlay-put migemo-dabbrev-ol 'evaporate t)
		      (overlay-put migemo-dabbrev-ol 'face migemo-dabbrev-ol-face))
		  (save-excursion
		    (save-restriction
		      (when migemo-dabbrev-ol
			(delete-overlay migemo-dabbrev-ol))
		      (goto-char matched-start)
		      (setq lstart (progn (beginning-of-line) (point)))
		      (setq lend (progn (end-of-line) (point)))
		      (if (and (> emacs-major-version 20) (not (featurep 'xemacs)))
			  (put-text-property 0 (length str)
					     'face migemo-dabbrev-ol-face str)
			(setq str (concat "【" str "】")))
		      (message "(%d): %s%s%s"
			       (count-lines (point-min) matched-start)
			       (buffer-substring-no-properties lstart matched-start)
			       str
			       (buffer-substring-no-properties matched-end lend))))))
	      (throw 'found t))
	    (goto-char migemo-dabbrev-search-point)))
	(progn
	  (setq migemo-dabbrev-pre-patterns
		(cons matched-string migemo-dabbrev-pre-patterns))
	  (delete-region migemo-dabbrev-start-point end-pos)
	  (forward-char 1)
	  (goto-char migemo-dabbrev-start-point)
	  (insert matched-string))
      (goto-char end-pos)
      (message (format "No dynamic expansion for `%s' found"
		       migemo-dabbrev-pattern)))
    (add-hook 'pre-command-hook 'migemo-dabbrev-expand-done)))

○ ひそかに

一カ所修正した。

○ 今日のなぞの検索

なんで、 こんなの で引っ掛かるんだろう、変な検索エンジン。世の中こういう引っ掛け方するのかな？

○ ほんとうにほとんど年中無休

今行っている歯医者さんはほとんど年中無休なのだが、今日行ったらこんな張り紙(要旨)が↓

『木曜日担当の xx先生が都合により退職されたため、木曜日も院長がやります』

ってことは、今までは週に１日は休んでいたんだな(当然か)。けど、これで本当にほとんど年中無休になってしまったのだな。お体に気をつけて、頑張ってくださいませ。

○ Mew 4

にあげようかと思ったんだけど、累積寝不足でなんだか眠すぎるので、もう寝てしまおう。

○ recentf.el だけじゃなくて

sessin.el と minibuf-isearch.el を併用すると完璧です。逆に recentf.el は必要ないかも。ぼくの設定↓

(when (locate-library "recentf")
  (require 'recentf)
  (setq recentf-max-saved-items 80)
  (setq recentf-virtual-pathes-handler nil)
  (add-hook 'after-init-hook 'recentf-mode)
  (global-set-key "\C-cf" 'recentf-open-files))
 
(when (locate-library "session")
  (setq session-globals-max-size 512)
 
  (setq session-globals-regexp "-\\(ring\\|history\\|hist\\)\\'")
  (require 'session)
 
  (defadvice find-alternate-file
    (before session-store-buffer-places last activate)
    "Invoke session-kill-buffer-hook."
    (session-kill-buffer-hook))
  (add-to-list 'session-kill-buffer-commands 'find-alternate-file)
 
  (add-hook 'after-init-hook 'session-initialize))
 
(when (locate-library "minibuf-isearch")
  (setq minibuf-isearch-indicator-string nil)
  (setq minibuf-isearch-display-message-always t)
  (setq minibuf-isearch-match-format-string "[isearch with '%s']")
  (setq minibuf-isearch-no-match-format-string "[No further match with '%s']")
  (setq minibuf-isearch-message-on-right t)
  (setq history-length 128)
  (require 'minibuf-isearch))

○ 時刻表改訂

都営三田線の時刻表が変わっている。御成門止りが減っていると朝がうれしいかも。

○ やり

やりなげな人から やりすぎと言われてしまった。ま、なげやりな性格ですから。

○ isearch + migemo + C-d | C-w

忘れないうちに、日記に出しておこう。個人的には最近の ヒット作 です。

○ to ノーマルタイア

スタッドレスタイアからノーマルタイアに戻した。午後暇だったので、ついつい自分でやったのだけど、終わったあとず〜〜と腰が痛い ;_;。きっと明日は上腕部も痛いと思う。
うちの車(これはその新型)は前輪のサスペンションがすっごく伸びるので、ぼくの持っている油圧ジャッキではタイアが浮かない。そのため、前輪を交換するときは車両添付品のジャッキも使わないとだめで、その辺りがめんどくさいし疲れる。
ついでに洗車。ホースで水をかけて、カーシャンプー+柄つきスポンジでごしごしして、フクピカ(という名前の単なる紙)で終わりなのだが、元があまりに汚ないので効果は抜群。

○ インタビュー

高林くんのインタビュー。

全然関係ないが、ぼくの尊敬する人は「長州力」、好きな言葉は「される身になってヨイショは丁寧に」。

○ アンケート

去年の今頃にわが家にきた市場調査アンケートの勧誘に OK をしてしまって、その後の 年4回のアンケートに答えるのに結構苦労した。一年たって終わり、と思っていたところ、またまた新たなアンケートがきた。文面を読むと、どうやら最初から 2年契約だったようだ。締め切りが過ぎてしまったのでこれからやらねばなるまい。結構大変なのこれ ;_;

○ 筋肉痛

やっぱり筋肉痛になった。ただし、太股の裏側。ついでに、昨日、卓球を15分ほどやったら、余計ひどくなった。靴下で固い床の上をどすどす動いちゃいけませんな。特に、ぼくのように体重があると。。。右膝いたい ;_;

○ ハードリセット

Palm m505 でとあるソフトが無限ループ状態になってしまったので、裏のリセットスイッチをゼムクリップを伸ばしたので押したら、ハードリセット状態になってしまった。備えあれば憂い無し :-)

○ LSDB

migemo を使って LSDB で補完しよう！！を ML に投稿した。

○ ぼくのツボを心得ている知り合い

はぁ〜〜〜、そんなことやっている場合じゃないんだが。。。

○ 欠陥^H^H血管

ぼくの場合は、「こういう血管はたいへんなのよね。だけど、慣れた人なら大丈夫よ」といつも女房に言われています ^^;;;

○ いかん

本格的に腰が痛くなってきた。。。

○ 鹿児島みやげ

女房の弟一家が鹿児島での結婚式に出席して、そのときのおみやげをたくさん送ってきてくれた。

• (当然)さつま揚げ
• (おぉ)黒豚
• (なんと)本格芋焼酎まんてん

○ 明日 Meadow 宴会開催

詳細はこちら。幹事が飛び入り OK って言っているので、飛び入り歓迎。