トップ 最新 追記

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

最近なんにもやっていませんが、なにかやったらこちらに置くようにしています。
2002|12|
2003|01|02|03|04|05|06|07|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|

2007-09-12 (Wed) [長年日記]

○ 日記

も久しぶりだなぁ〜〜。

| Bookmark:

○ 出張

先週から今週頭にかけては、途中ちょっと除いて、宇都宮の工場に出張していた。

先週は、木曜日の夜に一度帰る予定だったのだけど、台風来ちゃったから工場を 14:30 に出て自宅に 17:00 に到着。次の日は目黒に出社だったのだけど、午前中半休！*1にしてしまったので、台風のときには一回も傘をさしていないし、めちゃ混みの電車にも乗らずにすんでしまった。 :-)

今週もずーーとの予定だったのだけど、ノルマが終わったので、火曜日でお終い。

| Bookmark:

*1 え〜、子供たちの学校が三時間目からになったので、登校を見届けてから出社するという、大義名分があったのだ。

○ 以下、

最近やったことのまとめ。基本的に忙しいのと、いまだにモヤモヤしているので大したことはしていない。

| Bookmark:

○ lookup で Wikipedia

伊藤さんの wikipedia-fpw を使って、epwing 化した Wikipedia を作ってみた。ebzip -l 5 をかけて 
% du -k WIKIP/
599217	WIKIP/WIKIP/data
1	WIKIP/WIKIP/gaiji
599219	WIKIP/WIKIP
599243	WIKIP
な感じ。なにか他のものを消せば Zaurus にも入るんだけどなぁ。。。どーしよー。
| Bookmark:

○ elscreen-server

