[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)