Added imenu tags to factor-mode for Emacs
parent
484d564b5d
commit
454f192562
|
@ -704,6 +704,32 @@ With prefix, non-existing files will be created."
|
||||||
(set-buffer-modified-p t)
|
(set-buffer-modified-p t)
|
||||||
(save-buffer))))
|
(save-buffer))))
|
||||||
|
|
||||||
|
|
||||||
|
;;; imenu tags
|
||||||
|
|
||||||
|
;; TODO Handle the plural words (SINGLETONS:, SYMBOLS:, etc)
|
||||||
|
(defvar factor-imenu-generic-expression
|
||||||
|
`((nil
|
||||||
|
,(concat "^\\s-*"
|
||||||
|
(regexp-opt '(":" "::" "ALIAS:" "BUILTIN:" "C:" "CONSTANT:" "ERROR:"
|
||||||
|
"GENERIC:" "GENERIC#:" "HOOK:" "INTERSECTION:" "MATH:"
|
||||||
|
"MIXIN:" "PREDICATE:" "PRIMITIVE:" "SINGLETON:" "SLOT:"
|
||||||
|
"SYMBOL:" "SYNTAX:" "TUPLE:" "UNION:" "LOG:" "C-TYPE:" "ENUM:"
|
||||||
|
"STRUCT:" "FUNCTION-ALIAS:"))
|
||||||
|
"\\s-+\\(\\(?:\\s_\\|\\sw\\|\\s\\\\)+\\)")
|
||||||
|
1)
|
||||||
|
("Methods"
|
||||||
|
,(concat "^\\s-*"
|
||||||
|
(regexp-opt '("M:" "M::"))
|
||||||
|
"\\s-+\\(\\(?:\\s_\\|\\sw|\\s\\\\)+\\s-+\\(?:\\s_\\|\\sw|\\s\\\\)+\\)")
|
||||||
|
1)
|
||||||
|
(nil
|
||||||
|
,(concat "^\\s-*"
|
||||||
|
(regexp-opt '("FUNCTION:" "TYPEDEF:"))
|
||||||
|
"\\s-+\\(?:\\(?:\\s_\\|\\sw\\|\\s\\\\)+\\s-+\\)\\(\\(?:\\s_\\|\\sw\\|\\s\\\\)+\\)")
|
||||||
|
1))
|
||||||
|
"Imenu generic expression for factor-mode. See `imenu-generic-expression'.")
|
||||||
|
|
||||||
|
|
||||||
;;; factor-mode:
|
;;; factor-mode:
|
||||||
|
|
||||||
|
@ -758,6 +784,7 @@ With prefix, non-existing files will be created."
|
||||||
:forward-token #'factor-smie-forward-token
|
:forward-token #'factor-smie-forward-token
|
||||||
:backward-token #'factor-smie-backward-token)
|
:backward-token #'factor-smie-backward-token)
|
||||||
(setq-local smie-indent-basic factor-block-offset)
|
(setq-local smie-indent-basic factor-block-offset)
|
||||||
|
(setq-local imenu-generic-expression factor-imenu-generic-expression)
|
||||||
|
|
||||||
(setq-local beginning-of-defun-function 'factor-beginning-of-defun)
|
(setq-local beginning-of-defun-function 'factor-beginning-of-defun)
|
||||||
(setq-local end-of-defun-function 'factor-end-of-defun)
|
(setq-local end-of-defun-function 'factor-end-of-defun)
|
||||||
|
|
Loading…
Reference in New Issue