2003-04-11 Fri

[別の年の同じ日: 2006 2007 2008 2009 2011

spamfilter.el はてぶ

http://www.geocities.co.jp/SiliconValley-PaloAlto/7043/#spamfilter.el

via: やりなげ日記
     http://www.be.wakwak.com/cgi-bin/sbox/~miyoshi/hns/index.cgi
     の 4月8日、4月10日

skk - どの辞書からの変換候補なのか表示させる はてぶ

SKK専用スレッド Part4
http://pc.2ch.net/test/read.cgi/unix/1049225392/33-

(defsubst my-skk-henkan-key-okuriari-p (k)
  (let ((fc (aref k 0))
        (lc (aref k (1- (length k)))))
    (and (>= fc ?ぁ)
         (<= fc ?ん)
         (>= lc ?a)
         (<= lc ?z))))

(defun my-skk-show-candidates (key)
  (interactive
   (list (read-string "key: ")))
  (let* ((skk-henkan-key key)
         (skk-henkan-okurigana
          (when (my-skk-henkan-key-okuriari-p key) ""))
         (prog-list (delete '(skk-look) skk-search-prog-list))
         (s
          (mapcar #'(lambda (l)
                      (delete "" l))
                  (eval (cons 'list prog-list)))))
    (message "%s" s)
    (with-current-buffer (get-buffer-create "*skk-candidates*")
      (goto-char (point-max))
      (insert (format "%s: %s\n" key s)))))

(defalias 'show-candidates 'my-skk-show-candidates)

M-x show-candidates