用于多个标签添加的多个用户电子邮件

Question

在系统中，用户可以向现有条目添加标签，如下所示：

(defn add-tag-to-post [eid email tags]
  (let [cast-eid (Long. eid)]
       (d/transact conn [{:db/id cast-eid,
                          :author/email email,
                          :post/tag tags}])))

我认为，这应该放在具有电子邮件和添加了实体 ID 的标签的交易中。

我希望能够查询此数据的所有更改并查看哪个用户电子邮件添加了哪个标签。目前，当用户添加新标签时，所有电子邮件字段反映了最近用户的电子邮件：

(defn get-all-post-history-by-eid [eid]
   (->> (d/q '[:find ?title ?content ?tags ?email ?eid
               :in $ ?eid
               :where
              [?eid post/title ?title]
              [?eid post/content ?content]
              [?eid author/email ?email]
              [?eid post/tag ?tags]] (d/db conn) eid)
         (map (fn [[title content tags email eid]]
              {:title title
               :content content
               :tags tags
               :email email
               :eid eid}))
         (sort-by :email)))

returns

({:title "Straight edges...", 
  :content "If ...", 
  :tags "art",                        <diff tag
  :email "randomlady@mailnator.hax",  <same email
  :eid 1759} 
 {:title "Straight edges ....", 
  :content "If ... ", 
  :tags "scissor-less edges",         <diff tag
  :email "randomlady@mailnator.hax",  < same email
  :eid 1759} 
 {:title "Straight edges ...", 
  :content "If ...", 
  :tags "paper",                      <diff tag
  :email "randomlady@mailnator.hax",  < same email
  :eid 1759} ... )

要点：所有不同的标签都是由不同的电子邮件添加的，但是在所有字段中查询 returns 相同的电子邮件（最近的电子邮件将标签添加到实体）

我只是将 schema.edn 中的 author/email 属性的序数更改为 "many" 而不是一个，认为这可能与它有关。但事实并非如此。

感谢任何帮助。谢谢=)

编辑：我在想也许我需要一个 tag/author 字段，例如：

  post/tag      }
  author/email  } nothing tying these two together

+ tag/author    } does it make sense to add this?  will try and get back.

Edit#2：所以，我想我在这个页面上的文字的帮助下（认知上）取得了突破 http://tonsky.me/blog/unofficial-guide-to-datomic-internals/

基本上，Datomic 尊重 entity 这意味着如果您更改实体属性（好吧，当您为属性记录新值时，不会发生 changing/deletion ) 那么您实际上是在询问该属性的最新值。

意味着对于添加的每个标签，创建一个新实体是合适的，并且在该实体中它可以引用它调制的 post。

所以看起来像

EID  Attribute      Value     "Time/Transaction ID"
 37  :post/title     "Bees"           7
 37  :author/email   "v@a.x"          7
 37  :post/tag       "hive"           7
 37  :author/email   "diana@p"        8
 37  :post/tag       "mind"           8

如果您更改属性 :post/tag 即使使用新的 :author/email，您仍在修改 ID 为 37 的实体，这将有效地 "overwrite" 这些值（好吧，标签是 ordinality/many 所以一个是附加的，但是电子邮件会 'overwrite')

我的期望行为更像

EID  Attribute      Value     "Time/Transaction ID"
 37  :post/title     "Bees"           7
 37  :author/email   "v@a.x"          7


 38  :post/tag       "honeycomb"      8
 38  :author/email   "squire@o"       8
 38  :tag/post (ref)   37             8

意思是，ID 为 38 的实体具有所有新值，并成功指向/引用实体 37。

写出问题很有帮助！一旦实施下来，我将尝试更新此问题。希望这对需要的人有所帮助。

Answer 1

有效！

(defn get-all-post-history-by-eid [pid]
  (->> (d/q '[:find ?title ?content ?tags ?email ?pid
              :in $ ?pid
              :where
              [?pid post/title ?title]
              [?pid post/content ?content]
              [?tid tag/post ?pid]         <new schema stuff
              [?tid tag/value ?tags]       <means new way to see the world
              [?tid author/email ?email]] (d/db conn) pid)
       (map (fn [[title content tags email pid]]
              {:title title
               :content content
               :tags tags
               :email email
               :eid pid}))
       (sort-by :email)))

可以看到，查询中有新的字段，即：

tag/post
tag/value

tag/post 在架构中具有 ref 的 valueType， tag/value 有 cardinality/many 并且是一个字符串。

这样，标签和 post 就分离了。现在，当我查询使用

之类的内容获取 post 的所有历史记录时

vhax.dbmethods>  (get-all-post-history-by-eid 1759)

结果就像

({:title "Straight edges without scissors", 
  :content "If you ever ... ", 
  :tags "skizzorz", 
  :email "so.ku@mail.hax", :bid 1759} 

 {:title "Straight edges without scissors", 
  :content "If you ever ...  ", 
  :tags "snips", 
  :email "vild@hax.pong", :bid 1759})

反映任何电子邮件添加的标签。成功。今天真的感觉 Datomic 为我点击了。

用于多个标签添加的多个用户电子邮件

Multiple user emails for multiple tag additions

clojure

datomic

data-retrieval