From 65d9d23df7f7153c4c8214d72a38d9cb346b1efa Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 5 Mar 2015 09:18:36 +0900 Subject: fire up BassDrive at school from Emacs --- .emacs.d/init.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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) -- cgit v1.2.3