diff options
author | Tom Willemsen | 2012-11-27 11:12:33 +0100 |
---|---|---|
committer | Tom Willemsen | 2012-11-27 11:12:33 +0100 |
commit | 19524caf26e674c7d24180edf5b2d45515148f1a (patch) | |
tree | a63f68adff7863a71130e01c67c875d3e7efdccc | |
parent | 7dc3ebbcc158ba900e11a9398635ef840e389a9e (diff) | |
download | dotfiles-19524caf26e674c7d24180edf5b2d45515148f1a.tar.gz dotfiles-19524caf26e674c7d24180edf5b2d45515148f1a.zip |
.emacs.d/site-lisp/metalexpress.el
-rw-r--r-- | .emacs.d/site-lisp/metalexpress.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/.emacs.d/site-lisp/metalexpress.el b/.emacs.d/site-lisp/metalexpress.el index 9d57c19..ef67d83 100644 --- a/.emacs.d/site-lisp/metalexpress.el +++ b/.emacs.d/site-lisp/metalexpress.el @@ -32,13 +32,18 @@ "http://usa7-vn.mixstream.net/listen/8248.m3u" "The URL of the Metal Express Radio stream.") +(defun mer-proc-filter (proc string) + (when (string-match "^ICY Info: StreamTitle='\\(.*\\)';StreamUrl='';" + string) + (message (match-string 1 string)))) + ;;;###autoload (defun metal-express-radio-start () "Start listening to Metal Express Radio." (interactive) - (async-shell-command - (concat "mplayer " metal-express-radio-playlist-url) - "*Metal Express Radio*")) + (let ((proc (start-process "metalexpress" "*Metal Express Radio*" + "mplayer" metal-express-radio-playlist-url))) + (set-process-filter proc #'mer-proc-filter))) (defun metal-express-radio-stop () "Stop listening to Metal Express Radio." |