artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

.dir-locals.el: Assert default GNU settings.

Browse source 
* .dir-locals.el: Assert default GNU settings.
This commit is contained in:
Jan Nieuwenhuizen 2019-03-27 13:20:26 +01:00
parent 757bea68fd
commit c66abfb83c
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 77 additions and 66 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

53
.dir-locals.el
View file

@ -1,5 +1,5 @@
;;; GNU Mes --- Maxwell Equations of Software ;;; GNU Mes --- Maxwell Equations of Software
;;; Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2018,2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; ;;;
;;; This file is part of GNU Mes. ;;; This file is part of GNU Mes.
;;; ;;;
@ -16,10 +16,38 @@
;;; You should have received a copy of the GNU General Public License ;;; You should have received a copy of the GNU General Public License
;;; along with GNU Mes. If not, see <http://www.gnu.org/licenses/>. ;;; along with GNU Mes. If not, see <http://www.gnu.org/licenses/>.
((nil ;; The GNU project defaults. These are also the GNU Emacs defaults.
;; Re-asserting theme here, however, as a courtesy for setups that use
;; a global override.
(
;; For writing GNU C code, see
;; https://www.gnu.org/prep/standards/html_node/Writing-C.html
(c-mode . ((c-file-style . "gnu")
(indent-tabs-mode . nil)))
(makefile-mode . ((indent-tabs-mode . t)))
(nil . ((indent-tabs-mode . nil)
(fill-column . 72)))
(scheme-mode
. .
((indent-tabs-mode . nil) ((geiser-active-implementations . (guile))
(eval (eval
.
(progn
(defun prefix-dir-locals-dir (elt)
(concat (locate-dominating-file buffer-file-name ".dir-locals.el") elt))
(mapcar
(lambda (dir) (add-to-list 'geiser-guile-load-path dir))
(mapcar
#'prefix-dir-locals-dir
'("scripts" "module")))))))
(texinfo-mode . ((indent-tabs-mode . nil)
(fill-column . 72)))
(nil .
((eval
. .
(progn (progn
(let ((top (locate-dominating-file default-directory ".dir-locals.el")))) (let ((top (locate-dominating-file default-directory ".dir-locals.el"))))
@ -80,21 +108,4 @@
(let* ((string (buffer-substring point mark)) (let* ((string (buffer-substring point mark))
(code (as string "--64"))) (code (as string "--64")))
(insert " ") (insert " ")
(insert code))))))) (insert code))))))))
(makefile-mode
(indent-tabs-mode . t))
(scheme-mode
.
((geiser-active-implementations . (guile))
(eval
.
(progn
(defun prefix-dir-locals-dir (elt)
(concat (locate-dominating-file buffer-file-name ".dir-locals.el") elt))
(mapcar
(lambda (dir) (add-to-list 'geiser-guile-load-path dir))
(mapcar
#'prefix-dir-locals-dir
'("scripts" "module")))))))
(texinfo-mode . ((indent-tabs-mode . nil)
(fill-column . 72))))