dss-term.el

(require 'multi-term)
(require 'comint)

;;; study this http://snarfed.org/why_i_run_shells_inside_emacs
;;; and this http://snarfed.org/emacsclient_in_tramp_remote_shells

(setq comint-scroll-to-bottom-on-input t
      comint-scroll-to-bottom-on-output nil
      comint-scroll-show-maximum-output t)

(setq shell-command-switch "-lc")
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)

;; multi-term
(autoload 'multi-term "multi-term")
(setq multi-term-program "/bin/bash")
(setq multi-term-switch-after-close nil)

(defun dss/cd-multi-term (dir &optional command switch buffer-name)
  (let (tmp-buffer term-buffer)
    ;; with-temp-buffer gets in the way here
    (set-buffer (setq tmp-buffer (get-buffer-create "*multi-term-launcher*")))

    (setq default-directory dir)

    ;;(setq term-buffer (multi-term))
    (setq term-buffer (multi-term-get-buffer current-prefix-arg))
    (set-buffer term-buffer)
    (multi-term-internal)

    (kill-buffer tmp-buffer)
    (if buffer-name
        (rename-buffer buffer-name))

    (if command
        (term-send-raw-string command))
    (unless (and (not (eq switch nil))
                 (< switch 0))
      (switch-to-buffer term-buffer))
    term-buffer))

(defun dss/remote-term (host &optional command term-command)
  (interactive)
  (let* (term-buffer
         (index 1)
         (term-command (or term-command "eterm-ssh"))
         term-name)
    (while (buffer-live-p
            (get-buffer (format "*%s<%s>*" host index)))
      (setq index (1+ index)))
    (setq term-name (format "%s<%s>" host index))
    (setq term-buffer
          (make-term term-name term-command nil term-name host))
    (set-buffer term-buffer)
    ;; Internal handle for `multi-term' buffer.
    (multi-term-internal)
    ;; Switch buffer
    (switch-to-buffer term-buffer)
    (sleep-for 1)
    (dss/term-setup-tramp)
    (if command
        (term-send-raw-string command))))


;; (defun dss/reconnect-term ()
;;   (interactive)
;;   ;;(term-exec buffer name program startfile switches)
;;   (let* ((buffer (current-buffer))
;;          (bufname (buffer-name buffer))
;;          (term-name (substring bufname 1 (- (length bufname) 1))))
;;     (term-exec buffer term-name "screen" nil (list "-rx" "-e^Uu" "-S" term-name))))

(defun dss/multi-term ()
  (interactive)
  (if (string-match-p tramp-file-name-regexp default-directory)
      (let ((host (second (split-string default-directory ":")))
            (dir (third (split-string default-directory ":"))))
        (dss/remote-term
         host
         (concat "cd " dir "; clear\n")))
    (multi-term)))

(defun dss/term-toggle-mode ()
  "Toggle between term-char-mode and term-line-mode."
  (interactive)
  (if (term-in-line-mode)
      (dss/term-char-mode)
    (dss/term-line-mode)))

(defun dss/term-char-mode ()
  (interactive)
  (term-char-mode)
  (linum-mode -1)
  (comint-goto-process-mark))

(defun dss/term-line-mode ()
  (interactive)
  (term-line-mode)
  (linum-mode 1))

(defun dss/term-dabbrev ()
  (interactive)
  (let ((beg (point)))
    (dabbrev-expand nil)
    (kill-region beg (point)))
  (term-send-raw-string (substring-no-properties (current-kill 0))))

(defun dss/term-insert-path ()
  (interactive)
  (let ((beg (point)))
    (call-interactively 'dss/insert-path)
    (kill-region beg (point)))
  (term-send-raw-string (substring-no-properties (current-kill 0))))

(defun dss/term-backward-kill-word ()
  (interactive)
  (if (term-in-line-mode)
      (backward-kill-word 1)
    (term-send-backward-kill-word)))

(defun dss/term-yank ()
  (interactive)
  (if (term-in-line-mode)
      (yank)
    (term-paste)))

(defun dss/term-reverse-search ()
  (interactive)
  (if (term-in-line-mode)
      (isearch-backward)
    (term-send-reverse-search-history)))

;(defun term-forward-search ()
;  (interactive)
;  (if (term-in-line-mode)
;      (isearch-forward)
;    (term-send-forward-search-history)))


;;; derived from http://www.enigmacurry.com/2008/12/26/emacs-ansi-term-tricks/
(defun dss/term-setup-tramp ()
  "Setup ansi-term/tramp remote directory tracking
   NOTE:  this appears to have some sort of timing bug in it and doesn't always work"
  (interactive)
  (term-send-raw-string
   (concat "
function eterm_set_variables {
    local emacs_host=\"" (car (split-string (system-name) "\\.")) "\"
    if [[ $TERM == \"eterm-color\" ]]; then
        if [[ ${HOSTNAME-$(hostname)} != \"$emacs_host\" ]]; then
            echo -e \"\\033AnSiTu\" ${TRAMP_USERNAME-$(whoami)}
            echo -e \"\\033AnSiTh\" ${TRAMP_HOSTNAME-$(hostname)}
        fi
        echo -e \"\\033AnSiTc\" $(pwd)
    elif [[ $TERM == \"screen\" || $TERM  == \"screen-256color\" ]]; then
        if [[ ${HOSTNAME-$(hostname)} != \"$emacs_host\" ]]; then
            echo -e \"\\033P\\033AnSiTu\\033\\\\\" ${TRAMP_USERNAME-$(whoami)}
            echo -e \"\\033P\\033AnSiTh\\033\\\\\" ${TRAMP_HOSTNAME-$(hostname)}
        fi
        echo -e \"\\033P\\033AnSiTc\\033\\\\\" $(pwd)
    fi
}
function eterm_tramp_init {
    for temp in cd pushd popd; do
        alias $temp=\"eterm_set_cwd $temp\"
    done

    # set hostname, user, and cwd now
    eterm_set_variables
}
function eterm_set_cwd {
    $@
    eterm_set_variables
}
eterm_tramp_init
export -f eterm_tramp_init
export -f eterm_set_variables
export -f eterm_set_cwd
clear
echo \"tramp initialized\"
")))

(defun dss/term-mode-hook ()
  (interactive)
  (define-key term-mode-map (kbd "M-/")
    'dss/term-dabbrev)
  (define-key term-mode-map (kbd "C-c C-j")
    'dss/term-toggle-mode)
  (define-key term-mode-map (kbd "M-DEL")
    'dss/term-backward-kill-word)
  (define-key term-mode-map (kbd "M-RET")
    'find-file-at-point)
  (define-key term-mode-map (kbd "M-g")
    'dss/term-toggle-mode)
  (linum-mode -1))

(add-hook 'term-mode-hook 'dss/term-mode-hook)

(setq term-bind-key-alist
      '(("C-c C-c" . term-interrupt-subjob)
        ("C-x C-x" . term-send-raw)
        ("C-x C-e" . (lambda ()
                       (interactive)
                       (term-send-raw-string "\C-x\C-e")))
                                        ;("C-p" . term-send-raw);previous-line)
                                        ;("C-n" . term-send-raw);next-line)
        ("C-s" . isearch-forward)
        ("C-r" . dss/term-reverse-search)
        ("C-m" . term-send-raw)

        ("M-/" . dss/term-dabbrev)
        ("M-RET" . find-file-at-point)
        ("M-DEL" . dss/term-backward-kill-word)
        ("M-`" . dss/term-insert-path)
        ("M-k" . term-send-raw-meta)
        ("M-y" . term-send-raw-meta)
        ("M-u" . term-send-raw-meta)

        ("M-f" . term-send-forward-word)
        ("M-b" . term-send-backward-word)
        ("M-o" . term-send-backspace)
        ("M-p" . term-send-up)
        ("M-n" . term-send-down)
        ("M-N" . term-send-backward-kill-word)
        ("M-r" . term-send-reverse-search-history)
        ("M-," . term-send-input)
        ("M-." . comint-dynamic-complete)
        ("Od" . term-send-backward-word)
        ("Oc" . term-send-forward-word)
        ("M-d" . term-send-forward-kill-word)
        ("M-g" . dss/term-toggle-mode)
        ("C-y" . dss/term-yank)))

;; also see http://dea.googlecode.com/svn/trunk/my-lisps/multi-term-settings.el

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(provide 'dss-term)