;;(autoload 'gnuserv-start "gnuserv-compat"
;; "Allow this Emacs process to be a server for client processes."
;; t)
;;(setq gnuserv-program "gnuserv-emacs")
;;(setq gnuserv-frame (selected-frame))
;;(gnuserv-start)

(add-to-list 'load-path "~/.emacs.d/lisp/")

(require 'color-theme)
(color-theme-blue-sea)

(global-font-lock-mode 1)

(tool-bar-mode -1)

(set-scroll-bar-mode 'right)


(global-set-key [(mouse-4)] (lambda () (interactive) (scroll-down 3)))
(global-set-key [(mouse-5)] (lambda () (interactive) (scroll-up 3)))

(require 'php-mode)

(require 'css-mode)
(setq auto-mode-alist       
      (cons '("\\.css\\'" . css-mode) auto-mode-alist))

; (add-to-list 'load-path "~/.emacs.d/lisp/csmode")
; (autoload 'csharp-mode "cc-mode")
(setq auto-mode-alist
      (append '(
                ("\\.cs$" . c++-mode)
                ) auto-mode-alist ))

(add-to-list 'load-path "~/misc/mozart-1.2.5.20030212/share/elisp/")

(defun expand-or-indent ()
  "Complete if point is at end of a word, otherwise indent line."
  (interactive)
  (if (looking-at "\\>")
      (dabbrev-expand nil)
    (indent-for-tab-command)
    ))

(setq c-default-style "bsd")
(defun my-c-mode-common-hook ()
  (c-set-style "bsd")
  (setq indent-tab-mode t)
  (c-set-offset 'statement-cont '*)
  (c-set-offset 'arglist-cont-nonempty '*)
  (c-set-offset 'arglist-intro '*)
  (c-set-offset 'arglist-close '*)
  (local-set-key (quote [f1]) (quote compile))
  (local-set-key (kbd "<tab>") 'expand-or-indent)
  )

(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)

(setq ispell-program-name "aspell")

(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/")
(add-to-list 'load-path "/usr/local/share/emacs/site-lisp/sml-mode/")
(add-to-list 'load-path "/usr/local/lib/ruby/elisp/")

;; AucTeX
;; (add-to-list 'load-path "/usr/local/share/emacs/site-lisp-auctex/")
(require 'tex-site)

;; RefTeX
(setq reftex-plug-into-AUCTeX t)

;; (require 'sml-mode-startup)

(setq ruby-program-name "/usr/local/bin/ruby")
(autoload 'ruby-mode "ruby-mode" "Mode for editing ruby source files")
(add-to-list 'auto-mode-alist '("\\.rb$" . ruby-mode))
(add-to-list 'auto-mode-alist '("\\.rbx$" . ruby-mode))
(add-to-list 'interpreter-mode-alist '("ruby" . ruby-mode))
(autoload 'run-ruby "inf-ruby" "Run an inferior Ruby process")
(autoload 'inf-ruby-keys "inf-ruby" "Set local key defs for inf-ruby in ruby-mode")
(add-hook 'ruby-mode-hook '(lambda () (inf-ruby-keys)))


(setq tex-dvi-view-command "xdvi")
(setq tex-shell-file-name "sh")

(add-to-list 'backup-directory-alist '("." . "~/backups"))

(defun dont-kill-emacs ()
  (interactive)
  ;;(error (substitute-command-keys "To exit emacs: \\[kill-emacs]")))
  (if (yes-or-no-p "Do you really want to exit emacs?")
      (save-buffers-kill-emacs)))

(global-set-key "\C-x\C-c" 'dont-kill-emacs)

(require 'guess-offset)

(defun my-latex-mode-hook ()
  (auto-fill-mode)
  (flyspell-mode))

(add-hook 'LaTeX-mode-hook 'my-latex-mode-hook)

(setq auto-mode-alist
      (append auto-mode-alist
              '(("\\.[hg]s$"  . haskell-mode)
                ("\\.hi$"     . haskell-mode)
                ("\\.l[hg]s$" . literate-haskell-mode))))
(autoload 'haskell-mode "haskell-mode"
   "Major mode for editing Haskell scripts." t)
(autoload 'literate-haskell-mode "haskell-mode"
   "Major mode for editing literate Haskell scripts." t)

(add-hook 'haskell-mode-hook 'turn-on-haskell-font-lock)
(add-hook 'haskell-mode-hook 'turn-on-haskell-decl-scan)
;(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
;(add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
;(add-hook 'haskell-mode-hook 'turn-on-haskell-simple-indent)
(add-hook 'haskell-mode-hook 'turn-on-haskell-hugs)