diff --git a/lisp/mitch-defuns.el b/lisp/mitch-defuns.el
index 944fe6a..0480bcc 100644
--- a/lisp/mitch-defuns.el
+++ b/lisp/mitch-defuns.el
@@ -50,6 +50,26 @@ Made solely to reduce lines in the init-file."
   ;;       (set-marker fixup-mark nil)))
   ;;   (advice-add #'evil-join :override #'+evil-join-a)
   )
+(defun mitch/visual-setup ()
+  "Commands to run when setting up any display. To be called in use-package
+declarations for color schemes."
+  (tooltip-mode -1)
+  (menu-bar-mode -1)
+  (set-face-attribute 'fixed-pitch nil
+		      :family "MesloLGS NF")
+  (set-face-attribute 'default nil
+		      :family "MesloLGS NF")
+  (set-face-attribute 'variable-pitch nil
+		      :inherit 'default
+		      :family "Sans Serif")
+  (setq window-divider-default-places t)
+  (setq right-divider-width 5)
+  (setq ring-bell-function 'ignore)
+  (setq rainbow-delimiters-max-face-count 2)
+  (add-to-list 'initial-frame-alist '(alpha-background . 50))
+  (add-to-list 'default-frame-alist '(alpha-background . 50))
+  (add-to-list 'default-frame-alist '(cursor-color . "white"))
+  (add-to-list 'default-frame-alist '(fullscreen . maximized)))
 (defun mitch/graphical-setup ()
   "Commands to run at the beginning of init when on a graphical display.
 This prevents errors in termux and speeds up init when editing from the
diff --git a/lisp/mitch-packages.el b/lisp/mitch-packages.el
index 82fe6b6..da1de91 100644
--- a/lisp/mitch-packages.el
+++ b/lisp/mitch-packages.el
@@ -423,25 +423,6 @@ targets."
 ;;   (load-theme 'naquadah t)
 ;;   (load-theme 'airline-deus t))
 (use-package dark-krystal-theme
-  :custom
-  (window-divider-default-places t)
-  (right-divider-width 5)
-  (ring-bell-function 'ignore)
-  :config
-  (tooltip-mode -1)
-  (menu-bar-mode -1)
-  (set-face-attribute 'fixed-pitch nil
-		      :family "MesloLGS NF")
-  (set-face-attribute 'default nil
-		      :family "MesloLGS NF")
-  (set-face-attribute 'variable-pitch nil
-		      :inherit 'default
-		      :family "Sans Serif")
-  (setq rainbow-delimiters-max-face-count 2)
-  (add-to-list 'initial-frame-alist '(alpha-background . 50))
-  (add-to-list 'default-frame-alist '(alpha-background . 50))
-  (add-to-list 'default-frame-alist '(cursor-color . "white"))
-  (add-to-list 'default-frame-alist '(fullscreen . maximized))
   :init
   (load-theme 'dark-krystal t)
   (load-theme 'airline-google_dark t))