让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显示任何图片的喔。