;; 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)