GNU Emacs::Konfiguration

Meine erweiterte .emacs. Die Konfigurationsdatei des News- und Mailreaders Gnus ist hier zu finden.

.emacs 1/7

[top][prev][next][download]

; -*- coding: latin-1; -*-

;; hier liegen alle meine Emacs-Einstellungen und -(Lisp-)Dateien
(defvar ollis-elisp-dir "~/emacs/")

;; Datei laden, wenn vorhanden, sonst Warnung
(defun olli-load-part (part &optional action)
  (let ((fullname (concat ollis-elisp-dir part)))
    (if (file-exists-p fullname)
	(progn
	  (load fullname)
	  (if action 
	      (funcall action))
	  )
      (message (format "Loading %s (source)...failed" fullname)))))


;; Meine allgemeinen Einstellungen
(olli-load-part "olli-user.el")
(olli-load-part "olli-functions.el")
;; (La)TeX-spezifische Sachen
(olli-load-part "olli-tex.el")
;; Desktop/Sessionmanagement
(olli-load-part "olli-desktop.el")
;; Sonstiges
(olli-load-part "olli-sonstiges.el")

custom.el 2/7

[top][prev][next][download]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;          Custom. Don't Change.            ;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(LaTeX-csquotes-close-quote "«")
 '(LaTeX-csquotes-open-quote "»")
 '(TeX-PDF-mode t)
 '(TeX-command "etex")
 '(TeX-command-list (quote (("TeX" "%(PDF)%(tex) %S%(PDFout) \"%(mode)\input %t\"" TeX-run-TeX nil (plain-tex-mode texinfo-mode ams-tex-mode) :help "Run plain TeX")
                            ("LaTeX" "%l \"%(mode)\input{%t}\"" TeX-run-TeX nil (latex-mode doctex-mode) :help "Run LaTeX")
                            ("Makeinfo" "makeinfo %t" TeX-run-compile nil (texinfo-mode) :help "Run Makeinfo with Info output")
                            ("Makeinfo HTML" "makeinfo --html %t" TeX-run-compile nil (texinfo-mode) :help "Run Makeinfo with HTML output")
                            ("AmSTeX" "%(PDF)amstex %S%(PDFout) \"%(mode)\input %t\"" TeX-run-TeX nil (ams-tex-mode) :help "Run AMSTeX")
                            ("ConTeXt" "texexec --once --texutil %(execopts)%t" TeX-run-TeX nil (context-mode) :help "Run ConTeXt once")
                            ("ConTeXt Full" "texexec %(execopts)%t" TeX-run-TeX nil (context-mode) :help "Run ConTeXt until completion")
                            ("ConTeXt Clean" "texutil --purgeall" TeX-run-interactive nil (context-mode) :help "Clean temporary ConTeXt files") ("BibTeX" "~/bin/bibtex8 -c 88591lat %s" TeX-run-BibTeX nil t :help "Run BibTeX")
                            ("View" "%V" TeX-run-discard t t :help "Run Viewer")
                            ("Print" "%p" TeX-run-command t t :help "Print the file")
                            ("Queue" "%q" TeX-run-background nil t :help "View the printer queue" :visible TeX-queue-command)
                            ("File" "%(o?)dvips %d -o %f " TeX-run-command t t :help "Generate PostScript file")
                            ("Index" "~/bin/texindy-wrapper %s.idx" TeX-run-command nil t :help "Create index file")
                            ("Check" "lacheck %s" TeX-run-compile nil (latex-mode) :help "Check LaTeX file for correctness")
                            ("Spell" "<ignored>" TeX-run-ispell-on-document nil t :help "Spell-check the document")
                            ("Other" "" TeX-run-command t t :help "Run an arbitrary command"))))
 '(TeX-fold-macro-spec-list (quote (("[f]" ("footnote"))
                                    ("[c]" ("cite" "footcite"))
                                    ("[l]" ("label"))
                                    ("[r]" ("ref" "pageref"))
                                    ("[i]" ("index"))
                                    ("[m]" ("margin" "marginpar" "randnotiz"))
                                    ("*" ("item"))
                                    ("(...)" ("ausl"))
                                    ("..." ("dots"))
                                    ("§" ("S"))
                                    (">" ("jbrangle"))
                                    ("<" ("jblangle"))
                                    ("--" ("relstrich"))
                                    (1 ("part" "chapter" "section" "subsection" "subsubsection" "paragraph" "subparagraph"
                                        "part*" "chapter*" "section*" "subsection*" "subsubsection*" "paragraph*" "subparagraph*"
                                        "emph" "textit" "textsl" "textmd" "textrm" "textsf" "texttt" "textbf" "textsc" "textup"
                                        "ollivs" "ollivsit" "versalien" "versalienit" "url")))))
 '(TeX-master nil)
 '(TeX-output-view-style (quote (("^dvi$" ("^landscape$" "^pstricks$\|^pst-\|^psfrag$") "%(o?)dvips -t landscape %d -o && gv %f")
                                 ("^dvi$" "^pstricks$\|^pst-\|^psfrag$" "%(o?)dvips %d -o && gv %f")
                                 ("^dvi$" ("^a4\(?:dutch\|paper\|wide\)\|sem-a4$" "^landscape$") "%(o?)xdvi %dS -paper a4r -s 0 %d")
                                 ("^dvi$" "^a4\(?:dutch\|paper\|wide\)\|sem-a4$" "%(o?)xdvi %dS -paper a4 %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$" "^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$" "." "%(o?)xdvi %dS %d")
                                 ("^pdf$" "." "kpdf %o")
                                 ("^html?$" "." "netscape %o"))))
 '(case-fold-search t)
 '(column-number-mode t)
 '(current-language-environment "German")
 '(default-input-method "german-postfix")
 '(font-latex-quotes (quote german))
 '(global-font-lock-mode t nil (font-lock))
 '(gnus-agent-go-online t)
 '(gnus-ham-process-destinations (quote ((".*" respool))))
 '(gnus-spam-process-destinations (quote ((".*" ("nnml:spam" "nnml:spam.learn")))))
 '(ispell-local-dictionary-alist (quote (("deutsch" "[a-zA-Z\"]" "[^a-zA-Z\"]" "[']" t ("-C") "~tex" iso-8859-1)
                                         ("deutsch8" "[[:alpha:]]" "[^[:alpha:]]" "[']" t ("-C" "-d" "german-old") "~tex" iso-8859-1))))
 '(recentf-exclude (quote ("emacs-places$" "~$")))
 '(recentf-initialize-file-name-history t)
 '(recentf-mode t nil (recentf))
 '(reftex-cite-format (quote jurabib))
 '(show-paren-mode t)
 '(suggest-key-bindings 5)
 '(tex-close-quote "«")
 '(tex-open-quote "»")
 '(tool-bar-mode nil nil (tool-bar))
 '(transient-mark-mode t))

