diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-05 09:18:36 +0900 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-06-08 08:34:07 +0900 |
commit | 65d9d23df7f7153c4c8214d72a38d9cb346b1efa (patch) | |
tree | da5295e7dd92e12fc3f69fc059ffecd78055ee50 | |
parent | 46589bbd1211b30c3c1813ef158755e8414db879 (diff) | |
download | dotfiles-65d9d23df7f7153c4c8214d72a38d9cb346b1efa.tar.gz |
fire up BassDrive at school from Emacs
-rw-r--r-- | .emacs.d/init.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 1245ab74..dff8e16e 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -1737,6 +1737,17 @@ Lightweight alternative to pandoc-mode." (buffer-file-name) "-o" output-file) (find-file output-file)))) +(defun spw/play-internet-radio (stream) + "Open an Internet radio stream STREAM in VLC." + (call-process "C:\\Program Files\\VideoLAN\\VLC\\vlc.exe" + nil 0 nil + "--qt-start-minimized" stream)) + +(defun spw/bassdrive () + "Start playing the Bassdrive.com Internet radio stream." + (interactive) + (spw/play-internet-radio "C:\\Users\\swhitton\\Music\\Streams\\BassDrive.asx")) + ;;;; ---- personal settings ---- @@ -1834,6 +1845,7 @@ BINDEE may be a command or another keymap, but whatever it is, it should not be (projectile-persp-switch-project "~/src/dotfiles") (find-file "~/src/dotfiles/.emacs.d/init.el") (eval-buffer))) + ("g R" . spw/bassdrive) ("g t l" . world-time-list) ("g t h" . helm-world-time) |