geekinney/ekp
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

a batter ekp-cjk-char-p

Browse Source
This commit is contained in:
Kinneyzhang 2025-08-19 11:31:48 +08:00
parent 796d3e49d2
commit 165be829df
1 changed files with 30 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
ekp-utils.el
View File

@ -2,24 +2,36 @@
;;; related to font ;;; related to font
(defun ekp-cjk-char-p (char) ;; (defun ekp-cjk-char-p (char)
"Return if char CHAR is cjk." ;; "Return if char CHAR is cjk."
(or ;; (or
;; CJK统一表意文字（基本区） ;; ;; CJK统一表意文字（基本区）
(<= #x4E00 char #x9FFF) ;; (<= #x4E00 char #x9FFF)
;; CJK扩展A区 ;; ;; CJK扩展A区
(<= #x3400 char #x4DBF) ;; (<= #x3400 char #x4DBF)
;; CJK扩展B区（注意：超出16位范围） ;; ;; CJK扩展B区（注意：超出16位范围）
(and (<= #x20000 char) (<= char #x2A6DF)) ;; (and (<= #x20000 char) (<= char #x2A6DF))
;; CJK兼容/部首扩展等 ;; ;; CJK兼容/部首扩展等
;; CJK符号和标点 ;; ;; CJK符号和标点
(<= #x3000 char #x303F) ;; (<= #x3000 char #x303F)
;; 日文假名 ;; ;; 日文假名
(<= #x3040 char #x30FF) ;; (<= #x3040 char #x30FF)
;; 韩文谚文 ;; ;; 韩文谚文
(<= #xAC00 char #xD7AF) ;; (<= #xAC00 char #xD7AF)
;; CJK兼容表意文字 ;; ;; CJK兼容表意文字
(<= #xF900 char #xFAFF))) ;; (<= #xF900 char #xFAFF)))
(defsubst ekp-cjk-char-p (char)
"Return non-nil if CHAR is a CJK character."
(let ((entry (aref (category-table) char)))
;; Use ‘describe-categories’ for a full list of categories.
;; Another way is to use ‘char-script-table’ (see
;; ‘script-representative-chars’ for possible scripts), which is
;; not as convenient.
(or (aref entry ?c) ; Chinese
(aref entry ?h) ; Korean
(aref entry ?j) ; Japanese
)))
(defun ekp-font-family (string &optional position) (defun ekp-font-family (string &optional position)
(format "%s" (font-get (font-at (or position 0) nil string) :family))) (format "%s" (font-get (font-at (or position 0) nil string) :family)))