eriedaberrie/.emacs.d
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Don't use bar for insert in meow

Browse source
This commit is contained in:
eriedaberrie 2023-02-07 22:22:13 -08:00
parent df22c3cc1c
commit 3dadf1b2b7
1 changed files with 24 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
init.el
View file

@ -137,6 +137,21 @@
'(":" . meow-comment) '(":" . meow-comment)
'("=" . meow-indent) '("=" . meow-indent)
'("<escape>" . ignore)) '("<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)) (meow-global-mode))
(use-package puni (use-package puni
@ -181,12 +196,12 @@
(?b (setcar c ?v) (setcar (nthcdr 2 c) "Vertical Split")))) (?b (setcar c ?v) (setcar (nthcdr 2 c) "Vertical Split"))))
(with-eval-after-load 'catppuccin-theme (with-eval-after-load 'catppuccin-theme
(face-spec-set 'aw-leading-char-face `((t (:foreground (face-spec-set 'aw-leading-char-face `((t (:foreground
,(catppuccin-get-color 'crust) ,(catppuccin-get-color 'crust)
:background :background
,(catppuccin-get-color 'red) ,(catppuccin-get-color 'red)
:weight bold)))) :weight bold))))
(face-spec-set 'aw-background-face `((t (:foreground (face-spec-set 'aw-background-face `((t (:foreground
,(catppuccin-get-color 'overlay1))))))) ,(catppuccin-get-color 'overlay1)))))))
(use-package goggles (use-package goggles
:hook prog-mode :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-mode . js-ts-mode))
(add-to-list 'major-mode-remap-alist '(js-json-mode . json-ts-mode)) (add-to-list 'major-mode-remap-alist '(js-json-mode . json-ts-mode))
:custom :custom
(treesit-extra-load-path `(,(expand-file-name "tree-sitter-module/dist/" (treesit-extra-load-path (list (expand-file-name "tree-sitter-module/dist/"
user-emacs-directory)))) user-emacs-directory))))
(use-package dtrt-indent (use-package dtrt-indent
:demand t :demand t
@ -542,7 +557,8 @@
read-buffer-completion-ignore-case t read-buffer-completion-ignore-case t
completion-ignore-case t completion-ignore-case t
sentence-end-double-space nil sentence-end-double-space nil
custom-safe-themes t) custom-safe-themes t
x-stretch-cursor t)
(setq-default c-basic-offset 4 (setq-default c-basic-offset 4
c-ts-mode-indent-offset 4 c-ts-mode-indent-offset 4