;; .emacs


(defun gk-set-title ()
  "Set current buffer's title to its [file]name"
  (modify-frame-parameters 
   (selected-frame)
   (list (cons 'name
			   (or (buffer-file-name (current-buffer))
				   (buffer-name))))))



;;; uncomment this line to disable loading of "default.el" at startup
(setq inhibit-default-init t)

(when window-system
  ;; enable wheelmouse support by default
  (mwheel-install)
  ;; make switching frames works properly under the default click-to-focus
  (setq focus-follows-mouse nil))

(auto-compression-mode t)

;; turn on font-lock mode
(global-font-lock-mode t)

;; enable visual feedback on selections
;(setq transient-mark-mode t)

;(set-background-color "gainsboro")
;(set-face-background 'region "light slate gray")
;(set-face-background 'modeline "AntiqueWhite4")

;; Changes all yes/no questions to y/n type
(fset 'yes-or-no-p 'y-or-n-p)

;; don't let next-line add new lines at end of file
(setq next-line-add-newlines nil)

;; make edited files end with a carriage return
(setq add-final-newline t)


;; enable visual feedback on selections
(setq transient-mark-mode t)

;; enable visual feedback on selections
(show-paren-mode t)

;; personnal goto
(global-set-key "\M-n" 'goto-line)


;; For Syntactic Highlightning of GTK+
(setq c-font-lock-extra-types 
      (append 
       '("Gdk\\sw+" "Gtk\\sw+" "gtk_\\sw+" "gchar"                  ; Gdk/Gtk/glib
         "guint" "gint" "glong" "gdouble"
         "gpointer" "gboolean" "GList" "GSList")
       c-font-lock-extra-types))


;; to see the column
(column-number-mode t)


;; newline
;;(setq require-final-newline t)

(add-hook 'post-command-hook
	  (lambda ()
	    (gk-set-title)))


;; NEW COLORS FROM FABIEN -- IF REMOVED - STILL OK -> .bashrc
;;(set-background-color "grey15")
;;(set-foreground-color "grey90")
;;(set-cursor-color "Grey")
;;(set-face-foreground 'font-lock-comment-face "grey75")