clj-lastfm/src/clj_lastfm/examples.clj

17 lines
570 B
Clojure

(ns clj-lastfm.examples
(:use [clj-lastfm.core]))
(defn- indexed [s] (map vector (iterate inc 1) s))
(defn print-topten-tracks [artist-name]
(doseq [[idx name]
(->> artist-name artist-toptracks (take 10) (map :name) indexed)]
(println (format "%s. %s" idx name))))
(defn print-topten-album-search-results [album-name]
(doseq [[idx [name artist]]
(->> album-name album-search (take 10)
(map #(vector (:name %) (-> % :artist :name)))
indexed)]
(-> "%s. \"%s\" by %s" (format idx name artist) println)))