讓emacs完美顯示BMP檔案的辦法

首先感謝http://emacser.com/的ahei，

這個想法是在和TA談話時想到，

由於是邊試邊寫，程式中用到了本人以前寫的ppm-gen( http://www.emacswiki.org/emacs/ppm-gen.el )

 

基本思路是使用emacs lisp強大的advice功能，

 

在.emacs中加入以下程式碼：

 

(require 'ppm-gen) (defadvice image-type (around image-type-bmp first (source &optional type data-p) activate) (setq ad-return-value (cond (data-p (if (string-match "^BM" source) 'bmp ad-do-it)) (t (if (string-match ".*//.bmp" source) 'bmp ad-do-it))))) (defadvice create-image (around create-image-bmp (file-or-data &optional type data-p &rest props) activate) (setq ad-return-value (cond ((eq 'bmp type) (let (ppm-obj ppm-data) (setq ppm-obj (ppm-from-bmp file-or-data)) (setq ppm-data (with-temp-buffer (set-buffer-multibyte nil) (with-slots ((w width) (h height) pixels) ppm-obj (insert (format "P6 %d %d 255/r" w h)) (insert (concat pixels))) (buffer-substring-no-properties (point-min) (point-max)))) (create-image ppm-data 'pbm t))) (t ad-do-it)))) (add-to-list 'auto-mode-alist '("//.//(bmp//|BMP//)$" . image-mode)) 

 

然後你就把BMP檔案往emacs裡拖就可以拉。 C-cC-c也是可用，所謂完美就指這個。

 

善用這個例子，可以讓emacs顯示任何圖片的喔。