     user      (conj (common-rep/link-map "company-create" "POST" "/companies/" company-rep/media-type))
     companies (into (mapv company-link companies))))
 
-;; ----- Resources - see: http://clojure-liberator.github.io/liberator/assets/img/decision-graph.svg
-
-(defn handle-get [{:keys [user] :as _ctx}]
+(defn render-entry [{:keys [user] :as _ctx}]
   (let [companies (when user (company-res/get-companies-by-index "org-id" (:org-id user)))]
     (json/generate-string
       {:links (links user companies)}
       {:pretty true})))
+
+;; ----- Resources - see: http://clojure-liberator.github.io/liberator/assets/img/decision-graph.svg
 
 (defresource entry-point []
   common/anonymous-resource


(defroutes entry-routes
  (OPTIONS "/" [] (entry-point))
  (GET "/" [] (entry-point)))

            [cheshire.core :as json]))

;; ----- Representations

(defn company-link [{:keys [name] :as c}]
  (common-rep/link-map "company" "GET" (company-rep/url c) company-rep/media-type :name name))
