Re: [MD:5293] supported image types

[MIYOSHI Masanori <miyoshi@xxxxxxxxxxx>]

>>>>> [meadow-develop : No.5307] にて
>>>>> "三好" = 私は書きました:
三好> それならば、ImageMagick に画像フォーマットを判定させるのが良いと
三好> 思います。

三好> そのようなプリミティブ関数を新規に作成して、
三好> image-type-from-data() で呼ぶようにするのはどうでしょうか?

mw32-get-image-magick() を新規に作成しました。

画像データを引数として渡すと、ImageMagick を使ってフォーマット解
析し結果をシンボルで返します。

下記を評価すると、auto-image-file-mode を使って ImageMagick で対
応しているすべての画像を表示できるようになります。

-------------------------------------
(defadvice image-type-from-data
  (after image-type-from-data-with-image-magick activate)
  (unless ad-return-value
    (setq ad-return-value (mw32-get-image-magick data))))

(defadvice auto-image-file-mode
  (around auto-image-file-mode-unlimited activate)
  (let ((max-specpdl-size 10000))
    ad-do-it))

(mapcar
 (lambda (type)
   (setq type (downcase (symbol-name type)))
   (unless (member type image-file-name-extensions)
     (setq image-file-name-extensions
	   (cons type image-file-name-extensions))))
 image-types)
-------------------------------------

これって、Meadow 特有の拡張なので meadow.el で設定すれば良いので
しょうかね?

それから、advice を使わないでオリジナルの関数を丸ごとコピーして修
正を加えるのが良い?

--
三好 雅則 http://www.boreas.dti.ne.jp/~miyoshi/