|
@@ -0,0 +1,27 @@
|
|
|
+(defvar *dkeymap* (make-keymap "dkeymap"))
|
|
|
+(define-key *dkeymap*
|
|
|
+ "C-r" 'load-init-file
|
|
|
+ "x" 'delete-current-buffer
|
|
|
+ "b" 'switch-buffer)
|
|
|
+
|
|
|
+;;; Search engines
|
|
|
+(defvar *my-search-engines*
|
|
|
+ (list
|
|
|
+ '("kagi" "https://kagi.com/search?q=~a" "https://kagi.com/")))
|
|
|
+
|
|
|
+;;; See: https://github.com/atlas-engineer/nyxt/issues/447
|
|
|
+(define-mode my-mode ()
|
|
|
+ "Dummy mode for my own keybindings"
|
|
|
+ ((keymap-scheme (keymap:make-scheme
|
|
|
+ scheme:cua *dkeymap*
|
|
|
+ scheme:emacs *dkeymap*
|
|
|
+ scheme:vi-normal *dkeymap*))))
|
|
|
+
|
|
|
+(define-configuration (buffer web-buffer)
|
|
|
+ ;;;((default-modes (append '(vi-normal-mode) %slot-default%))))
|
|
|
+ ((default-modes (append '(vi-normal-mode) %slot-default%))))
|
|
|
+
|
|
|
+(define-configuration buffer
|
|
|
+ ((search-engines (append %slot-default%
|
|
|
+ (mapcar (lambda (engine) (apply 'make-search-engine engine))
|
|
|
+ *my-search-engines*)))))
|