Pastebin: Emacs LispでOpen JTalk

Formato

Plain text

Post date

2015-04-03 21:58

Publication Period

Unlimited

 (defun test-func (start end)
 (interactive "r")
 (message (buffer-substring start end))
 (setq new-process (apply 'start-process "ojtalk" (list "*ojtalk-buf*" "~/open_jtalk-1.08/bin/open_jtalk" "-m" "~/hts_voice_nitech_jp_atr503_m001-1.05/nitech_jp_atr503_m001.htsvoice" "-x" "~/open_jtalk-1.08/mecab-naist-jdic" "-z" "3048")))
 (process-send-string new-process (concat (buffer-substring start end) "\n")))