SKK専用スレッド Part4

[過去ﾛｸﾞ] SKK専用スレッド Part4 (975ﾚｽ)
上下前次 1-新

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

918: 03/10/28 06:41 AA×

918:  [sage] 03/10/28 06:41

単漢字変換での簡易的画数絞り込み

(defun skk-tankan-search (func &rest args)
-  (when (string-match (format "%s$" (regexp-quote
-                                    (char-to-string skk-tankan-search-key)))
+  (when (string-match (format "%s\$[0-9]+\$?$"
+                              (regexp-quote
+                               (char-to-string skk-tankan-search-key)))
skk-henkan-key)
(let ((skk-henkan-key (substring skk-henkan-key 0 (match-beginning 0)))
+          (stroke (match-string 1 skk-henkan-key))
lis top tmp)
;; get KOUHO list
(setq lis (cons nil (apply func args))
-           top lis)
+           top lis
+            stroke (if stroke (string-to-int stroke) 0))
;; select TANKANJI KOUHO
-------------------------
(< xa ya))
(< xc yc))))))
+      (setq lis (delq nil
+                      (mapcar (lambda (cell)
+                                (if (>= (nth 4 cell) stroke)
+                                    cell))
+                              lis)))
;; return list with annotation
(mapcar (lambda (cell)

http://mevius.5ch.net/test/read.cgi/unix/1049225392/918

上下前次 1-新書関写板覧索設栞歴

あと 57 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.028s