(in-package #:nyxt-user)

(define-configuration buffer
  ((default-modes
       (pushnew 'nyxt/mode/emacs:emacs-mode %slot-value%))))

(define-configuration input-buffer
  ((override-map
    (let ((map (make-keymap "override-map")))
      (define-key map "M-x" 'execute-command "C-space" 'nothing)))))

(define-configuration :document-mode
  "Add basic keybindings."
  ((keyscheme-map
    (keymaps:define-keyscheme-map
	"custom" (list :import %slot-value%)
      nyxt/keyscheme:emacs
      (list "C-c p" 'copy-password
	    "C-c u" 'copy-username
	    "C-c y" 'autofill
	    "C-c v" 'visual-mode
	    "C-f" :history-forwards-maybe-query
	    "C-s" :search-buffer
	    "C-l" 'thanos/set-url
	    "M-l" 'thanos/set-url-new-buffer)))))