removed old configurations

.config/doom/config.el

@@ -1,4 +1,4 @@
-(setq fancy-splash-image "~/dotfiles/.config/doom/splash.png")
+(setq fancy-splash-image "~/opalfiles/.config/doom/splash.png")
 
 (setq user-full-name "ry"
       user-mail-address "rpem66@pm.me")

.config/doom/init.el

@@ -123,7 +123,7 @@
        ;;fsharp            ; ML stands for Microsoft's Language
        ;;fstar             ; (dependent) types and (monadic) effects and Z3
        ;;gdscript          ; the language you waited for
-       (go +lsp)         ; the hipster dialect
+       ;;(go +lsp)         ; the hipster dialect
        ;;(haskell +lsp)    ; a language that's lazier than I am
        ;;hy                ; readability of scheme w/ speed of python
        ;;idris             ; a language you can depend on

.config/gtk-3.0/settings.ini

@@ -1,15 +0,0 @@
-[Settings]
-gtk-cursor-theme-name=
-gtk-theme-name=Arc-Dark
-gtk-font-name=Fira Sans Regular
-gtk-icon-theme-name=Papirus
-gtk-cursor-theme-size=0
-gtk-toolbar-style=GTK_TOOLBAR_BOTH
-gtk-toolbar-icon-size=GTK_ICON_SIZE_LARGE_TOOLBAR
-gtk-button-images=1
-gtk-menu-images=1
-gtk-enable-event-sounds=1
-gtk-enable-input-feedback-sounds=1
-gtk-xft-antialias=1
-gtk-xft-hinting=1
-gtk-xft-hintstyle=hintfull

.config/mbsync/mbsyncrc

@@ -1,26 +0,0 @@
-IMAPAccount opal.sh
-Host imap.opal.sh
-Port 993
-User ry@opal.sh
-PassCmd "gpg --quiet --for-your-eyes-only --no-tty --decrypt ~/Dotfiles/.config/mbsync/.mu4e.gpg"
-SSLType IMAPS
-CertificateFile /etc/ssl/certs/ca-certificates.crt
-
-IMAPStore opal-remote
-Account opal.sh
-
-MaildirStore opal-local
-Path ~/Mail/opal.sh/
-Inbox ~/Mail/opal.sh/Inbox
-Trash ~/Mail/opal.sh/Trash
-SubFolders Verbatim
-
-Channel opal.sh
-Master :opal-remote:
-Slave :opal-local:
-Patterns *
-Expunge None
-CopyArrivalDate yes
-Sync All
-Create Both
-SyncState *

.config/nyxt/init.lisp

@@ -1,206 +0,0 @@
-;; (in-package :nyxt)
-;; (load "~/quicklisp/setup.lisp")
-;; (ql:quickload 'slynk)
-;; ;; (push #p"~/common-lisp/sly/" asdf:*central-registry*)
-;; ;; (asdf:load-system :slynk)
-;; ;; (slynk:create-server :port 4008)
-
-(load-after-system :slynk (nyxt-init-file "my-slink.lisp"))
-;; (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))))
-
-;; (define-command set-url (&key (prefill-current-url-p t))
-;;   "Set the URL for the current buffer, completing with history."
-;;   (let ((history (set-url-history *browser*))
-;;         (actions (list (make-command buffer-load* (suggestion-values)
-;;                                      "Load first selected URL in current buffer and the rest in new buffer(s)."
-;;                                      (mapc (lambda (suggestion) (make-buffer :url (url suggestion))) (rest suggestion-values))
-;;                                      (buffer-load (url (first suggestion-values))))
-;;                        (make-command new-buffer-load (suggestion-values)
-;;                                      "Load URL(s) in new buffer(s)."
-;;                                      (mapc (lambda (suggestion) (make-buffer :url (url suggestion))) (rest suggestion-values))
-;;                                      (make-buffer-focus :url (url (first suggestion-values)))))))
-;;     (pushnew-url-history history (url (current-buffer)))
-;;     (prompt
-;;      :prompt "Open URL"
-;;      :input (if prefill-current-url-p
-;;                 (render-url (url (current-buffer))) "")
-;;      :history history
-;;      :sources (list (make-instance 'user-new-url-or-search-source :actions actions)
-;;                     (make-instance 'bookmark-source :actions actions)
-;;                     (make-instance 'user-global-history-source :actions actions)
-;;                     (make-instance 'search-engine-url-source :actions actions)))))
-
-;; (define-command set-url-new-buffer (&key (prefill-current-url-p t))
-;;   "Prompt for a URL and set it in a new focused buffer."
-;;   (let ((history (set-url-history *browser*))
-;;         (actions (list (make-command new-buffer-load (suggestion-values)
-;;                                      "Load URL(s) in new buffer(s)"
-;;                                      (mapc (lambda (suggestion) (make-buffer :url (url suggestion)))
-;;                                            (rest suggestion-values))
-;;                                      (make-buffer-focus :url (url (first suggestion-values)))))))
-;;     (pushnew-url-history history (url (current-buffer)))
-;;     (prompt
-;;      :prompt "Open URL in new buffer"
-;;      :input (if prefill-current-url-p
-;;                 (render-url (url (current-buffer))) "")
-;;      :history history
-;;      :sources (list (make-instance 'user-new-url-or-search-source :actions actions)
-;;                     (make-instance 'bookmark-source :actions actions)
-;;                     (make-instance 'user-global-history-source :actions actions)
-;;                     (make-instance 'search-engine-url-source :actions actions)))))
-
-;; 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.)
-
-;; (defun nyxt-init-file (&optional subpath)
-;;   "Return SUBPATH relative to `*init-file-path*'.
-;; Return nil if `*init-file-path*' is nil.
-
-;; Example:
-;; If we want to load a define-command procedure that lives in ~/path/to/nyxt/config/dir/my-slink.lisp
-;; (load-after-system :slynk (nyxt-init-file \"my-slink.lisp\"))"
-;;   (if subpath
-;;       (uiop:subpathname* (uiop:pathname-directory-pathname
-;;                           (expand-path *init-file-path*))
-;;                          subpath)
-;;       (expand-path *init-file-path*)))

.config/nyxt/my-slink.lisp

@@ -1,10 +0,0 @@
-(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)) 

.config/zathura/zathurarc

@@ -1,5 +0,0 @@
-# Zathura config
-
-set adjust-open "best-fit"
-
-set font "Iosevka 15"