33 lines
820 B
EmacsLisp
Executable File
33 lines
820 B
EmacsLisp
Executable File
;;; -*- lexical-binding: t; -*-
|
|
|
|
(require 'syd/base)
|
|
|
|
(defun syd-comint--set-theme ()
|
|
(require 'syd/kanagawa-palette)
|
|
(custom-theme-set-faces
|
|
'user
|
|
;; Default prompt face is very ugly. Give it a more subtle look.
|
|
`(comint-highlight-prompt
|
|
((t :foreground ,(syd-kanagawa-get 'old-white)
|
|
:background unspecified
|
|
:weight bold)))))
|
|
|
|
(defun syd-comint--set-keybinds ()
|
|
(general-def
|
|
:keymaps 'comint-mode-map
|
|
:states '(normal insert)
|
|
"C-k" #'comint-previous-input
|
|
"C-j" #'comint-next-input
|
|
"C-s" #'consult-history
|
|
"<return>" #'comint-send-input)
|
|
(general-def
|
|
:keymaps 'comint-mode-map
|
|
:states 'insert
|
|
"C-d" #'comint-delchar-or-maybe-eof))
|
|
|
|
(with-eval-after-load 'comint
|
|
(syd-comint--set-theme)
|
|
(syd-comint--set-keybinds))
|
|
|
|
(provide 'syd/comint)
|