;; This file:
;;   http://anggtwu.net/elisp/eev-eat.el.html
;;   http://anggtwu.net/elisp/eev-eat.el
;;          (find-angg "elisp/eev-eat.el")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;;
;; (defun e () (interactive) (find-angg "elisp/eev-eat.el"))
;; (defun o  () (interactive) (find-eatfile "eat.el"))
;; (defun oo () (interactive) (find-eatfile "eat.el" "(defun eat--1 "))
;; (load (buffer-file-name))

;; Moved to: (find-eev "eepitch.el" "eepitch-eat")

;; (find-eaproposf "eat.*live")
;; (find-eatgrep "grep --color=auto -nH --null -e eat--t-ensure-live-term *.el")
;; (find-eatgrep "grep --color=auto -nH --null -e eat-term-live-p *.el")
;; (find-eatgrep "grep --color=auto -nH --null -e eat-term-parameters *.el")


(defun ee-eat-shell-file-name ()
  (or explicit-shell-file-name
      (getenv "ESHELL")
      shell-file-name))


(defun eepitch-line-eat (line)
  "Send LINE to the eat buffer and run the key binding for RET there."
  (eepitch-eval-at-target-window
    `(progn (eat-term-send-string eat-terminal ,line)   ; "type" the line
	    (eat-term-send-string eat-terminal "\r")))) ; then do a RET

(defun eepitch-eat (&optional program bufname)
  (interactive)
  (prog1 (eepitch `(find-eatprocess ,program ,bufname))
    (setq eepitch-line 'eepitch-line-eat)))




(eepitch-eval-at-target-window
 '(buffer-name))

(eepitch-eval-at-target-window
 '(eat-term-send-string eat-terminal "foo\r"))


;; (find-eatprocess0 (ee-eat-shell-file-name) "*foo*")
;; (find-eatprocess0 "lua5.1" "*bar*")
;; (find-eatprocess)
;; (find-eatprocess "lua5.1")
;; (find-eatprocess "lua5.1" "*lua*")
;; (find-eatprocess nil      "*foo*")

(save-window-excursion (find-eatprocess) (buffer-name))


* (eepitch '(find-eatprocess))
* (eepitch-kill)
* (eepitch '(find-eatprocess))
* (eepitch-eat)


* (eepitch-eat)
* (eepitch-kill)
* (eepitch-eat)
echo foo
echo foo bar


* (eepitch-eat "lua5.1")
* (eepitch-kill)
* (eepitch-eat "lua5.1")
print(3)


* (eepitch-eat "lua5.1" "*eat lua*")
* (eepitch-kill)
* (eepitch-eat "lua5.1" "*eat lua*")



;; (find-efunction 'eepitch-vterm)




    (setq progname (ee-eat-shell-file-name))
    (setq bufname (or bufname (format "*eat: %s*" progname)))
    (find-eatprocess0 progname bufname)))















;; Local Variables:
;; coding:  utf-8-unix
;; End: