;; send commands to pf running in ansi term
;; i really don't like comint.. prefer readline

(defun pf-process ()
  (get-buffer-process 
   (get-buffer "*terminal*")))

(defun pf-term-send-string (string)
  (interactive "r")
  (term-send-string (pf-process) string))

(defun pf-term-send-current-line ()
  (interactive)
  (save-excursion
    (beginning-of-line)
    (let ((start (point)))
      (end-of-line)
      (let ((end (point)))
	(pf-term-send-string (buffer-substring start end))
	(pf-term-send-string "\n")))))


(defun pf-term ()
  (interactive)
;;  (split-window)
  (term "pf"))


;; this will do a restart if you have a loop running
(defun pf-bye ()
  (interactive)
  (pf-term-send-string "bye\n"))

(global-set-key [C-return] 'pf-term-send-current-line)
(global-set-key [f5] 'pf-bye)

;; TODO: rename buffer to *pf*

(provide 'pf-term)