Commit 641f154a authored by MORIOKA Tomohiko's avatar MORIOKA Tomohiko
Browse files

(chise-turtle-uri-encode-ccs-name): It has been defined in

chiset-common.el.
parent 4fd2ec9a
;;; isd-turtle.el --- Utility to dump ideographic-structure as Turtle files
;;; isd-turtle.el --- Utility to dump ideographic-structure as Turtle files; -*- coding: utf-8-mcs-er -*-
;; Copyright (C) 2017, 2018 MORIOKA Tomohiko
......@@ -204,27 +204,6 @@
;; (char-to-string c)))
;; (www-uri-encode-feature-name feature-name)
;; ""))))
(defun chise-turtle-uri-encode-ccs-name (feature-name)
(cond
((eq '=ucs feature-name)
"a.ucs")
((eq '=big5 feature-name)
"a.big5")
((eq '==>ucs@bucs feature-name)
"bucs")
(t
(mapconcat (lambda (c)
(cond
((eq c ?@)
"_")
((eq c ?+)
"._.")
((eq c ?=)
".:.")
(t
(char-to-string c))))
(www-uri-encode-feature-name feature-name)
""))))
;; (defun isd-turtle-format-ccs-code-point (ccs code-point)
;; (unless (memq ccs isd-turtle-ccs-list)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment