(ns frontend.handler.property.util
  "Utility fns for properties that are for both file and db graphs.
  Some fns like lookup and get-property were written to easily be backwards
  compatible with file graphs"
  (:require [frontend.db.conn :as conn]
            [frontend.state :as state]
            [logseq.db.common.property-util :as db-property-util]))

(defn lookup
  "Get the property value by a built-in property's db-ident from block. For file and db graphs"
  [block key]
  (let [repo (state/get-current-repo)]
    (db-property-util/lookup repo block key)))

(defn get-block-property-value
  "Get the value of a built-in block's property by its db-ident"
  [block db-ident]
  (let [repo (state/get-current-repo)
        db (conn/get-db repo)]
    (db-property-util/get-block-property-value repo db block db-ident)))

(defn get-pid
  "Get a built-in property's id (db-ident or name) given its db-ident. For file and db graphs"
  [db-ident]
  (let [repo (state/get-current-repo)]
    (db-property-util/get-pid repo db-ident)))

(defn block->shape [block]
  (get-block-property-value block :logseq.property.tldraw/shape))

(defn page-block->tldr-page [block]
  (get-block-property-value block :logseq.property.tldraw/page))

(defn shape-block?
  [block]
  (let [repo (state/get-current-repo)
        db (conn/get-db repo)]
    (db-property-util/shape-block? repo db block)))