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

○ 日記

も久しぶりだなぁ〜〜。

○ 出張

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

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

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

○ 以下、

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

○ lookup で Wikipedia

% du -k WIKIP/
599217	WIKIP/WIKIP/data
1	WIKIP/WIKIP/gaiji
599219	WIKIP/WIKIP
599243	WIKIP

○ elscreen-server

--- 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)

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

(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))))

○ 安倍首相退陣

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

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

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

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

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

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

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

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

○ 映画＆銀ブラ

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

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

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

○ 公式戦大勝利！！

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

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

○ 祝勝会

のみすぎ ^^;;;

○ 年休じゃなくて代休

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

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

○ 間違った

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

○ セミナ

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

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

○ しかし、

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

○ 大原はだか祭り

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

○ またまた緊急出張

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

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

○ 誕生日

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

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

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

○ 武門

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

○ 右斜め上の人

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

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

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