Separated nyxt into file, added themes, etc

2021-12-21 00:43:41 -08:00
parent 7a42fc0542
commit a731c61582
5 changed files with 191 additions and 36 deletions
--- a/Nyxt.org
+++ b/Nyxt.org
@@ -0,0 +1,159 @@
+#+TITLE: Nyxt Configuration
+#+PROPERTY: header-args:lisp :tangle ~/Dotfiles/.config/nyxt/init.lisp :mkdirp yes
+
+Nyxt is a browser written in Common Lisp that follows the same philosophy of extensibility as Emacs. This makes it a perfect companion to an Emacs centered eco-system when you need a browser with more features than Eww or w3m.
+
+* Keybindings
+#+begin_src lisp
+;; Vim keybindings, of course..
+(define-configuration buffer
+  ((default-modes (append '(vi-normal-mode) %slot-default%))))
+
+;; Keybindings
+;; (Note: Override Map will override any other custom keybindings so use a prefix key.)
+(define-configuration buffer
+  ((override-map (define-key %slot-default%
+                   "C-x s" 'nyxt/web-mode:search-buffers
+                   "C-x u" 'copy-username
+                   "c-x p" 'copy-password))))
+#+end_src
+
+* Theme
+#+begin_src lisp
+;;Message buffer color configuration
+(define-configuration window
+  ((message-buffer-style
+    (str:concat
+     %slot-default%
+     (cl-css:css
+      '((body
+         :background-color "black"
+         :color "white")))))))
+
+;; Mini-buffer style
+(define-configuration prompt-buffer
+  ((style (str:concat
+           %slot-default%
+           (cl-css:css
+            '((body
+               :background-color "black"
+               :color "white")
+              ("#prompt-area"
+               :background-color "black")
+              ;; The area you input text in.
+              ("#input"
+               :background-color "#EDDDAA")
+              (".source-name"
+               :color "black"
+               :background-color "#556B2F")
+              (".source-content"
+               :background-color "black")
+              (".source-content th"
+               :border "1px solid #556B2F"
+               :background-color "black")
+              ;; The currently highlighted option.
+              ("#selection"
+               :background-color "#CD5C5C"
+               :color "black")
+              (.marked :background-color "#8B3A3A"
+                       :font-weight "bold"
+                       :color "white")
+              (.selected :background-color "black"
+                         :color "white")))))))
+
+;; Internal buffer (help, bookmarks, buffers panel)
+(define-configuration (internal-buffer panel-buffer)
+  ((style
+    (str:concat
+     %slot-default%
+     (cl-css:css
+      '((title
+         :color "#CD5C5C")
+        (body
+         :background-color "black"
+         :color "lightgray")
+        (hr
+         :color "darkgray")
+        (a
+         :color "#556B2F")
+        (.button
+         :color "lightgray"
+         :background-color "#556B2F")))))))
+
+;; Link hints in web mode
+(define-configuration nyxt/web-mode:web-mode
+  ((nyxt/web-mode:highlighted-box-style
+    (cl-css:css
+     '((".nyxt-hint.nyxt-highlight-hint"
+        :background "#CD5C5C"))))))
+
+;; Modeline
+(define-configuration status-buffer
+  ((style (str:concat
+           %slot-default%
+           (cl-css:css
+            ;; Arrows on the left.
+            '(("#controls"
+               :border-top "1px solid white"
+               :background-color "#CD5C5C")
+              ;; To the right of the arrows.
+              ("#url"
+               :background-color "black"
+               :color "white"
+               :border-top "1px solid white")
+              ;; Far to the right.
+              ("#modes"
+               :background-color "black"
+               :border-top "1px solid white")
+              ;; The center segment.
+              ("#tabs"
+               :background-color "#CD5C5C"
+               :color "black"
+               :border-top "1px solid white")))))))
+
+;; Overriding dark theme colors
+(define-configuration nyxt/style-mode:dark-mode
+  ((style #.(cl-css:css
+             '((*
+                :background-color "black !important"
+                :background-image "none !important"
+                :color "white")
+               (a
+                :background-color "black !important"
+                :background-image "none !important"
+                :color "#556B2F !important"))))))
+#+end_src
+
+* Password Management
+Password managers are an essential feature and thankfully Nyxt allows me to integrate KeepassXC which I use regularly.
+#+begin_src lisp
+(define-configuration password:keepassxc-interface
+  ((password:password-file "/home/opal/Documents/opal.kdbx")))
+   
+(define-configuration buffer
+  ((password-interface (make-instance 'password:user-keepassxc-interface))))
+#+end_src
+
+* Misc
+** Redirection
+I would like to keep expanding on these redirection functions so I can have native redirection away from sites that don't respect user privacy.
+#+begin_src lisp
+
+;; I would like to implement redirection, or some extension to handle it for me.
+;; todo: Redirect reddit to teddit
+;; (defun old-reddit-handler (request-data)
+;;   (let ((url (url request-data)))
+;;     (setf (url request-data)
+;;           (if (search "reddit.com" (quri:uri-host url))
+;;               (progn
+;;                 (setf (quri:uri-host url) "old.reddit.com")
+;;                 (log:info "Switching to old Reddit: ~s" (render-url url))
+;;                 url)
+;;               url)))
+;;   request-data)
+
+;; (define-configuration web-buffer
+;;   ((request-resource-hook
+;;     (hooks:add-hook %slot-default% (make-handler-resource #'old-reddit-handler)))))
+;; (See url-dispatching-handler for a simpler way to achieve the same result.)
+#+end_src