Windowsの音量をEmacsから制御する

Emacsでコーディング中に音量を変更したくなったので書いてみました。

実際のボリュームコントロールには、mcvc.exeを使っています。
http://maglog.jp/mos-privpro/index.php?module=Article&action=ReaderDetail&article_id=10569

あとはmcvcを呼び出す関数を定義して、キーに割り当てるだけです。

.emacs

;; ボリューム
(defun volume-up ()
  (interactive)
  (call-process "mcvc.exe" nil nil nil "m+10")
  )

(defun volume-down ()
  (interactive)
  (call-process "mcvc.exe" nil nil nil "m-10")
  )

;; キーバインド
(global-set-key (kbd "C-;") 'volume-up)
(global-set-key (kbd "C-:") 'volume-down)

C-;、C-:でボリュームが変更できます。