Update

init.el

@@ -46,6 +46,7 @@
 (require 'init-vcs)
 (require 'init-llm)
 (require 'init-check)
+(require 'init-writing)
 
 ;; (require 'init-eglot)
 (require 'init-lsp)

lisp/init-meow.el

@@ -94,7 +94,6 @@
   (meow-setup)
   (add-to-list 'meow-mode-state-list '((magit-mode . insert)))
   (setq meow-keypad-leader-dispatch "C-c"
-        meow-cursor-type-normal 'hbar
         meow-use-clipboard t)
   (setq meow-replace-state-name-list
         '((normal . "<N>")

lisp/init-org.el

@@ -232,20 +232,41 @@ the element after the #+HEADER: tag."
   :ensure nil
   :hook (org-mode . org-latex-preview-mode)
   :hook (org-latex-preview-mode . org-latex-preview-center-mode)
+  :bind ("C-c C-x SPC" . org-latex-preview-clear-cache)
   :config
   ;; Higher resolution when using dvipng
-  (plist-put org-latex-preview-appearance-options :page-width 1.0)
+  (plist-put org-latex-preview-appearance-options :zoom 0.85)
   ;; (plist-put org-latex-preview-appearance-options :margin 1)
-  (plist-put org-latex-preview-appearance-options :scale 2.0)
 
-  ;; ;; Block C-n, C-p etc from opening up previews when using `org-latex-preview-mode'
-  ;; (setq org-latex-preview-mode-ignored-commands
-  ;;       '(next-line previous-line mwheel-scroll
-  ;;         scroll-up-command scroll-down-command))
+  ;; Add margin and rescale display math
+  (defvar my/org-latex-display-math-scale 0.8)
+  (defvar my/org-latex-display-math-margin 8)
+  (defun my/org-latex-preview-add-margin-advice (ov _path-info)
+    (save-excursion
+      (goto-char (overlay-start ov))
+      (when-let* ((elem (org-element-context))
+                  ((or (eq (org-element-type elem) 'latex-environment)
+                       (string-match-p "^\\\\\\[" (org-element-property :value elem))))
+                  (img (overlay-get ov 'preview-image))
+                  ((and (consp img) (eq (car img) 'image))))
+        (let* ((plist (copy-sequence (cdr img)))
+               (height (plist-get plist :height)))
+          (when (and (consp height) (numberp (car height)))
+            (setq plist
+                  (plist-put plist :height
+                             (cons (* my/org-latex-display-math-scale (car height))
+                                   (cdr height)))))
+          (setq plist (plist-put plist :margin my/org-latex-display-math-margin))
+          (let ((new-img (cons 'image plist)))
+            (overlay-put ov 'preview-image new-img)
+            (when (overlay-get ov 'display)
+              (overlay-put ov 'display new-img)))))))
+  (advice-add 'org-latex-preview--update-overlay :after
+              #'my/org-latex-preview-add-margin-advice)
   
   (setq org-latex-preview-numbered t)
   (setq org-latex-preview-mode-display-live t)
-  (setq org-latex-preview-process-default 'dvipng)
+  (setq org-latex-preview-process-default 'dvisvgm)
   (setq org-latex-preview-mode-update-delay 0.25)
   (defun my/org-latex-preview-uncenter (ov)
     (overlay-put ov 'before-string nil))

lisp/init-window.el

@@ -39,6 +39,7 @@
 (use-package ace-window
   :hook (emacs-startup . ace-window-display-mode)
   :bind (([remap other-window] . ace-window)
+         ("M-o" . ace-window)
          ("C-c w" . ace-window-hydra/body))
   :custom
   (aw-scope 'frame)

lisp/init-workspace.el

@@ -13,6 +13,12 @@
 (use-package ibuffer
   :ensure nil
   :bind ("C-x C-b" . ibuffer)
+  :bind (:map ibuffer-mode-map
+         ("M-o" . nil))
+  :hook (ibuffer-mode . hl-line-mode)
+  :config
+  (add-to-list 'ibuffer-help-buffer-modes 'helpful-mode)
+  (add-to-list 'ibuffer-help-buffer-modes 'Man-mode)
   :init (setq ibuffer-filter-group-name-face '(:inherit (font-lock-string-face bold))))
 (use-package nerd-icons-ibuffer
   :ensure t

lisp/init-writing.el

@@ -0,0 +1,19 @@
+;; -*- lexical-binding: t; -*-
+
+(use-package flyspell
+  :ensure nil
+  :commands flyspell-mode
+  :bind (:map flyspell-mode-map
+              ("C-M-i" . nil)
+              ("C-;" . nil)
+              ("C-," . nil)
+              ("C-; C-4" . 'flyspell-auto-correct-previous-word)
+              ;; ("C-; n" . 'flyspell-goto-next-error)
+              ))
+
+(use-package jinx
+  :hook ((text-mode prog-mode conf-mode org-mode) . jinx-mode)
+  :commands jinx-mode
+  :bind ([remap ispell-word] . jinx-correct))
+
+(provide 'init-writing)