graphical setup tweaks

init.el

@@ -332,7 +332,7 @@ If the current window occupies the whole frame, split it."
 ;; do the things
 (add-hook 'server-after-make-frame-hook #'mir/graphical-setup)
 (if (display-graphic-p)
-    (add-hook 'init-hook #'mir/graphical-setup)
+    (add-hook 'elpaca-after-init-hook #'mir/graphical-setup)
     ;; (add-hook 'after-init-hook #'mir/graphical-setup)
   )
 

lisp/mir-defuns.el

@@ -59,7 +59,7 @@ declarations for color schemes."
 This prevents errors in termux and speeds up init when editing from the
 console."
   ;; hide gui scrollbars and menubar etc
-  (scroll-bar-mode -1) ;; use `yascroll' instead
+  ;; (scroll-bar-mode -1) ;; use `yascroll' instead
   (setq scroll-bar-adjust-thumb-portion nil)
   (tool-bar-mode 0)
   (menu-bar-mode 0)
@@ -72,18 +72,19 @@ console."
       (pixel-scroll-precision-mode t)
     (pixel-scroll-mode t))
   ;; Size of text. おまえ わ もう しんでいる.
-  (if (executable-find "neofetch")
-      (let* ((resolution (mapcar #'string-to-number
-				 (split-string
-				  (cadr (split-string
-					 (shell-command-to-string
-					  "neofetch resolution"))) "x")))
-	     (resx (car resolution))
-	     (resy (cadr resolution))
-	     (font-height (/ resy 11)))
-	(set-face-attribute 'fixed-pitch nil :height font-height)
-	(set-face-attribute 'default nil :height font-height)
-	(set-face-attribute 'variable-pitch nil :height (+ font-height 10)))))
+  ;; (if (executable-find "neofetch")
+  ;;     (let* ((resolution (mapcar #'string-to-number
+  ;; 				 (split-string
+  ;; 				  (cadr (split-string
+  ;; 					 (shell-command-to-string
+  ;; 					  "neofetch resolution"))) "x")))
+  ;; 	     (resx (car resolution))
+  ;; 	     (resy (cadr resolution))
+  ;; 	     (font-height (/ resy 11)))
+  ;; 	(set-face-attribute 'fixed-pitch nil :height font-height)
+  ;; 	(set-face-attribute 'default nil :height font-height)
+  ;; 	(set-face-attribute 'variable-pitch nil :height (+ font-height 10))))
+  )
 
 (defun toggle-ja-input ()
   "Switch between english and japanese.  Not broken."