gistfile1.cl

(setq inhibit-startup-message t)
(tool-bar-mode nil)
(menu-bar-mode nil)
(scroll-bar-mode nil)
(tooltip-mode nil)

(setq-default indent-tabs-mode nil)
(setq-default tab-width 4)
(setq standard-indent 4)
(setq viper-expert-level 5)
(setq-default indent-tabs-mode nil)
(setq make-backup-files t)
(setq version-control t)
(setq backup-directory-alist (quote ((".*" . "~/.emacs_backups/"))))


(add-to-list 'load-path "/usr/share/emacs23/site-lisp/emacs-goodies-el")
(add-to-list 'load-path "~/emacs.d/color-theme-6.6.0")
(add-to-list 'load-path "~/emacs.d/tuareg-2.0.1")
;;(add-to-list 'load-path "~/emacs.d/egit")
(add-to-list 'load-path "~/emacs.d/vimpulse")

(require 'vimpulse)
(require 'font-lock)
(require 'color-theme)
;;(require 'egit)
;;(require 'git)

(global-font-lock-mode 1)
(setq font-lock-support-mode t)
(setq font-lock-maximum-size 10000000)

;;font-lock-maximum-size nil)
;;(setq font-lock-support-mode 'fast-lock-mode ; lazy-lock-mode
;;fast-lock-cache-directories '("~/.emacs-flc"))


(color-theme-initialize)

(eval-when-compile
  (require 'color-theme))

(defun color-theme-mine ()
  "Some theme"
  (interactive)
  (color-theme-install
   '(color-theme-mine
     ((foreground-color . "#eeeeee")
      (background-color . "black")
      (background-mode . dark))
      (font-lock-string-face ((t (:foreground "#FD9F9F"))))
      (font-lock-constant-face ((t (:foreground "#FD9F9F"))))
	  (default ((t (nil))))
	  (region ((t (:foreground "cyan" :background "dark cyan"))))
	  (underline ((t (:foreground "yellow" :underline t))))
	  (modeline ((t (:background "dark olive green" :foreground "wheat" :box (:line-width 1 :style released-button)))))
	  (mode-line-inactive ((t (:background "dark olive green" :foreground "khaki" :box (:line-width 1 :style released-button)))))
	  (italic ((t (:foreground "dark red" :italic t))))
      (bold-italic ((t (:foreground "dark red" :bold t :italic t))))
	  (font-lock-comment-face ((t (:foreground "#7F7F7F"))))
	  (bold ((t (:bold)))))))

(color-theme-mine)

(setq smart-tab-using-hippie-expand nil)
(load-file "~/emacs.d/emacs-misc/smart-tab.el")
;; (load-file "~/.emacs.d/emacs-misc/beep.el")

(global-set-key [M-left] 'windmove-left)          ; move to left windnow
(global-set-key [M-right] 'windmove-right)        ; move to right window
(global-set-key [M-up] 'windmove-up)              ; move to upper window
(global-set-key [M-down] 'windmove-down)          ; move to downer window
(global-set-key [C-w c] 'delete-window)
(global-set-key (kbd "RET") 'newline-and-indent)
(global-set-key [(tab)] 'smart-tab)
;;(global-set-key [C M c] 'comment-or-uncomment-region)

(global-set-key [S-C-left] 'shrink-window-horizontally)
(global-set-key [S-C-right] 'enlarge-window-horizontally)
(global-set-key [S-C-down] 'shrink-window)
(global-set-key [S-C-up] 'enlarge-window)

(define-key global-map (kbd "RET") 'newline-and-indent)
(define-key global-map (kbd "TAB") 'indent-or-expand)

(add-hook 'inferior-ess-mode-hook
               '(lambda () (set (make-local-variable 'viper-auto-indent) nil)))

(show-ws-toggle-show-trailing-whitespace)

(add-hook 'before-save-hook 'delete-trailing-whitespace)


(setq auto-mode-alist (cons '("\\.ml\\w?" . tuareg-mode) auto-mode-alist))
(autoload 'tuareg-mode "tuareg" "Major mode for editing Caml code" t)
(autoload 'camldebug "camldebug" "Run the Caml debugger" t)

(defun my-tuareg-mode-hook ()
        (fset 'indent-for-tab-command 'tab-to-tab-stop) ;; turn off automatic
        (setq tuareg-use-abbrev-mode nil)
        (setq tuareg-electric-indent nil)
        (setq tuareg-electric-close-vector nil))

(add-hook 'tuareg-mode-hook 'my-tuareg-mode-hook)

;; (setq-default ispell-program-name "aspell")

;; (autoload 'wl "wl" "Wanderlust" t)

;; (load-file "~/.emacs.d/beep-mode.el")
;; (add-to-list 'auto-mode-alist '("\\.beep\\'" . beep-mode))


(setq scroll-step 1)