lisp/mir-defuns.el

@@ -49,10 +49,9 @@ 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
-  (unless (display-graphic-p)
+  (let ((display-table (or standard-display-table (make-display-table))))
-    (let ((display-table (or standard-display-table (make-display-table))))
+    (set-display-table-slot display-table 'vertical-border (make-glyph-code ?│))
-      (set-display-table-slot display-table 'vertical-border (make-glyph-code ?│))
+    (setq standard-display-table display-table)))
-      (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
@@ -84,12 +83,17 @@ console."
     (set-face-attribute 'variable-pitch nil :height (+ font-height 10))))
 
 (defun toggle-ja-input ()
-  "Switch between english and japanese.  Not broken."
+  "Switch between english and japanese.  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."
@@ -115,6 +119,19 @@ 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,6 +6,7 @@
 ;; -----------------------------------------------------------------------------
 ;;; Code:
 
+(elpaca-wait)
 ;; (use-package no-littering) ;a bad start, and we need more
 
 (use-package compat)
@@ -18,7 +19,7 @@
 (use-package general
   :demand t
   :custom (default-input-method "japanese")
-  :config (require 'mir-keybinds))
+  :config (mir/general-config))
 (elpaca-wait)
 (use-package gcmh
   :diminish