;; Like the mode-line like this
;; Removed because this is !#!/!(#&!#!.
;   (set-default 'mode-line-format
;	 '("" "%1b" " " "%1*%1* "
;	   global-mode-string " %[(" mode-name minor-mode-alist "%n"
;	   mode-line-process ")%] " (-3 . "%p") "  "
;	   buffer-file-name))

(setq load-path (nconc '(
             "/usr/local/lib/sicstus-3.8.2/emacs"
             ;; Add more directories here:
             ) load-path))

;; Add some "file name suffix - mode command" pairs
(setq auto-mode-alist (append '(
	      	("\\.pl$" . prolog-mode)
                ("\\.s$" . indented-swe-mode)
                ("\\.def$" . em2-definition-mode)
                ("\\.mod$" . em2-implementation-mode)
		("\\.stex$" . tex-mode)
		("\\.tex$" . tex-mode)
		("/tmp/snd\\." . swe-mode))
                auto-mode-alist))

;; Break long lines in text mode.
(setq text-mode-hook 'turn-on-auto-fill)

(setq sml-mode-hook 'sml-delete-opening-closing)
(autoload 'sml-delete-opening-closing "sml-filter")

(autoload 'em2-definition-mode "em2")
(autoload 'em2-implementation-mode "em2")

(autoload 'run-prolog "prolog" "Start a Prolog sub-process." t)
(autoload 'prolog-mode "prolog" "Major mode for editing Prolog programs." t)
(setq prolog-use-sicstus-sd t)

;; Exchange bindings for "RETURN" and "LINEFEED" to support indentation.
(define-key global-map "\C-j" 'newline)
(define-key global-map "\C-m" 'newline-and-indent)

;; Start jde-mode for Java files.
(setq auto-mode-alist (append '(
              ("\\.java$" . jde-mode))
            auto-mode-alist))

(autoload 'jde-mode "jde")
;; Start jde-mode for Java files.
(setq auto-mode-alist (append '(
              ("\\.java$" . jde-mode))
            auto-mode-alist))

(autoload 'jde-mode "jde")
;; Break long lines in text mode.
;;(setq text-mode-hook 'turn-on-auto-fill)

;; Exchange bindings for "RETURN" and "LINEFEED" to support indentation.
;;(define-key global-map "\C-j" 'newline)
;;(define-key global-map "\C-m" 'newline-and-indent)
;; -*- emacs-lisp -*-

(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.
 '(display-time-24hr-format t)
 '(display-time-day-and-date t)
 '(display-time-mode t nil (time)))
(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.
 '(default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 100 :width normal :family "adobe-courier")))))
;; (set-foreground-color "white")
;; (set-background-color "black")
;; (set-cursor-color "white")
(setq default-input-method 'latin-1-prefix)
(defun knr-c-mode-common-hook ()
  ;; Use K&R
  (c-set-style "k&r")
  (setq c-basic-offset 8)
  (setq default-tab-width 8)
)

(setq Info-default-directory-list
      (cons "/usr/share/info" Info-default-directory-list))

;; Add php-mode and stuff
;;(require 'php-mode)
;;(add-hook 'php-mode-user-hook 'turn-on-font-lock)
;;(add-hook 'php-mode-user-hook
;;    '(lambda () (define-abbrev php-mode-abbrev-table "ex" "extends")))

;; for c/c++ mode
(add-hook 'c-mode-common-hook 'knr-c-mode-common-hook)
(add-hook 'c-mode-common-hook 'font-lock-mode 1)
;;(menu-bar-mode -1)
;;(scroll-bar-mode -1)

;; Gör så att minibufferten ändrar storlek
(if (fboundp 'resize-minibuffer-mode)
    (resize-minibuffer-mode 1))

;; pre-load python mode
;;    (setq auto-mode-alist (cons '("\\.py$" . python-mode) auto-mode-alist))
;;    (setq interpreter-mode-alist (cons '("python" . python-mode)
;;                                       interpreter-mode-alist))
;;    (autoload 'python-mode "python-mode" "Python editing mode." t)

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