;; [site-start.el] 26.06. 1996 by Rene' Scholz <mrz@informatik.uni-jena.de>
;;
;; This is the global initialization file for XEmacs (19.14 / 20.2 / 20.4)
;;
;; If You start xemacs with "xemacs -no-site-file" this file will _not_ be
;; executed.
;;
;; XEmacs also uses ~/.emacs as the users init file like emacs.
;; But there are some commands witch are different between
;; Emacs and XEmacs.
;;
;; Therefore I suggest this solution:
;;
;;     o move your .emacs to .EMACS
;;     o create a file .emacs, witch looks like this:
;;
;;     ---------------------------------------------------------------------
;;     ;; load .EMACS for emacs or .XEMACS for xemacs:
;;
;;     (defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))
;;
;;     (cond (running-xemacs       (load-file "~/.XEMACS")))
;;     (cond ((not running-xemacs) (load-file "~/.EMACS")))
;;     ---------------------------------------------------------------------
;;
;;     o create a file .XEMACS and write commands specific
;;       for XEmacs there
;;
;;
;; You can customisize your XEmacs with the menu point <Options>
;; XEmacs will write your selections to the file ~/.xemacs-options and call
;; it from your ~/.emacs file.
;;
;; You can create a sample .XEMACS with the menu point <Help/Sample .emacs>
;; and then save the buffer as .XEMACS.
;;
;; Under XEmacs-20 You can make the most configuration via the menu point
;; Customize. XEmacs will save this settings at the end of your ~/.emacs.
;;
;; Since XEmacs-20.4 You can also put this settings in a single file
;; like ~/.xemacs-customize, but You must also set the variable
;; custom-file to this filename (You can do this with Customize too).
;; Then You have to load this file ~/.xemacs-customize
;; from your ~/.emacs like this: (load-file "~/.xemacs-customize")
;;
;;
;; For more examples You can look into ~mrz/[.emacs | .XEMACS*]
;; or http://www2.informatik.uni-jena.de/~mrz/pub/xemacs/
;;
;;
;;
;; Maintainer: René Scholz <mrz@informatik.uni-jena.de | Voland@Jena.Thur.de>
;;---------------------------------------------------------------------------


;; Code for both XEmacs 19 and XEmacs 20:

(if (>= emacs-major-version 19)
    (progn
      
      (require 'tex-site)	                ;; load AUC-TeX for LaTeX-Documents
      (setq TeX-save-query nil)                 ;; vor LateX-Aufruf File speichern
      (require 'ltx-help)			;; LaTeX help with C-h C-l
      (require 'case)				;; minor mode for case sensitive/unsensitive

      
      (autoload 'ispell "ispell" "load ispell" t)
      (defvar ispell-dictionary "deutsch8")	;; Ispell mit Deutsch8 als Default
      (setq ispell-extra-args '("-W" "3" "-C" "-w" "öäüÖÄÜß" "-t"))

      (autoload 'python-mode "python-mode" "Python editing mode." t)
      (setq auto-mode-alist   (cons '("\\.py$" . python-mode) auto-mode-alist))
      
      (setq minibuffer-confirm-incomplete t
	    next-line-add-newlines nil
	    inhibit-startup-message t
	    line-number-mode t
	    column-number-mode t
	    display-time-24hr-format t
	    )
      
      (gnuserv-start)				;; Allow connection with gnuclient
      
      (standard-display-european t)
      (require 'x-compose)			;; Compose-Taste nutzen
      
      ;; Die Farben (font-lock-mode) lassen sich beim XEmacs über den
      ;; Menüpunkt <Options/Syntax Highligthing> einstellen.
      (setq font-lock-maximum-size 10000)	;; z.B. 10 Kb
      
      ;; Hier einige Beispiele, wie man die Default-Farben von Font-lock
      ;; ändern kann:
      ;;
      ;; Syntax: (set-face-foreground 'face "color-string")
      ;;
      ;; Beispiel:
      ;; (set-face-foreground 'default "gold")
      ;; (set-face-background 'default "navy")
      ;;
      ;; Folgende Faces existieren (u.a.) beim XEmacs defaultmäßig:
      ;;
      ;; Possible completions are:
      ;; bold					list-mode-item-selected
      ;; bold-italic				modeline
      ;; default				modeline-buffer-id
      ;; font-lock-comment-face		modeline-mousable
      ;; font-lock-doc-string-face		modeline-mousable-minor-mode
      ;; font-lock-function-name-face		pointer
      ;; font-lock-keyword-face		primary-selection
      ;; font-lock-preprocessor-face		red
      ;; font-lock-reference-face		right-margin
      ;; font-lock-string-face		sbrowse-arrow-face
      ;; font-lock-type-face			secondary-selection
      ;; font-lock-variable-name-face		solid-arrow-face
      ;; highlight				underline
      ;; isearch				zmacs-region
      ;; italic
      
      ;; s.a. <Options/Edit Faces...>
      ;;
      ;; Inzwischen kann man die Faces auch sehr bequem über Customize einstellen.


      
      ;; jka-compr.el - reading/writing/loading compressed files:
      (require 'jka-compr)
      (toggle-auto-compression 1)
      
      ;; Tools for MIME laden: (obsolet, da neuere VM-Version ebenfalls MIME kann)
      ;;(load "mime-setup")
      
      ;; Zuletzt geladene Files in eigenem Menupunkt anzeigen:
      (require 'recent-files)
      (recent-files-initialize)
      
      ;; Icon-Leiste für LaTeX-Mode laden
      (require 'tex-toolbar)
      
      )
  )
      


;; Code only for Xemacs 20:
(if (>= emacs-major-version 20)
    (progn
      (if window-system (require 'font-latex))           ;; better font-lock with LaTeX
      (add-hook 'html-mode-hook 'hm--html-minor-mode)    ;; noch ein Menu mehr

      ;; IRC-Mode bereitstellen:
      (autoload 'irchat "irchat" "Emacs IRC client." t)
      (load-file "/local/GNU/lib/xemacs/site-lisp/irchat.setqs.el")
      (add-menu-button `("Apps" "Games")  ["IRC" irchat t])


      ;; RefTeX:
      (autoload 'reftex-mode               "reftex" "RefTeX Minor Mode" t)
      (autoload 'turn-on-reftex            "reftex" "RefTeX Minor Mode" nil)
      (setq reftex-plug-into-AUCTeX t
	    reftex-save-parse-info t
	    reftex-enable-partial-scans t)
      ;; Turn on RefTeX Minor Mode for all LaTeX files
      (add-hook 'LaTeX-mode-hook 'turn-on-reftex)   ; with AUCTeX LaTeX mode
      (add-hook 'LaTeX-mode-hook 'TeX-install-toolbar)
      ;; for doc see: http://www.strw.leidenuniv.nl/~dominik/Tools/
      )
  )

      ;; für vm in .../site-lisp/:
      ;;(setq vm-image-directory "/local/GNU/lib/xemacs/site-lisp/etc/vm")
      ;;(setq vm-toolbar-pixmap-directory  "/local/GNU/lib/xemacs/site-lisp/etc/vm")