;----------------------
; configuration globale
;----------------------

; accents
(standard-display-european 1)

; touches suppr, home et end
(global-set-key [delete] 'delete-char)
(global-set-key [home] 'beginning-of-line)
(global-set-key [end] 'end-of-line)

; Afficher le numero de ligne
(line-number-mode 1)
(column-number-mode 1)

(mouse-wheel-mode)

;----------
; mode CAML
;----------

(if (and (boundp 'window-system) window-system)
    (require 'font-lock))
 
(setq-default auto-mode-alist
              (cons '("\\.ml[iylp]?" . tuareg-mode)
                    auto-mode-alist))
(setq-default tuareg-in-indent 0)
(autoload 'tuareg-mode "tuareg" "Major mode for editing Caml code." t)
(autoload 'run-caml "inf-caml" "Run an inferior Caml process." t)
(autoload 'camldebug "camldebug" "Run the Caml debugger." t)
(defvar caml-mode-hook
  '(lambda () (modify-syntax-entry ?_ "w" caml-mode-syntax-table)))
 
(add-hook 'tuareg-mode-hook
          '(lambda ()
             (define-key tuareg-mode-map "\M-q" 'fill-paragraph)
))
 
(add-hook 'tuareg-load-hook
          '(lambda ()
             (define-key tuareg-mode-map [f2] 'tuareg-eval-phrase)
             (define-key tuareg-mode-map [f5] 'compile)
             (define-key tuareg-mode-map [f6] 'recompile)
             (define-key tuareg-mode-map [f7] 'next-error)
             ; (load-library "camlit")
             ; (camlit-minor-mode)
             ))

(add-hook 'pascal-mode-hook
          '(lambda ()
             (define-key pascal-mode-map [f5] 'compile)
             (define-key pascal-mode-map [f6] 'recompile)
             (define-key pascal-mode-map [f7] 'next-error)
             ))
(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.
 '(auto-compression-mode t nil (jka-compr))
 '(case-fold-search t)
 '(current-language-environment "Latin-9")
 '(default-input-method "latin-9-prefix")
 '(global-font-lock-mode t nil (font-lock))
 '(pc-select-meta-moves-sexps t)
 '(pc-select-selection-keys-only t)
 '(pc-selection-mode t t)
 '(save-place t nil (saveplace))
 '(show-paren-mode t nil (paren))
 '(text-mode-hook (quote (turn-on-auto-fill text-mode-hook-identify)))
 '(transient-mark-mode t))
(custom-set-faces
  ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 )