olli-desktop.el 3/7

[top][prev][next][download]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;          Desktop/Sessionmanagement          ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; recent files
(require 'recentf)
(setq recentf-auto-cleanup 'never) ;; disable before we start recentf!
(recentf-mode 1)

;; saveplace
(require 'saveplace)
(setq-default save-place t)

;; desktop (enables session-management)
(desktop-save-mode 1)
;; Customization follows below
(setq history-length 250)
(add-to-list 'desktop-globals-to-save 'file-name-history)
(setq desktop-buffers-not-to-save
      (concat "\(" "^nn\.a[0-9]+\|\.log\|(ftp)\|^tags\|^TAGS"
	      "\|\.diary\|\.newsrc-dribble\|\.bbdb\)$"))
(add-to-list 'desktop-modes-not-to-save 'dired-mode)
(add-to-list 'desktop-modes-not-to-save 'Info-mode)
(add-to-list 'desktop-modes-not-to-save 'info-lookup-mode)
(add-to-list 'desktop-modes-not-to-save 'fundamental-mode)

olli-functions.el 4/7

[top][prev][next][download]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                  Funktionen                  ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Fenster rückwärts springen   
(defun other-window-backward (n)
  "Select Nth previous window."
  (interactive "p")
  (other-window (- n)))

; Funktionen in der auf Shift-Cursor[hoch|runter]
(global-set-key [(shift down)] 'other-window)
(global-set-key [(shift up)] 'other-window-backward)

;; Kill other window and and enlarge current buffer
(global-set-key [f8] 'kill-buffer-other-window) 
(defun kill-buffer-other-window (arg)
  "Kill the buffer in the other window, and make the current buffer full size. 
If no other window, kills current buffer."
  (interactive "p")
  (let ((buf (save-window-excursion
	       (other-window arg)
	       (current-buffer))))
    (delete-windows-on buf)
    (kill-buffer buf))  )

olli-sonstiges.el 5/7

[top][prev][next][download]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                  Sonstiges                  ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; ssh
(olli-load-part "ssh.el") 
(require 'ssh)

;; tramp: remote dateien editieren
(setq tramp-default-method "scp")

;; Bunt soll's sein: color-theme
(require 'color-theme)
(if (display-graphic-p)  
    (color-theme-pok-wog)
;; no, this is not X/Windows 
    (olli-load-part "my-color-theme4.el" 'color-theme-standard)
 ) 

olli-tex.el 6/7

[top][prev][next][download]

;;=====================================================================
;;======			LaTeX                           =======
;;=====================================================================
(require 'tex-site)

;; auctex
(setq TeX-open-quote "»")
(setq TeX-close-quote "«")

(setq LaTeX-indent-level '2)
(setq LaTeX-item-indent '0)

(setq reftex-default-bibliography 
      '("/home/olli/texmf/bibtex/bib/texte.bib")) ; default Bibliographie
(setq reftex-plug-into-AUCTeX t)

(setq reftex-use-external-file-finders t) ; RefTeX nutzt kpathsearch
(setq reftex-external-file-finders
      '(("tex" . "kpsewhich -format=.tex %f")
	("bib" . "kpsewhich -format=.bib %f")))

(add-hook 'LaTeX-mode-hook (lambda ()
			     (turn-on-reftex)
			     (TeX-fold-mode 1)))
(add-hook 'LaTeX-mode-hook ; C-TAB zum Auto-Vervollständigen von Makros
	  '(lambda nil 
	     (define-key LaTeX-mode-map (kbd "C-<tab>") 'TeX-complete-symbol)))

(setq TeX-parse-self t) ; Enable parse on load.
(setq TeX-auto-save t)  ; Enable parse on save.

;; ispell
; (setq ispell-program-name "aspell") 
(setq-default ispell-program-name "aspell")
(setq ispell-local-dictionary-alist
      '(("deutsch"
         "[a-zA-Z\"]"
         "[^a-zA-Z\"]"
         "[']" t
         ("-C")
         "~tex" iso-8859-1)
	
        ("deutsch8"
         "[[:alpha:]]"
         "[^[:alpha:]]"
         "[']" t
         ("-C" "-d" "german-old")
         "~latin1" iso-8859-1)
        ))
(setq ispell-dictionary "german-old")
;; User-Dictionary ohne Nachfrage speichern
(setq ispell-silently-savep t)
(add-hook 'tex-mode-hook (function (lambda () 
				     (setq ispell-parser 'tex))))

;; Flyspell
(autoload 'flyspell-mode "flyspell" "On-the-fly spelling checker." t)
(add-hook 'LaTeX-mode-hook 'flyspell-mode)
(add-hook 'LaTeX-mode-hook
	  '(lambda ()
	     (setq-default TeX-master 'dwim)
	     (TeX-PDF-mode-on)
	     ))

olli-user.el 7/7

[top][prev][next][download]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;           Standard-Einstellungen            ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; erstmal 'ne vernünftige Fontgröße
(set-default-font "-misc-fixed-medium-r-normal--18-120-100-100-c-90-iso8859-15")

;; brauche keine Toolbar
(tool-bar-mode 0)

;; Kein Bock auf nervtötendes Gepiepe
(setq visible-bell t)

;; Keine GTK-Dialoge
(setq use-file-dialog nil)

;; automatischer Zeilenumbruch
(setq fill-column 78)
(add-hook 'text-mode-hook 'turn-on-auto-fill)

;; Focus Follows Mouse
(setq mouse-autoselect-window t)

;; Beim Suchen immer genaue Schreibweise finden
(setq-default case-fold-search nil)

;; y-e-s durch y ersetzen
(fset 'yes-or-no-p 'y-or-n-p)

;; Ausgabe von ^M in der Shell filtern
(add-hook 
 'comint-output-filter-functions 
 'shell-strip-ctrl-m nil t)

;; globales site-lisp-Verzeichnis zum load-path hinzufügen
(setq load-path (cons "/usr/share/emacs/site-lisp/" load-path))

;; BBDB
(require 'bbdb)
(bbdb-initialize 'gnus 'message 'sc 'w3)

;; Starten von emacsclient
(server-start)

;; Gnuserv starten
(load "gnuserv-compat")
(gnuserv-start)
(setq gnuserv-frame (selected-frame))

;; Tabbar-Mode
;;(olli-load-part "tabbar.el" 'tabbar-mode)
(tabbar-mode) ;; angeblich älter, aber schöner
(global-set-key [(control shift left)]  'tabbar-backward)
(global-set-key [(control shift right)] 'tabbar-forward)

;; winpoint -- Remember buffer positions per-window, not per buffer
(olli-load-part "winpoint.el")
(window-point-remember-mode 1)