blob: fdc6b528239201cb540c388bb1934e08d81bedd9 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
((fennel-mode . ((eval . (put 'ns 'fennel-doc-string-elt 2))
(eval . (put 'ns 'fennel-indent-function 1))
(eval . (put 'def 'fennel-indent-function 'defun))
(eval . (put 'defn 'fennel-indent-function 'defun))
(eval . (put 'defn 'fennel-doc-string-elt 2))
(eval . (put 'defn- 'fennel-indent-function 'defun))
(eval . (put 'defn- 'fennel-doc-string-elt 2))
(eval . (put 'fn* 'fennel-indent-function 'defun))
(eval . (put 'fn* 'fennel-doc-string-elt 2))
(eval . (put 'if-let 'fennel-indent-function 1))
(eval . (put 'when-let 'fennel-indent-function 1))
(eval . (put 'if-some 'fennel-indent-function 1))
(eval . (put 'when-some 'fennel-indent-function 1))
(eval . (put 'defmulti 'fennel-indent-function 'defun))
(eval . (put 'defmethod 'fennel-indent-function 2))
(eval . (put 'defmethod 'fennel-doc-string-elt 2))
(eval . (font-lock-add-keywords 'fennel-mode '(("\\<\\(?:def\\(?:m\\(?:ethod\\|ulti\\)\\|n-?\\)?\\|fn\\*\\|if-\\(?:let\\|some\\)\\|ns\\|time\\|when-\\(?:let\\|some\\)\\)\\>" . 'font-lock-keyword-face))))
(eval . (font-lock-add-keywords 'fennel-mode '(("\\s(\\(?:defn-?\\|fn\\*\\)[[:space:]]+\\(\\(?:\\sw\\|\\s_\\|-\\|_\\)+\\)" 1 'font-lock-function-name-face))))
(eval . (add-to-list 'imenu-generic-expression `(nil "\\s(\\(?:defn-?\\|fn\\*\\)[[:space:]]+\\(\\(?:\\sw\\|\\s_\\|-\\|_\\)+\\)" 1))))))
|