    }
   )
 
-(defn find-first [pred coll] (first (filter pred coll)) )
+(defn find-first 
+  "Helper function returning (first (filter pred coll))"
+  [pred coll] 
+  (first (filter pred coll)) )
 
 (defn data-path
-  "Corrects actual internal path to account for the inclusion of vectors as data structures."
+  "Converts a conceptual data path to an associative path usable by get-in.
+  The abstract internal path may include vectors as data structures which
+  are instructions to look up items in a list by a key."
   [context]
   (let [state @(:app-state-atom context)
         path-seq (:scope context)

(ns quiescent-model.state
  (:require [quiescent-model.events :as evt]))

(defn root-scope [app-state-atom]
  {
   :app-state-atom  app-state-atom
   :scope           []

                                 (update-in-context context operation))
  )

(defn context-op-builder 
  "Creates an application-state operation builder based on the given 
  context. In other words: returns a function that takes
  a function that can evolve the context data. This function, when called,
  returns a function that can do that operation in the larger context
  of the application state."
  [context] 
  (fn [op & triggers] (path-operator context op triggers)))
