Note how toggling JA input actually does work

lisp/mir-defuns.el

@@ -49,9 +49,10 @@ declarations for color schemes."
   (add-to-list 'default-frame-alist '(cursor-color . "white"))
   (add-to-list 'default-frame-alist '(fullscreen . maximized))
   ;; see also https://emacs.stackexchange.com/questions/7228/nice-tty-window-borders-in-24-4
-  (let ((display-table (or standard-display-table (make-display-table))))
+  (unless (display-graphic-p)
-    (set-display-table-slot display-table 'vertical-border (make-glyph-code ?│))
+    (let ((display-table (or standard-display-table (make-display-table))))
-    (setq standard-display-table display-table)))
+      (set-display-table-slot display-table 'vertical-border (make-glyph-code ?│))
+      (setq standard-display-table display-table))))
 (defun mir/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
@@ -83,17 +84,12 @@ console."
     (set-face-attribute 'variable-pitch nil :height (+ font-height 10))))
 
 (defun toggle-ja-input ()
-  "Switch between english and japanese.  Broken."
+  "Switch between english and japanese.  Not broken."
   (interactive)
   (if (eq current-input-method 'japanese)
       (setq current-input-method 'japanese-ascii)
     (setq current-input-method 'japanese)))
 
-(defun mir/general-config ()
-  "A batch of commands to run immediately after loading the `general' package.
-Made solely to reduce lines in the init file."
-  (require 'mir-keybinds))
-
 (defun turn-off-line-numbers ()
   "A tiny wrapper around `display-line-numbers-mode' or `linum'.
 For use in hooks."
@@ -119,19 +115,6 @@ For instance:
 - Maybe SLIME too."
   (turn-off-line-numbers))
 
-;; for vterm
-(defun update-pwd (path)
-  "Sync Emacs' working PATH with the shell's.
-For use with `vterm'."
-  (setq default-directory path))
-
-;; reference: https://stackoverflow.com/questions/4114577/how-do-i-define-an-emacs-lisp-function-to-spawn-a-shell-buffer-with-a-particular
-(defun spawn-shell (name)
-  "Invoke shell test"
-  (interactive "MName of shell buffer to create: ")
-  (pop-to-buffer (get-buffer-create (generate-new-buffer-name name)))
-  (shell (current-buffer)))
-
 ;; This one line cost me over an hour of frustration...
 (provide 'mir-defuns)
 

lisp/mir-packages.el

@@ -6,7 +6,6 @@
 ;; -----------------------------------------------------------------------------
 ;;; Code:
 
-(elpaca-wait)
 ;; (use-package no-littering) ;a bad start, and we need more
 
 (use-package compat)
@@ -19,7 +18,7 @@
 (use-package general
   :demand t
   :custom (default-input-method "japanese")
-  :config (mir/general-config))
+  :config (require 'mir-keybinds))
 (elpaca-wait)
 (use-package gcmh
   :diminish