fix: set recur frequency default to 1 if it's empty

src/main/frontend/worker/commands.cljs

@@ -7,6 +7,7 @@
             [logseq.common.util.date-time :as date-time-util]
             [logseq.db :as ldb]
             [logseq.db.frontend.property :as db-property]
+            [logseq.db.frontend.property.build :as db-property-build]
             [logseq.db.frontend.property.type :as db-property-type]
             [logseq.db.sqlite.util :as sqlite-util]
             [logseq.outliner.pipeline :as outliner-pipeline]))
@@ -150,10 +151,17 @@
                         (t/plus (t/now) delta))]
         (tc/to-long next-time)))))
 
-(defmethod handle-command :reschedule [_ db entity _datoms]
+(defmethod handle-command :reschedule [_ conn db entity _datoms]
   (let [property-ident (or (:db/ident (:logseq.property.repeat/temporal-property entity))
                            :logseq.property/scheduled)
-        frequency (db-property/property-value-content (:logseq.property.repeat/recur-frequency entity))
+        frequency (or (db-property/property-value-content (:logseq.property.repeat/recur-frequency entity))
+                      (let [property (d/entity db :logseq.property.repeat/recur-frequency)
+                            default-value-block (db-property-build/build-property-value-block property property 1)
+                            default-value-tx-data [default-value-block
+                                                   {:db/id (:db/id property)
+                                                    :logseq.property/default-value [:block/uuid (:block/uuid default-value-block)]}]]
+                        (d/transact! conn default-value-tx-data)
+                        1))
         unit (:logseq.property.repeat/recur-unit entity)
         property (d/entity db property-ident)
         date? (= :date (:logseq.property/type property))
@@ -175,12 +183,12 @@
            (when value
              [[:db/add (:db/id entity) property-ident value]])))))))
 
-(defmethod handle-command :set-property [_ _db entity _datoms property value]
+(defmethod handle-command :set-property [_ _db _conn entity _datoms property value]
   (let [property' (get-property entity property)
         value' (get-value entity property value)]
     [[:db/add (:db/id entity) property' value']]))
 
-(defmethod handle-command :record-property-history [_ db entity datoms]
+(defmethod handle-command :record-property-history [_ _conn db entity datoms]
   (let [changes (keep (fn [d]
                         (let [property (d/entity db (:a d))]
                           (when (and (true? (get property :logseq.property/enable-history?))
@@ -198,7 +206,7 @@
            :logseq.property.history/property (:db/id property)})))
      changes)))
 
-(defmethod handle-command :default [command _db entity datoms]
+(defmethod handle-command :default [command _conn _db entity datoms]
   (throw (ex-info "Unhandled command"
                   {:command command
                    :entity entity
@@ -206,12 +214,12 @@
 
 (defn execute-command
   "Build tx-data"
-  [db entity datoms [_command {:keys [actions]}]]
+  [conn db entity datoms [_command {:keys [actions]}]]
   (mapcat (fn [action]
-            (apply handle-command (first action) db entity datoms (rest action))) actions))
+            (apply handle-command (first action) conn db entity datoms (rest action))) actions))
 
 (defn run-commands
-  [{:keys [tx-data db-after]}]
+  [conn {:keys [tx-data db-after]}]
   (let [db db-after]
     (mapcat (fn [[e datoms]]
               (let [entity (d/entity db e)
@@ -223,6 +231,6 @@
                                         (every? #(satisfy-condition? db entity % datoms) tx-conditions))) @*commands)]
                 (mapcat
                  (fn [command]
-                   (execute-command db entity datoms command))
+                   (execute-command conn db entity datoms command))
                  commands)))
             (group-by :e tx-data))))

src/main/frontend/worker/pipeline.cljs

@@ -215,11 +215,11 @@
           (nil? created-by-ent) (cons created-by-block))))))
 
 (defn- compute-extra-tx-data
-  [repo tx-report]
+  [repo conn tx-report]
   (let [{:keys [db-before db-after tx-data tx-meta]} tx-report
         display-blocks-tx-data (add-missing-properties-to-typed-display-blocks db-after tx-data)
         commands-tx (when-not (or (:undo? tx-meta) (:redo? tx-meta) (:rtc-tx? tx-meta))
-                      (commands/run-commands tx-report))
+                      (commands/run-commands conn tx-report))
         insert-templates-tx (insert-tag-templates repo tx-report)
         created-by-tx (add-created-by-ref-hook db-before db-after tx-data tx-meta)]
     (concat display-blocks-tx-data commands-tx insert-templates-tx created-by-tx)))
@@ -228,7 +228,7 @@
   [repo conn {:keys [tx-meta] :as tx-report} context]
   (try
     (let [tx-before-refs (when (sqlite-util/db-based-graph? repo)
-                           (compute-extra-tx-data repo tx-report))
+                           (compute-extra-tx-data repo conn tx-report))
           tx-report* (if (seq tx-before-refs)
                        (let [result (ldb/transact! conn tx-before-refs {:pipeline-replace? true
                                                                         :outliner-op :pre-hook-invoke