秋田の平凡な日々

http://www.geocities.co.jp/SiliconValley-Bay/6202/

過去の投稿日別表示

[ リスト | 詳細 ]

全1ページ

[1]

howmで画像の取り込み

Winshot と omcap.el でデスクトップの一部分を画像として取り込むための設定
※参考:  http://www.bookshelf.jp/soft/meadow_38.html#SEC565

●WinShotの導入
◆ダウンロード
ベクターまたは窓の杜からダウンロード。
・ベクター http://www.vector.co.jp/soft/dl/win95/art/se075666.html
・窓の杜 http://www.forest.impress.co.jp/lib/pic/piccam/capture/winshot.html

◆インストール
・解凍して,適当なフォルダへ保存。
・ninit.el へプログラム名を記述
(例)
保存したフォルダが
"D:\program\WinShot\"
のときは
"D:\\program\\WinShot\\WinShot.exe"

後述の ";WinShotのある場所を記述" の部分に記述する。

●imcap.el の導入
◆ダウンロード
(imcap.el というファイルが見つからなかったので)
http://howm.sourceforge.jp/cgi-bin/hiki/hiki.cgi?ImageCapture
に記載されている imcap.el の部分をコピーして Emacs や Windows のメモ帳などに貼り付け, imcap.el というファイル名で保存。

◆インストール
imcap.el を site-lisp(gnupack の場合は \gnupack_basic-10.02\app\emacs\site-lisp)へコピー。

●init.el の設定
 Emacs の設定ファイル init.el(gnupack の場合は \gnupack_basic-10.02\home\.emacs.d にある)へ以下を追加する。

;;M-x imcap-capture  デスクトップの一部分を画像として取り込むための設定
;WinShotパスに注意
(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
       "D:\\program\\WinShot\\WinShot.exe"     ;WinShotのある場所を記述
       " -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)

;;画像を削除したい
(defadvice kill-region
  (around delete-image-file activate)
  (when (and (boundp 'howm-mode)
             howm-mode)
    (let ((str
           (split-string
            (buffer-substring-no-properties
             (ad-get-arg 0)
             (ad-get-arg 1)) "[\n\r]+"))
          (line nil)
          (imagefile nil))
      (while str
        (setq line (car str))
        (if (string-match
             ">>> \\(.*\\.\\(jpg\\|png\\|gif\\)\\)"
             line)
            (setq imagefile (match-string 1 line)))
        (when (and imagefile
                   (file-exists-p
                    (expand-file-name imagefile)))
          (if (y-or-n-p
               (format
                "Delete image file %s?" imagefile))
              (progn
                (setq imagefile
                      (expand-file-name imagefile))
                (delete-file imagefile))))
        (setq imagefile nil)
        (setq str (cdr str)))))
  ad-do-it)

全1ページ

[1]


.


プライバシー -  利用規約 -  メディアステートメント -  ガイドライン -  順守事項 -  ご意見・ご要望 -  ヘルプ・お問い合わせ

Copyright (C) 2019 Yahoo Japan Corporation. All Rights Reserved.

みんなの更新記事