howm にキャプチャ画像を挿入する設定

gistfile1.el

;;; howm にキャプチャ画像を挿入する設定
;;; imcap.el を使っている。
;;; M-x imcap-capture: キャプチャ画像を取って挿入
;;; M-x imcap-display: 表示されていないキャプチャ画像を表示
;;; via. Meadow/Emacs memo: メモを書こう
;;; (http://www.bookshelf.jp/soft/meadow_38.html#SEC565)
;;; WinShot.exe にパスを通して、キャプチャ画像の保存先を ~ やスペースを含まない場所にしておく必要がある。
(setq
 howm-excluded-file-regexp
 (concat
  "\\(^\\|/\\)\\([.]\\|CVS/\\)\\|"
  "[~#]$\\|"
  "\\.\\("
  (mapconcat
   (lambda (f) f)
   '(
     "doc" "pdf" "ppt" "xls"
     "bak" "elc" "gz" "aux"
     "toc" "idx" "dvi" "jpg"
     "gif" "png"
     ) "\\|") "\\)$"))
(setq imcap-capture-command-format
      (concat
       "WinShot.exe" ;; パスを通してあるので実行ファイル名だけでよし。~ やスペースが含まれているパスは指定できないので注意。
       " -Jpeg -Rectangle -Close -File %s"))
(autoload 'imcap-capture "imcap"
  "Hitori Otegaru Wiki Modoki image capture" t)
(autoload 'imcap-display "imcap"
  "Hitori Otegaru Wiki Modoki image capture" t)
(add-hook 'howm-view-open-hook 'imcap-display)
(setq imcap-directory "C:/capture") ;; キャプチャ画像の保存先を指定。~ やスペースが含まれているパスは指定できないので注意。