;; -*- Mode: Emacs-Lisp -*-
;;;
;;; Time-stamp: <1999-07-09, 23:24:00, mrz@isun34>

;; do not show the Toolbar:
(set-specifier default-toolbar-visible-p nil)

;; Zum Umbrechen von Quotes:
(require 'filladapt)
(setq-default filladapt-mode t)


;; für Java:
(require 'jdok)
(require 'jde)

;;(require 'highlight-headers)
(require 'dired)
(require 'scroll-in-place)
(require 'facemenu) ; für Menueintrag Edit->Text Properties
(if window-system (require 'font-latex))

;(require 'recent-files)
(setq recent-files-number-of-entries 35
      recent-files-number-of-saved-entries 200
      recent-files-permanent-submenu t
      recent-files-filename-replacements
      '(
       ("/home/mrz" . "~")
       ("/Voland@www.thur.de:/home/Voland" ."Voland@Trend:~")
       ("/www@www.thur.de" . "www@Trend")
       ("/mrz@paxp10.mipool:/home/stud/md91/mrz" . "mrz@mipool:~")
       ("/mount/projects/PVSpro/Compressors/Wavelets/SADA/Scholz/Compile-my/DA/FWT-sep" . "FWT-sep")
       )
)
(recent-files-initialize)



(require 'balloon-help)
(balloon-help-mode)
;; dazu auch folgenden Eintrag in der ~/.fvwmrc*:
;; Style "balloon-help"  NoTitle, WindowListSkip, BorderWidth 0, HandleWidth 0
(setq display-time-mail-balloon-from-width     26    ;; default: 20
      display-time-mail-balloon-max-displayed  30
      display-time-mail-balloon-subject-width  40
)


;;* Load minibuffer history.
(when running-xemacs (require 'savehist) (savehist-load))


;; func-doc
;; Try to find info about a command keyword relevant to this major mode
;; The initial guess is taken from the text around point.
(require 'func-doc)
(setq func-doc-split-window t)
(define-key help-map "d" 'func-doc)



;;(autoload 'irc "Kiwi-mrz"  "Internet Relay Chat client (hacked by mrz)." t nil)
(autoload 'irchat "irchat" "Emacs IRC client." t)



;; Tell cc-mode not to check for old-style (K&R) function declarations.
;; This speeds up indenting a lot.
(setq c-recognize-knr-p nil)

(setq minibuffer-confirm-incomplete t
      complex-buffers-menu-p nil
      next-line-add-newlines nil
      scroll-step 6             ; at the end of a window scoll 6 lines
      mail-yank-prefix "> "
      kill-whole-line t
      inhibit-startup-message t
      line-number-mode t
      column-number-mode t
      compilation-ask-about-save nil
      initial-scratch-message nil
)

;; disable stupid novice confirmation features
(fset 'yes-or-no-p 'y-or-n-p)


;; When running ispell, consider all 1-3 character words as correct.
;;(setq ispell-extra-args '("-W" "3" "-C" "-S" "-w" "öäüÖÄÜßé" "-t"))

;;; resize-minibuffer-mode makes the minibuffer automatically
;;; resize as necessary when it's too big to hold its contents.
(autoload 'resize-minibuffer-mode "rsz-minibuf" nil t)
(resize-minibuffer-mode)
(setq resize-minibuffer-window-exactly nil)


;; modeline: remove string "XEmacs" from modeline:
(setq-default modeline-buffer-identification
  (list (cons modeline-buffer-id-left-extent (purecopy ""))
  (cons modeline-buffer-id-right-extent (purecopy " %17b"))))
;; modeline: change look
(setq-default
 default-modeline-format
 (list
  (purecopy "")
  (cons modeline-modified-extent 'modeline-modified)
  (cons modeline-buffer-id-extent 'modeline-buffer-identification)
  (purecopy " ")
  'global-mode-string
  (purecopy " %[(")
  (cons modeline-minor-mode-extent (list "" 'mode-name 'minor-mode-alist))
  (cons modeline-narrowed-extent "%n")
  'modeline-process
  (purecopy ")%]--")
  (purecopy '(line-number-mode "L%l/"))
  (purecopy '(column-number-mode "C%c--"))
  (purecopy '(-3 . "%p"))
  (purecopy "-- %s ")
  (purecopy "-%-")
  ))



;; do no auto-saving or backup'ing :
(setq backup-inhibited t
      make-backup-files nil
      auto-save-mode 0
      auto-save-interval 0
      auto-save-timeout 0
      auto-save-default nil
      auto-save-list-file-name nil
)

; LaTeX
(setq TeX-parse-self t
      TeX-save-query nil            ; vor LateX-Aufruf File speichern
      LaTeX-default-options "a4paper,11pt,german")
;(setq TeX-auto-save t)
;(setq-default TeX-master nil)
;;(modify-syntax-entry ?\$ "." TeX-mode-syntax-table)



(setq lpr-command "a2ps-new"
      lpr-switches '("-gPsimplex -fNormal@6.0 ") ;(setq lpr-switches '("-Pduplex"))
)

(setq fill-column 76
      visible-bell nil
      text-mode-hook 'turn-on-auto-fill
      frame-title-format "Frame:  %S         Buffer:  %b"
      query-replace-highlight t
      search-highlight t
      default-major-mode 'indented-text-mode  ; Default mode for unknown files
      display-time-24hr-format t
      mouse-yank-at-point nil                 ; move cursor to mouse-position when yank
      compilation-window-height 10            ; Set number of lines in a compilation window
      perl-indent-level 2
      truncate-partial-width-windows nil      ; keinen horizontalen scrollbalken:
)

(setq-default visible-bell nil
	      fill-column 76
	      auto-fill-hook  'do-auto-fill
	      teach-extended-commands-timeout 1
)

;(setq display-time-form-list '(time-text load mail))
(display-time)
(auto-fill-mode)

(setq default-major-mode 'indented-text-mode) ; Default mode for unknown files
;(setq transient-mark-mode t)        ; the region visible
;(delete-selection-mode t)           ; replaces selection
(put 'eval-expression 'disabled nil)
(put 'narrow-to-region 'disabled nil)
;(put 'eval-expression 'backup-inhibit 1)




(when (featurep 'menubar)
  ;; Add `dired' to the File menu
  (add-menu-button '("File") ["Edit Directory" dired t])

  ;; Here's a way to add scrollbar-like buttons to the menubar
  (add-menu-button nil ["<<<"  scroll-down              t])
  (add-menu-button nil [" . "  recenter                 t])
  (add-menu-button nil [">>>"  scroll-up                t])
  (add-menu-button nil ["Exit" save-buffers-kill-emacs  t])
  (add-menu-button nil ["OF"   make-frame               t])
  (add-menu-button nil ["CF"   delete-frame             t])
  )


;; SOUNDS laden:
(cond ((string-match "isun34:0.0" (getenv "DISPLAY"))
       (load-default-sounds))
      (t
       (setq bell-volume 70)
       (setq sound-alist
	     (append sound-alist '((no-completion :pitch 500))))
       ))




;; Change the pointer used when the mouse is over a modeline
;(set-glyph-image modeline-pointer-glyph "leftbutton")

;; Change the continuation glyph face so it stands out more
(and (fboundp 'set-glyph-property)
     (boundp 'continuation-glyph)
     (set-glyph-property continuation-glyph 'face 'bold))

;; Here's another way to do that: it first tries to load the
;; pointer once and traps the error, just to see if it's
;; possible to load that pointer on this system; if it is,
;; then it sets gc-pointer-glyph, because we know that
;; will work.  Otherwise, it doesn't change that variable
;; because we know it will just cause some error messages.
(if (featurep 'xpm)
    (let ((file (expand-file-name "recycle.xpm" data-directory)))
      (if (condition-case error
	      ;; check to make sure we can use the pointer.
	      (make-image-instance file nil
				   '(pointer))
	    (error nil))	    ; returns nil if an error occurred.
	  (set-glyph-image gc-pointer-glyph file))))




;; time-stamp
(add-hook 'write-file-hooks 'time-stamp)
;;(setq time-stamp-format "%02d.%02m.%y, %02H:%02M:%02S, mrz@%s")
(setq time-stamp-format
      (concat "%y-%02m-%02d, %02H:%02M:%02S, " (getenv "LOGNAME") "@%s"))


;; TEST-Funktionen zum Cut&Paste:

(defvar my-PointA nil
  "Markierung Cut-Anfang.")
(make-variable-buffer-local 'my-PointA)

(defun my-get-PointA ()
  "Setzt my-PointA auf (point)."
  (interactive)
  (setq my-PointA (point))
  )
;; Anfang des Cut-Bereiches festlegen:
(define-key global-map '(meta shift button1)
  'mouse-track-do-rectangle)
  ;;  'my-get-PointA)

;;(add-hook 'mouse-track-click-hook 'my-get-PointA)
;;(setq mouse-track-click-hook 'default-mouse-track-click-hook)