greatbody
/
logseq
mirror of https://github.com/logseq/logseq
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

remove unused debugging

pull/4750/head
Tienson Qin 2022-03-31 14:41:56 +08:00
parent 544f0aed81
commit 418d084268
1 changed files with 1 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
src/main/frontend/debug.cljs
View File

@ -1,58 +1,9 @@
(ns frontend.debug
(:require-macros [frontend.debug])
(:refer-clojure :exclude [print])
(:require [cljs.pprint :as pprint]
[frontend.state :as state]
[frontend.util :as util]))
[frontend.state :as state]))
(defn pprint
[& xs]
(when (state/developer-mode?)
(doseq [x xs]
(pprint/pprint x))))
(defn print
[& xs]
(println "Time: " (str (js/Date.)))
(apply println xs))
(defonce ack-wait-timeouts (atom {}))
(defonce default-write-ack-timeout 10000)
;; For debugging file changes are not saved on disk.
(defn wait-for-write-ack!
[_page-title file-path]
(when file-path
(let [requested-at (util/time-ms)]
(state/set-state! [:debug/write-acks file-path :last-requested-at] requested-at)
(when-let [timeout (get @ack-wait-timeouts file-path)]
(js/clearTimeout timeout))
(let [timeout (js/setTimeout (fn []
(let [last-ack-at (get-in @state/state [:debug/write-acks file-path :last-ack-at])]
(when-not (and last-ack-at
(< requested-at last-ack-at (+ requested-at default-write-ack-timeout)))
(let [step (get-in @state/state [:debug/write-acks file-path :step])]
(state/pub-event! [:instrument {:type :debug/write-failed
:payload {:step step}}])
;; (notification/show!
;; (str "Logseq failed to save the page "
;; page-title
;; " to the file: "
;; file-path
;; ". Stop editing this page anymore, and copy all the blocks of this page to another editor to avoid any data-loss.\n"
;; "Last step: "
;; step)
;; :error)
))))
default-write-ack-timeout)]
(swap! ack-wait-timeouts assoc file-path timeout)))))
(defn ack-file-write!
[file-path]
(let [ack-at (util/time-ms)]
(state/set-state! [:debug/write-acks file-path :last-ack-at] ack-at)))
(defn set-ack-step!
[file-path step]
(state/set-state! [:debug/write-acks file-path :step] step))