init.lisp 943 B

123456789101112131415161718192021222324252627
  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. ;;; Search engines
  7. (defvar *my-search-engines*
  8. (list
  9. '("kagi" "https://kagi.com/search?q=~a" "https://kagi.com/")))
  10. ;;; See: https://github.com/atlas-engineer/nyxt/issues/447
  11. (define-mode my-mode ()
  12. "Dummy mode for my own keybindings"
  13. ((keymap-scheme (keymap:make-scheme
  14. scheme:cua *dkeymap*
  15. scheme:emacs *dkeymap*
  16. scheme:vi-normal *dkeymap*))))
  17. (define-configuration (buffer web-buffer)
  18. ;;;((default-modes (append '(vi-normal-mode) %slot-default%))))
  19. ((default-modes (append '(vi-normal-mode) %slot-default%))))
  20. (define-configuration buffer
  21. ((search-engines (append %slot-default%
  22. (mapcar (lambda (engine) (apply 'make-search-engine engine))
  23. *my-search-engines*)))))