diff --git a/init.el b/init.el index f1d3587..1efce97 100644 --- a/init.el +++ b/init.el @@ -2511,7 +2511,6 @@ With given ARG, display files in `db/important-document-path’." db/playlist-files-from-git-annex-find db/play-auto-playlist-from-git-annex-find music-control/body - db/play-radio-stations db/update-playlist-files)) diff --git a/site-lisp/db-music.el b/site-lisp/db-music.el index 84790ad..9effe1a 100644 --- a/site-lisp/db-music.el +++ b/site-lisp/db-music.el @@ -122,47 +122,6 @@ _RET_: ?RET? _s_: ?s? ("P" (db/play-auto-playlist) "Play automatically generated playlist")) - - -;; Radio Stations - -(defcustom db/radio-stations - '(("RBB RadioEins" . - "http://rbb-radioeins-live.cast.addradio.de/rbb/radioeins/live/mp3/48/stream.mp3") - ("Deutschlandfunk" . - "http://st01.dlf.de/dlf/01/64/mp3/stream.mp3") - ("Deutschlandradio Kultur" . - "https://st02.sslstream.dlf.de/dlf/02/64/mp3/stream.mp3") - ("Deutschlandfunk Nova" . - "https://st03.sslstream.dlf.de/dlf/03/64/mp3/stream.mp3") - ("DR P7" . - "http://live-icy.gss.dr.dk/A/A21L.mp3.m3u") - ("BBC1 -- Mainstream" . - "http://bbcmedia.ic.llnwd.net/stream/bbcmedia_radio1_mf_p") - ("BBC2 -- Adult Contemporary" . - "http://bbcmedia.ic.llnwd.net/stream/bbcmedia_radio2_mf_p") - ("BBC4 -- Info, Drama, Documentation" . - "http://bbcmedia.ic.llnwd.net/stream/bbcmedia_radio4fm_mf_p") - ("BBC6 -- Music" . - "http://bbcmedia.ic.llnwd.net/stream/bbcmedia_6music_mf_p") - ("BBC World Service" . - "http://bbcwssc.ic.llnwd.net/stream/bbcwssc_mp1_ws-eieuk") - ("NDR1 Niedersachsen" . - "https://ndr-ndr1niedersachsen-hannover.sslcast.addradio.de/ndr/ndr1niedersachsen/hannover/mp3/128/stream.mp3")) - "An alist of radio station names and a corresponding URL." - :group 'db-music - :type '(alist :key-type (string :tag "Radio Station") - :value-type (string :tag "URL"))) - -(defun db/play-radio-stations () - "Prompt for radio station and play the corresponding URL using EMMS. -Candidates are taken from `db/radio-stations'." - (interactive) - (-> (completing-read "Station: " db/radio-stations nil t) - (assoc db/radio-stations) - cdr - emms-play-url)) - ;; Playlist management