             {:results data})))
 
 
-
-
-(defn handle-transaction [session raw context]
+(defn handle-transaction [session _ raw]
   (println "WTF handle-transaction: ")
   (println "\t " session)
   (println "\t " raw)
   (def l-raw raw)
-  (let [[_ incoming] raw
+  (let [incoming     raw
         _            (def l-incoming incoming)
         full-session (dato-session session)
         dato-server  (session-server full-session)

    (ss-msg (keyword "server" (str (name p-name) "-succeeded"))
            {:results data})))

(defn r-qes-by [session [_ incoming] context]
  (let [qes-name (:name incoming)
        data     (->> (if (:v incoming)
                        (dsu/qes-by (session-db (dato-session session))

        _                (def -last-session session)
        _                (println "\targs: " args)
        handler          (get-in routing-table [[event] :handler] default-handler)
        ;; Temp hackishness
        handler          (if (var? handler)
                           @handler
                           handler)
        data             (if rpc?
                           {:server/rpc-id (:rpc/id msg-data)
                            :data          (apply (partial handler session all-sessions) args)}
                           (apply (partial handler session all-sessions) (or args)))
        _                (println "data: " (pr-str data))
        encoded          (cdc/encode data :transit)]
    (when data
