(defun mycapture (font buffer &optional size)
  (if (null size) (setq size 14))
  (let* ((window (get-buffer-window buffer t))
	 (old-cursor cursor-in-non-selected-windows)
	 (old-title frame-title-format)
	 (old-mbar menu-bar-mode))
    (with-selected-window window
      (setq cursor-in-non-selected-windows nil)
      (setq frame-title-format font)
      (menu-bar-mode 0)
      (set-frame-font font)
      (set-fontset-font (frame-parameter nil 'font)
			'japanese-jisx0208
			(font-spec :family "M+1M+IPAG" :size size))
      (set-frame-size (selected-frame) 33 10)
      (sit-for 1)
      (call-process "import" nil nil nil  "-frame" "-window"
		    (frame-parameter (selected-frame) 'window-id)
		    (concat
		     (mapconcat 'char-to-string
				(mapcar #'(lambda (x)
					    (if (eq x 32) 95 (downcase x)))
					font)
				nil)
		     ".png")))
    (setq frame-title-format old-title
          cursor-in-non-selected-windows old-cursor
	  menu-bar-mode old-mbar)))

;(mycapture "M+1M+IPAG-10" "sample.txt")

;(mapcar #'(lambda (x) (mycapture x "sample.txt"))
;	(list "M+1M+IPAG-10"
;	      "Dejavu Sans Mono-9"
;	      "Bitstream Vera Sans Mono-9"
;	      "Inconsolata\-dz-9"
;	      "Inconsolata\-g-9"
;	      "Inconsolata-10"
;	      "Consolas-10"
;	      ))

(mapcar #'(lambda (x) (mycapture x "sample.txt" 18))
	(list "M+1M+IPAG-13"
	      "Dejavu Sans Mono-11"
	      "Bitstream Vera Sans Mono-11"
	      "Inconsolata\-dz-11"
	      "Inconsolata\-g-11"
	      "Inconsolata-13"
	      "Consolas-12"
	      ))