diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-05 09:18:36 +0900 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-05-26 08:44:57 +0900 |
commit | b40f83c6079351e911d4a19e83d7364f5804929c (patch) | |
tree | 452074662e4f05206b7f920888ad6121a5e62586 | |
parent | a194124cf64ebc8fe0d17055c05478325ba6fdd4 (diff) | |
download | dotfiles-b40f83c6079351e911d4a19e83d7364f5804929c.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 afc9e293..51a11ea8 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -1700,6 +1700,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 ---- @@ -1796,6 +1807,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) |