fix(flymake): use custom icons only when suitable

abougouffa · May 25, 2023 · 1e84c48 · 1e84c48
1 parent 1fcc323
commit 1e84c48
Showing 1 changed file with 23 additions and 4 deletions.
diff --git a/modules/me-checkers.el b/modules/me-checkers.el
@@ -14,9 +14,6 @@
   (+map! "tf" #'flymake-mode)
   :custom
   (flymake-fringe-indicator-position 'right-fringe)
-  (flymake-error-bitmap '(+flymake-bitmap-left-arrow-hi-res compilation-error))
-  (flymake-warning-bitmap '(+flymake-bitmap-left-arrow-hi-res compilation-warning))
-  (flymake-note-bitmap '(+flymake-bitmap-left-arrow-hi-res compilation-info))
   :config
   (+map-local! :keymaps 'flymake-mode-map
     "f"  '(nil :wk "flymake")
@@ -41,6 +38,7 @@
        #b00111110
        #b01111100
        #b11111000])
+
     (define-fringe-bitmap '+flymake-bitmap-arrow-hi-res
       [#b01111000000
        #b00111100000
@@ -55,6 +53,7 @@
        #b00111100000
        #b01111000000]
       nil 13)
+
     (define-fringe-bitmap '+flymake-bitmap-left-arrow-hi-res
       [#b00000011110
        #b00000111100
@@ -68,7 +67,27 @@
        #b00001111000
        #b00000111100
        #b00000011110]
-      nil 13)))
+      nil 13)
+
+    (setq flymake-error-bitmap '(+flymake-bitmap-left-arrow-hi-res compilation-error)
+          flymake-warning-bitmap '(+flymake-bitmap-left-arrow-hi-res compilation-warning)
+          flymake-note-bitmap '(+flymake-bitmap-left-arrow-hi-res compilation-info))))
+
+;;   (defhydra +flycheck-main (:color blue :hint nil :foreign-keys warn)
+;;     "
+;; [Flymake]                                              [_q_] quit
+;;   ├──────────────────────────────────────────────────────────────────────╮
+;;   │  [_B_] Buffer diagnostics  [_P_] Project diagnostics  [_L_] Log buffer     │
+;;   │  [_n_] Next error          [_N_] Prev error           [_S_] Start          │
+;;   ╰──────────────────────────────────────────────────────────────────────╯
+;; "
+;;     ("B" flymake-show-buffer-diagnostics)
+;;     ("P" flymake-show-project-diagnostics)
+;;     ("L" flymake-switch-to-log-buffer)
+;;     ("n" flymake-goto-next-error)
+;;     ("N" flymake-goto-prev-error)
+;;     ("S" flymake-start)
+;;     ("q" nil :color blue)))
 
 (use-package flymake-easy
   :straight t)