feat(feature): add switch to toggle timetracking

Closed https://github.com/logseq/logseq/issues/548

src/main/frontend/components/settings.cljs

@@ -4,6 +4,7 @@
             [frontend.handler.notification :as notification]
             [frontend.handler.user :as user-handler]
             [frontend.handler.ui :as ui-handler]
+            [frontend.handler.repo :as repo-handler]
             [frontend.state :as state]
             [frontend.util :as util]
             [frontend.config :as config]
@@ -65,6 +66,7 @@
   (let [preferred-format (keyword (state/sub [:me :preferred_format]))
         preferred-workflow (keyword (state/sub [:me :preferred_workflow]))
         preferred-language (state/sub [:preferred-language])
+        enable-timetracking? (state/enable-timetracking?)
         github-token (state/sub [:me :access-token])
         cors-proxy (state/sub [:me :cors_proxy])
         logged? (state/logged?)
@@ -146,6 +148,17 @@
                     "NOW/LATER"
                     "TODO/DOING")])]]]]
 
+           [:div.mt-6.sm:grid.sm:grid-cols-3.sm:gap-4.sm:items-start.sm:pt-5
+            [:label.block.text-sm.font-medium.leading-5.opacity-70
+             {:for "enable_timetracking"}
+             (t :settings-page/enable-timetracking)]
+            [:div.mt-1.sm:mt-0.sm:col-span-2
+             [:div.max-w-lg.rounded-md.shadow-sm.sm:max-w-xs
+              (ui/toggle enable-timetracking?
+                         (fn []
+                           (let [value (not enable-timetracking?)]
+                             (repo-handler/set-config! :feature/enable-timetracking? value))))]]]
+
            [:hr]
 
            (ui/admonition

src/main/frontend/dicts.cljs

@@ -277,6 +277,7 @@ title: How to take dummy notes?
         :settings-page/edit-config-edn "Edit config.edn (for current repo)"
         :settings-page/preferred-file-format "Preferred file format"
         :settings-page/preferred-workflow "Preferred workflow"
+        :settings-page/enable-timetracking "Enable timetracking"
         :settings-page/dont-use-other-peoples-proxy-servers "Don't use other people's proxy servers. It's very dangerous, which could make your token and notes stolen. Logseq will not be responsible for this loss if you use other people's proxy servers. You can deploy it yourself, check "
         :settings-page/custom-cors-proxy-server "Custom CORS proxy server"
         :settings-page/developer-mode "Developer mode"
@@ -522,6 +523,7 @@ title: How to take dummy notes?
            :settings-page/edit-config-edn "编辑 config.edn (当前库)"
            :settings-page/preferred-file-format "首选文件格式"
            :settings-page/preferred-workflow "首选工作流"
+           :settings-page/enable-timetracking "开启 timetracking"
            :settings-page/dont-use-other-peoples-proxy-servers "不要使用其他人的代理服务器。这非常危险，可能会使您的令牌和笔记被盗。 如果您使用其他人的代理服务器，Logseq 将不会对此损失负责。您可以自己部署它，请查阅 "
            :settings-page/custom-cors-proxy-server "自定义 CORS 代理服务器"
            :settings-page/developer-mode "开发者模式"

src/main/frontend/handler/editor.cljs

@@ -792,10 +792,13 @@
 
 (defn- with-marker-time
   [block marker]
-  (let [properties (:block/properties block)]
-    (assoc (into {} properties)
-           (string/lower-case marker)
-           (util/time-ms))))
+  (let [properties (:block/properties block)
+        properties (into {} properties)]
+    (if (state/enable-timetracking?)
+      (assoc properties
+             (string/lower-case marker)
+             (util/time-ms))
+      properties)))
 
 (defn check
   [{:block/keys [uuid marker content meta file dummy? repeated?] :as block}]
@@ -1282,7 +1285,8 @@
           properties (into {} (:block/properties block))
           properties (if (and
                           new-marker
-                          (not= new-marker (:block/marker block)))
+                          (not= new-marker (:block/marker block))
+                          (state/enable-timetracking?))
                        (assoc properties new-marker (util/time-ms))
                        properties)]
       (let [cache [(:block/uuid block) value]]

src/main/frontend/handler/repo.cljs

@@ -405,7 +405,6 @@
            (db/cloned? repo-url)
            (not (state/get-edit-input-id)))
       (-> (p/let [files (js/window.workerThread.getChangedFiles (util/get-repo-dir (state/get-current-repo)))]
-            (prn {:changed-files files})
             (when (or
                    ;; FIXME:
                    force?

src/main/frontend/publishing/html.cljs

@@ -1,7 +1,8 @@
 (ns frontend.publishing.html
   (:require-macros [hiccups.core])
   (:require [frontend.config :as config]
-            [frontend.state :as state]))
+            [frontend.state :as state]
+            [hiccups.runtime]))
 
 (defn publishing-html
   [transit-db app-state]

src/main/frontend/state.cljs

@@ -140,6 +140,10 @@
   ([repo-url]
    (get-in @state [:config repo-url])))
 
+(defn sub-config
+  []
+  (sub :config))
+
 (defn get-custom-css-link
   []
   (:custom-css-url (get-config)))
@@ -150,7 +154,13 @@
 
 (defn enable-grammarly?
   []
-  (true? (:enable-grammarly? (get-config))))
+  (true? (:feature/enable-grammarly?
+          (get (sub-config) (get-current-repo)))))
+
+(defn enable-timetracking?
+  []
+  (not (false? (:feature/enable-timetracking?
+                (get (sub-config) (get-current-repo))))))
 
 (defn get-default-home
   []