File tree Expand file tree Collapse file tree 2 files changed +4
-1
lines changed
Expand file tree Collapse file tree 2 files changed +4
-1
lines changed Original file line number Diff line number Diff line change 190190 (reset! charts false )
191191 (reset! mode :save )
192192 (reset! show? :doc )
193+ (update-ddb [:main :docs :new-file? ] false )
193194 (let [location (async/<! ch)]
194195 (when (not= :cancel location)
195196 (cond (location :charts )
196197 (sr/gen-chart-zip )
197198
198- (not (get-ddb [:main :docs :doc-loaded? ]))
199+ (and (not (get-ddb [:main :docs :doc-loaded? ]))
200+ (not (get-ddb [:main :docs :new-file? ])))
199201 (do (update-ddb [:alert :txt ]
200202 " *** NO DOCUMENT LOADED" )
201203 (reset! (get-ddb [:alert :show? ]) true ))
Original file line number Diff line number Diff line change 561561 @session-name (vec names)))
562562 (reset! sessions (->> choices deref keys sort
563563 (mapv (fn[k] {:id k :label k}))))
564+ (update-ddb [:main :docs :new-file? ] true )
564565 (printchan @doc-files @choices)
565566 (reset! new? false )))]
566567 (fn [choices session-name file-name mode url charts all donefn cancelfn]
You can’t perform that action at this time.
0 commit comments