(require 'auto-shell-command) ;;; キーバインドの設定 ;; 一時的に無効・有効にする (global-set-key (kbd "C-c C-m") 'ascmd:toggle) ;; 実行結果をポップアップ表示する (global-set-key (kbd "C-c C-,") 'ascmd:popup) ;; ファイルを指定してそれに対応するコマンドを実行させる (global-set-key (kbd "C-c C-.") 'ascmd:exec) ;;; エラー時のポップアップを見やすくする (push '("*Auto Shell Command*" :height 20 :noselect t) popwin:special-display-config) ;;; 結果の通知をGrowlで行う (optional) ;; (defun ascmd:notify (msg) (deferred:process-shell (format "growlnotify -m %s -t emacs" msg)))) ;;; 各ファイルごとの設定 ;;; $FILEがファイル名, $DIRがディレクトリ名に置換されます ;; junk/以下のRubyスクリプトは無条件で実行 (ascmd:add '("junk/.*\.rb" "ruby $FILE"))