 
 
 
-(def dbg (atom {}))
 
 (defn htseq-file-get [args reqmap]
   (infof "Args %s\nParams %s" args (reqmap :params))

  ([key-path] (hc/get-db app-db key-path)))




;;; ------------------------------------------------------------------------;;;
;;;                   Aerobio Application Messaging...                      ;;;
;;; ------------------------------------------------------------------------;;;

(defn send-end-msg [ws msg]
  (srv/send-msg ws msg)
  (srv/send-msg ws {:op :stop :payload {}} :noenvelope true))

(defmulti user-msg :op)





(defn date-time-map []
  (let [dt (->> (java.time.LocalDateTime/now) str (austr/split #"T")
                (mapv #(vector %1 %2) [:date :time]) (into {}))
        time (->> dt :time (austr/split #":")
                  (mapv #(vector %1 %2) [:hour :min :sec]) (into {}))
        dt (assoc dt :time-bits time)]
    dt))

;;; ------------------------------------------------------------------------;;;
;;;                    Tool Config and  Watcher                             ;;;
;;; ------------------------------------------------------------------------;;;
