niri updates, some bluetoth

homes/emenel/dotfiles/dot_config/nyxt/config.lisp

@@ -1,49 +1,49 @@
-(in-package #:nyxt-user)
+;; inspiration from: https://github.com/aartaka/nyxt-config/blob/master/config.lisp
 
-;;; Reset ASDF registries to allow loading Lisp systems from
-;;; everywhere.
-#+nyxt-3 (reset-asdf-registries)
+(in-package :nyxt-user)
 
-(define-configuration browser
-  ((theme default)))
-
-;; Ad block
-(define-configuration :web-buffer
-  ((default-modes
-    (pushnew 'nyxt/mode/blocker:blocker-mode %slot-value%))))
-
-;; search engine
+;; search engines
 (defvar *my-search-engines*
   (list
-   '("kagi" "https://kagi.com/search?q=~a" "https://www.kagi.com/")
-   '("wiki" "https://en.wikipedia.org/w/index.php?search=~a" "https://en.wikipedia.org/")))
+   '("wiki" "https://en.wikipedia.org/w/index.php?search=~a" "https://en.wikipedia.org/")
+   '("kagi" "https://kagi.com/search?q=~a" "https://www.kagi.com/")))
+
+(defvar *web-buffer-modes*
+  '(:blocker-mode
+    :reduce-tracking-mode))
+
+(define-configuration browser
+  ((restore-session-on-startup-p t)
+   ;; (default-new-buffer-url (quri:uri "https://github.com/atlas-engineer/nyxt"))
+   (external-editor-program '("emacsclient -r"))))
 
 (define-configuration context-buffer
   "Go through the search engines above and make-search-engine"
   ((search-engines
     (append %slot-default%
-      (mapcar
-        (lambda (engine) (apply 'make-search-engine engine))
-        *my-search-engines*)))))
+            (mapcar
+             (lambda (engine) (apply 'make-search-engine engine))
+             *my-search-engines*)))))
 
+;; auto bookmark frequently visited sites
+(define-configuration bookmark-frequent-visits-mode
+    ((threshold 10)))
 
-;; keybindings: small emacs experience in CUA (default mode) of Nyxt
-(define-configuration buffer
-  ((override-map (let ((map (make-keymap "override-map")))
-                   (define-key map
-                      "C-space" 'noop
-                      "M-x" 'execute-command
-                      "C-n" 'nyxt/web-mode:scroll-down
-                      "C-p" 'nyxt/web-mode:scroll-up
-                      "C-f" 'nyxt/web-mode:scroll-right
-                      "C-b" 'nyxt/web-mode:scroll-left
-                      "C-g" 'query-selection-in-search-engine
-                      "M-s->" 'nyxt/web-mode:scroll-to-bottom
-                      "M-s-<" 'nyxt/web-mode:scroll-to-top
-                      "C-s" 'nyxt/web-mode:search-buffer
-                      "M-w" 'nyxt/web-mode:copy
-                      "C-y" 'nyxt/web-mode:paste
-                      "C-Y" 'nyxt/web-mode:paste-from-clipboard-ring)))))
+;; set web buffer default modes from *web-buffer-modes* above
+(define-configuration web-buffer
+  "Basic modes setup for web-buffer."
+  ((default-modes `(,@*web-buffer-modes* ,@%slot-value%))))
 
-;; (define-configuration bookmark-frequent-visits-mode
-;;   ((threshold 10)))
+(define-configuration hint-mode
+  "Set up QWERTY home row as the hint keys."
+  ((hints-alphabet "DSJKHLFAGNMXCWEIO")))
+
+(define-configuration prompt-buffer
+  ((hide-single-source-header-p
+    t
+    :doc "This is to hide the header is there's only one source.
+There also used to be other settings to make prompt-buffer a bit
+more minimalist, but those are internal APIs :(")))
+
+;; key binds
+;; (defvar mnl-keys (make-keyscheme cua))