1 (defvar *dkeymap* (make-keymap "dkeymap"))
2 (define-key *dkeymap*
3 "C-r" 'load-init-file
4 "x" 'delete-current-buffer
5 "b" 'switch-buffer)
6
7 ;;; Search engines
8 (defvar *my-search-engines*
9 (list
10 '("kagi" "https://kagi.com/search?q=~a" "https://kagi.com/")))
11
12 ;;; See: https://github.com/atlas-engineer/nyxt/issues/447
13 (define-mode my-mode ()
14 "Dummy mode for my own keybindings"
15 ((keymap-scheme (keymap:make-scheme
16 scheme:cua *dkeymap*
17 scheme:emacs *dkeymap*
18 scheme:vi-normal *dkeymap*))))
19
20 (define-configuration (buffer web-buffer)
21 ;;;((default-modes (append '(vi-normal-mode) %slot-default%))))
22 ((default-modes (append '(vi-normal-mode) %slot-default%))))
23
24 (define-configuration buffer
25 ((search-engines (append %slot-default%
26 (mapcar (lambda (engine) (apply 'make-search-engine engine))
27 *my-search-engines*)))))