fixed .gitignore

.config/nyxt/init.lisp

@@ -0,0 +1,144 @@
+(load-after-system :slynk "~/.config/nyxt/my-slynk.lisp")
+
+;; Vim-normal mode by default
+(define-configuration buffer
+  ((default-modes (append '(vi-normal-mode) '(blocker-mode) %slot-default%))))
+
+;; Vim-insert for prompt-buffer (minibuffer)
+(define-configuration prompt-buffer
+  ((default-modes (append '(vi-insert-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))))
+
+;;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 "#125458")
+              (".source-content"
+               :background-color "black")
+              (".source-content th"
+               :border "1px solid #125458"
+               :background-color "black")
+              ;; The currently highlighted option.
+              ("#selection"
+               :background-color "#125458"
+               :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 "lightgray")
+        (a
+         :color "#125458")
+        (.button
+         :color "white"
+         :background-color "#125458")))))))
+
+;; 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 "#125458"))))))
+
+;; 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 "#125458")
+              ;; 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 "#125458"
+               :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"))))))
+
+(define-configuration password:keepassxc-interface
+  ((password:password-file "/home/opal/.config/keepassxc/.kdbx-store/opal.kdbx")))
+   
+(define-configuration buffer
+  ((password-interface (make-instance 'password:user-keepassxc-interface))))
+
+;; 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.)

.config/nyxt/my-slink.lisp

@@ -0,0 +1,10 @@
+(define-command-global start-slynk (&optional (slynk-port *swank-port*))
+    "Start a Slynk server that can be connected to, for instance, in
+Emacs via SLY.
+
+Warning: This allows Nyxt to be controlled remotely, that is, to execute
+arbitrary code with the privileges of the user running Nyxt.  Make sure
+you understand the security risks associated with this before running
+this command."
+    (slynk:create-server :port slynk-port :dont-close t)
+    (echo "Slynk server started at port ~a" slynk-port))