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

(require 'cl-lib)
(cl-pushnew "." load-path :test #'string=)
(require 'll)
(
 -> 'comint)
(-> 'em-hist)
(-> 'll-switch-to-buffer-regexp)
(-> 'shell)

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

(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)