Lines Matching +defs:font +defs:lock +defs:mode
1 ;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode
30 ;; This package provides a major mode for editing SNMP MIBs. It
32 ;; fontification via font-lock, imenu search functions, etc.
34 ;; SNMP mode also uses tempo, a textual boilerplate insertion package
40 ;; automatically installed when snmp-mode (or snmpv2-mode) is entered.
42 ;; The SNMPv2 mode in this version has been enhanced thanks to popular
52 ;; Mostly, use it as you would any other mode. There's a very
81 ;; If you want font-lock in your MIB buffers, add this:
83 ;; (add-hook 'snmp-common-mode-hook 'turn-on-font-lock)
85 ;; Enabling global-font-lock-mode is also sufficient.
129 (defcustom snmp-common-mode-hook nil
130 "*Hook(s) evaluated when a buffer enters either SNMP or SNMPv2 mode."
134 (defcustom snmp-mode-hook nil
135 "*Hook(s) evaluated when a buffer enters SNMP mode."
139 (defcustom snmpv2-mode-hook nil
140 "*Hook(s) evaluated when a buffer enters SNMPv2 mode."
145 "*Tempo tags for SNMP mode.")
148 "*Tempo tags for SNMPv2 mode.")
157 (defvar snmp-font-lock-keywords-1
161 (1 font-lock-variable-name-face) (3 font-lock-keyword-face nil t)
162 (7 font-lock-keyword-face nil t) (8 font-lock-keyword-face nil t))
166 (1 font-lock-function-name-face) (2 font-lock-keyword-face))
168 "Basic SNMP MIB mode expression highlighting.")
170 (defvar snmp-font-lock-keywords-2
173 (0 font-lock-keyword-face)))
174 snmp-font-lock-keywords-1)
175 "Medium SNMP MIB mode expression highlighting.")
177 (defvar snmp-font-lock-keywords-3
180 (1 font-lock-reference-face) (2 font-lock-keyword-face))
182 (1 font-lock-reference-face nil t) (2 font-lock-variable-name-face)))
183 snmp-font-lock-keywords-2)
184 "Gaudy SNMP MIB mode expression highlighting.")
186 (defvar snmp-font-lock-keywords snmp-font-lock-keywords-1
187 "Default SNMP MIB mode expression highlighting.")
194 (defvar snmp-mode-syntax-list nil
221 (defvar snmp-mode-access-list nil
234 (defvar snmp-mode-status-list nil
262 ;; Create abbrev table for SNMP MIB mode
264 (defvar snmp-mode-abbrev-table nil
265 "Abbrev table in use in SNMP mode.")
266 (define-abbrev-table 'snmp-mode-abbrev-table ())
269 ;; Create abbrev table for SNMPv2 mode
271 (defvar snmpv2-mode-abbrev-table nil
272 "Abbrev table in use in SNMPv2 mode.")
273 (define-abbrev-table 'snmpv2-mode-abbrev-table ())
278 (defvar snmp-mode-map (make-sparse-keymap)
279 "Keymap used in SNMP mode.")
281 (define-key snmp-mode-map "\t" 'snmp-indent-command)
282 (define-key snmp-mode-map "\177" 'backward-delete-char-untabify)
284 (define-key snmp-mode-map "\C-c\C-i" 'tempo-complete-tag)
285 (define-key snmp-mode-map "\C-c\C-f" 'tempo-forward-mark)
286 (define-key snmp-mode-map "\C-c\C-b" 'tempo-backward-mark)
291 (defvar snmp-mode-syntax-table nil
292 "Syntax table used for buffers in SNMP mode.")
294 (if snmp-mode-syntax-table
296 (setq snmp-mode-syntax-table (make-syntax-table))
297 (modify-syntax-entry ?\\ "\\" snmp-mode-syntax-table)
298 (modify-syntax-entry ?- "_ 1234" snmp-mode-syntax-table)
299 (modify-syntax-entry ?\n ">" snmp-mode-syntax-table)
300 (modify-syntax-entry ?\^m ">" snmp-mode-syntax-table)
301 (modify-syntax-entry ?_ "." snmp-mode-syntax-table)
302 (modify-syntax-entry ?: "." snmp-mode-syntax-table)
303 (modify-syntax-entry ?= "." snmp-mode-syntax-table))
305 ;; Set up the stuff that's common between snmp-mode and snmpv2-mode
307 (defun snmp-common-mode (name mode abbrev font-keywords imenu-index tempo-tags)
310 ;; Become the current major mode
311 (setq mode-name name)
312 (setq major-mode mode)
315 (use-local-map snmp-mode-map)
316 (set-syntax-table snmp-mode-syntax-table)
344 (make-local-variable 'font-lock-defaults)
345 (setq font-lock-defaults (cons font-keywords '(nil nil ((?- . "w 1234")))))
360 (setq require-final-newline mode-require-final-newline))
366 (defun snmp-mode ()
367 "Major mode for editing SNMP MIBs.
372 \\{snmp-mode-map}
373 Turning on snmp-mode runs the hooks in `snmp-common-mode-hook', then
374 `snmp-mode-hook'."
377 (snmp-common-mode "SNMP" 'snmp-mode
378 snmp-mode-abbrev-table
379 '(snmp-font-lock-keywords
380 snmp-font-lock-keywords-1
381 snmp-font-lock-keywords-2
382 snmp-font-lock-keywords-3)
383 'snmp-mode-imenu-create-index
387 (make-local-variable 'snmp-mode-syntax-list)
388 (setq snmp-mode-syntax-list (append snmp-rfc1155-types
390 snmp-mode-syntax-list))
391 (make-local-variable 'snmp-mode-access-list)
392 (setq snmp-mode-access-list snmp-rfc1155-access)
393 (make-local-variable 'snmp-mode-status-list)
394 (setq snmp-mode-status-list snmp-rfc1212-status)
397 (run-mode-hooks 'snmp-common-mode-hook 'snmp-mode-hook))
401 (defun snmpv2-mode ()
402 "Major mode for editing SNMPv2 MIBs.
407 \\{snmp-mode-map}
408 Turning on snmp-mode runs the hooks in `snmp-common-mode-hook',
409 then `snmpv2-mode-hook'."
412 (snmp-common-mode "SNMPv2" 'snmpv2-mode
413 snmpv2-mode-abbrev-table
414 '(snmp-font-lock-keywords
415 snmp-font-lock-keywords-1
416 snmp-font-lock-keywords-2
417 snmp-font-lock-keywords-3)
418 'snmp-mode-imenu-create-index
422 (make-local-variable 'snmp-mode-syntax-list)
423 (setq snmp-mode-syntax-list (append snmp-rfc1902-types
425 snmp-mode-syntax-list))
426 (make-local-variable 'snmp-mode-access-list)
427 (setq snmp-mode-access-list snmp-rfc1902-access)
428 (make-local-variable 'snmp-mode-status-list)
429 (setq snmp-mode-status-list snmp-rfc1902-status)
432 (run-mode-hooks 'snmp-common-mode-hook 'snmpv2-mode-hook))
516 (defun snmp-mode-imenu-create-index ()
587 (snmp-completing-read "Syntax: " snmp-mode-syntax-list nil nil)
591 (snmp-completing-read "Access: " snmp-mode-access-list nil t)
595 (snmp-completing-read "Status: " snmp-mode-status-list nil t)
648 (snmp-completing-read "Syntax: " snmp-mode-syntax-list nil nil)
652 (snmp-completing-read "Max Access: " snmp-mode-access-list nil t)
656 (snmp-completing-read "Status: " snmp-mode-status-list nil t)
708 (snmp-completing-read "Status: " snmp-mode-status-list nil t)
713 (snmp-completing-read "Syntax: " snmp-mode-syntax-list nil nil)
720 (provide 'snmp-mode)
723 ;;; snmp-mode.el ends here