 
 (def state (atom {:stamp-type :bottom
                   :stamp-path {:bottom "/home/dimka/free-away/avatars/stamp_bot.png"
-                               :top    "/home/dimka/free-away/avatars/stamp_top.png"} }))
+                               :top    "/home/dimka/free-away/avatars/stamp_top.png"}
+                  :save-dir-orig "/home/dimka/free-away/avatars/orig/"
+                  :save-dir-new "/home/dimka/free-away/avatars/new/"
+                  }))
 (defn update-state [& args]
   (apply swap! state assoc args))
 

                            (do
                              ;; important to put it back to channel immediately so others could read
                              (>! active-chan false)
                              (prepare-avatars (text te-name) lb-log form)
                              ))))


                                                  :group bg-stamp-pos
                                                  :selected? (= :bottom (:stamp-type @state))
                                                  )]) "wrap"]
                      [(label
                        :foreground "#bbb"
                        :font "Terminus"
                        :text "Аватарки будут сохранены в:") "span 2,wrap"]
                      [(label :id :save-label-orig
                              :font "Terminus"
                              :foreground "#bbb"
                              :text (:save-dir-orig @state)) "span 2,wrap"]
                      [(label :id :save-label-new
                              :font "Terminus"
                              :foreground "#bbb"
                              :text (:save-dir-new @state)) "span 2,wrap"]
                      [(button :text "Проштамповать") "wrap,skip 1"]
                      [(label "") "grow,push,span 2,wrap"] ;; empty filler
                      [(scrollable (log-window :id :log
                                               :rows 8
                                               :columns 80
