diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-05 09:18:36 +0900 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-06-10 15:44:06 +0900 |
| commit | 1e25ac55793b5c51afb59fd0eaeed092e36d747c (patch) | |
| tree | 00dd85243f89a8bc9ce012c4b433cea1a6a0bb9c | |
| parent | 8d8ad7cadd6bb482fdcda50660b24b9f17980b60 (diff) | |
| download | dotfiles-1e25ac55793b5c51afb59fd0eaeed092e36d747c.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) |