(chise-turtle-uri-encode-feature-name):

[chise/chiset.git] / char-db-turtle.el

diff --git a/char-db-turtle.el b/char-db-turtle.el
index d47970f..07c7ae7 100644 (file)
--- a/char-db-turtle.el
+++ b/char-db-turtle.el
@@ -54,6 +54,7 @@
     =ucs-itaiji-004
     =ucs-itaiji-005
     =ucs-itaiji-006
+    =ucs-itaiji-007
     =ucs-itaiji-009
     =ucs-itaiji-084
     =ucs-var-001
@@ -219,6 +220,16 @@
     ":denotation-of")
    ((eq '<-formed feature-name)
     ":form-of")
+   ((eq '<-same feature-name)
+    "ideo:same-as")
+   ((eq '<-simplified feature-name)
+    "ideo:simplified-form-of")
+   ((eq '<-vulgar feature-name)
+    "ideo:vulgar-form-of")
+   ((eq '<-ancient feature-name)
+    "ideo:ancient-form-of")
+   ((eq '->mistakable feature-name)
+    "ideo:mistakable")
    ((eq 'hanyu-dazidian feature-name)
     "ideo:hanyu-dazidian")
    (t
@@ -1119,7 +1130,7 @@
                    ))
               )
              ((eq name 'ideographic-structure)
-              (insert (isd-turtle-format-char nil nil value nil
+              (insert (isd-turtle-format-char nil nil value (/ column 4)
                                               'isd 'without-head-char))
               (insert " ;")
               )