-
Notifications
You must be signed in to change notification settings - Fork 10
/
hsys-flymake.el
192 lines (171 loc) · 7.31 KB
/
hsys-flymake.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
;;; hsys-flymake.el --- Add missing source buffer keymap to flymake linter -*- lexical-binding: t; -*-
;; Usage: GNU Emacs Lisp Library
;; Keywords: tools
;;
;; Author: Bob Weiner
;;
;; Orig-Date: 31-Dec-23 at 13:54:08
;; Last-Mod: 9-Jan-24 at 21:29:43 by Bob Weiner
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
;; Copyright (C) 2023-2024 Free Software Foundation, Inc.
;; See the "HY-COPY" file for license information.
;;
;; This file is part of GNU Hyperbole.
;;
;;; Commentary:
;;
;; These functions all work in the source code buffer, not the flymake
;; diagnostics buffer.
;;
;; This library defines the following key bindings and associated functions.
;;
;; {C-c C-l t} - `hsys-flymake-toggle' - Global binding to toggle whether
;; flymake minor mode is enabled in the current buffer.
;;
;; The rest of these key bindings are local and enabled only when flymake
;; minor mode is enabled.
;;
;; {C-c C-l d} - `flymake-show-buffer-diagnostics' - Display list of flymake
;; issues with this buffer.
;;
;; {C-c C-l g} - `hsys-flymake-display-this-or-next-issue' - Display issue at
;; point or if no issue there, move to next issue location and display it.
;;
;; {C-c C-l i} - `hsys-flymake-insert-issue-at-point' - Insert issue at point
;; on a separate new line below the current line so that its text can be
;; utilized.
;;
;; {C-c C-l l} - `flymake-switch-to-log-buffer' - For developers of new
;; language flymake backends: Jump to a log of internal flymake processing.
;;
;; {C-c C-l n} - `flymake-goto-next-error' - In source buffer, move to next
;; flymake issue. Wrap around at the end of the buffer if
;; `flymake-wrap-around' is non-nil. Repeat with {n}.
;;
;; {C-c C-l p} - `flymake-goto-prev-error' - In source buffer, move to
;; previous flymake issue. Wrap around at the beginning of the buffer
;; if `flymake-wrap-around' is non-nil. Repeat with {p}.
;;
;; {C-c C-l s} - `flymake-start' - Force a run of flymake to update issues
;; with the current buffer.
;;
;; {C-c C-l w} - `hsys-flymake-toggle-wraparound' - Toggle whether next
;; and previous issue commands wrap around at the end and beginning of the
;; buffer. Repeat with {w}.
;;
;;; Code:
;; Don't require `flymake-mode' or `repeat' here. Instead we leave
;; it to each function to check whether `flymake-mode' is enabled
;; and active in the current buffer. This way, if the user never
;; uses `flymake-mode' that library is never loaded and the Smart
;; Key context from `hkey-alist' in "hui-mouse.el" that invokes
;; functions from herein, never triggers.
(require 'hbut)
;;; ************************************************************************
;;; Public declarations
;;; ************************************************************************
(defvar flymake-mode)
(defvar flymake-wrap-around)
(defvar flymake-mode-map)
(declare-function flymake--diag-text "flymake")
;;; ************************************************************************
;;; Public functions
;;; ************************************************************************
(defun hsys-flymake-display-issue-at-point ()
"Display the flymake diagnostic issue at source buffer point, if any."
(interactive)
(let ((issue (hsys-flymake-get-issue-at-position)))
(when issue
(message issue))))
(defun hsys-flymake-display-log-buffer ()
"For flymake backend developers: Display a technical log of flymake actions."
(interactive)
(when (and (featurep 'flymake) flymake-mode)
(display-buffer (get-buffer-create "*Flymake log*"))))
(defun hsys-flymake-get-issue-at-position (&optional pos)
"With flymake enabled and POS on its highlighted text, return the issue.
If no issue at POS, return nil. POS is optional and defaults to point."
(when (and (featurep 'flymake) flymake-mode)
(let* ((diag (get-char-property (or pos (point)) 'flymake-diagnostic))
(issue (when diag (flymake--diag-text diag))))
issue)))
(defun hsys-flymake-display-this-or-next-issue ()
"Display the source buffer flymake diagnostic at point or else the next one."
(interactive)
(or (hsys-flymake-display-issue-at-point)
(call-interactively 'flymake-goto-next-error)))
(defun hsys-flymake-insert-issue-at-point ()
"With flymake enabled and point on its highlighted text, insert the issue.
Issue is inserted into the buffer after the current visible line."
(interactive)
(let ((issue (hsys-flymake-get-issue-at-position)))
(when issue
(save-excursion
(end-of-visible-line)
(insert "\n" issue "\n")))))
(defun hsys-flymake-toggle ()
"Toggle flymake minor mode on or off in the current buffer."
(interactive)
(flymake-mode 'toggle)
(when (called-interactively-p 'interactive)
(message "%s flymake-mode" (if flymake-mode "Enabled" "Disabled"))))
(defun hsys-flymake-toggle-wraparound ()
"Toggle flymake minor mode on or off in the current buffer."
(interactive)
(when (and (featurep 'flymake) flymake-mode)
(setq flymake-wrap-around (not flymake-wrap-around))
(when (called-interactively-p 'interactive)
(message "%s flymake-mode next and previous issue search wraparound to buffer start"
(if flymake-wrap-around "Enabled" "Disabled")))))
;;; ************************************************************************
;;; Key bindings
;;; ************************************************************************
;; flymake-mode does not bind any keys; it has only menu bindings.
;; Add key bindings for use in the source buffer on the C-c C-l prefix.
;; Each time these keys are changed, need to disable `repeat-mode' and
;; then re-enable it to read the updated key bindings.
(defvar hsys-flymake-mode-control-l-prefix-map
(let ((map (make-sparse-keymap)))
(define-key map "d" 'flymake-show-buffer-diagnostics)
(define-key map "g" 'hsys-flymake-display-this-or-next-issue)
(define-key map "i" 'hsys-flymake-insert-issue-at-point)
(define-key map "l" 'flymake-switch-to-log-buffer)
(define-key map "n" 'flymake-goto-next-error)
(define-key map "p" 'flymake-goto-prev-error)
(define-key map "s" 'flymake-start)
(define-key map "w" 'hsys-flymake-toggle-wraparound)
map))
;; Use `repeat-map' property for appropriate flymake commands so can
;; repeat them with their last keystroke, e.g. repeat {C-c C-l n} by
;; pressing {n} repeatedly.
(defvar hsys-flymake-repeat-map
(let ((map (make-sparse-keymap)))
(mapc (lambda (cmd)
(define-key map
(where-is-internal cmd hsys-flymake-mode-control-l-prefix-map t)
cmd)
(put cmd 'repeat-map 'hsys-flymake-repeat-map))
'(flymake-goto-next-error
flymake-goto-prev-error
hsys-flymake-toggle-wraparound))
map))
(defvar hsys-flymake-mode-control-c-prefix-map
(let ((map (make-sparse-keymap)))
(define-key map "\C-l" hsys-flymake-mode-control-l-prefix-map)
map))
(global-set-key "\C-c\C-lt" 'hsys-flymake-toggle)
(add-hook 'flymake-mode-hook
(lambda () (when flymake-mode
(define-key flymake-mode-map "\C-c"
hsys-flymake-mode-control-c-prefix-map)
;; probably Emacs 28 or greater
(when (fboundp 'repeat-mode)
(repeat-mode 1)))))
;; If flymake-mode is already enabled, re-enable it to ensure
;; repeat-mode gets enabled.
(when (and (featurep 'flymake) flymake-mode)
(flymake-mode 1))
(provide 'hsys-flymake)
;;; hsys-flymake.el ends here