Files
swift-mirror/.dir-locals.el
Alastair Houghton ef3823c58e [Emacs] Fix dir-locals.el.
dir-locals.el needs to `(defvar swift-project-directory)`, otherwise
we get an error from Emacs later on because the `let` has bound it as
the wrong kind of variable.
2022-08-15 10:25:43 +01:00

47 lines
1.5 KiB
EmacsLisp

;;; Directory Local Variables
;;; For more information see (info "(emacs) Directory Variables")
((nil
(eval let*
((x (dir-locals-find-file default-directory))
(this-directory (if (listp x) (car x) (file-name-directory x))))
(unless (or (featurep 'swift-project-settings)
(and (fboundp 'tramp-tramp-file-p)
(tramp-tramp-file-p this-directory)))
(add-to-list 'load-path
(concat this-directory "utils")
:append)
(defvar swift-project-directory)
(let ((swift-project-directory this-directory))
(require 'swift-project-settings)))
(set (make-local-variable 'swift-project-directory)
this-directory)
)
(fill-column . 80)
(c-file-style . "swift"))
(c++-mode
(whitespace-style face lines indentation:space)
(flycheck-clang-language-standard . "c++14"))
(c-mode
(whitespace-style face lines indentation:space))
(objc-mode
(whitespace-style face lines indentation:space))
(prog-mode
(eval add-hook 'prog-mode-hook
(lambda nil
(whitespace-mode 1))
(not :APPEND)
:BUFFER-LOCAL))
(swift-mode
(swift-find-executable-fn . swift-project-executable-find)
(swift-syntax-check-fn . swift-project-swift-syntax-check)
(whitespace-style face lines indentation:space)
(swift-basic-offset . 2)
(tab-always-indent . t)))
;; Local Variables:
;; eval: (whitespace-mode -1)
;; End: