   "
   (s/join "-" (take 3 (rest (s/split (uuid) #"-")))))
 
+(defn- update-uuid-value
+    [selector]
+    (.text ($ "#urlUUIDInputDisplay") (.val ($ selector))))
+
 (defn- set-base-uuid []
   "Generate and set a base UUID view for our page"
   (def base_uuid (short-uuid))

(defn- time-ago
  "Use the momemnt.js library to return a human readable English string describing how long ago the request was made."
  [result]
  (.fromNow (js/moment. (aget result "timestamp"))))

;; ----- Result Table Building Functions -----

(defn- table-header [label]
  [:tr [:th.text-center {:colspan 2} label]])

                [clojure.string :as s]
                [hiccups.runtime :as hiccupsrt]))

;; ----- Unique UUID generation -----

(defn- uuid
  "
