Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
CHISE
tomoyo-tools
Commits
641f154a
Commit
641f154a
authored
Dec 16, 2018
by
MORIOKA Tomohiko
Browse files
(chise-turtle-uri-encode-ccs-name): It has been defined in
chiset-common.el.
parent
4fd2ec9a
Changes
1
Hide whitespace changes
Inline
Side-by-side
isd-turtle.el
View file @
641f154a
;;; 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)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment