05/09/03 16:50:16
>>32
primeやmecab-skkservをなんとかしたいな、と。
とりあえず辞書をインストールするだけの空きをHDDに確保するも、
mecab-skkservが自分のスタイルで有効かがかなり疑わしいので
なかなか手が動いてくれません。
別の利用例。以前から使っていたのを折角なので
skk-search-via-command()を利用するように書き直したもの。
(defun skk-ebsearch ()
(let* ((key (if skk-henkan-okurigana
(concat
(substring skk-henkan-key 0 (1- (length skk-henkan-key)))
skk-henkan-okurigana)
skk-henkan-key))
(okurigana (or skk-henkan-okurigana skk-okuri-char))
(skk-henkan-key key)
skk-henkan-okurigana
skk-okuri-char
skk-use-numeric-conversion
(l (skk-search-via-command "skk-ebsearch")))
(save-match-data
(when l
(if okurigana
(delq nil
(mapcar #'(lambda (c)
(when (string-match (concat okurigana "$") c)
(substring c 0 (match-beginning 0))))
l))
l)))))