feat: tag-scoped property choices (#12295)

* feat: tag-scoped property choices

* Able to hide global choices per tag

* add e2e tests

Author: tiensonqin

clj-e2e/deps.edn

@@ -2,7 +2,9 @@
  :deps {org.clojure/clojure {:mvn/version "1.12.0"}
         ;; io.github.pfeodrippe/wally {:local/root "../../../wally"}
         io.github.pfeodrippe/wally {:git/url "https://github.com/logseq/wally"
-                                    :sha "8571fae7c51400ac61c8b1026cbfba68279bc461"}
+                                    :sha "8571fae7c51400ac61c8b1026cbfba68279bc461"
+                                    :exclusions [com.microsoft.playwright/playwright]}
+        com.microsoft.playwright/playwright {:mvn/version "1.57.0"}
         ;; io.github.zmedelis/bosquet {:mvn/version "2025.03.28"}
         org.clj-commons/claypoole          {:mvn/version "1.2.2"}
         metosin/jsonista                   {:mvn/version "0.3.13"}

clj-e2e/dev/user.clj

@@ -13,6 +13,7 @@
             [logseq.e2e.outliner-basic-test]
             [logseq.e2e.plugins-basic-test]
             [logseq.e2e.property-basic-test]
+            [logseq.e2e.property-scoped-choices-test]
             [logseq.e2e.reference-basic-test]
             [logseq.e2e.rtc-basic-test]
             [logseq.e2e.rtc-extra-part2-test]
@@ -45,6 +46,11 @@
   (->> (future (run-tests 'logseq.e2e.property-basic-test))
        (swap! *futures assoc :property-test)))
 
+(defn run-property-scoped-choices-test
+  []
+  (->> (future (run-tests 'logseq.e2e.property-scoped-choices-test))
+       (swap! *futures assoc :property-scoped-choices-test)))
+
 (defn run-outliner-test
   []
   (->> (future (run-tests 'logseq.e2e.outliner-basic-test))

clj-e2e/test/logseq/e2e/property_scoped_choices_test.clj

@@ -0,0 +1,96 @@
+(ns logseq.e2e.property-scoped-choices-test
+  (:require [clojure.test :refer [deftest use-fixtures]]
+            [logseq.e2e.assert :as assert]
+            [logseq.e2e.block :as b]
+            [logseq.e2e.fixtures :as fixtures]
+            [logseq.e2e.keyboard :as k]
+            [logseq.e2e.locator :as loc]
+            [logseq.e2e.page :as page]
+            [logseq.e2e.util :as util]
+            [wally.main :as w]
+            [wally.repl :as repl]))
+
+(use-fixtures :once fixtures/open-page)
+
+(use-fixtures :each
+  fixtures/new-logseq-page
+  fixtures/validate-graph)
+
+(defn- add-property
+  [property-name]
+  (b/new-blocks ["setup"])
+  (w/click (util/get-by-text "setup" true))
+  (k/press "Control+e")
+  (util/input-command "Add new property")
+  (w/click "input[placeholder]")
+  (util/input property-name)
+  (w/click (w/get-by-text "New option:"))
+  (w/click (loc/and "span" (util/get-by-text "Text" true)))
+  (k/esc)
+  (assert/assert-is-visible (format ".property-k:text('%s')" property-name)))
+
+(defn- add-tag-property
+  [property-name]
+  (w/click "button:has-text('Add tag property')")
+  (w/click "input[placeholder='Add or change property']")
+  (util/input property-name)
+  (w/click (loc/filter "a.menu-link" :has-text property-name))
+  (assert/assert-is-visible (format ".property-k:text('%s')" property-name)))
+
+(defn- open-choices-pane
+  [property-name]
+  (w/click (loc/filter ".property-k" :has-text property-name))
+  (w/click (loc/filter "div[role='menuitem']" :has-text "Available choices")))
+
+(defn- add-choice
+  [property-name choice]
+  (open-choices-pane property-name)
+  (w/click (loc/filter "div[role='menuitem']" :has-text "Add choice"))
+  (w/fill "input[placeholder='title']" choice)
+  (w/click "button:has-text('Save')")
+  (k/esc))
+
+(defn- hide-choice-for-tag
+  [property-name choice tag]
+  (open-choices-pane property-name)
+  (util/wait-timeout 100)
+  (w/click (format ".choices-list li:has-text('%s') button[title='More settings']" choice))
+  (util/wait-timeout 100)
+  (w/click (loc/filter "div[role='menuitem']" :has-text (str "Hide for #" tag)))
+  (k/esc))
+
+(defn- open-property-value-select
+  [property-name]
+  (w/click "div.jtrigger span:has-text('Empty')")
+  (assert/assert-is-visible (format "input[placeholder='Set %s']" property-name))
+  (w/click (format "input[placeholder='Set %s']" property-name))
+  (assert/assert-is-visible ".cp__select-results"))
+
+(deftest tag-scoped-property-choices-test
+  (let [tag "Device"
+        property-name "device-type"
+        scoped-choice "wired"
+        global-choice "wireless"]
+    (add-property property-name)
+    (page/new-page tag)
+    (page/convert-to-tag tag)
+    (add-tag-property property-name)
+    (add-choice property-name scoped-choice)
+    (util/wait-timeout 100)
+    (k/esc)
+    (page/goto-page property-name)
+    (add-choice property-name global-choice)
+    (util/wait-timeout 100)
+    (k/esc)
+    (page/goto-page tag)
+    ;; open tag properties
+    (w/click (.first (w/-query "a.block-control")))
+    (hide-choice-for-tag property-name global-choice tag)
+    (util/wait-timeout 100)
+    (k/esc)
+    (page/new-page "scoped-choices-test")
+    (b/new-block "Device item")
+    (util/set-tag tag)
+    (open-property-value-select property-name)
+    (assert/assert-is-visible (loc/filter ".cp__select-results" :has-text scoped-choice))
+    (assert/assert-have-count (loc/filter ".cp__select-results" :has-text global-choice) 0)))

deps/db/src/logseq/db/frontend/property.cljs

@@ -275,6 +275,24 @@
       :schema {:type :checkbox
                :hide? true}
       :queryable? false}
+     ;; tag-scoped choice, a choice can be specified locally for specified tags
+     :logseq.property/choice-classes
+     {:title "Choice classes"
+      :schema {:type :class
+               :cardinality :many
+               :public? false
+               :hide? true
+               :view-context :never}
+      :queryable? false}
+     ;; tag can define which global choices are hidden for its objects
+     :logseq.property/choice-exclusions
+     {:title "Choice exclusions"
+      :schema {:type :node
+               :cardinality :many
+               :public? false
+               :hide? true
+               :view-context :never}
+      :queryable? false}
      :logseq.property/checkbox-display-properties
      {:title "Properties displayed as checkbox"
       :schema {:type :property

deps/db/src/logseq/db/frontend/schema.cljs

@@ -37,7 +37,7 @@
          (map (juxt :major :minor)
               [(parse-schema-version x) (parse-schema-version y)])))
 
-(def version (parse-schema-version "65.18"))
+(def version (parse-schema-version "65.19"))
 
 (defn major-version
   "Return a number.

deps/outliner/src/logseq/outliner/property.cljs

@@ -526,6 +526,17 @@
         :else
         (batch-remove-property! conn [eid] property-id)))))
 
+(defn- set-block-db-attribute!
+  [conn db block property property-id v]
+  (throw-error-if-invalid-property-value db property v)
+  (when-not (and (= property-id :block/alias) (= v (:db/id block))) ; alias can't be itself
+    (let [tx-data (cond->
+                   [{:db/id (:db/id block) property-id v}]
+                    (= property-id :logseq.property.class/extends)
+                    (conj [:db/retract (:db/id block) :logseq.property.class/extends :logseq.class/Root]))]
+      (ldb/transact! conn tx-data
+                     {:outliner-op :save-block}))))
+
 (defn set-block-property!
   "Updates a block property's value for an existing property-id and block.  If
   property is a ref type, automatically handles a raw property value i.e. you
@@ -559,15 +570,8 @@
           (outliner-validate/validate-extends-property @conn v' [block]))
         (cond
           db-attribute?
-          (do
-            (throw-error-if-invalid-property-value db property v')
-            (when-not (and (= property-id :block/alias) (= v' (:db/id block))) ; alias can't be itself
-              (let [tx-data (cond->
-                             [{:db/id (:db/id block) property-id v'}]
-                              (= property-id :logseq.property.class/extends)
-                              (conj [:db/retract (:db/id block) :logseq.property.class/extends :logseq.class/Root]))]
-                (ldb/transact! conn tx-data
-                               {:outliner-op :save-block}))))
+          (set-block-db-attribute! conn db block property property-id v)
+
           :else
           (let [_ (assert (some? property) (str "Property " property-id " doesn't exist yet"))
                 ref? (db-property-type/all-ref-property-types property-type)
@@ -580,6 +584,7 @@
                                  (= existing-value v'))]
             (throw-error-if-self-value block v' ref?)
 
+            (prn :debug :value-matches? value-matches?)
             (when-not value-matches?
               (raw-set-block-property! conn block property v'))))))))
 
@@ -729,7 +734,7 @@
          (ldb/sort-by-order))))
 
 (defn- build-closed-value-tx
-  [db property resolved-value {:keys [id icon]}]
+  [db property resolved-value {:keys [id icon scoped-class-id]}]
   (let [block (when id (d/entity db [:block/uuid id]))
         block-id (or id (ldb/new-block-id))
         icon (when-not (and (string? icon) (string/blank? icon)) icon)
@@ -754,11 +759,13 @@
         tx-data' (if (and (:db/id block) (nil? icon))
                    (conj tx-data [:db/retract (:db/id block) :logseq.property/icon])
                    tx-data)]
-    tx-data'))
+    (cond-> (vec tx-data')
+      scoped-class-id
+      (conj [:db/add [:block/uuid block-id] :logseq.property/choice-classes scoped-class-id]))))
 
 (defn upsert-closed-value!
   "id should be a block UUID or nil"
-  [conn property-id {:keys [id value description] :as opts}]
+  [conn property-id {:keys [id value description _scoped-class-id] :as opts}]
   (assert (or (nil? id) (uuid? id)))
   (let [db @conn
         property (d/entity db property-id)
@@ -797,8 +804,8 @@
 
           :else
           (let [tx-data (build-closed-value-tx @conn property resolved-value opts)]
+            (prn :debug :tx-data tx-data)
             (ldb/transact! conn tx-data {:outliner-op :save-block})
-
             (when (seq description)
               (if-let [desc-ent (and id (:logseq.property/description (d/entity db [:block/uuid id])))]
                 (ldb/transact! conn