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

○ 土曜日: ヨドバシカメラ錦糸町店

女房に「この前結婚した **** にグリル鍋を送ってよ」と頼まれ、そこいら辺の電気屋さん？とも思ったけれど、他にもいろいろあるなぁと一人でヨドバシカメラ錦糸町店へ。グリル鍋は象印のこれが約9000円引きだったのでこいつに決定。

○ デジカメ修理

故障が発覚したのは夏なのに今頃修理にだすか？という気もするのだけど、せっかくの保障期間内なので Nikon E2100 を修理に出した。これがヨドバシカメラに行った理由。ちょうど窓口のおねいさんが触ったときに一発で固まってくれたので、症状の説明要らずで楽ちんだった。保障期間内だよと保証書を出したら、購入年月が 2002年7月 になっていて一瞬あせったのだが、ぼくがなにか言う前におねいさんから「これ 2003年の間違いですね。この機種の発売今年ですもの。」とのフォローあり。すばらしい。

あとから別のお兄さんに症状/状況等軽く突っ込みを受けたが、別に問題なし(な返答をしておいた ^^;)。カメラっていうぐらいだから、外装に傷ぐらいつくものだし、軽く雨に降られることもあるしね :-) 短くて２週間、最長３週間は修理にかかるとのこと。まぁ、大丈夫だろうけど保障内のトラブルであることを願う。

○ どこにいったの？充電器

そういえば、デジカメ用に買った充電器が行方不明になって3ヶ月ほどたつが、まだ見つからない。どこに行ったんだろう？ピアノの後ろに影になる空間があるのかな？という気がする。

○ ケーブル

USB-シリアルケーブル。実物の箱を前にいろいろと悩んだのだけど、結局、同じ目的で何種類もドライバをインストールするのが面倒/いやなので、前と同じのをもう一本。これは、家に置いておくか持ち運び用ケースに入れておこう。

○ レーザポインタ

昔雑貨屋で買ったレーザポインタ(確か 800円ぐらい)がばらばらに分解してしまい、たまにだけどなくて困るときがあった。たまたま目に付き一番安いのを購入。2860円。

○ 単体露出計

セコニックの L-208。今回は買うつもりはなかったのだが、前から欲しかったので(ついでだし ^^;;;)購入。とりあえずいろいろと遊んでみたのだけど、あぁやっぱり、ちょっと低めにでるんだな。気をつけよう。

○ 日曜日: 鎌倉/横浜

大仏と鶴岡八幡宮を参詣したのち、横浜中華街へ。鎌倉/中華街ともにめちゃ込み。うちの方からだと、このルートは小旅行気分。

○ 江ノ電

通勤時間帯並みの混雑。積み残された乗客多数。

○ 大仏

自宅を 10:00 頃出発して到着は 12:00 すぎ。いつ以来だろう？小学生？中学生？昔はもっともっと大きく感じたものであった。

○ 鶴岡八幡宮

こちらは大学生のとき江ノ島に行くついでに寄った記憶がある。あら、太鼓橋って今は渡れないのね、残念。だけど、結婚式をしているカップルがいて目の保養。

○ 中華街

行こうと思ったお店は予約で一杯でだめで、適当にすいていた店に入った(17:00頃)が、そこも出るとき(18:00頃)には一杯人が並んでいた。普通の広東料理だったがそれなりにおいしかった。

○ 月曜日

軽く買い物。ぼくは自転車につけるワイヤーキー(長いの)を買った。あとは、ぼ〜〜〜。

○ 「カメラならとも角、電話に笑えるか」

アサヒカメラ今月号の永六輔さんのエッセイ中の言葉。ここだけ抜き出しても、この言葉の本当の意味はわからないのだけど、それでも良い。

○ がーーん

さっき、おいらの X31 と女房のシャープのノートPC が一緒にピアノの上(推定高度 150cm)から飛行距離 1m ほどダイブしてしまった。とりあえず、X31 は大丈夫そう。女房のは本体側の DCインのジャック(オス)のピンが折れてしまった。動作は支障がなさそう。

