(require 'term)

(require 'multi-term)

(setq multi-term-program "/bin/bash")

(setq comint-prompt-read-only t)

(defun aj-shell-hook()

(toggle-truncate-lines 1)

(ansi-color-for-comint-mode-on))

(add-hook 'shell-mode-hook 'aj-shell-hook)

(defun visit-ansi-term ()

"If the current buffer is:

(interactive)

(let ((is-term (string= "term-mode" major-mode))

(is-running (term-check-proc (buffer-name)))

(term-cmd "/bin/bash")

(anon-term (get-buffer "*ansi-term*")))

(if is-term

(if is-running

(if (string= "*ansi-term*" (buffer-name))

(call-interactively 'rename-buffer)

(if anon-term

(switch-to-buffer "*ansi-term*")

(ansi-term term-cmd)))

(kill-buffer (buffer-name))

(ansi-term term-cmd))

(if anon-term

(if (term-check-proc "*ansi-term*")

(switch-to-buffer "*ansi-term*")

(kill-buffer "*ansi-term*")

(ansi-term term-cmd))

(ansi-term term-cmd)))))

(global-set-key (kbd "<f2>") 'multi-term)

(defun aj-term-toggle-line-char ()

"Function to toggle line and char mode in ansi-term"

(interactive)

(if (term-in-line-mode)

(term-char-mode)

(term-line-mode)))

(add-hook 'term-mode-hook

(lambda ()

(local-set-key "\C-c\C-j" 'aj-term-toggle-line-char)

(message "loading term-hook-aj")

;; Terminal color

(set-variable 'term-default-bg-color (face-background 'default))

(set-variable 'term-default-fg-color (face-foreground 'default))

))

(push '("C-c C-j" . aj-term-toggle-line-char) term-bind-key-alist)

(provide 'aj-term)