                                 user-handle
                                 consumer
                                 access-token
-                                arg-1))))
+                                arg-1)
+      (= "rank" cmd) (rank-to-read-books channel user-handle
+                                         consumer access-token
+                                         user-id)
+      (= "add" cmd) (add-book channel user-handle
+                              consumer access-token
+                              arg-1 "to-read"))))
 
 (defn handle-message
   [channel metadata body]

                  :sent-cmd "find-book"
                  :results books}))))

(defn process-command
  [channel user-handle cmd [arg-1 arg-2]]
  (let [handle (keyword user-handle)

                                  get-consumer
                                  get-request-token
                                  get-user-id]]
            [myshelf.books :refer [find-book-by-title]]
            [myshelf.friends :refer [get-user-friends]]
            [myshelf.rank :refer [rank-books]]
            [myshelf.shelves :refer [add-book-to-shelf
                                     get-all-books-on-shelf]])
  (:gen-class))

(def default-exchange "")
