;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/emacs-shell.el

(require 'comint)
(require 'em-hist)
(require 'esh-mode)
(require 'eshell)
(require 'mode-line)
(require 'quit)
(require 'shell)
(require 'super)
(require 'switch-to-buffer-regexp)

;; eshell

(defun eshell-mode-hook-f ()
  (disable-super-global-keys eshell-hist-mode-map) )
(add-hook 'eshell-mode-hook #'eshell-mode-hook-f)

;; shell

(defun shell-local ()
  (interactive)
  (let ((default-directory user-emacs-directory))
    (shell) ))
(defalias 'sh #'shell-local)

(setq comint-terminfo-terminal "emacs-dumb")
(setq comint-process-echoes t)

;; (setq shell-mode-hook-f nil)
(defun shell-mode-hook-f ()
  (lines)
  (mute-kill-warnings)
  (disable-super-global-keys shell-mode-map) )
(add-hook 'shell-mode-hook #'shell-mode-hook-f)

(define-key shell-mode-map "\C-\M-p"
  (lambda ()
    (interactive)
    (comint-previous-input 1)
    (message nil)) )

(define-key shell-mode-map "\C-\M-n"
  (lambda ()
    (interactive)
    (comint-next-input 1)
    (message nil)) )

(provide 'emacs-shell)