18 lines
450 B
EmacsLisp
18 lines
450 B
EmacsLisp
|
;;; elm-imenu.el --- imenu support for elm
|
||
|
|
;;; Commentary:
|
||
|
|
;;; Code:
|
||
|
|
(require 'imenu)
|
||
|
|
|
||
|
|
(defun elm-imenu-create-index ()
|
||
|
|
"Create an imenu index for the current buffer."
|
||
|
|
(save-excursion
|
||
|
|
(imenu--generic-function
|
||
|
|
'(("Type" "^type \\([A-Z][^ \n]+\\)" 1)
|
||
|
|
("Type Alias" "^type alias \\([A-Z][^ \n]+\\)" 1)
|
||
|
|
("Port" "^port \\([^ ]+\\)" 1)
|
||
|
|
("Function" "^\\([^ ]+\\) :" 1)))))
|
||
|
|
|
||
|
|
|
||
|
|
(provide 'elm-imenu)
|
||
|
|
;;; elm-imenu.el ends here
|