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

mouse-1 click to show flycheck menu.

Browse source
This commit is contained in:
Vincent Zhang 2019-01-03 02:28:57 +08:00
parent 239b3a97e1
commit 1777f1e6ac
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
doom-modeline.el
View file

@ -183,6 +183,7 @@ It returns a file name which can be used directly as argument of
(defvar evil-visual-end) (defvar evil-visual-end)
(defvar evil-visual-selection) (defvar evil-visual-selection)
(defvar flycheck-current-errors) (defvar flycheck-current-errors)
(defvar flycheck-mode-menu-map)
(defvar flymake--backend-state) (defvar flymake--backend-state)
(defvar flymake--mode-line-format) (defvar flymake--mode-line-format)
(defvar flymake-menu) (defvar flymake-menu)
@ -1091,7 +1092,7 @@ Uses `all-the-icons-material' to fetch the icon."
'help-echo (concat "Flycheck\n" 'help-echo (concat "Flycheck\n"
(pcase status (pcase status
('finished ('finished
"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")
('running "Running...") ('running "Running...")
('no-checker "No Checker") ('no-checker "No Checker")
@ -1101,7 +1102,7 @@ mouse-2: Show help for minor mode")
'mouse-face '(:box 1) 'mouse-face '(:box 1)
'local-map (let ((map (make-sparse-keymap))) 'local-map (let ((map (make-sparse-keymap)))
(define-key map [mode-line mouse-1] (define-key map [mode-line mouse-1]
#'flycheck-list-errors) flycheck-mode-menu-map)
(define-key map [mode-line mouse-2] (define-key map [mode-line mouse-2]
(lambda () (lambda ()
(interactive) (interactive)