Skip to content
radios I listen
Branch: master
Clone or download
Pull request Compare This branch is 31 commits ahead of abelboldu:master.
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Type Name Latest commit message Commit time
Failed to load latest commit information.
radio23
soma
vlc
100-chill.m3u
README.md
bronka.m3u
canora.pls
catinfo.m3u
ddur_maxogg.m3u
freeundergoundtekno.asx
jazz-light.m3u
knradio.pls
limbiqfreq-idm.pls
makesomenoise.m3u
ozora_chill.pls
ozora_trance.pls
rac1.pls
radio-chopin.m3u
radio3.pls
radiocloud.pls
reggae141.pls
rmf_classic.pls
wdr3_hq.m3u

README.md

radios

radios I listen

Usage

basic: mplayer -playlist file.pls

Fancy:

ls **/* | dmenu | xargs mplayer -playlist

Emacs:

(defun radio ()
  (interactive)
  (let ((filename (ido-completing-read
                    "which radio?: "
                    (find-lisp-find-files "~/bin/radios/"
                                          (rx "." (or "pls" "asx" "m3u" "m4a") eol))
                                          nil
                                          t))
        (async-shell-command-buffer 'confirm-kill-process)
        (display-buffer-alist '(("*mplayer*" . (display-buffer-no-window)))))

    (if (s-matches-p "vlc" filename)
        (async-shell-command (concat "cvlc " filename) "*mplayer*")
      (async-shell-command (concat "mplayer -playlist " filename) "*mplayer*"))
    (with-current-buffer "*mplayer*"
      (setq show-trailing-whitespace nil))
    (message "choosen: %s" filename)))


(defun kill-radio ()
  (interactive)
  (ignore-errors
    (kill-buffer "*mplayer*")))
You can’t perform that action at this time.