From 3dadf1b2b75dd69fab65e79e996cf229e4e0e605 Mon Sep 17 00:00:00 2001
From: eriedaberrie <eriedaberrie@gmail.com>
Date: Tue, 7 Feb 2023 22:22:13 -0800
Subject: [PATCH] Don't use bar for insert in meow

---
 init.el | 32 ++++++++++++++++++++++++--------
 1 file changed, 24 insertions(+), 8 deletions(-)

diff --git a/init.el b/init.el
index de84fe3..b0e549f 100644
--- a/init.el
+++ b/init.el
@@ -137,6 +137,21 @@
                           '(":" . meow-comment)
                           '("=" . meow-indent)
                           '("<escape>" . ignore))
+  (with-eval-after-load 'catppuccin-theme
+    (setq meow-cursor-type-insert 'box)
+    (face-spec-set 'meow-insert-cursor `((t (:background
+                                             ,(catppuccin-get-color 'mauve)
+                                             :inherit
+                                             unspecified))))
+    (face-spec-set 'meow-unknown-cursor `((t (:background
+                                              ,(catppuccin-get-color 'rosewater)
+                                              :inherit
+                                              unspecified))))
+    (dolist (meow-cursor-face '(meow-normal-cursor meow-motion-cursor meow-beacon-cursor))
+      (face-spec-set meow-cursor-face `((t (:inherit meow-unknown-cursor)))))
+    (add-to-list 'meow-update-cursor-functions-alist
+                 (cons (lambda () (and (meow-insert-mode-p) (not (display-graphic-p))))
+                       (lambda () (meow--set-cursor-type '(hbar 2))))))
   (meow-global-mode))
 
 (use-package puni
@@ -181,12 +196,12 @@
       (?b (setcar c ?v) (setcar (nthcdr 2 c) "Vertical Split"))))
   (with-eval-after-load 'catppuccin-theme
     (face-spec-set 'aw-leading-char-face `((t (:foreground
-					                           ,(catppuccin-get-color 'crust)
-					                           :background
-					                           ,(catppuccin-get-color 'red)
-					                           :weight bold))))
+                                               ,(catppuccin-get-color 'crust)
+                                               :background
+                                               ,(catppuccin-get-color 'red)
+                                               :weight bold))))
     (face-spec-set 'aw-background-face `((t (:foreground
-					                         ,(catppuccin-get-color 'overlay1)))))))
+                                             ,(catppuccin-get-color 'overlay1)))))))
 
 (use-package goggles
   :hook prog-mode
@@ -212,8 +227,8 @@
   (add-to-list 'major-mode-remap-alist '(js-mode . js-ts-mode))
   (add-to-list 'major-mode-remap-alist '(js-json-mode . json-ts-mode))
   :custom
-  (treesit-extra-load-path `(,(expand-file-name "tree-sitter-module/dist/"
-                                                user-emacs-directory))))
+  (treesit-extra-load-path (list (expand-file-name "tree-sitter-module/dist/"
+                                                   user-emacs-directory))))
 
 (use-package dtrt-indent
   :demand t
@@ -542,7 +557,8 @@
       read-buffer-completion-ignore-case t
       completion-ignore-case t
       sentence-end-double-space nil
-      custom-safe-themes t)
+      custom-safe-themes t
+      x-stretch-cursor t)
 
 (setq-default c-basic-offset 4
               c-ts-mode-indent-offset 4