chore: disable last-modified-at check when writing temporally

pull/1735/head
Tienson Qin 2021-04-30 19:16:43 +08:00
parent dc6acbab6c
commit fafce3f69f
2 changed files with 23 additions and 18 deletions

View File

@ -137,23 +137,26 @@
(p/let [_ (verify-permission repo file-handle true)
_ (utils/writeFile file-handle content)
file (.getFile file-handle)]
(if (and local-content new?
(or
draw?
;; Writing not finished
(> pending-writes 0)
;; not changed by other editors
not-changed?
new-created?))
(do
(p/let [_ (verify-permission repo file-handle true)
_ (utils/writeFile file-handle content)
file (.getFile file-handle)]
(when file
(nfs-saved-handler repo path file))))
(do
(js/alert (str "The file has been modified on your local disk! File path: " path
", please save your changes and click the refresh button to reload it."))))
(p/let [_ (verify-permission repo file-handle true)
_ (utils/writeFile file-handle content)
file (.getFile file-handle)]
(when file
(nfs-saved-handler repo path file)))
;; (if (and local-content new?
;; (or
;; draw?
;; ;; Writing not finished
;; (> pending-writes 0)
;; ;; not changed by other editors
;; not-changed?
;; new-created?))
;; (p/let [_ (verify-permission repo file-handle true)
;; _ (utils/writeFile file-handle content)
;; file (.getFile file-handle)]
;; (when file
;; (nfs-saved-handler repo path file)))
;; (js/alert (str "The file has been modified on your local disk! File path: " path
;; ", please save your changes and click the refresh button to reload it.")))
))
;; create file handle
(->

View File

@ -27,7 +27,9 @@
[repo dir path content {:keys [ok-handler error-handler] :as opts} stat]
(p/let [disk-mtime (when stat (gobj/get stat "mtime"))
db-mtime (db/get-file-last-modified-at repo path)]
(if (not= disk-mtime db-mtime)
(if
false
;; (not= disk-mtime db-mtime)
(js/alert (str "The file has been modified on your local disk! File path: " path
", please save your changes and click the refresh button to reload it."))
(->