     (reduce #(apply rekey %1 %2)
       m (partition 2 (conj ks knew kold)))))
 
+(defn select-and-rekey [m & ks]
+    (apply rekey (select-keys m (apply concat (partition 1 2 ks))) ks))
+
 ;; mm utils
 (defn get-default-devices []
   {:camera          (. mmc getCameraDevice)

(defn test-dialog [eng]
  (.show (AcqControlDlg. eng (Preferences/userNodeForPackage (.getClass gui)) gui)))

   

   
              2 [(.x stage-pos) (.y stage-pos)])])))})

;; acq-engine
 
(defn clock-ms []
  (quot (System/nanoTime) 1000000))

