new file: .emacs

.emacs

@@ -0,0 +1,69 @@
+;; Some bascis, necessary for a good working Emacs :
+;; (Extracted from Pr. Paul Garrett's .emacs)
+
+
+(custom-set-variables
+  ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
+  ;; Your init file should contain only one such instance.
+ '(case-fold-search t)
+ '(column-number-mode 1)
+ '(line-number-mode 1)
+ '(current-language-environment "English")
+ '(default-input-method "rfc1345")
+ '(global-font-lock-mode t nil (font-lock))
+ '(setq show-paren-delay t)
+ '(show-paren-mode t nil (paren))
+ '(tab-width 4)
+ '(transient-mark-mode 1))
+
+
+
+(defun good-colors ()
+  (progn
+	(set-background-color "DimGray")
+	(set-foreground-color "LightGray")
+	(set-cursor-color "DarkSlateBlue")
+	(set-border-color "DimGray")
+	(set-mouse-color "DarkSlateBlue")
+	
+	(set-face-background 'default "DimGray")
+	(set-face-background 'region "DarkSlateGray")
+	(set-face-background 'highlight "DarkSlateBlue")
+	(set-face-background 'modeline "DarkSlateBlue") ;;; CornflowerBlue")
+	
+	(set-face-foreground 'default "LightGray")
+	(set-face-foreground 'region "Ivory")
+	(set-face-foreground 'highlight "LightGray")  ;;; DimGray")
+	(set-face-foreground 'modeline "LightGray")
+	))
+
+(good-colors)  ;; calls the previously-defined function
+
+;; Set default window size at start :
+
+(add-to-list 'default-frame-alist '(height . 44))
+
+(add-to-list 'default-frame-alist '(width . 82)) 
+
+;; Some X environment colors and behavior :
+
+(setq default-major-mode 'text-mode)
+(setq-default auto-fill-function 'do-auto-fill)
+(add-hook 'text-mode-hook
+		  'turn-on-auto-fill
+		  'set-fill-column 94)
+
+;; Associate matlab source code to octave for syntax colors :
+
+(add-to-list
+ 'auto-mode-alist
+ '("\\.m$" . octave-mode))
+
+;; Arudino syntax coloration :
+
+(add-to-list 'load-path "~/.emacs.d/vendor/arduino-mode")
+(setq auto-mode-alist (cons '("\\.\\(pde\\|ino\\)$" . arduino-mode) 
+							auto-mode-alist))
+(autoload 'arduino-mode "arduino-mode" "Arduino editing mode." 1)
+
+