emacs: make git gutter look like Zed's
2 files changed, 17 insertions(+), 4 deletions(-)
M user/settings/emacs/post-init.el → user/settings/emacs/post-init.el
@@ -886,12 +886,12 @@ ;; places the git gutter outside the margins. (setq-default fringes-outside-margins nil) ;; thin fringe bitmaps (fringe-helper-define 'git-gutter-fr:added '(center repeated) - ".XXX....") + ".XXXX...") (fringe-helper-define 'git-gutter-fr:modified '(center repeated) - ".XXX....") + ".XXXX...") (fringe-helper-define 'git-gutter-fr:deleted '(center repeated) - ".XXX....") - (setq git-gutter-fr:side 'left-fringe) + ".XXXX...") + (setq git-gutter-fr:side 'right-fringe) (global-git-gutter-mode 1))) (use-package vc-msg
M user/settings/emacs/theme.el → user/settings/emacs/theme.el
@@ -9,6 +9,19 @@ (mapc #'disable-theme custom-enabled-themes) (load-theme light-mode-theme :noconfirm :noenable) (load-theme dark-mode-theme :noconfirm :noenable) + (defun my/modus-themes-custom (&rest _) + (modus-themes-with-colors + (custom-set-faces + '(region ((t :extend nil))) + `(git-gutter:added ((,c :foreground ,bg-added-fringe :background nil))) + `(git-gutter:deleted ((,c :foreground ,bg-removed-fringe :background nil))) + `(git-gutter:modified ((,c :foreground ,bg-changed-fringe :background nil))) + `(git-gutter-fr:added ((,c :foreground ,bg-added-fringe :background nil))) + `(git-gutter-fr:deleted ((,c :foreground ,bg-removed-fringe :background nil))) + `(git-gutter-fr:modified ((,c :foreground ,bg-changed-fringe :background nil)))))) + + (add-hook 'modus-themes-after-load-theme-hook #'my/modus-themes-custom) + (defun my/switch-theme-variant (mode) (interactive (list (intern (completing-read "Make it: " '("light" "dark") nil t))))