X-Git-Url: http://g0dil.de/git?p=senf.git;a=blobdiff_plain;f=.project.el;h=409eadb5379249147db4035f95f8e8d354030bcb;hp=b691d2a5d033962a2f898505f7df6e4074aa065b;hb=HEAD;hpb=9cb871b939efe93e35dd96808d25089399acfc46

diff --git a/.project.el b/.project.el
index b691d2a..409eadb 100644
--- a/.project.el
+++ b/.project.el
@@ -8,7 +8,7 @@
              (not (looking-at ".*}")))
         [0] '+)))
 
- (defconst senf-c-style
+(defconst senf-c-style
   '((c-basic-offset              . 4)
     (c-backslash-column          . 98)
     (c-cleanup-list              . (empty-defun-braces
@@ -34,45 +34,14 @@
 
 (c-add-style "senf" senf-c-style)
 
-(set (make-local-variable 'ccide-file-vars)
-     '((fill-column  . 100)
-       (comment-column . 40)
-       (c-file-style . "senf")
-       (indent-tabs-mode . nil)
-       (ispell-local-dictionary . "american")
-       (compile-command . "scons -u test")))
-
-(set (make-local-variable 'ccide-default-copyright)
-     (concat "//\n"
-             "// This program is free software; you can redistribute it and/or modify\n"
-             "// it under the terms of the GNU General Public License as published by\n"
-             "// the Free Software Foundation; either version 2 of the License, or\n"
-             "// (at your option) any later version.\n"
-             "//\n"
-             "// This program is distributed in the hope that it will be useful,\n"
-             "// but WITHOUT ANY WARRANTY; without even the implied warranty of\n"
-             "// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n"
-             "// GNU General Public License for more details.\n"
-             "//\n"
-             "// You should have received a copy of the GNU General Public License\n"
-             "// along with this program; if not, write to the\n"
-             "// Free Software Foundation, Inc.,\n"
-             "// 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.\n"))
-
-(set (make-local-variable 'ccide-project-name) "SENF")
-
-(let ((local-conf (ccide-project-search-upwards "project-local.el")))
-  (if local-conf
-      (load-file local-conf)))
-
 (defun flyspell-cc-progmode-verify ()
   "Replacement for standard flyspell-generic-progmode-verify which
 checks for C/C++ preproc directives. Additionally, anything after ^L
 is ignored (Those are the file local variables and local words)."
   (let ((f (get-text-property (point) 'face)))
     (and (memq f flyspell-prog-text-faces)
-         (not (save-excursion 
-                (beginning-of-line) 
+         (not (save-excursion
+                (beginning-of-line)
                 (looking-at "\\(//\\)?#")))
          (not (let ((l (max (point-min) (- (point-max) 4096))))
                 (and (< l (point))
@@ -82,13 +51,7 @@ is ignored (Those are the file local variables and local words)."
   "Torn on `flyspell-mode` for comments and strings in C/C++ mode."
   (interactive)
   (setq flyspell-generic-check-word-p 'flyspell-cc-progmode-verify)
-  (flyspell-mode 1))
-
-;; Better set this here than in the file variables since the setting
-;; is only valid if project.el is loaded ...
-(set (make-local-variable 'ispell-personal-dictionary)
-     (expand-file-name "tools/senf.dict" ccide-project-root))
-(flyspell-cc-mode)
+  (flyspell-mode t))
 
 (defun senf-new-file-hook ()
   (when (string-match "\\.test\\.cc$" (buffer-file-name))
@@ -99,9 +62,53 @@ is ignored (Those are the file local variables and local words)."
       (delete-region (point) (progn (end-of-line) (point)))
       (insert "#include <senf/Utils/auto_unit_test.hh>"))))
 
-(add-hook 'ccide-new-file-hooks 'senf-new-file-hook nil t)
+(defun senf-ccide-init ()
+  (interactive)
+  (set (make-local-variable 'ccide-file-vars)
+       '((fill-column  . 100)
+         (comment-column . 40)
+         (c-file-style . "senf")
+         (indent-tabs-mode . nil)
+         (ispell-local-dictionary . "american")
+         (compile-command . "scons -u test")))
+
+  (set (make-local-variable 'ccide-default-copyright)
+       (concat "//\n"
+               "// This program is free software; you can redistribute it and/or modify\n"
+               "// it under the terms of the GNU General Public License as published by\n"
+               "// the Free Software Foundation; either version 2 of the License, or\n"
+               "// (at your option) any later version.\n"
+               "//\n"
+               "// This program is distributed in the hope that it will be useful,\n"
+               "// but WITHOUT ANY WARRANTY; without even the implied warranty of\n"
+               "// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n"
+               "// GNU General Public License for more details.\n"
+               "//\n"
+               "// You should have received a copy of the GNU General Public License\n"
+               "// along with this program; if not, write to the\n"
+               "// Free Software Foundation, Inc.,\n"
+               "// 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.\n"))
+
+  (set (make-local-variable 'ccide-project-name) "SENF")
+
+  (let ((local-conf (ccide-project-search-upwards "project-local.el")))
+    (if local-conf
+        (load-file local-conf)))
+
+  ;; Better set this here than in the file variables since the setting
+  ;; is only valid if project.el is loaded ...
+  (set (make-local-variable 'ispell-personal-dictionary)
+       (expand-file-name "tools/senf.dict" ccide-project-root))
+  (flyspell-cc-mode)
+
+  (add-hook 'ccide-new-file-hooks 'senf-new-file-hook nil t)
+
+  (setq indent-tabs-mode nil) ;; needed since whitespace-mode caches this value ...
+  (whitespace-mode 1))
+
+(senf-ccide-init)
 
 
-// Local Variables:
-// indent-tabs-mode: nil
-// End:
+;; Local Variables:
+;; indent-tabs-mode: nil
+;; End: