Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; skel/comp/dir-locals.lisp --- Support for Emacs dir-locals.el

2

3

;; https://www.gnu.org/software/emacs/manual/html_node/elisp/Directory-Local-Variables.html

4

5

;;; Code:

6

(in-package :skel/comp/dir-locals)

7

(defvar *dir-locals-file* ".dir-locals.el")

8

(deftype dir-local-var-designator () '(or symbol string))

9

10

(defclass sk-dir-locals (sk-component ast)

11

())

12

13

(defmethod sk-new ((self (eql :dir-locals)) &rest args)

14

(apply #'make-instance 'sk-dir-locals args))

15

16

(defmethod sk-load-component ((kind (eql :dir-locals)) (form pathname) &optional (path (project-root)))

17

(declare (ignore kind))

18

(sk-new :dir-locals :ast (read-sxp-file (make-pathname :name (namestring form) :type "el"

19

                                                          :directory (namestring path)))))