From e1ef410b017b6b442f8b2ff499a5d2b3c8e81c1c Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Fri, 2 Feb 2018 01:07:34 +0900 Subject: [PATCH] =?utf8?q?(isd-turtle-format-char):=20Support=20idc:=E2=BF=B1?= =?utf8?q?=E3=83=BB=E2=BF=B8.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- isd-turtle.el | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/isd-turtle.el b/isd-turtle.el index c3df592..3193408 100644 --- a/isd-turtle.el +++ b/isd-turtle.el @@ -293,7 +293,7 @@ (setq prefix "")) (let ((indent (make-string (* level 4) ?\ )) char - idc + idc idc-str p1 p2 p3 c1 c2 c3 ret) @@ -345,11 +345,16 @@ ((eq idc ?⿻) (setq p1 'underlying p2 'overlaying) + ) + ((and idc (eq (encode-char idc '=>iwds-1) 305)) + (setq idc-str "⿱・⿸") + (setq p1 'above + p2 'below) )) (cond (p3 (format "%s -%s %s:structure [ a idc:%c ; +%s %s:structure [ a idc:%s ; %s %s:%-8s %s %s %s:%-8s %s %s %s:%-8s %s @@ -361,7 +366,7 @@ (chise-turtle-format-ccs-code-point ccs code-point) char) "[")) - indent prefix idc + indent prefix (or idc-str (char-to-string idc)) indent prefix p1 (isd-turtle-format-component c1 ?\; (1+ level) prefix) indent prefix p2 (isd-turtle-format-component c2 ?\; (1+ level) prefix) indent prefix p3 (isd-turtle-format-component c3 ?\ (1+ level) prefix) @@ -375,7 +380,7 @@ ) (idc (format "%s -%s %s:structure [ a idc:%c ; +%s %s:structure [ a idc:%s ; %s %s:%-8s %s %s %s:%-8s %s %s ]%s" @@ -386,7 +391,7 @@ (chise-turtle-format-ccs-code-point ccs code-point) char) "[")) - indent prefix idc + indent prefix (or idc-str (char-to-string idc)) indent prefix p1 (isd-turtle-format-component c1 ?\; (1+ level) prefix) indent prefix p2 (isd-turtle-format-component c2 ?\ (1+ level) prefix) indent -- 1.7.10.4