blog.elnu.com/.dir-locals.el

7 lines
341 B
EmacsLisp

((nil . ((eval . (add-hook 'after-save-hook
(lambda ()
(when (string= (file-name-extension (buffer-file-name)) "org")
(setq default-directory (file-name-directory (locate-dominating-file "." ".dir-locals.el")))
(load (concat default-directory "build.el"))
nil
t)))))))