From aa1c2d9b7c65feefa63d2a84f996161309fb5dcd Mon Sep 17 00:00:00 2001 From: Andrey Listopadov Date: Mon, 31 Oct 2022 09:38:50 +0300 Subject: move buf-locals to dir-locals --- .dir-locals.el | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 .dir-locals.el (limited to '.dir-locals.el') diff --git a/.dir-locals.el b/.dir-locals.el new file mode 100644 index 0000000..fdc6b52 --- /dev/null +++ b/.dir-locals.el @@ -0,0 +1,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)))))) -- cgit v1.2.3