06/12/08 10:30:05
とりあえず、SEMIを使って自分ができるやり方で作ってみたのですが
最後に、出力した画像を削除していて この削除が描画より早いと
描画してくれないみたいで困っています。
描画をまってから削除する方法があったら教えてもらえませんか?
(require 'mime)
(require 'iimage)
(defun howm-iimage ()
(interactive)
(let (imagename encoding content del-list)
(save-excursion
(beginning-of-buffer)
(while (re-search-forward
(concat "---image-" "\\(.+\\)"
"-encoding-" "\\(.+\\)" "-content-start---\n")
nil t)
(setq imagename (match-string 1))
(setq encoding (match-string 2))
(let ((start (point)))
(re-search-forward
(concat "---image-" imagename
"-encoding-" encoding "-content-end---\n")
nil t)
(unless (file-exists-p imagename)
(mime-write-decoded-region
start (match-beginning 0) imagename encoding)
(add-to-list 'del-list imagename))))
(iimage-mode-buffer 1)
;;(mapcar 'delete-file del-list) ;;ここが早いとダメ
)))