;;; -*- lexical-binding: t -*-
;;
;; --------------------------------------------------------------------------

(require 'luki-lisp)

;; --------------------------------------------------------------------------

(-> 'comint)
(-> 'em-hist)
(-> 'll-switch-to-buffer-regexp)
(-> 'shell)

;; --------------------------------------------------------------------------
;; shell

(defun shell-local () (i)
  (let ((default-directory user-emacs-directory))
    (shell)))

(defalias 'sh #'shell-local)

;; --------------------------------------------------------------------------

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

;; --------------------------------------------------------------------------

(keymap-set shell-mode-map "C-M-p" (L () (comint-previous-input 1) ($ nil)))
(keymap-set shell-mode-map "C-M-n" (L () (comint-next-input     1) ($ nil)))

;; --------------------------------------------------------------------------

(<- 'll-emacs-shell)