     [selector]
     (.text ($ "#urlMethodInputDisplay") (.val ($ selector))))
 
+;; ----- Data manipulation functions for presented results -----
+
 (defn- html-escape 
   "Make a string possibly containing HTML display literally rather than as intepreted HTML."
   [string]

  "
  (s/join "-" (take 3 (rest (s/split (uuid) #"-")))))

(defn- set-base-uuid []
  "Generate and set a base UUID view for our page"
  (def base_uuid (short-uuid))

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

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

(defn- uuid
  "
