github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-30 11:09:55 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix: flymake mouse-clicks.

Browse source
This commit is contained in:
Vincent Zhang 2019-01-02 21:47:14 +08:00
parent 59c649e30e
commit 81be819bb2
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
doom-modeline.el
View file

@ -1159,9 +1159,9 @@ icons."
(t (let ((sum (+ .error .warning))) (t (let ((sum (+ .error .warning)))
(if (> sum 0) (if (> sum 0)
(doom-modeline-checker-icon "do_not_disturb_alt" (doom-modeline-checker-icon "do_not_disturb_alt"
(number-to-string sum) (number-to-string sum)
(if (> .error 0) 'doom-modeline-urgent 'doom-modeline-warning) (if (> .error 0) 'doom-modeline-urgent 'doom-modeline-warning)
-0.225) -0.225)
(doom-modeline-checker-icon "check" nil 'doom-modeline-info))))) (doom-modeline-checker-icon "check" nil 'doom-modeline-info)))))
'help-echo (concat "Flymake\n" 'help-echo (concat "Flymake\n"
(cond (cond
@ -1170,9 +1170,9 @@ icons."
(all-disabled "All Checkers Disabled") (all-disabled "All Checkers Disabled")
(t (format "error: %d, warning: %d, note: %d (t (format "error: %d, warning: %d, note: %d
%d/%d backends running %d/%d backends running
mouse-1: Display warnings and errors mouse-1: Display minor mode menu
mouse-2: Show help for minor mode mouse-2: Show help for minor mode
mouse-3: Next warning or error mouse-3: Display warnings and errors
wheel-up/wheel-down: Previous/Next warning or error" wheel-up/wheel-down: Previous/Next warning or error"
.error .warning .note .error .warning .note
(length running) (length known))))) (length running) (length known)))))
@ -1185,7 +1185,7 @@ wheel-up/wheel-down: Previous/Next warning or error"
(interactive) (interactive)
(describe-function 'flymake-mode))) (describe-function 'flymake-mode)))
(define-key map [mode-line mouse-3] (define-key map [mode-line mouse-3]
#'flycheck-next-error) #'flymake-show-diagnostics-buffer)
(define-key map (vector 'mode-line (define-key map (vector 'mode-line
mouse-wheel-down-event) mouse-wheel-down-event)
(lambda (event) (lambda (event)