                   "test"
                   dirname) ; TODO - this, more elegantly
         path (str common/storage-dir dirname "/")
-        csv-path (str path start-time ".csv")
-        png-path (str path start-time ".png")
+        csv-path (str path dirname start-time ".csv")
         output (atom [])
         writer-chan (chan 30)
         battery-dead (atom false)

(declare runtime-test)

(def runtime-layout
  [:linear-layout {:orientation :vertical
                   :layout-width :fill
                   :layout-height :wrap
                   :def `layout-handle}
   [:edit-text {:id ::filename
                :hint "Name output file"
                :layout-width :fill}]

              :on-click #'reset-peak}]]
   ])

(defn runtime-test [_evt]
  (.mkdirs (File. common/storage-dir))
  (let [start-time (. System nanoTime)
