;; pas de menu, pas de toolbar
(menu-bar-mode   -1)
(tool-bar-mode   -1)
(scroll-bar-mode -1)

(mouse-wheel-mode 1)

(show-paren-mode 1)
(setq-default hilight-paren-expression t)

(transient-mark-mode t)

(setq column-number-mode t)
(setq line-number-mode t)

(global-font-lock-mode t)
(setq font-lock-maximum-decoration t)

(setq-default frame-title-format (list "%b Emacs"))

(global-set-key "\M-g" 'goto-line)

;;(set-language-environment "Latin-9")
;;(iso-accents-mode t)
;;(require 'iso-insert)
;;(set-keyboard-coding-system 'iso-latin-9)
;;(standard-display-european 1)
;;(set-input-mode nil nil 1)
;;(set-locale-environment "en_US.UTF-8")


(set-background-color "#000000")
(set-foreground-color "#bfbfbf")

(setq-default fill-column 75)
(setq-default indent-tabs-mode nil)
(setq standard-indent 3)

;; Macros persos pour commenter / décommenter les lignes terminées par '<DBG'
(fset 'debug-comment-out
   [?\M-< ?\M-x ?q ?u ?e ?r ?y ?- ?r ?e ?p ?l ?a ?c ?e ?- ?r ?e ?g ?e ?x ?p return ?^ ?! ?* ?\\ ?( ?. ?* ?\\ ?) ?! ?< ?D ?B ?G ?$ return ?! ?\\ ?1 ?! ?< ?D ?B ?G return ?! ?\C-u ?\C-  ?\C-u ?\C- ])
(fset 'debug-remove-comment
   [?\M-< ?\M-x ?q ?u ?e ?r ?y ?- ?r ?e ?p ?l ?a ?c ?e ?- ?r ?e ?g ?e ?x ?p return ?^ ?! ?* ?\\ ?( ?. ?* ?\\ ?) ?! ?< ?D ?B ?G ?$ return ?\\ ?1 ?! ?< ?D ?B ?G return ?! ?\C-u ?\C-  ?\C-u ?\C- ])


;; color-theme
(normal-top-level-add-to-load-path '("~/.emacs.d"))
(if window-system
  (progn
    (require 'color-theme)

    ;; theme perso
    (add-to-list 'color-themes '(color-theme-francesco "Francesco" "Francois Fevotte"))
    (defun color-theme-francesco ()
      "`color-theme-charcoal-black' with black background and modeline style
borrowed to `color-theme-comidia'"
      (interactive)
      (color-theme-charcoal-black)
      (let ((color-theme-is-cumulative t))
        (color-theme-install
         '(color-theme-francesco
           ((background-color . "Black"))
           (default ((t (:stipple nil :background "Black" :foreground "Grey" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 87 :width semi-condensed :family "misc-fixed"))))
           (fringe ((t (:background "Black"))))
           (modeline ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep"))))
           (modeline-buffer-id ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep"))))
           (modeline-mousable-minor-mode ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep"))))
           (modeline-mousable ((t (:background "Gray10" :foreground "SteelBlue" :box (:line-width 1 :style none) :width condensed :family "neep"))))))))
      
      (color-theme-francesco)
  )
)