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

○ ふふふ、勝ったな

[Meadow-users: 4640] IE6 では、縮小画面しか表示できないようだが、Mozilla Firebird ではマウスのクリックで、縮小←→原寸が切り替わるのだよ。デジカメの画像は、もっぱら、thumbnail を抽出して、(確かたつをさんの日記にあった簡単な Perl Script を改造して)index.html 書いて Firebird でみているのだ。

○ 久々の寄生虫

[Meadow-users: 4637] に書いた Mew + Emacs21 で image/* な part だけど、大きい画像で Frame に入らないときは、適当に縮小して表示するもの。ちゃんと見たいときは C-cC-e で外部 viewer を使えば良いよね。キャッシュ機能付きなので、小さい画像も快適になるかもしれないし、Meadow2 でも動くかもしれない。
ただし、エラーガードはほとんどしていないし、要 ImageMagick の identify と convert。

(defvar mew-mime-image-cache-length 30 "*Cache size")
(defvar mew-mime-image-max-coeff 0.9 "*Frame に対する画像の最大値の割合")
 
(defvar mew-mime-image-cache nil)
 
(defun mew-mime-image (cache begin end format)
  "hoge"
  (message "Loading image...")
  (set-buffer (mew-buffer-message))
  (let* ((fld (mew-minfo-get-summary))
         (msg (mew-current-get-msg (mew-frame-id)))
         (part (mew-current-get-part (mew-frame-id)))
         (key `(,fld ,msg ,part ,begin ,end))
         (maxwidth (truncate (* (frame-pixel-width (selected-frame))
				mew-mime-image-max-coeff)))
         (maxheight (truncate (* (frame-pixel-height (selected-frame))
				 mew-mime-image-max-coeff)))
	 original img conv width heigth x y)
    (mew-erase-buffer)
    (condition-case nil
        (if (setq img (assoc key mew-mime-image-cache))
            (mew-elet
             (setq mew-mime-image-cache
                   (cons img (delete img mew-mime-image-cache)))
             (setq conv 'cache)
             (insert-image (cdr img)))
          (with-temp-buffer
            (save-excursion
              (set-buffer cache)
              (setq img (mew-buffer-substring begin end))
	      (setq original img))
            (insert img)
            (buffer-disable-undo)
            (set-buffer-multibyte nil)
            (mew-flet
	     (apply 'call-process-region
		    (point-min) (point-max)
		    "identify" t (current-buffer) nil '("-"))
	     (goto-char (point-min))
	     (setq width 1)
	     (setq heigth 1)
	     (when (re-search-forward " \\([1-9][0-9]*\\)x\\([1-9][0-9]*\\)+" nil t)
	       (setq width (string-to-number (match-string 1)))
	       (setq heigth (string-to-number (match-string 2))))
	     (when (or (> width maxwidth) (> heigth maxheight))
	       (erase-buffer)
	       (setq conv t)
	       (setq x (/ width (float maxwidth)))
	       (setq y (/ heigth (float maxheight)))
	       (setq width (floor (/ width (max x y))))
	       (setq heigth (floor (/ heigth (max x y))))
	       (insert img)
	       (message "Loading image(convert)...")
	       (apply 'call-process-region
		      (point-min) (point-max)
		      "convert" t (current-buffer) nil
		      (list "-sample"
			    (format "%dx%d!" width heigth)
			    (format "%s:-" format)
			    (format "%s:-" format)))
	       (setq img (buffer-substring (point-min) (point-max))))))
	  (setq img (create-image (string-as-unibyte img) nil t))
	  (setq mew-mime-image-cache (cons (cons key img) mew-mime-image-cache))
          (when (> (length mew-mime-image-cache) mew-mime-image-cache-length)
            (setcdr (nthcdr (1- mew-mime-image-cache-length) mew-mime-image-cache) nil))
          (mew-elet (insert-image img)))
      (error ()))
    (goto-char (point-min))
    (message "Loading image%s...done"
             (cond
              ((eq conv 'cache) "(cache)")
              (conv "(resize)")
              (t "")))))

○ マジック点灯

おめでとうございます。今年 は もう好きにしてくださいませ。

しかし、先は長いですよ。8月は気をつけましょうね。

○ 長嶋ジャパン

なぜに清が？オリンピックはやっぱりお祭りなのか？？

○ dired-dispicon 関連更新

ふと思って、dropfile.el を ange-ftp/tramp 対応にしつつ、dired-dispicon.el でサポートしてみた。さすがに icon は出さないが、ftp/ssh の先のものを Windows App に drag/drop できるのは結構いいかも。あとは、remote で directory をつまんだときの挙動をどうするべきか、といったところか
Mew 用のおまけ付きで、現状の elisp 一式をこちらに置いてある。

追記 (07月08日(金) 20:30頃)
面白そうなので、remote の directory も扱えるようにして、一式も置き換えた。おそらくなにかしらの処理の抜けがあると思うので気を付けてね。ちなみに、remote から $TMP/dropfile に持ってくるときは、独自に dired-recursive-copies を拘束しているので持ってこられるけど、そのまま dired に落としたときは、各人の dired-recursive-copies の設定が効いてくる。個人的には

(setq dired-recursive-copies 'top)

がお薦め。

○ 「OK」ボタンのあれれのれ？

あれー？なんにも自分で設定していないとは思うんだけど。。。「OK」って 'F33' だなぁ。。。。ごそごそ。。。。

すみません、すみません、keyhelper で F33 を space にしていました。ちなみに、いつやったのか、どういう目的でやったのかまったく記憶にございません。そういえば、ふつーの Qt アプリで「OK」が効かないときがあったなぁ。全然気にしなかったけど ^^;;;
この目的なら本当は xmodmap or Emacs でやるべきでしょうけど、X/Qt 上だと元のリターンキーと区別が付かないのですね。X/Qt2 とか pdaXrom だとどうかしら？
だけど、これ、X/Qt + Emacs が主力ならめちゃ便利ですよ。

○ あらまぁ

ぼくとまったく同じことを考えていらしたとは。

[私信] 只今、決裁願い上申中につき結論までしばらくお待ちください(__) > まるさん

○ Zaurus の電卓

以前、Zaurus の電卓上の電卓を探していたときに slcalc も試したのだが、n進数に対応していなかったので選択しなかった。久しぶりにふと見に行くと「n進数をサポート」と書いてある。やったね。使おう。ぼくの使い方だと出力フォーマットを "%g", "%g/x", "%g/b" と書いておけば十分だろう。

○ Zaurus のバッテリ

CF の無線LAN を使うと 30分ぐらいしか持たないぐらい電池がへばっていたので、この前買ってきた新品に変えてみた。通勤電車 + BitWarp ぐらいだとびくともしない。数ヵ月に一回変えたいぐらいだよ。