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