update project to use external library clj-spotify-playlist-copier

Author: vjo

README.md

@@ -7,8 +7,9 @@ Archieve Spotify's Discover Weekly playlist in a new playlist.
 This project is build in [Clojure](http://clojure.org) without any experience, just for fun.
 
 It uses a few libraries:
-* [clj-spotify](https://github.com/blmstrm/clj-spotify)
+* [clj-spotify-playlist-copier](https://github.com/vjo/clj-spotify-playlist-copier)
 * [tools.cli](https://github.com/clojure/tools.cli)
+* [clj-time](https://github.com/clj-time/clj-time)
 
 ### Limitation
 
@@ -28,7 +29,7 @@ $ lein uberjar
 ## Usage
 
 ```shell
-$ java -jar target/uberjar/discover-weekly-archivist-0.1.0-SNAPSHOT-standalone.jar -p
+$ java -jar target/uberjar/discover-weekly-archivist-0.1.0-SNAPSHOT-standalone.jar -l "your-login" -t "your-token" -p
 ```
 
 ## Options

project.clj

@@ -5,8 +5,7 @@
             :url "http://www.eclipse.org/legal/epl-v10.html"}
   :dependencies [[org.clojure/clojure "1.7.0"]
                  [org.clojure/tools.cli "0.3.3"]
-                 [cheshire "5.5.0"]
-                 [clj-spotify "0.1.2"]
+                 [clj-spotify-playlist-copier "0.1.0"]
                  [clj-time "0.11.0"]]
   :main ^:skip-aot discover-weekly-archivist.core
   :target-path "target/%s"

src/discover_weekly_archivist/core.clj

@@ -3,7 +3,7 @@
             [clojure.string :as string]
             [clj-time.core :as t]
             [clj-time.format :as f]
-            [discover-weekly-archivist.spotify-playlist-clone :as sptfy-clone])
+            [clj-spotify-playlist-copier.core :as sptfy-playlist-copier])
   (:gen-class :main true))
 
 (def cli-options
@@ -44,8 +44,8 @@
   (str (#(f/unparse (f/formatters :year-month-day) %) (get-monday-from-week (t/now))) " Discover Weekly"))
 
 (defn do-transfer [user-id, token, name, public?]
-  (let [playlist-name (if (not (nil? name)) name (create-playlist-name))
-        hello (sptfy-clone/do-clone user-id token "Discover Weekly" playlist-name public?)]
+  (let [playlist-name (if (not (nil? name)) name (create-playlist-name))]
+    (sptfy-playlist-copier/do-copy :user-id user-id :token token :playlist-name-to-copy "Discover Weekly" :playlist-name-new playlist-name :public? public?)
     (println "Done")))
 
 (defn -main [& args]