Remove custom function to play radio stations
This is done via helm-emms nowadays.
This commit is contained in:
parent
3d119fdd18
commit
1b3acb5c20
1
init.el
1
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))
|
||||
|
||||
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue