;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require emms emms-source-playlist emms-playlist-mode] 2) #@37 Name for creating a streams buffer. (defvar emms-streams-buffer-name "Emms Streams" (#$ . 198)) #@61 Explaining the relationship between Emms and these streams. (defvar emms-streams-built-in-disclaimer ";; This includes the built-in list of streams which come with Emms by\n;; default. Emms has no affiliation of any kind with the streaming\n;; audio stations listed below, nor is this an endorsement of these\n;; stations. Instead, this is a collection of stations submitted to\n;; the project over the years by people who enjoy Emms. We hope you\n;; will enjoy them too." (#$ . 300)) (defvar emms-streams-built-in-list '((*track* (type . streamlist) (name . "http://www.somafm.com/beatblender.pls") (metadata "SomaFM: Beatblender" "http://www.somafm.com/beatblender.pls" 1 streamlist)) (*track* (type . streamlist) (name . "http://www.somafm.com/secretagent.pls") (metadata "SomaFM: Secret Agent" "http://www.somafm.com/secretagent.pls" 1 streamlist)) (*track* (type . streamlist) (name . "http://www.somafm.com/groovesalad.pls") (metadata "SomaFM: Groove Salad" "http://www.somafm.com/groovesalad.pls" 1 streamlist)) (*track* (type . streamlist) (name . "http://www.somafm.com/dronezone.pls") (metadata "SomaFM: Drone Zone" "http://www.somafm.com/dronezone.pls" 1 streamlist)) (*track* (type . streamlist) (name . "http://www.somafm.com/tagstrance.pls") (metadata "SomaFM: Tag's Trance" "http://www.somafm.com/tagstrance.pls" 1 streamlist)) (*track* (type . streamlist) (name . "http://www.somafm.com/indiepop.pls") (metadata "SomaFM: Indie Pop Rocks" "http://www.somafm.com/indiepop.pls" 1 streamlist)) (*track* (type . streamlist) (name . "http://www.somafm.com/doomed.pls") (metadata "SomaFM: Doomed" "http://www.somafm.com/doomed.pls" 1 streamlist)) (*track* (type . url) (name . "http://listen.radionomy.com:80/-PHILOSOMATIKAPROGRESSIVE-") (metadata "P H I L O S O M A T I K A - Progressive Psytrance" "http://listen.radionomy.com:80/-PHILOSOMATIKAPROGRESSIVE-" 1 url)) (*track* (type . streamlist) (name . "http://www.bassdrive.com/BassDrive.m3u") (metadata "Drum and Bass Radio, BassDrive" "http://www.bassdrive.com/BassDrive.m3u" 1 streamlist)) (*track* (type . streamlist) (name . "http://www.ibiblio.org/wcpe/wcpe.pls") (metadata "WCPE, Classical Music" "http://www.ibiblio.org/wcpe/wcpe.pls" 1 streamlist)) (*track* (type . streamlist) (name . "http://stream.nute.net/kohina/stream.ogg.m3u") (metadata "Kohina - Old school game and demo music" "http://stream.nute.net/kohina/stream.ogg.m3u" 1 streamlist)) (*track* (type . streamlist) (name . "http://privat.is-by.us:8000/necta192.mp3.m3u") (metadata "Nectarine, Demoscene Radio, DE Continuum's relay 192 mp3" "http://privat.is-by.us:8000/necta192.mp3.m3u" 1 streamlist)) (*track* (type . streamlist) (name . "http://nectarine.from-de.com/necta192.m3u") (metadata "Nectarine, Demoscene Radio, DE stream (High Bitrate)" "http://nectarine.from-de.com/necta192.m3u" 1 streamlist)) (*track* (type . streamlist) (name . "http://www.wfmu.org/wfmu.pls") (metadata "WFMU, Freeform radio" "http://www.wfmu.org/wfmu.pls" 1 streamlist)) (*track* (type . streamlist) (name . "http://wfmu.org/wfmu_rock.pls") (metadata "WFMU, Rock'n'Soul Ichiban!" "http://www.wfmu.org/wfmu.pls" 1 streamlist)) (*track* (type . streamlist) (name . "http://wfmu.org/wfmu_drummer.pls") (metadata "WFMU, Give the Drummer Radio" "http://www.wfmu.org/wfmu.pls" 1 streamlist)) (*track* (type . streamlist) (name . "http://wfmu.org/wfmu_sheena.pls") (metadata "WFMU, Sheena's Jungle Room" "http://www.wfmu.org/wfmu.pls" 1 streamlist)) (*track* (type . streamlist) (name . "http://nyc01.egihosting.com:6232/listen.pls") (metadata "WBCR-LP - Berkshire Community Radio" "http://nyc01.egihosting.com:6232/listen.pls" 1 streamlist)) (*track* (type . streamlist) (name . "http://199.244.85.125:8000/wxhq1") (metadata "WXHQ-LP - Newport Radio" "http://199.244.85.125:8000/wxhq1" 1 streamlist)))) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable emms-streams-file funcall function #[0 "\301!\302P\207" [emms-directory file-name-as-directory "streams.emms"] 2] "A file used to store the built-in streams." :group emms :type file] 8) #@46 Install FILE, containing streams. (fn FILE) (defalias 'emms-streams-install-file #[257 "\304\305!!\204\306\305!!\210\307!\203#\307!\203U\310\311\312\"!\203U\313\314\"\210\315\316\317\"r\211q\210\320\321\"\216 c\210\311\322\n\"c\210\323\324\325 \326#\327Qc\210\330ed#\210*\210\313\331\"\207\313\332!\207" [emms-streams-file emms-source-playlist-native-header-line emms-streams-built-in-disclaimer emms-streams-built-in-list file-directory-p file-name-directory make-directory file-exists-p y-or-n-p format "overwrite existing %s?" message "writing %s" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] "\n%s\n\n" "(" mapconcat #[257 "\300\301\"\207" [format "%S"] 4 "\n\n(fn E)"] "\n" ")" write-region "writing %s... done" "aborting"] 7 (#$ . 4395)]) (defalias 'emms-streams-install #[0 "\301!\207" [emms-streams-file emms-streams-install-file] 2 nil nil]) (defalias 'emms-streams #[0 "\303!\204\304\305!\203\306 \210\307 !\211\204-r\310 !q\210p\262\311 \210\312\313p!\210\314!\210)\315!\207" [emms-streams-file emms-streams-buffer-name emms-playlist-buffer-p file-exists-p y-or-n-p "Emms' built-in streams file hasn't been installed yet. Install it now?" emms-streams-install get-buffer get-buffer-create emms-playlist-mode t emms-playlist-set-playlist-buffer emms-add-native-playlist switch-to-buffer] 3 nil nil]) (provide 'emms-streams)