レス数が1000を超えています。残念ながら全部は表示しません。

SKK専用スレッド

606 ：580 ：01/12/21 17:11

my-skk-dynamic-insert-regexp-alist を廃止し、
my-skk-dynamic-insert-rule-list と my-skk-dynamic-insert を
変えてみました。
改行している時の扱いは好みが分れるかもしれません。
;; regexp に \n が入ってるのもどうかな?。最初とまどうかも。

(defvar my-skk-dynamic-insert-rule-list
'(("." (("[-0-9,.\n]" . ".")
(t . skk-current-kuten)))
("," (("[-0-9,.\n]" . ",")
(t . skk-current-touten)))
("-" (("[-0-9,.\n]" . "-")
("[０-９，．−]" . "−")
(t . "ー"))))
"*`my-skk-dynamic-insert' を用いて動的に入力する条件。
バッファに挿入される文字は入力に対応した連想リストで決まる。
具体的には、現在のカーソルの直前の文字(改行していれば
さらにその前の文字)が連想リストの car にマッチした時、
その cdr がバッファに挿入される。
`t' は全ての文字にマッチする。")

(defun my-skk-dynamic-insert (&optional arg)
(interactive "*p")
(let* ((num (if arg (car arg) 1))
(c (char-to-string last-command-char))
(alist (nth 1 (assoc c my-skk-dynamic-insert-rule-list)))
(regexp-list (mapcar (lambda (l)
(if (eq (car l) t)
".\\|\n"
(car l)))
alist))
(default-str (cdr (assq t alist)))
str)
(setq str (if (bobp)
(my-skk-func-to-str default-str)
(let ((c-b (char-to-string (char-before (if (bolp)
(1- (point))
(point)))))
(idx 0))
(while (not (string-match (nth idx regexp-list)
c-b))
(setq idx (1+ idx)))
(my-skk-func-to-str (cdr (nth idx alist))))))
(while (> num 0)
(skk-insert-str str)
(setq num (1- num)))))

read.cgi ver5.26+ (01/10/21-)