.dir-locals.el

   1 ;;; Directory Local Variables
   2 ;;; For more information see (info "(emacs) Directory Variables")
   3
   4 ((nil
   5   (fill-column . 78)
   6   (tab-width . 8)
   7   (bug-reference-url-format . "http://bugs.gnu.org/%s")
   8   (bug-reference-bug-regexp . "<https?://\\(debbugs\\|bugs\\)\\.gnu\\.org/\\([0-9]+\\)>"))
   9  (c-mode
  10   (c-file-style . "gnu"))
  11  (emacs-lisp-mode
  12   (indent-tabs-mode))
  13  (scheme-mode
  14   (geiser-guile-load-path quote
  15                           ("~/src/guix-packages" "~/src/guix"))
  16   (indent-tabs-mode)
  17   (eval put 'eval-when 'scheme-indent-function 1)
  18   (eval put 'call-with-prompt 'scheme-indent-function 1)
  19   (eval put 'test-assert 'scheme-indent-function 1)
  20   (eval put 'test-assertm 'scheme-indent-function 1)
  21   (eval put 'test-equal 'scheme-indent-function 1)
  22   (eval put 'test-eq 'scheme-indent-function 1)
  23   (eval put 'call-with-input-string 'scheme-indent-function 1)
  24   (eval put 'guard 'scheme-indent-function 1)
  25   (eval put 'lambda* 'scheme-indent-function 1)
  26   (eval put 'substitute* 'scheme-indent-function 1)
  27   (eval put 'modify-phases 'scheme-indent-function 1)
  28   (eval put 'modify-services 'scheme-indent-function 1)
  29   (eval put 'with-directory-excursion 'scheme-indent-function 1)
  30   (eval put 'package 'scheme-indent-function 0)
  31   (eval put 'origin 'scheme-indent-function 0)
  32   (eval put 'build-system 'scheme-indent-function 0)
  33   (eval put 'bag 'scheme-indent-function 0)
  34   (eval put 'graft 'scheme-indent-function 0)
  35   (eval put 'operating-system 'scheme-indent-function 0)
  36   (eval put 'file-system 'scheme-indent-function 0)
  37   (eval put 'manifest-entry 'scheme-indent-function 0)
  38   (eval put 'manifest-pattern 'scheme-indent-function 0)
  39   (eval put 'substitute-keyword-arguments 'scheme-indent-function 1)
  40   (eval put 'with-store 'scheme-indent-function 1)
  41   (eval put 'with-error-handling 'scheme-indent-function 0)
  42   (eval put 'with-mutex 'scheme-indent-function 1)
  43   (eval put 'with-atomic-file-output 'scheme-indent-function 1)
  44   (eval put 'call-with-compressed-output-port 'scheme-indent-function 2)
  45   (eval put 'call-with-decompressed-port 'scheme-indent-function 2)
  46   (eval put 'call-with-gzip-input-port 'scheme-indent-function 1)
  47   (eval put 'call-with-gzip-output-port 'scheme-indent-function 1)
  48   (eval put 'signature-case 'scheme-indent-function 1)
  49   (eval put 'emacs-batch-eval 'scheme-indent-function 0)
  50   (eval put 'emacs-batch-edit-file 'scheme-indent-function 1)
  51   (eval put 'emacs-substitute-sexps 'scheme-indent-function 1)
  52   (eval put 'emacs-substitute-variables 'scheme-indent-function 1)
  53   (eval put 'with-derivation-narinfo 'scheme-indent-function 1)
  54   (eval put 'with-derivation-substitute 'scheme-indent-function 2)
  55   (eval put 'syntax-parameterize 'scheme-indent-function 1)
  56   (eval put 'with-monad 'scheme-indent-function 1)
  57   (eval put 'mbegin 'scheme-indent-function 1)
  58   (eval put 'mwhen 'scheme-indent-function 1)
  59   (eval put 'munless 'scheme-indent-function 1)
  60   (eval put 'mlet* 'scheme-indent-function 2)
  61   (eval put 'mlet 'scheme-indent-function 2)
  62   (eval put 'run-with-store 'scheme-indent-function 1)
  63   (eval put 'run-with-state 'scheme-indent-function 1)
  64   (eval put 'wrap-program 'scheme-indent-function 1)
  65   (eval put 'with-imported-modules 'scheme-indent-function 1)
  66   (eval put 'call-with-container 'scheme-indent-function 1)
  67   (eval put 'container-excursion 'scheme-indent-function 1)
  68   (eval modify-syntax-entry 126 "'")
  69   (eval modify-syntax-entry 36 "'")
  70   (eval modify-syntax-entry 43 "'"))
  71  (texinfo-mode
  72   (indent-tabs-mode)
  73   (fill-column . 72)))
  74
  75
  76
  77
  78
  79