projects
/
chise
/
tomoyo-tools.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4fd2ec9
)
(chise-turtle-uri-encode-ccs-name): It has been defined in
author
MORIOKA Tomohiko
<tomo.git@chise.org>
Sun, 16 Dec 2018 14:37:20 +0000
(23:37 +0900)
committer
MORIOKA Tomohiko
<tomo.git@chise.org>
Sun, 16 Dec 2018 14:37:20 +0000
(23:37 +0900)
chiset-common.el.
isd-turtle.el
patch
|
blob
|
history
diff --git
a/isd-turtle.el
b/isd-turtle.el
index
d85dfe7
..
11bd650
100644
(file)
--- a/
isd-turtle.el
+++ b/
isd-turtle.el
@@
-1,4
+1,4
@@
-;;; 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
;; Copyright (C) 2017, 2018 MORIOKA Tomohiko
@@
-204,27
+204,6
@@
;; (char-to-string c)))
;; (www-uri-encode-feature-name feature-name)
;; ""))))
;; (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)
;; (defun isd-turtle-format-ccs-code-point (ccs code-point)
;; (unless (memq ccs isd-turtle-ccs-list)