Bladeren bron

Including nyxt config and fixed elpher ansi colors

Simon Watson 2 jaren geleden
bovenliggende
commit
95494033e8
2 gewijzigde bestanden met toevoegingen van 28 en 1 verwijderingen
  1. 1 1
      emacs/.emacs-all
  2. 27 0
      nyxt/init.lisp

+ 1 - 1
emacs/.emacs-all

@@ -61,7 +61,7 @@
 
 ;; Gopher browser
 (straight-use-package 'elpher)
-(straight-use-package 'ansi-color)
+(straight-use-package 'xterm-color)
 (defun display-ansi-colors ()
   (interactive)
   (let ((inhibit-read-only t))

+ 27 - 0
nyxt/init.lisp

@@ -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*)))))