(require 'tex-site)

(defun msb-sort-by-name-mikon (item1 item2)
  "Sort the items ITEM1 and ITEM2 by their `buffer-file-name'.
An item looks like (NAME . BUFFER)."
  (string-lessp (buffer-file-name (cdr item1))
		(buffer-file-name (cdr item2))))

(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.
 '(TeX-output-view-style (quote (("^dvi$" "^pstricks$\\|^pst-\\|^psfrag$" "%(o?)dvips %d -o && gv %f") ("^dvi$" "^a4\\(?:dutch\\|paper\\|wide\\)?\\|sem-a4$" "%(o?)/home/mikon/bin/madvi2.sh %d") ("^dvi$" ("^a5\\(?:comb\\|paper\\)?$" "^landscape$") "%(o?)xdvi %dS -paper a5r -s 0 %d") ("^dvi$" "^a5\\(?:comb\\|paper\\)?$" "%(o?)xdvi %dS -paper a5 %d") ("^dvi$" "^b5paper$" "%(o?)xdvi %dS -paper b5 %d") ("^dvi$" ("^landscape$" "^pstricks$\\|^psfrag$") "%(o?)dvips -t landscape %d -o && gv %f") ("^dvi$" "^letterpaper$" "%(o?)xdvi %dS -paper us %d") ("^dvi$" "^legalpaper$" "%(o?)xdvi %dS -paper legal %d") ("^dvi$" "^executivepaper$" "%(o?)xdvi %dS -paper 7.25x10.5in %d") ("^dvi$" "^landscape$" "%(o?)xdvi %dS -paper a4r -s 0 %d") ("^dvi$" "." "%(o?)/home/mikon/bin/madvi2.sh %d") ("^pdf$" "." "xpdf o") ("^html?$" "." "netscape %o"))))
 '(blink-cursor nil)
 '(case-fold-search nil)
 '(compilation-ask-about-save nil)
 '(current-language-environment "Latin-2")
 '(default-input-method "latin-2-prefix")
 '(fill-column 79)
 '(font-lock-maximum-size 99999999)
 '(font-lock-support-mode (quote fast-lock-mode))
 '(global-font-lock-mode t nil (font-lock))
 '(kill-ring-max 60000)
 '(mail-default-headers "Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-2; format=flowed
Content-Transfer-Encoding: 8bit
")
 '(mail-self-blind t t)
 '(mail-signature t t)
 '(mail-yank-prefix "> ")
 '(make-backup-files nil)
 '(mouse-buffer-menu-mode-mult 1)
 '(mouse-scroll-delay 0.02)
 '(mouse-scroll-min-lines 1)
 '(mouse-wheel-mode t nil (mwheel))
 '(msb-display-most-recently-used 0)
 '(msb-files-by-directory t)
 '(msb-max-menu-items 30)
 '(msb-mode t nil (msb))
 '(msb-most-recently-used-sort-key 111010)
 '(next-line-add-newlines nil)
 '(next-screen-context-lines 0)
 '(ps-paper-type (quote a4) t)
 '(ps-print-color-p t)
 '(rmail-automatic-folder-directives (quote ((nil "X-Spam-Status" "Yes") (nil "To" "@herbata.mimuw.edu.pl") ("swistki/mailll/rozsrebrzenie" "From" "rozsrebrzenie@") ("swistki/mailll/allegro" "From" "powiadomienia@allegro.pl") ("swistki/mailll/michat" "X-Original-To" "michat") ("swistki/mailll/solideo" "Sender" "solideo"))))
 '(rmail-delete-after-output t t)
 '(scroll-preserve-screen-position 2)
 '(show-paren-mode t nil (paren))
 '(uniquify-buffer-name-style nil nil (uniquify))
 '(user-mail-address "mikon@mimuw.edu.pl"))
(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 "gray90" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 181 :width normal :family "adobe-courier")))))

;; .Xresources contains
;emacs.Font:	        -adobe-courier-medium-r-normal-*-25-*-*-*-*-*-iso8859-2
;emacs.Foreground:       black
;emacs.Background:	gray90
;emacs.toolBar:	        0

;;; various
 (setq auto-mode-alist
       (append '(("\\.ocamlinit$" . caml-mode)
		 ("\\.ml$" . caml-mode)
		 ("\\.mli$" . caml-mode)
		 ("\\.mll$" . caml-mode)
		 ("\\.mly$" . caml-mode)
		 ("\\.eml$" . sml-mode)
		 ("\\.sml$" . sml-mode) 
		 ("\\.sig$" . sml-mode) 
		 ("\\.ML$"  . sml-mode)) auto-mode-alist))

 (setq compile-command "make ")

 (put 'erase-buffer 'disabled nil)

;;; internationalization

 (setq-default enable-multibyte-characters nil)
 (standard-display-european 1)
 
 (let ((cim (current-input-mode)))
 (set-input-mode (car cim) (car (cdr cim)) 0))  

