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

○ ウイルス

新しい WS を立ち上げているので、会社から gcc-4.1.0 を http 経由で持ってこようとしたら、

    警告: 全社 Proxy にてウイルスを検出したため、ファイルを削除しました。
      
    Virus name: Exceed_File_Count_Limit
    File name: gcc-4.1.0.tar.gz2
    URL: http://ftp.gnu.org/gnu/gcc/gcc-4.0.1/gcc-4.1.0.tar.gz2
      
    連絡先: xxxx

ですって。Virus name から想像できる通り、Exceed_File_Count_Limit を調べると、ぜんぜんウイルスじゃないじゃんか。ぷんぷん。

○ Namazu とか shimbun とかの Mew 寄生虫

最近、全然ついていけていないのである程度ぼろぼろになっているのはわかっているのだが、2ch を見ていたら Mew5 で shimbun もダメになったようだ。

というか、mew-expand-folder() から message が無くなったら、ほとんど全滅状態だな、こりゃ。だけど、ゴールデンウィークまで手が出せないや。

○ Zaurus で位置情報

こちらのせらくんの設定メモを見て会社で試してみた。出てきた座標で google local を引くと 500-600m ぐらい(五反田方面に)ずれている。なんでかなぁ、と考えていたのだけど、小関さんの会社が引っ越して屋上のアンテナが無くなったからか？

○ 小ネタ

google local を Emacs から引くのはおしゃれそうだ、ということで小ネタたち。
下の方の関数から順番に書いていったのだけど、browse-map-address() は必要なかったかな。

(defun browse-google-local (&optional place)
  "google local で検索"
  (interactive)
  (require 'w3m)
  (let ((url "http://local.google.co.jp/local?f=q&hl=ja&q="))
    (setq place (or place
		    (read-from-minibuffer "Google local: ")))
    (browse-url
     (w3m-url-transfer-encode-string (concat url place) 'utf-8))))
  
(defun browse-map-gps (&optional lat long)
  "google local で経度(xx.xx.xx)、緯度(xxx.xx.xx)"
  (interactive)
  (let ((url (concat "http://local.google.co.jp/local?q="
		     "%s%%C2%%B0%s%%27%s"
		     ","
		     "%s%%C2%%B0%s%%27%s")))
    (setq lat (or lat
		  (read-from-minibuffer "経度 (xx.xx.xx): " "35.")))
    (setq long (or long
		   (read-from-minibuffer "緯度 (xxx.xx.xx): " "139.")))
    (setq lat (split-string lat "\\."))
    (setq long (split-string long "\\."))
    (browse-url
     (format url
	     (nth 0 lat) (nth 1 lat) (nth 2 lat)
	     (nth 0 long) (nth 1 long) (nth 2 long)))))
  
(defun browse-map-address (&optional pref city town)
  "infoseek で住所で地図検索"
  (interactive)
  (require 'w3m)
  (let ((url "http://www.infoseek.co.jp/Yubin?pg=yubin_out.html")
	(minibuffer-setup-hook minibuffer-setup-hook))
    (add-hook 'minibuffer-setup-hook
	      (lambda () (activate-input-method default-input-method)))
    (unless (or pref city town)
      (setq pref (read-from-minibuffer "都道府県: "))
      (when (string= pref "")
	(setq pref nil))
      (setq city (read-from-minibuffer "市区町村: "))
      (when (string= city "")
	(setq city nil))
      (setq town (read-from-minibuffer "町: "))
      (when (string= town "")
	(setq town nil)))
    (when pref
      (setq url (concat url "&indata_ken=" pref)))
    (when city
      (setq url (concat url "&indata_city=" city)))
    (when town
      (setq url (concat url "&indata_chou=" town)))
    (browse-url
     (w3m-url-transfer-encode-string url 'euc-japan))))
  
(defun browse-map-zipcode (&optional zipcode)
  "infoseek で郵便番号で地図検索"
  (interactive)
  (setq zipcode (or zipcode
		    (read-from-minibuffer "郵便番号: ")))
  (browse-url
   (format "http://www.infoseek.co.jp/Yubin?pg=yubin_out.html&indata_zip=%s" zipcode)))

Zaurus の Emacs で browse-map-gps() を自動的にキックできると幸せかも。けど、cu が Emacs から動かせるのかなぁ？なんか他にシリアル簡単に叩けるソフト知りませんか？

○ 入学式

娘の中学の入学式でございました。神奈川方面とかとは二日も違うんだね。

ちなみに娘が入学した中学校はぼくの母校でもある（小学校は違うのだ）。娘が事前にもらってきた資料に書いてあった校歌のメロディを全然覚えていなかったのだが、本日の在校生の事前練習を聞いて完全に思い出し、本番での校歌斉唱は思いっきり歌ってしまいましたよ。気持ちいぃー。

○ 小中一貫校

小中も中高も一貫校はなんだかな？という感じであまり好きでは無い。こんな施策は私立にまかしておけば良いのになぁ。それ以前にやることたくさんあるだろう、ぶつぶつ。

○ ぼくが出た都立高校も中高一貫校になっちゃったので、子供達が中学から勉強始めても高校からの入学は(定員がめちゃ少ないので)無理だ。高校の校歌は今でも空で歌えるのだけどなぁー。

○ 単なるサラ金

同案多数だと思うが「どうする〜〜アイフル〜〜〜」だよな。やっぱり。

って、いうかサラ金が社会的に認められて？きた(大手を振って歩いている)今の状況は間違っていると思う。

○ ゆりかもめ

野球の仲間がゆりかもめの整備の仕事をしているのだが、今夜は帰ってこれないだろうな。怪我人が出なくて良かった、良かった。

○ Upgrade

会社でメインに使っている WS を UA-80(4CPU) + Solaris7 から Blade1000(2CPU) + Solaris8 に変えた。めんどくさいので /usr/local はどーーんとコピーして ssh などの大切なものだけ make し直した。だけど lib 関係でなんかちょっと変なところがあるような気がするが、少しずつ直していこうかしら。Emacs が make できたから、とりあえずいいや

普通に使っていると、1.5倍ぐらい速く感じられてうれしいのよ。