      (color-theme-euphoria)))
 
 ;;; Screen size specific configuration
-(setq initial-frame-alist 
+(setq initial-frame-alist
       (append '((width . 85)
 		(height . 50)) initial-frame-alist))
 
 ;;; Template
 (require 'autoinsert)
 (setq auto-insert-directory "~/.emacs.d/template")
-(setq auto-insert-alist 
+(setq auto-insert-alist
       (append '(("\\.cpp$" . ["template.cpp" my-template])
                 ("\\.h$" . ["template.h" my-template]))))
 (defvar template-replacements-alists
   '(("%file%" . (lambda () (file-name-nondirectory (buffer-file-name))))
-    ("%file-noext%" . 
+    ("%file-noext%" .
      (lambda () (file-name-sans-extension (file-name-nondirectory (buffer-file-name)))))
-    ("%include-guard%" . 
+    ("%include-guard%" .
      (lambda () (format "%s_H_" (upcase (file-name-sans-extension (file-name-nondirectory buffer-file-name))))))))
 (defun my-template ()
   (time-stamp)

  (message "done."))
(add-hook 'find-file-not-found-hooks 'auto-insert)

;;; C-mode

(setq common-function-for-c-hook
         (lambda () 
           (local-set-key (kbd "C-; c") 'compile)
           (setq compile-command "./waf")))
(add-hook 'c-mode-hook common-function-for-c-hook)

;; ess-mode
(load "ess-site")

;;; Deleting trailing whitespace
(add-hook 'before-save-hook 'delete-trailing-whitespace)