;;; may be needed on non-Debian systems
;(setq load-path
;      (nconc load-path
;             (list (concat "~/.ocaml"))))
;(autoload 'caml-mode "caml" "Major mode for editing Caml code." t)

;;; sml-mode

 (autoload 'sml-mode "sml-mode" "Major mode for editing Standard ML." t)
 (autoload 'sml "sml-proc" "Run an inferior ML process." t)
 (autoload 'sml-mosml "sml-mosml" "Set up and run Moscow ML." t)
 (autoload 'sml-poly-ml "sml-poly-ml" "Set up and run Poly/ML." t)

 (setq sml-mode-hook
       '(lambda() "SML mode hacks" (setq sml-case-indent t)))

 (setq sml-load-hook
       '(lambda() "Fontify SML." (require 'sml-font)))

 (setq sml-mode-info "/usr/local/share/emacs/site-lisp/sml-mode.info")

;;; dule-font
(load "~/.dule-font")

;;; caml-mode

;(global-set-key "\C-x\C-d" 'run-caml)

;wrong!  (define-key caml-mode-map [mouse-2] 'caml-types-mouse-ignore)
;  (define-key caml-mode-map [down-mouse-2] 'caml-types-explore)

(setq caml-imenu-enable nil)

(setq caml-olabl-enable nil)

;(setq inferior-caml-program "~/dule/code/dule.top")

(autoload 'camldebug "camldebug" "Run the Caml debugger." t)

;;; auctex

;;;(require 'tex-site)

 (setq TeX-auto-save t)
 (setq TeX-parse-self t)
 (setq-default TeX-master nil)
;; (setq TeX-auto-untabify nil)
;; (setq TeX-open-quote "\"\`")
 (setq TeX-save-query nil)

 (setq LaTeX-section-hook
                '(LaTeX-section-heading
                  LaTeX-section-title
                ;;LaTeX-section-toc
                  LaTeX-section-section
                  LaTeX-section-label))

;;; keys
; (global-set-key [C-M-up] '(lambda () "Loads mime-setup."
;       (interactive) (load "mime-setup")))

 (global-set-key [C-right]  'end-of-line)
 (global-set-key [C-left]   'beginning-of-line)

 (global-set-key [M-up] '(lambda () "Scrolls the buffer one line up."
       (interactive) (scroll-up -1)))
 (global-set-key [M-down] '(lambda () "Scrolls the buffer one line down."
       (interactive) (scroll-up 1)))
 (global-set-key [home] '(lambda () "."
       (interactive) (beginning-of-buffer)))
 (global-set-key [end] '(lambda () "."
       (interactive) (end-of-buffer)))

 (global-unset-key [backspace])
 (global-set-key [backspace] 'backward-delete-char-untabify)
 (global-unset-key [delete])
 (global-set-key [delete] 'delete-char)

;(global-set-key [C-backspace] 'backward-kill-line)
 (global-set-key [M-delete]       'kill-word)
 (global-set-key [C-delete]       'kill-line)

;;; frames & desktop

(if (and (file-exists-p ".emacs.desktop")
	 window-system)
             
 (progn

; frames

;   (setq initial-frame-alist
;               '((top . 5399) (left . 4) (width . 80) (height . 51)))
   (modify-frame-parameters frame-initial-frame '((top . 10826) (left . 169) (width . 80) (height . 51)))
   (setq myframe (make-frame '((width . 80) (height . 51)
	      (font . "-adobe-courier-medium-r-normal-*-25-*-*-*-*-*-iso8859-2"))))
   (modify-frame-parameters myframe '((top . 26) (left . 169)))
   (setq myframe (make-frame '((width . 80) (height . 51)
	      (font . "-adobe-courier-medium-r-normal-*-25-*-*-*-*-*-iso8859-2"))))
   (modify-frame-parameters myframe '((top . 1226) (left . 169)))
   (setq myframe (make-frame '((width . 80) (height . 51)
	      (font . "-adobe-courier-medium-r-normal-*-25-*-*-*-*-*-iso8859-2"))))
   (modify-frame-parameters myframe '((top . 2426) (left . 169)))
   (setq myframe (make-frame '((width . 80) (height . 51)
	      (font . "-adobe-courier-medium-r-normal-*-25-*-*-*-*-*-iso8859-2"))))
   (modify-frame-parameters myframe '((top . 3626) (left . 169)))
   (setq myframe (make-frame '((width . 80) (height . 51)
	      (font . "-adobe-courier-medium-r-normal-*-25-*-*-*-*-*-iso8859-2"))))
   (modify-frame-parameters myframe '((top . 4826) (left . 169)))
   (setq myframe (make-frame '((width . 80) (height . 51)
	      (font . "-adobe-courier-medium-r-normal-*-25-*-*-*-*-*-iso8859-2"))))
   (modify-frame-parameters myframe '((top . 6026) (left . 169)))
   (setq myframe (make-frame '((width . 80) (height . 51)
	      (font . "-adobe-courier-medium-r-normal-*-25-*-*-*-*-*-iso8859-2"))))
   (modify-frame-parameters myframe '((top . 7226) (left . 169)))
   (setq myframe (make-frame '((width . 80) (height . 51)
	      (font . "-adobe-courier-medium-r-normal-*-25-*-*-*-*-*-iso8859-2"))))
   (modify-frame-parameters myframe '((top . 8426) (left . 169)))
   (setq myframe (make-frame '((width . 80) (height . 51)
	      (font . "-adobe-courier-medium-r-normal-*-25-*-*-*-*-*-iso8859-2"))))
   (modify-frame-parameters myframe '((top . 9626) (left . 169)))

; desktop

;(setq desktop-enable t)

;   (load "desktop")
;   (desktop-load-default)
   (desktop-read)
;   (load "regexp-opt")

   (kill-buffer "*scratch*")
))