森島さんの elscreen-server だけど、Emacs CVS Head が multi-tty をサポートして Emacs 23.0.50 になってからエラーするようになった。
ちょっと手抜きのような気もするのだけどパッチ。 
--- elscreen-server.el.old	2006-07-25 18:15:36.000000000 +0900
+++ elscreen-server.el	2007-08-31 13:33:05.000000000 +0900
@@ -42,7 +42,8 @@
  ((fboundp 'server-visit-files)
   ;; For server.el distributed with GNU Emacs
   (defadvice server-visit-files (after elscreen-server-visit-files activate)
-    (elscreen-server-visit-files-new-screen (cdr ad-return-value))))
+    (elscreen-server-visit-files-new-screen (or (cdr ad-return-value)
+						ad-return-value))))
  ((fboundp 'gnuserv-edit-files)
   ;; For (current) gnuserv typically used with XEmacs
   (defadvice gnuserv-edit-files (around elscreen-gnuserv-edit-files activate)
ちと忙しくて報告が遅れたが、森島さんが elscreen の話をする ML には報告しておいた。
| Bookmark:

○ Mew でメッセージの横スクロール

一回 Mew-dist に出したものの焼き直しだが、summary での <, > が横スクロールになるのは、message buffer が truncate-lines => t のとき*1だけにして、それ以外の場合は、従来の mew-summary-jump-top|bottom が動く。 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128

(defcustom mew-message-horizontal-scroll-columns 15
  "*Number of steps in columns used when scrolling a message window horizontally."
  :group 'mew-message
  :type '(integer :size 0))
 
(add-hook 'mew-summary-mode-hook
	  (lambda ()
	    (define-key mew-summary-mode-map "<" 'mew-summary-jump-top-or-scroll-right)
	    (define-key mew-summary-mode-map ">" 'mew-summary-jump-bottom-or-scroll-left)))
 
(add-hook 'mew-message-mode-hook
	  (lambda ()
	    (define-key mew-message-mode-map "<" 'mew-message-scroll-right)
	    (define-key mew-message-mode-map ">" 'mew-message-scroll-left)))
 
(cond
 ((boundp 'auto-hscroll-mode) ;; Emacs 21.3.50 or later
  (defsubst mew-hscroll-off ()
    (set (make-local-variable 'auto-hscroll-mode) nil))
  (defsubst mew-hscroll-type ()
    (if auto-hscroll-mode 'on 'off)))
 ((boundp 'automatic-hscrolling) ;; Emacs 21.3 or earlier
  (defsubst mew-hscroll-off ()
    (set (make-local-variable 'automatic-hscrolling) nil))
  (defsubst mew-hscroll-type ()
    (if automatic-hscrolling 'on 'off)))
 (t
  (defsubst mew-hscroll-off () (auto-show-mode 0))
  (defsubst mew-hscroll-type ()
    (if auto-show-mode 'on 'off))))
 
(defvar mew-hscroll-type nil)
(make-variable-buffer-local 'mew-hscroll-type)
 
(defadvice mew-normal-line (before hscroll-off activate)
  (when (eq mew-hscroll-type 'on)
    (mew-hscroll))
  (let ((fld (mew-minfo-get-summary)))
    (when (and fld (get-buffer fld))
      (save-excursion
	(set-buffer fld)
	(when (eq mew-hscroll-type 'on)
	  (mew-hscroll))))))
 
(defun mew-summary-jump-bottom-or-scroll-left (arg)
  "Scroll the message window to the left."
  (interactive "P")
  (unless (and (mew-buffer-message)
	       (get-buffer-window (mew-buffer-message))
	       (mew-summary-msg-or-part
		(unless mew-hscroll-type
		  (setq mew-hscroll-type (mew-hscroll-type)))
		(mew-hscroll-off)
		(let ((win (selected-window))
		      ret)
		  (unwind-protect
		      (progn
			(mew-summary-toggle-disp-msg 'on)
			(if (memq last-command '(mew-summary-jump-bottom-or-scroll-left
						 mew-summary-jump-top-or-scroll-right))
			    (when (get-buffer-window (mew-buffer-message))
			      (select-window (get-buffer-window (mew-buffer-message))))
			  (mew-window-configure 'message))
			(setq ret (mew-message-scroll-left arg)))
		    (select-window win)
		    ret))))
    (call-interactively 'mew-summary-jump-bottom)))
 
(defun mew-summary-jump-top-or-scroll-right (arg)
  "Scroll the message window to the right."
  (interactive "P")
  (unless (and (mew-buffer-message)
	       (get-buffer-window (mew-buffer-message))
	       (mew-summary-msg-or-part
		(unless mew-hscroll-type
		  (setq mew-hscroll-type (mew-hscroll-type)))
		(mew-hscroll-off)
		(let ((win (selected-window))
		      ret)
		  (unwind-protect
		      (progn
			(mew-summary-toggle-disp-msg 'on)
			(if (memq last-command '(mew-summary-jump-bottom-or-scroll-left
						 mew-summary-jump-top-or-scroll-right))
			    (when (get-buffer-window (mew-buffer-message))
			      (select-window (get-buffer-window (mew-buffer-message))))
			  (mew-window-configure 'message))
			(setq ret (mew-message-scroll-right arg)))
		    (select-window win)
		    ret))))
    (call-interactively 'mew-summary-jump-top)))
 
(defun mew-message-scroll-left (arg)
  "Scroll the message window to the left."
  (interactive "P")
  (mew-message-horizontal-scroll
   'left (if arg
	     (prefix-numeric-value arg)
	   mew-message-horizontal-scroll-columns)))
 
(defun mew-message-scroll-right (arg)
  "Scroll the message window to the right."
  (interactive "P")
  (mew-message-horizontal-scroll
   'right (if arg
	      (prefix-numeric-value arg)
	    mew-message-horizontal-scroll-columns)))
 
(defun mew-message-horizontal-scroll (direction ncol)
  "Scroll the message window NCOL columns horizontally to DIRECTION.
DIRECTON should be the symbol `left' which specifies to scroll to the
left, or any other Lisp object meaning to scroll to the right.  NCOL
should be a number. "
  (when truncate-lines
    (let ((inhibit-point-motion-hooks t))
      (unless mew-hscroll-type
	(setq mew-hscroll-type (mew-hscroll-type)))
      (mew-hscroll-off)
      (set-window-hscroll (selected-window)
			  (max 0 (+ (window-hscroll)
				    (if (eq direction 'left) ncol (- ncol)))))
      (let ((hs (window-hscroll)))
	(unless (and (>= (- (current-column) hs) 0)
		     (< (- (current-column) hs) (window-width)))
	  (move-to-column (if (eq direction 'left)
			      hs
			    (+ hs (window-width) -2))))
	hs))))
| Bookmark:

*1 要するに _ を二回押したとき

[ツッコミを入れる]

2007-09-13 (Thu) [長年日記]

○ 安倍首相退陣

う〜〜ん、来年のサミットまでは頑張るんじゃないか？と思っていたんだが、やっぱり、どんな首相*1でも任期一年は短いよなぁ。

しかし、一部のマスコミの執拗なまでのネガティブキャンペーンは気持ち悪かったよ。

| Bookmark:

*1 極一部の例外は除くけど

○ なんだか集中力が無くて。。。

バグに気づいた瞬間、人様のバグ潰しモードに遷移する一日であった ^^;;;

| Bookmark:

○ 午前の部: emacs-w3m の w3m-expand-url()

『10日(月) 7:00〜13日(木) 11:00』に check out した Windows ユーザは、もう一回 check out しなおさないとだめよん。って、昨日からの課題の継続。
| Bookmark:

○ 午後の部: lookup の 2007/08/06版

あれれ？画像が出ないなぁ？という人は、しばらくすれば改版した lookup が出ると思われます。または、アドホックな対応は、そのうちここに出てくるのでその場しのぎは可能。*1

しかし、昨日日記に書いた wikipedia-fpw といい、eblook/lookup のインデント対応といい素晴らしいぞ！！伊藤さん。

| Bookmark:

*1 lookup は中身をよく知らないから、ちと悩んでしまったよん ^^;;;

[ツッコミを入れる]

2007-09-16 (Sun) [長年日記]

○ 映画＆銀ブラ

女房＆娘と『映画を見にいこう！』ということになって、野球の練習後、銀座までダイ・ハード 4.0を見に行った。すでにロードショー落ちしているので、場末の映画館。うむ、このダイ・ハード4.0は2や3よりもおもしろいんじゃないかな？いつも Zaurus でポチポチやっているぼくも尊敬されたりして*1

その後、ライオンでビールを飲んで、女房＆娘のブラブラに付き合いましたが、銀座も結構変わっているのねぇ〜。本屋とかなくなっているじゃん。プランタンが妙に込んでいたけど、そうですか、新装開店したばっかりか。

個人的には雑居ビルの中の小粋なお店がみんな高級ブランド店とか大規模店になるのはつまらないんだけど。。。

| Bookmark:

*1 ってことはないか ^^;;;

[ツッコミを入れる]

2007-09-17 (Mon) [長年日記]

○ 公式戦大勝利！！

江戸川区の秋季大会の初戦だったのだが、みごと 6-1 で完勝！！

おいらも、代打で一打数一安打だよーん。

| Bookmark:

○ 祝勝会

のみすぎ ^^;;;

| Bookmark:
[ツッコミを入れる]

2007-09-18 (Tue) [長年日記]

○ 年休じゃなくて代休

昨日飲みすぎたから、というわけでもないが、まったく会社に行く気が起こらなかったため休んじゃいました。

午前中は二度寝をして、午後からはこの前借りたビデオを一人で見ていた。見たのはブレイブストーリーと千年女優とアニメの二本立て。千年女優はあまり期待していなかったんだけど、めちゃくちゃおもしいじゃん、これ！個人的には大ヒット。

| Bookmark:

○ 間違った

未来日記を書いちまった ^^;;;

| Bookmark:
[ツッコミを入れる]

2007-09-21 (Fri) [長年日記]

○ セミナ

突然ですが、昨日、今日と某学会の某秋期セミナで、東大の駒場キャンパスに行ってまいりました。ぼくにはまったく関係ない分野だったんだけど、某学会の副会長やっているうちの副社長から動員指令が出て*1、聞いてきたのだ。

基礎の基本すら知らない分野だったのだけど「基礎から応用」的な講義*2や、医業分野での応用などなかなか興味深いテーマもあり、有意義な2日間であった。

| Bookmark:

*1 暇だったので ^^;;;

*2 セミナだから講義ぽいのもあった

○ しかし、

駒場東大前って全然飲み屋ないよん。普通、渋谷まで出るんだろうけど、おじさん二人にはめんどい。

| Bookmark:
[ツッコミを入れる]

2007-09-23 (Sun) [長年日記]

○ 大原はだか祭り

だからというわけではないが、大原の女房の実家に家族全員で行ってきた。普段は車の方が早いし安いので車で行くんだけど、お酒を飲みたいという理由で電車で行ってまいりました。家族四人で往復すると特急とかに乗らなくても 12000円ですかぁ。

| Bookmark:
[ツッコミを入れる]

2007-09-24 (Mon) [長年日記]

[ツッコミを入れる]

2007-09-25 (Tue) [長年日記]

○ またまた緊急出張

今度は、以前の上司から動員命令が出て、NTT の NGNフィールドトライアルを見学してきた*1。ぼくが誘われた後、後二人ゲットして合計四名。内容的には、別に面白いものでもないような気がするが、たかが四人を案内するのにコンパニオンのお姉さんが何人もいらしたのはある意味素晴らしいかも :-)

NTT の名誉のために言っておくが、展示内容もぼくらみたいなひねくれた技術者相手でなければ十分に面白いであろう。

| Bookmark:

*1 申し込んだ本人＋その他が行けなくなって、元上司一人になってしまったとのことで泣きが入った ^^;;;

○ 誕生日

その後、娘の誕生日なのでとっとと*1帰ったのだが、当人が熱でダウンでありました。こいつ、なんだか誕生日はよく寝込んでいるような気がする。

| Bookmark:

*1 すいません。本当は八重洲近辺で 15:30〜18:00 の間飲んでいました ^^;;;

[ツッコミを入れる]

2007-09-27 (Thu) [長年日記]

○ 読売新聞販売所の元従業員、放火容疑で逮捕(江戸川)

住み込みで働いていた新聞販売所に放火したとして、警視庁小岩署は東京都江戸川区東小岩 5丁目、無職通山照雄容疑者（66）を現住建造物等放火の疑いで逮捕したと、27日発表した。

調べでは、通山容疑者は 7月15日午前1時50分ごろ、同区篠崎町 1丁目の読売新聞篠崎駅前店の 2階自室に灯油をまき、ライターで火をつけ、従業員寮として用いていた 2階部分約60平方メートルを燃やした疑い。

通山容疑者は購読勧誘の仕事をしており、火災の直後に辞めていた。「ここ数年体の調子が悪く、収入が減っていた。自暴自棄になって死のうと思った」と供述しているという。

[朝日新聞より引用]

だって。獅子もみ当日の信哉深夜だったので、消防団員の人たちが一睡もできずでふらふらしたのだよ。それ以前にお隣のうちも半分延焼で燃えちゃったし。
しかし、妙に景気良く燃えたなぁと感じていたんだが、灯油をまいたのか。。。
| Bookmark:
[ツッコミを入れる]

2007-09-28 (Fri) [長年日記]

○ 猫の司書さんはかわいい働き者

なんだか若い子達ががんばっていてよいよね。それより

最終審査会は9月1日に行われた。審査会の講評では，審査委員から「これからもプログラミングを楽しんでほしい。Happy Hacking!」（産業技術総合研究所自由ソフトウエア武門長でNPOフリーソフトウエアイニシアティブ理事長 g新部裕氏），「21世紀のプログラムは君たちが作る」（ミラクル・リナックス取締役最高技術責任者吉岡弘隆氏）など，期待と励ましの言葉が寄せられた。

[IT Proより引用]

をよく見ると『産業技術総合研究所自由ソフトウエア武門長でNPOフリーソフトウエアイニシアティブ理事長 g新部裕氏』。武門長って、g新部さんらしくてよいかも :-)
| Bookmark:

○ 武門

『武門』って誤字かと思ったら、本当の名称だったんだ。知らんかった。

| Bookmark:

○ 右斜め上の人

われらが himiくんの新しい成果が出ました。ぱちぱち。うちの PC に入れてみよっと。

| Bookmark:

○ 蔵書管理システム「BookScope」

も出ていますよん。大場くん夫妻のお友達が author。が、最近、ほとんど本を読んでいない私。。。あ、「よつばと！」買わないと。。。^^;;;

| Bookmark:
[ツッコミを入れる]
書いている人: 白井秀行 (mailto:ｓｈｉｒａｉ＠ｍｅａｄｏｗｙ。ｏｒｇ)
訪問して下さった人: 今日: 人, 昨日: , 過去: 人 (2007年5月10日から)
RDF Feed
Generated by tDiary version 2.3.3.20090826
Powered by Ruby version 1.8.7-p248