servlet.clj

(defn book->facebook [{:keys [uid title link description image]} secret]
  (call {:method "Stream.publish"
         :call_id (call-id)
         :message (format "has added a book to LibraryThing")
         :api_key (bb "api.key")
         :action_links (encode-to-str
                         [{:text "LibraryThing"
                           :href "http://www.librarything.com/"}])
         :attachment (encode-to-str
                       {:name title
                        :href link
                        :description description
                        :media [{:type "image"
                                 :src image
                                 :href link}]})
         :uid uid}
        secret))