Emacs 豆瓣电台

my-emacs-douban.el

(require 'ht)
(require 'web)
(require 'dash)

(defun my-emacs-douban-play ()
  (interactive)
  (web-http-get
   (lambda (con header data)
     ;; local variables
     (let* ((json (ht<-alist (json-read-from-string data)))
	    (songs (ht-get json 'song)))
       (progn
	 (-map (lambda (song) 
		 ;; add url to emms
		 (emms-add-url (ht-get (ht<-alist song) 'url)))
	       songs)
	 ;; start emms
	 (emms-start))))
   :url "http://douban.fm/j/mine/playlist?type=n&channel=0"))

(provide 'my-emacs-douban)