blob: abb24bb977e5a5465f8b87189492900731a410eb (
plain) (
blame)
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
|
;;; Directory Local Variables
;;; For more information see (info "(emacs) Directory Variables")
((fennel-mode . ((eval . (font-lock-add-keywords
'fennel-mode
`((,(rx word-start
(group (or "fn*"
"try"
"if-let"
"if-some"
"when-let"
"when-some"
"empty"
"into"
"when-meta"
"with-meta"
"meta"
"meta"
"def"
"defmulti"
"defmethod"
"defonce"))
word-end)
1 'font-lock-keyword-face))))
(eval . (put 'when-meta 'fennel-indent-function 'defun))
(eval . (put 'defmethod 'fennel-indent-function 'defun))
(eval . (put 'defmulti 'bfennel-indent-function 'defun))
(eval . (put 'deftest 'fennel-indent-function 'defun))
(eval . (put 'testing 'fennel-indent-function 'defun))
(eval . (put 'when-some 'fennel-indent-function 1))
(eval . (put 'if-some 'fennel-indent-function 1))
(eval . (put 'when-let 'fennel-indent-function 1))
(eval . (put 'if-let 'fennel-indent-function 1))
(eval . (put 'fn* 'fennel-indent-function 'defun))
(eval . (put 'fn* 'fennel-doc-string-elt 2))
(eval . (put 'defmulti 'fennel-doc-string-elt 2)))))
|