○ w3m の buffer を elscreen 上で管理

こんな感じかぁ。もしかすると、洩れがあるかも。

• 他の frame で w3m が見えていたら、その frame を使う。
• screen 上で w3m があったら、その screen を使う。
• じゃなかったら、新しい screen を作る。

でございます。継ぎ足し、継ぎ足しで作ったから結構冗長化。

  (defvar w3m-pop-elscreen t)
  
  (defadvice w3m-popup-buffer (around w3m-elscreen-poup-buffer activate)
    (if (or (not w3m-pop-elscreen)
            (memq this-command '(w3m-copy-buffer
                                 ;; w3m-goto-url-new-session
                                 w3m-view-this-url-new-session))
            (not (featurep 'elscreen))
            (save-window-excursion
              (catch 'detwin
                (let ((owin (selected-window))
                      (oframe (selected-frame)))
                  (mapcar (lambda (frame)
                            (unless (eq frame oframe)
                              (select-frame frame)
                              (mapcar (lambda (win)
                                        (set-buffer (window-buffer win))
                                        (when (eq major-mode 'w3m-mode)
                                          (throw 'detwin t)))
                                      (window-list))))
                          (frame-list))
                  nil))))
        (let ((w3m-pop-up-frames nil)
              (w3m-pop-up-windows nil))
          ad-do-it)
      (if (stringp buffer)
          (setq buffer (get-buffer buffer)))
      (let ((screen (elscreen-find-screen-by-buffer buffer))
            (create t))
        (when (and (not screen)
                   (memq this-command '(w3m-goto-url-new-session)))
          (if (not (eq major-mode 'w3m-mode))
              (setq create nil)
            (setq screen
                  (elscreen-find-screen
                   (lambda (num)
                     (elscreen-goto-internal num)
                     (save-selected-window
                       (catch 'find
                         (mapcar
                          (lambda (window)
                            (select-window window)
                            (when (and (eq major-mode 'w3m-mode)
                                       (not (eq (current-buffer) buffer)))
                              (throw 'find num)))
                          (window-list))
                         nil)))))))
        (if screen
            (progn
              (when (/= (elscreen-get-current-screen) screen)
                (elscreen-goto screen))
              (if (not (or (one-window-p)
                           (eq major-mode 'w3m-mode)))
                  (let* ((cwin (selected-window))
                         (win (previous-window cwin))
                         buf)
                    (catch 'detect
                      (while (not (eq cwin win))
                        (setq buf (window-buffer win))
                        (set-buffer buf)
                        (when (eq major-mode 'w3m-mode)
                          (select-window win)
                          (throw  'detect 'ok))
                        (setq win (previous-window win)))
                      (elscreen-create)
                      (set-window-buffer (selected-window) buffer)))
                (unless (eq (current-buffer) buffer)
                  (set-window-buffer (selected-window) buffer))))
          (when create
            (elscreen-create))

(set-window-buffer (selected-window) buffer))))) 欠点として、C-x2 してその window で w3m とかができなくなる。M-x w3m-other-window とか作るべきかも。とりあえず、抑制する変数を作っておいた。
以下は、瞬間的なでっちあげなので、今後どうなるかわからないけど、とりあえず。

  (defun w3m-no-elscreen (&optional url)
    (interactive
     (let ((url (w3m-examine-command-line-args))
           new)
       (list
        (or url
            (let ((default (if (w3m-alive-p) 'popup w3m-home-page)))
              (setq new (if current-prefix-arg
                            default
                          (w3m-input-url nil nil default
                                         (not (get-buffer "*w3m*"))))))))))
    (let (w3m-pop-elscreen)
      (cond ((eq url 'popup) (w3m))
            (t (w3m url)))))

○ elscreen の小ネタ(その一)

必要なさそうな screen はなるだけ勝手に閉じるようにする。大きなお節介なのでなにが起こるかわからないかも。

  (add-hook 'mew-suspend-hook 'elscreen-kill-buffer-force)
  (add-hook 'mew-quit-hook 'elscreen-kill-buffer-force)
  (add-hook 'navi2ch-exit-hook 'elscreen-kill-buffer-force)
  
  (defadvice w3m-close-window (after elscreen-kill-buffer activate)
    "Kill elscreen."
    (elscreen-kill-buffer-force))
  
  (defadvice w3m-quit (after elscreen-kill-buffer activate)
    "Kill elscreen."
    (elscreen-kill-buffer-force))
  
  (defadvice kill-buffer (after elscreen-kill-buffer activate)
    "Kill elscreen."
    (elscreen-kill-buffer))
  
  (defun elscreen-kill-buffer-force ()
    (elscreen-kill-buffer 'force))
  
  (defun elscreen-kill-buffer (&optional force)
    (when (and (not (elscreen-one-screen-p))
               (or force
        	   (memq this-command '(kill-buffer))))
      (let* ((cur (elscreen-get-current-screen))
             (buffer (current-buffer))
             (new (elscreen-find-screen
        	   (lambda (screen)
        	     (if (= cur screen)
        		 nil 
        	       (elscreen-goto-internal screen)
        	       (member buffer
        		       (mapcar (lambda (window)
        				 (window-buffer window))
        			       (window-list))))))))
        (cond
         (force
          (elscreen-kill)
          (when new
            (elscreen-goto new)))
         (t
          (when new
            (elscreen-kill)
  	    (elscreen-goto new)))))))

○ elscreen の小ネタ(その二)

C-zd で screen を開いて dired。

  (define-key elscreen-map "d" 'elscreen-dired)

(defun elscreen-dired (dirname &optional switches) (interactive (progn (or (featurep 'dired) (require 'dired)) (dired-read-dir-and-switches ""))) (elscreen-find-and-goto-by-buffer (dired-noselect dirname switches) 'create)) C-zC-f で directory を指定すれば OK なのは内緒。

○ elscreen の小ネタ(その三)

すでに森島さんには売り込んであるので、そのうちちゃんとしたものが出てくるかもしれないけど、Emacs(Meadow) に Drag & Drop したファイルを screen で開くもの。

  (defvar elscreen-dnd-buffers nil)
  
  (defadvice x-dnd-handle-drag-n-drop-event (around elscreen-dnd-buffers activate)
    (setq elscreen-dnd-buffers nil)
    (save-window-excursion ad-do-it)
    (when elscreen-dnd-buffers
      (elscreen-goto (car (mapcar
                           (lambda (buffer)
                             (elscreen-find-screen-by-buffer buffer 'create))
                           elscreen-dnd-buffers)))
      (setq elscreen-dnd-buffers nil)
      (elscreen-notify-screen-modification 'force-immediately)))
  
  (defadvice w32-drag-n-drop (around elscreen-dnd-buffers activate)
    (setq elscreen-dnd-buffers nil)
    (save-window-excursion ad-do-it)
    (when elscreen-dnd-buffers
      (elscreen-goto (car (mapcar
                           (lambda (buffer)
                             (elscreen-find-screen-by-buffer buffer 'create))
                           elscreen-dnd-buffers)))
      (setq elscreen-dnd-buffers nil)
      (elscreen-notify-screen-modification 'force-immediately)))
  
  (defadvice dnd-handle-one-url (after elscreen-get-dnd-buffers activate)
    (setq elscreen-dnd-buffers
          (cons (current-buffer) elscreen-dnd-buffers)))

○ 休日出勤

世の中は平日だけど、なぜだかうちの会社は本日休業なのだ。数年前から、飛石連休の間が二回ほどお休みになるようになった。だけど、その分、夏休みが二日短くなった。

で、本日も休日出勤。飛石連休の間って休めるときは勝手に休むので、夏休みが長い方が良いのだが。。。