;; (C) Copyright Collin J. Doering 2014
;;
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; 
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;; 
;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <http://www.gnu.org/licenses/>.

;; File: eshell.el
;; Author: Collin J. Doering <collin.doering@rekahsoft.ca>
;; Date: Oct 22, 2014

;; TODO: make a function to toggle the eshell; given a the universal argument the following can occur:
;;       - if numerical then opens the nth scratch buffer "*eshell*<n>"
;;       - if no args then open a new eshell
;; Bind a key to switch to eshell
(define-key ctl-x-4-map "e" 'eshell)

;; Force ediff sessions to run in the same frame
(setq ediff-window-setup-function 'ediff-setup-windows-plain)

;; Set some eshell options
(setq eshell-scroll-to-bottom-on-input t)
;; *BROKEN*
;;(setq eshell-scroll-to-bottom-on-output t)

;; Commands that require a little more then a dumb-term
(setq eshell-visual-commands '("vi" "screen" "top" "less" "more" "lynx" "ncftp" "vim" "ncmpcpp" "irssi" "mc" "alsamixer" "/usr/bin/sudo"))

(defun eshell/catbuf (buffer-name)
  "Given a buffer-name returns the contents of said buffer"
  (interactive "bBuffer: ")
  (save-excursion
    (let ((code-buf (get-buffer buffer-name)))
      (if (null code-buf) (concat "The buffer given \"" buffer-name "\" does not exist")
	(set-buffer code-buf)
	(buffer-string)))))

(defun eshell/find-file-ext (fp)
  "Finds a single file or a list of files matching a regxp and returns a list of their respective buffers"
  (interactive)
  (if (listp fp) (mapcar #'find-file fp)
    (list (find-file fp))))

(defun eshell/ff (fp &rest other-fps)
  "A FP is either a file path (relative or absolute) or a regexp which eshell converts to a
list of stings (file paths) which match the regexp (likely using file-expand-widcards).
eshell/ff takes one or more file paths and opens them in the current buffer returning a list
consisting of lists of buffers opened by each respective FP argument."
  (interactive)
  (mapcar #'eshell/find-file-ext (cons fp other-fps)))

(defun eshell/clear ()
  "04Dec2001 - sailor, to clear the eshell buffer."
  (interactive)
  (let ((inhibit-read-only t))
    (erase-buffer)))