;; 13. August 1993                    File:namu01:/usr/skel/.emacs-19.example
;;*****************************************************************************
;; Setzen von allgemeinen Variablen und Funktionen
;;*****************************************************************************

;;--- Variablen und Funktionen betr.: Display bzw. Video ----------------------

 (setq inhibit-startup-message t)         ; unterdrückt Startinformation
 (setq initial-major-mode 'text-mode)     ; startet im Text-mode
 (setq term-setup-hook 'edt-emulation-on) ; Emulation des VAX EDT-Editors
 (setq scroll-step 8)                     ; scroll 8 Zeilen am Schirmende
 (setq line-number-mode t)                ; zeigt ständig die Zeilennummer an
 (setq visible-bell t)                    ; blinken auf dem Schirm bei 'bell'
 (display-time)                           ; zeigt die Uhrzeit an
 (standard-display-european 1)            ; zeigt auch Umlaute im vt200-Mode
 (setq transient-mark-mode t)             ; highligted z.B. regions
 (set-face-foreground 'region "white")    ; weiße Schrift in der region
 (set-face-background 'region "blue")     ; blauer Hintergrund i.d. region
 (set-background-color "lightgrey")       ; frame mit hellgrauem Hintergrund
;;(set-default-font "-adobe-*-bold-r-*-*-18-*-*-*-*-*-*-*")
 (setq x-pointer-shape x-pointer-top-left-arrow) ; Mouse-Cursor dndern
 (set-mouse-color "red")                  ; schaltet um auf anderen Cursor

;;--- Variablen und Funktionen betr.: Files -----------------------------------

 (setq version-control t)                 ; erlaube zusätzl. Versions-Nummern
 (setq kept-old-versions 1)               ; behalte die älteste Version
 (setq kept-new-versions 2)               ; behalte 2 der neuesten Files
 (setq trim-versions-without-asking t)    ; keine Frage bevor gepurged wird
 (setq require-final-newline t)           ; fügt <RETURN> am File-Ende an
 (setq next-line-add-newlines nil)        ; verhindert Leerzeilen am File-Ende
 (setq dired-copy-preserve-time t)        ; beim Kopieren keine Datumsänderung

;;----------------------------------------------------------------------------
;; Funktionen auf Tasten legen (key bindings)
;;----------------------------------------------------------------------------

 (global-set-key [f1] 'list-command-history)

;;----------------------------------------------------------------------------
;; Setzen von Funktionen und Variablen für Major-Modes  (hook's)
;;----------------------------------------------------------------------------

(setq text-mode-hook '(lambda () 
    (abbrev-mode 1)
    (setq fill-column 80)
    (auto-fill-mode 1)
    (setq tex-zap-file "texpreview")              ; Standard-LaTeX File
    (setq tex-dvi-view-command "xdvi -bg white -fg black")
    (setq tex-command "latexg")
    (setq mode-name "LaTeXg")
    (setq tex-default-mode 'latex-mode)
    (setq tex-open-quote "\"")
    (setq tex-close-quote "\"")
    (setq tex-dvi-print-command "lpr -d -P0")
    (setq tex-alt-dvi-print-command "lpr -d -P1")
    ))

(setq c-mode-hook '(lambda ()
    (setq c-indent-level 3)          ; Einr"ucken bei C-Progr. in 3er-Schritten
    (setq c-continued-statement-offset 3)
    (setq c-brace-offset -3)
    (setq c-label-offset -1)
   ))

(setq fortran-mode-hook '(lambda ()
    (setq fortran-startup-message nil)            ; keine Start-Message
    (fortran-auto-fill-mode 1)                    ; automatischer Umbruch
    (setq fill-column 72)                         ; Umbruch ab Spalte 72
    (abbrev-mode 1)                               ; abbrev-Mode einschalten
    (setq fortran-do-indent 0)                    ; do .. nicht einrücken
    (setq fortran-if-indent 3)                    ; 3 Spalten einrücken
    (setq fortran-line-number-indent 4)           ; 1234_*_ bei Labels
    (setq comment-start "!")                      ; Kommentarzeichen
    (setq fortran-comment-region "c ")            ; 'c ' in Kommentarzeilen
    (setq fortran-continuation-char "*")
    (setq fortran-continuation-string "*")        ; Sternchen in Spalte 6
    (setq fortran-continuation-indent 1)          ; 1 Spalte einrücken
    (setq fortran-blink-matching-if t)            ; blinken bei endif
    ))

(setq dired-load-hook '(lambda ()
  (setq dired-ls-program "/bin/ls")               ; protect ag. egomanics...
  (setq find-ls-option "-exec ls -ld {} \\;")
  (define-key dired-mode-map "," 'dired-prev-dirline)
  (define-key dired-mode-map "." 'dired-next-dirline)
  (define-key dired-mode-map "a" 'revert-buffer)
  (define-key dired-mode-map "c" 'dired-do-copy)
  (define-key dired-mode-map "r" 'dired-do-move)
  (define-key dired-mode-map "\C-x!" 'dired-do-shell-command)
  (define-key dired-mode-map "\C-xf" 'find-dired)
  (define-key dired-mode-map "\C-xg" 'dired-upcase)        ;; Großbuchstabe
  (define-key dired-mode-map "\C-xk" 'dired-downcase)      ;; Kleinbuchstabe
  (define-key dired-mode-map "\C-xn" 'find-name-dired)     ;; Suche Name
  (define-key dired-mode-map "\C-cn" 'find-name-dired)     ;; Suche Name
  (define-key dired-mode-map "\C-xs" 'find-grep-dired)     ;; Suche String
  (define-key dired-mode-map "\C-cs" 'find-grep-dired)     ;; Suche String
  ))

;; For Version 19.19 only. Remove the lines ||| in correct Emacs Version.
;                                           vvv 
; Because startup.el sets default-directory to
;   (abbreviate-file-name default-directory)
; we get the value ~/ which does not work with dired. Cannot simply reset
; the value here, because the wrong setting is done after .emacs is loaded.
; So use emacs-startup-hook:

(add-hook 'emacs-startup-hook
   '(lambda()(setq default-directory (expand-file-name default-directory))))

;                                          ^^^
;;For Version 19.19 only. Remove the lines ||| in correct Emacs Version.

;------------------------------------------------------------------------------
; GNUS: Neue Newsgroups nicht automatisch zufuegen
;------------------------------------------------------------------------------
(setq gnus-subscribe-newsgroup-method
     '(lambda (newsgroup) nil))

;------------------------------------------------------------------------------
; Emacs startet mit 'dired' (Kommando: ls -Al)
;------------------------------------------------------------------------------
(dired "." "-Al")