genshijin.el

genshijin.el

;; Usage: M-x genshify-region

(defun genshify-string (str)
  (let ((res (shell-command-to-string
              (concat "echo " (shell-quote-argument str) "| /usr/local/bin/mecab"))))
    (mapconcat 'identity
               (delq nil
                     (mapcar (lambda (line)
                               (cond ((string-match "助詞\\|接頭詞\\|非自立\\|^\\(EOS\\)?$" line) nil)
                                     ((string-match "*$" line) (car (split-string line)))
                                     (t (car (last (split-string line ","))))))
                             (split-string res "\n")))
               " ")))

(defun genshify-region (b e)
  (interactive "r")
  (let ((str (genshify-string (buffer-substring b e))))
    (delete-region b e)
    (insert str)))