[New] Add nyxt, slightly modified config from aartaka

1 files changed, 227 insertions, 0 deletions

diff --git a/.config/nyxt/config.lisp b/.config/nyxt/config.lisp
new file mode 100644
index 0000000..fa4416e
--- /dev/null
+++ b/.config/nyxt/config.lisp
@@ -0,0 +1,227 @@
+(in-package #:nyxt-user)
+
+;;; Reset ASDF registries to allow loading Lisp systems from
+;;; everywhere.
+#+nyxt-3 (reset-asdf-registries)
+
+;;; Load quicklisp. Not sure it works.
+#-quicklisp
+(let ((quicklisp-init
+       (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname))))
+  (when (probe-file quicklisp-init)
+    (load quicklisp-init)))
+
+(defvar *web-buffer-modes*
+  '(:emacs-mode
+;    :blocker-mode :force-https-mode
+    :reduce-tracking-mode
+    :user-script-mode :bookmarklets-mode)
+  "The modes to enable in any web-buffer by default.
+Extension files (like dark-reader.lisp) are to append to this list.
+
+Why the variable? Because it's too much hassle copying it everywhere.")
+
+;;; Loading files from the same directory.
+(define-nyxt-user-system-and-load nyxt-user/basic-config
+  :components ("keybinds" "status" "commands" "hsplit" "style" "unpdf" "objdump" "github"))
+
+;;; Loading extensions and third-party-dependent configs. See the
+;;; matching files for where to find those extensions.
+(defmacro defextsystem (system &optional file)
+  "Helper macro to load configuration for extensions.
+Loads a newly-generated ASDF system depending on SYSTEM.
+FILE, if provided, is loaded after the generated system successfully
+loads."
+  `(define-nyxt-user-system-and-load ,(gensym "NYXT-USER/")
+     :depends-on (,system) ,@(when file
+                               `(:components (,file)))))
+
+;(defextsystem :nx-search-engines "search-engines")
+(defextsystem :nx-kaomoji "kaomoji")
+(defextsystem :nx-ace "ace.lisp")
+(defextsystem :nx-fruit)
+(defextsystem :nx-freestance-handler "freestance")
+(defextsystem :nx-dark-reader "dark-reader")
+
+(defvar *my-search-engines*
+  (list
+   '("google" "https://google.com/search?q=~a" "https://google.com")
+   '("doi" "https://dx.doi.org/~a" "https://dx.doi.org/")
+   '("duck" "https://duckduckgo.com/?q=~a" "https://duckudckgo.com")
+   '("thanos" "https://search.thanosapollo.com/searxng/search?q=~a"))
+  "List of search engines.")
+
+(define-configuration context-buffer
+  "Go through the search engines above and make-search-engine out of them."
+  ((search-engines
+    (append %slot-default%
+            (mapcar
+             (lambda (engine) (apply 'make-search-engine engine))
+             *my-search-engines*)))))
+
+(define-configuration browser
+  ;; Enable --remote --eval code evaluation.
+  ((remote-execution-p t)
+   (external-editor-program
+    (list "emacsclient" "-cn" "-a" "" "-F"
+          "((font . \"JetBrains Mono\") (vertical-scroll-bars) (tool-bar-lines) (menu-bar-lines))"))))
+
+(define-configuration :autofill-mode
+  "Setting up autofills."
+  ((autofills (flet ((autofill (name fill)
+                       (nyxt/mode/autofill:make-autofill :name name :fill fill))
+                     (done (text)
+                       (lambda ()
+                         (uiop:strcat text " in " (trivial-clipboard:text)))))
+                    (list (autofill "ellipsis" "…")
+                          (autofill "naive" "naïve")
+                          (autofill "andre" "André")
+                          (autofill "ala" "a-lá")
+                          (autofill "let" "laisser-faire")
+                          (autofill "voila" "Et voilà!")
+                          (autofill "done" (done "Done"))
+                          (autofill "fixed" (done "Fixed"))
+                          (autofill "reverted" (done "Reverted")))))))
+
+;;; Those are settings that every type of buffer should share.
+(define-configuration (:modable-buffer :prompt-buffer :editor-buffer)
+  "Set up Emacs keybindings everywhere possible.
+
+If you're the VI person, then use this:
+(define-configuration :web-buffer
+  ((default-modes (append (list :vi-normal-mode) %slot-value%))))
+
+You probably want to stay with CUA in :prompt-buffer, because it's too
+weird using it with VI bindings. But if you're feeling risky, then:
+(define-configuration :prompt-buffer
+  ((default-modes (append (list :vi-insert-mode) %slot-value%))))"
+  ((default-modes `(:emacs-mode ,@%slot-value%))))
+
+(define-configuration :prompt-buffer
+  "Make the attribute widths adjust to the content in them.
+
+It's not exactly necessary on master, because there are more or less
+intuitive default widths, but these are sometimes inefficient (and
+note that I made this feature so I want to have it :P)."
+  ((dynamic-attribute-width-p t)))
+
+(define-configuration :web-buffer
+  ((download-engine
+    :renderer
+    :doc "This overrides download engine to use WebKit instead of Nyxt-native
+Dexador-based download engine. I don't remember why I switched,
+though.")
+   (search-always-auto-complete-p
+    nil
+    :doc "I don't like search completion when I don't need it.")
+   (global-history-p
+    nil
+    :doc "It was disabled after 2.2.4, while being a useful feature.
+I'm forcing it here, because I'm getting lost in buffer-local
+histories otherwise...")))
+
+(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 :(")))
+
+(define-configuration :web-buffer
+  "Basic modes setup for web-buffer."
+  ((default-modes `(,@*web-buffer-modes* ,@%slot-value%))))
+
+(define-configuration :browser
+  "Set new buffer URL (a.k.a. start page, new tab page)."
+  ((default-new-buffer-url (quri:uri "nyxt:nyxt/mode/repl:repl"))))
+
+(define-configuration :nosave-buffer
+  "Enable proxy in nosave (private, incognito) buffers."
+  ((default-modes `(:proxy-mode ,@*web-buffer-modes* ,@%slot-value%))))
+
+(define-configuration :hint-mode
+  "Set up QWERTY home row as the hint keys."
+  ((hints-alphabet "DSJKHLFAGNMXCWEIO")))
+
+(define-configuration :history-mode
+  ((backtrack-to-hubs-p
+    t
+    :doc "I often browse with \"hub\" places, like GitHub notifications page.
+Having all the links it leads to to be forward children of it is useful.
+The feature is slightly experimental, though.")))
+
+(define-configuration :modable-buffer
+  "This makes auto-rules to prompt me about remembering this or that mode when I toggle it."
+  ((prompt-on-mode-toggle-p t)))
+
+(defmethod ffi-buffer-make :after ((buffer nyxt/renderer/gtk::gtk-buffer))
+  "Setting WebKit-specific settings.
+WARNING: Not exactly the best way to configure Nyxt, because it relies
+on internal APIs and CFFI...
+
+See
+https://webkitgtk.org/reference/webkit2gtk/stable/WebKitSettings.html
+for the full list of settings you can tweak this way."
+  (when (slot-boundp buffer 'nyxt/renderer/gtk::gtk-object)
+    (let* ((settings (webkit:webkit-web-view-get-settings
+                      (nyxt/renderer/gtk::gtk-object buffer))))
+      (setf
+       ;; Resizeable textareas. It's not perfect, but still a cool feature to have.
+       (webkit:webkit-settings-enable-resizable-text-areas settings) t
+       ;; Write console errors/warnings to the shell, to ease debugging.
+       (webkit:webkit-settings-enable-write-console-messages-to-stdout settings) t
+       ;; "Inspect element" context menu option available at any moment.
+       (webkit:webkit-settings-enable-developer-extras settings) t
+       ;; Enable WebRTC.
+       (webkit:webkit-settings-enable-media-stream settings) t
+       ;; Use Cantarell-18 as the default font.
+       (webkit:webkit-settings-default-font-family settings) "JetBrains Mono"
+       (webkit:webkit-settings-default-font-size settings) 18
+       ;; Use Hack-17 as the monospace font.
+       (webkit:webkit-settings-monospace-font-family settings) "Hack"
+       (webkit:webkit-settings-default-monospace-font-size settings) 17
+       ;; Use Unifont for pictograms.
+       (webkit:webkit-settings-pictograph-font-family settings) "Material Icons")))
+  ;; Set the view background to black.
+  (cffi:foreign-funcall
+   "webkit_web_view_set_background_color"
+   :pointer (g:pointer (nyxt/renderer/gtk:gtk-object buffer))
+   ;; GdkRgba is simply an array of four doubles.
+   :pointer (cffi:foreign-alloc
+             :double
+             :count 4
+             ;; red green blue alpha
+             :initial-contents '(0d0 0d0 0d0 1d0))))
+
+(defmethod files:resolve ((profile nyxt:nyxt-profile) (file nyxt/mode/bookmark:bookmarks-file))
+  "Reroute the bookmarks to the config directory."
+  #p"~/.config/nyxt/bookmarks.lisp")
+
+(define-configuration :reduce-tracking-mode
+  ((query-tracking-parameters
+    (append '("utm_source" "utm_medium" "utm_campaign" "utm_term" "utm_content")
+            %slot-value%)
+    :doc "This is to strip UTM-parameters off all the links.
+Upstream Nyxt doesn't have it because it may break some websites.")
+   (preferred-user-agent
+    "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_15_7) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/112.0.0.0 Safari/537.36"
+    :doc "Mimic Chrome on MacOS.")))
+
+(unless nyxt::*run-from-repl-p*
+  (define-configuration :browser
+    "Enable Nyxt-internal debugging, but only in binary mode and after startup if done.
+There are conditions raised at startup, and I don't want to catch
+those, hanging my Nyxt)."
+    ((after-startup-hook (hooks:add-hook %slot-value% #'toggle-debug-on-error)))))
+
+;; (defun request-log (request-data)
+;;   (log:debug "~:@(~a~) ~a (~@[~*toplevel~]~@[~*resource~]) ~{~&~a~}"
+;;              (http-method request-data) (url request-data)
+;;              (toplevel-p request-data) (resource-p request-data)
+;;              (request-headers request-data))
+;;   request-data)
+
+;; (define-configuration :web-buffer
+;;   "Request debugging, clutters the shell real fast."
+;;   ((request-resource-hook
+;;     (hooks:add-hook %slot-value% #'request-log))))