ui/doom: polish+refactor git-gutter-fringe bitmaps

TODO.org

@@ -100,8 +100,9 @@
 + [ ] tools/upload: add ~+upload/open-remote-file~ command to open current file on the remote (with TRAMP)
 + [ ] Generalize ~doom-visual-bell~ by basing its background off a face
 
-** 2.0.2 [65/66]
+** 2.0.2 [66/67]
 + [ ] Update screenshots
++ [X] ui/doom: polish git-gutter fringe bitmaps (deleted appears truncated)
 + [X] ui/doom-modeline: fix ~0/0~ display in modeline (leftover anzu state)
 + [X] send-to-REPL workflow: does it still work? (see ~:repl~ & ~+eval/repl-send-region~)
 + [X] completion/ivy: restore ag searching (for compressed files)

core/core-ui.el

@@ -1,6 +1,6 @@
 ;; core-ui.el --- draw me like one of your French editors
 
-(defvar doom-ui-fringe-size '3 "Default fringe width")
+(defvar doom-ui-fringe-size '4 "Default fringe width")
 
 (setq-default
  bidi-display-reordering nil ; disable bidirectional text for tiny performance boost

modules/ui/doom/config.el

@@ -133,12 +133,11 @@
   ;; places the git gutter outside the margins.
   (setq-default fringes-outside-margins t)
   ;; thin fringe bitmaps
-  (define-fringe-bitmap 'git-gutter-fr:added
+  (fringe-helper-define 'git-gutter-fr:added '(center repeated)
-    [224 224 224 224 224 224 224 224 224 224 224 224 224 224 224 224 224 224 224 224 224 224 224 224 224]
+    "XXX.....")
-    nil nil 'center)
+  (fringe-helper-define 'git-gutter-fr:modified '(center repeated)
-  (define-fringe-bitmap 'git-gutter-fr:modified
+    "XXX.....")
-    [224 224 224 224 224 224 224 224 224 224 224 224 224 224 224 224 224 224 224 224 224 224 224 224 224]
+  (fringe-helper-define 'git-gutter-fr:deleted 'bottom
-    nil nil 'center)
+    "X......."
-  (define-fringe-bitmap 'git-gutter-fr:deleted
+    "XX......"
-    [0 0 0 0 0 0 0 0 0 0 0 0 0 128 192 224 240 248]
+    "XXX....."))
-    nil nil 'center))