[Erbot-cvs] erbot erbtranslate.el

[Vivek Dasmohapatra]

CVSROOT:        /sources/erbot
Module name:    erbot
Changes by:     Vivek Dasmohapatra <fledermaus> 09/09/26 21:35:47

Modified files:
        .              : erbtranslate.el 

Log message:
        Add support for kanji->romaji transformation via kakasi

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/erbot/erbtranslate.el?cvsroot=erbot&r1=1.23&r2=1.24

Patches:
Index: erbtranslate.el
===================================================================
RCS file: /sources/erbot/erbot/erbtranslate.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- erbtranslate.el     23 Nov 2007 16:31:59 -0000      1.23
+++ erbtranslate.el     26 Sep 2009 21:35:47 -0000      1.24
@@ -1,6 +1,6 @@
 ;;; erbtranslate.el --- Natural Language translation functions. 
-;; Time-stamp: <2007-11-23 11:29:50 deego>
-;; Copyright (C) 2002 Alejandro Benitez
+;; Time-stamp: <2009-09-26 22:33:14 fledermaus>
+;; Copyright © 2002 Alejandro Benitez
 ;; Emacs Lisp Archive entry
 ;; Filename: erbtranslate.el
 ;; Package: erbot
@@ -113,6 +113,16 @@
     (concat translate-program " --list-services")
     '(t)))
 
+(defun fsi-kks (&rest nihongo)
+  (let ( (coding-system-for-read  'euc-jp)
+        (coding-system-for-write 'euc-jp)
+        (text (mapconcat #'(lambda (x) (format "%s" x)) nihongo " ")) )
+    (with-temp-buffer 
+      (insert text)
+      (shell-command-on-region 
+       (point-min) (point-max)
+       "kakasi -i euc -Ha -Ka -Ja -Ea -ka -s | sed 's/ESC<2E>.//g'" nil t)
+      (buffer-string)) ))
 ;; temporarily disabled till clean support is provided by translate.el
 
 ;; (defun fsi-translate-web-page (from to url &rest args)