#148 #146 - dns:supersense -> wn:lexfile

kuhumcst · Dec 2, 2024 · 97a8315 · 97a8315
1 parent e203b0d
commit 97a8315
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 1 deletion.
diff --git a/src/main/dk/cst/dannet/db/bootstrap.clj b/src/main/dk/cst/dannet/db/bootstrap.clj
@@ -249,6 +249,22 @@
       (println "... adding" (count triples-to-add) "supersenses")
       (db/safe-add! g triples-to-add))))
 
+(defn rename-supersense->lexfile!
+  [dataset]
+  (let [g              (db/get-graph dataset prefix/dn-uri)
+        model          (db/get-model dataset prefix/dn-uri)
+        ms             (q/run g '[:bgp
+                                  [?synset :dns/supersense ?supersense]])
+        triples-to-add (map (fn [{:syms [?synset ?supersense]}]
+                              [?synset :wn/lexfile ?supersense])
+                            ms)]
+    (txn/transact-exec model
+      (println "... removing" (count ms) "supersense rels")
+      (db/remove! model '[_ :dns/supersense _]))
+    (txn/transact-exec g
+      (println "... adding" (count triples-to-add) "lexfile rels")
+      (db/safe-add! g triples-to-add))))
+
 (defn fix-verb-creation-supersenses!
   [dataset]
   (let [g                 (db/get-graph dataset prefix/dn-uri)

diff --git a/src/main/dk/cst/dannet/web/section.cljc b/src/main/dk/cst/dannet/web/section.cljc
@@ -21,8 +21,9 @@
          :lexinfo/partOfSpeech
          :wn/partOfSpeech
          :dns/sentiment
-         :dns/ontologicalType
          :skos/definition
+         :dns/ontologicalType
+         :wn/lexfile
          :wn/definition
          :rdfs/comment
          :lexinfo/senseExample
@@ -33,6 +34,7 @@
    [semantic-title
     (some-fn (prefix/with-prefix 'wn :except #{:wn/partOfSpeech
                                                :wn/definition
+                                               :wn/lexfile
                                                :wn/example})
              (comp #{:dns/usedFor
                      :dns/usedForObject