From 0207a0884174850c3ba923712a31c5140300a37e Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Sat, 29 Sep 2018 15:37:24 +0900 Subject: [PATCH] (char-db-dump-shuowen): New function. --- char-db-dump.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/char-db-dump.el b/char-db-dump.el index 00bf967..81b6413 100644 --- a/char-db-dump.el +++ b/char-db-dump.el @@ -158,6 +158,22 @@ (expand-file-name "Oracle-Bones.el" directory))))) ;;;###autoload +(defun char-db-dump-shuowen (directory) + (interactive "DDump Shuowen : ") + (let ((coding-system-for-write char-db-file-coding-system) + (code 1) + chr) + (with-temp-buffer + (insert (format ";; -*- coding: %s -*-\n" + char-db-file-coding-system)) + (while (<= code 52101) + (when (setq chr (decode-char '=shuowen-jiguge code 'defined-only)) + (insert-char-data chr)) + (setq code (1+ code))) + (write-region (point-min)(point-max) + (expand-file-name "ShuoWen.el" directory))))) + +;;;###autoload (defun char-db-dump-ruimoku6 (directory) (interactive "DDump ruimoku6 : ") (let ((coding-system-for-write char-db-file-coding-system) -- 1.7.10.4