~amirouche/sink-kernel

sink-kernel/.dir-locals.el -rw-r--r-- 1.7 KiB
1eaa72f8Amirouche wip 9 months ago
                                                                                
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
;; Copyright © Marc Nieper-Wißkirchen (2020).

;; This file is part of Unsyntax.

;; Permission is hereby granted, free of charge, to any person
;; obtaining a copy of this software and associated documentation files
;; (the "Software"), to deal in the Software without restriction,
;; including without limitation the rights to use, copy, modify, merge,
;; publish, distribute, sublicense, and/or sell copies of the Software,
;; and to permit persons to whom the Software is furnished to do so,
;; subject to the following conditions:

;; The above copyright notice and this permission notice (including the
;; next paragraph) shall be included in all copies or substantial
;; portions of the Software.

;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
;; BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
;; ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
;; CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
;; SOFTWARE.

((scheme-mode
  . ((eval
      . (progn
          (put '$define! 'scheme-indent-function 'defun)
          (put '$vau 'scheme-indent-function 2)
          (put '$let 'scheme-indent-function 1)
          (put 'guard-dynamic-extent 'scheme-indent-function 1)
          (put '$provide! 'scheme-indent-function 1)
          (put '$lambda 'scheme-indent-function 1)
          (put '$letrec 'scheme-indent-function 1)
          (put 'meta 'scheme-indent-function 'defun)
          (put 'test-group 'scheme-indent-function 1)
          (put 'in-meta 'scheme-indent-function 0)