|
@@ -333,7 +333,8 @@
|
|
|
(defmethod db-listener/listen-db-changes :gen-undo-ops
|
|
(defmethod db-listener/listen-db-changes :gen-undo-ops
|
|
|
[_ {:keys [repo tx-data tx-meta db-after db-before]}]
|
|
[_ {:keys [repo tx-data tx-meta db-after db-before]}]
|
|
|
(let [{:keys [outliner-op]} tx-meta]
|
|
(let [{:keys [outliner-op]} tx-meta]
|
|
|
- (when (and outliner-op (not (false? (:gen-undo-ops? tx-meta))))
|
|
|
|
|
|
|
+ (when (and outliner-op (not (false? (:gen-undo-ops? tx-meta)))
|
|
|
|
|
+ (not (:create-today-journal? tx-meta)))
|
|
|
(let [editor-info (:editor-info tx-meta)
|
|
(let [editor-info (:editor-info tx-meta)
|
|
|
all-ids (distinct (map :e tx-data))
|
|
all-ids (distinct (map :e tx-data))
|
|
|
retracted-ids (set
|
|
retracted-ids (set
|