blob: cf35d5e1f35b09f50335bb006526f836347a4780 (
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
37
38
39
40
41
42
43
44
45
46
47
48
49
|
;;; 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"
"catch"
"finally"
"if-let"
"if-some"
"when-let"
"when-some"
"empty"
"into"
"when-meta"
"with-meta"
"meta"
"meta"
"def"
"defmulti"
"defmethod"
"defonce"
"deftest"
"testing"
"assert-eq"
"assert-ne"
"assert-is"
"assert-not"
"loop"))
word-end)
1 'font-lock-keyword-face))))
(eval . (put 'when-meta 'fennel-indent-function 'defun))
(eval . (put 'defmethod 'fennel-indent-function 3))
(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 'loop '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))
(eval . (put 'try 'fennel-indent-function 0))
(eval . (put 'catch 'fennel-indent-function 1))
(eval . (put 'finally 'fennel-indent-function 0)))))
|