;;; enables the font-lock-mode in Lisp Mode
(add-hook 'lisp-mode-hook    'turn-on-font-lock)

;;; enables the font-lock-mode in Texinfo Mode
(add-hook 'texinfo-mode-hook    'turn-on-font-lock)

;;; enables the font-lock mode in C Mode
(add-hook 'c-mode-hook          'turn-on-font-lock)

;;; enables the font-lock mode in C++ Mode
(add-hook 'c++-mode-hook        'turn-on-font-lock)

;;; enables the font-lock mode in emacs lisp mode
(add-hook 'emacs-lisp-mode-hook 'turn-on-font-lock)

;;; enables the font-lock mode in python mode
(add-hook 'python-mode-hook     'turn-on-font-lock)

;;; enables the font-lock mode in tex mode
(add-hook 'tex-mode-hook        'turn-on-font-lock)

;;Setting up tabbar
(require 'tabbar)
(tabbar-mode)
(set-face-attribute
 'tabbar-default-face nil
 :background "gray60")
(set-face-attribute
 'tabbar-unselected-face nil
 :background "gray85"
 :foreground "gray25"
 :box nil)
(set-face-attribute
 'tabbar-selected-face nil
 :background "gray25"
 :foreground "gray85"
 :box nil)
(set-face-attribute
 'tabbar-button-face nil
 :box '(:line-width 1 :color "gray72" :style released-button))
(set-face-attribute
 'tabbar-separator-face nil
 :height 0.7)
(setq tabbar-buffer-groups-function
      (lambda (b)     ;; b added here. I don't know why 
	(list "All")))


;; Set the default font.
(set-default-font "9x15")

;; Set color scheme
;; (set lconfig-dark-bg-scheme to t for reverse color scheme)
(defconst color-scheme 'dark)
(defconst foreground-color "gray85")
(defconst background-color "gray25")
(defconst cursor-color "red3")
(defconst pointer-color "white")

(if (featurep 'xemacs)
    (let ((frame (selected-frame)))
      (set-face-foreground 'default foreground-color)
      (set-face-background 'default background-color)
      (setq frame-background-mode color-scheme)
      color-scheme
      (set-frame-property frame
                          'custom-properties
                          (mapcar (lambda (symbol)
                                    (if (eql symbol 'light)
                                        'dark
                                      symbol))
                                  (frame-property frame
                                                  'custom-properties))))
  (progn 
    (add-to-list 'default-frame-alist '(foreground-color . "gray85"))
    (add-to-list 'default-frame-alist '(background-color . "gray25"))
    (add-to-list 'default-frame-alist '(cursor-color . "red3"))
    (add-to-list 'default-frame-alist '(background-mode . dark))
    (set-cursor-color cursor-color)
    (set-mouse-color pointer-color))
  )

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(cua-mode t nil (cua-base))
 '(inhibit-startup-screen t)
 '(show-paren-mode t))
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 )