;;; -*- Mode: Emacs-Lisp -*- ;;; extend some modes (setq auto-mode-alist (append '(("\\.m$" . c-mode)) auto-mode-alist)) (setq auto-mode-alist (append '(("\\.phtml" . html-mode)) auto-mode-alist)) ;;; IRC: irchat, hacked by me. (setq irchat-server "irc.gmd.de" ;; irchat-server "www.thur.de" ;; "irc.gmd.de" ;; irchat-service 31333 ;; 6667 irchat-service 6667 ;;irchat-startup-channel "#linux.de" irchat-startup-channel "#mjh" ; Formate: irchat-myformat-string "%9s:" irchat-format-string2 "%9s:" irchat-change-prefix "*** Change: " irchat-notice-prefix "*** Notice: " irchat-broadcast-prefix "*** Broadcast: " irchat-wallops-prefix "*** Wallops: " irchat-signoff-msg "By by. So long. Are Vi dertschie. Do swiedanja. Saluton!" irchat-system-fqdname "a_workstation_at_http://www2.informatik.uni-jena.de/" irchat-use-smiley t irchat-file-confirm-save 1 irchat-scroll-step 2 irchat-reconnect-automagic nil irchat-ignore-changes t irchat-compress-changes t irchat-use-full-window nil irchat-want-traditional t irchat-timestamp-interval 3600 irchat-pollnames-interval 600 irchat-client-userinfo "http://www2.informatik.uni-jena.de/~mrz/me.html" ) (defun irchat-handle-ping-msg (prefix rest) (irchat-send (concat "PONG " (or rest "yourself"))) (irchat-Command-timestamp-if-interval-expired t) (irchat-maybe-poll) ) ;; kill some disturbing buffers after exiting irchat: (defconst my-irchat-kill-buffers (list "*IRC Commands*" "*IRC KILLS*" "*IRC IGNORED*" "*IRC WALLOPS*" "*IRC CRYPT*") "List of buffers to be killed when ending irchat." ) (add-hook 'irchat-Exit-hook '(lambda () (let ( (l my-irchat-kill-buffers) (b nil)) (while (not (null l)) (setq b (car l)) (if(get-buffer b) (kill-buffer b)) (setq l (cdr l)) ) )) t) (defun my-irchat-Dialogue-mode-hook () (setq mode-line-format '("--- IRCHAT: Dialogue " "{" irchat-channel-indicator "} " ;;'global-mode-string display-time-string irchat-away-indicator irchat-crypt-indicator irchat-freeze-indicator irchat-ownfreeze-indicator "-" (-3 . "%p") "-%-")) ) (add-hook 'irchat-Dialogue-mode-hook 'my-irchat-Dialogue-mode-hook t) ;; this is already done in site-start.el: ;; (add-hook 'irchat 'irchat-colors-by-mrz-hook) ;; (add-menu-button ("Apps" "Games") ["IRC" irchat t]) ;; ###################################################################### ;; Set the colors for manual mode (defun my-Manual-mode-hook () ;; Set colors for things in Manual-mode (set-face-foreground 'man-bold "white") (set-face-foreground 'man-heading "firebrick") (set-face-foreground 'man-italic "green") (set-face-foreground 'man-xref "dodgerblue") ) (add-hook 'Manual-mode-hook 'my-Manual-mode-hook) ;;(setq Manual-program "man") ;; Änderungen für AucTeX: ;;(setq my-xdvi "xdvi -geom 554x782-58+60 -bg moccasin -S 20 -s 9 -expert -keep -nopostscript -copy ") (setq TeX-view-style '(("^a4$" "xdvi -geom 554x782-10+68 -s 9 -keep -nopostscript -copy -paper a4 %d") ("^a5$" "xdvi -geom 554x782-10+68 -s 9 -keep -nopostscript -copy -paper a5 %d") ("^landscape$" "xdvi -geom 588x416-0+59 -s 12 -keep -nopostscript -copy -paper a4r %d") ("." "xdvi -geom 554x782-10+68 -s 9 -keep -nopostscript -copy %d")) ) ;; 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) ;; für BibTeX: (setq bibtex-name-alignment 2 bibtex-text-alignment 17) ;; für ispell: (autoload 'flyspell-mode "flyspell" "On-the-fly ispell." t) ;; ###################################################################### ;; simple FVWM-Mode: ;(defvar fvwm-font-lock-keywords ; '(("^[*A-Za-z_]+[ \n\t]" . font-lock-function-name-face) ; ("\"[^\"]+\"" . font-lock-string-face) ; ("^#.*" . font-lock-comment-face) ; ("^[*A-Za-z_]+(.*)" . blue)) ; "Default font-lock keywords") ; ;(defun fvwm-mode () ; "Major mode for editing fvwm config files" ; (interactive) ; (kill-all-local-variables) ; (setq mode-name "Fvwm") ; (setq major-mode 'fvwm-mode)) ;(setq auto-mode-alist (append '(("\\.fvwm" . fvwm-mode)) auto-mode-alist)) ;; simple GNUPLOT-Mode: (defvar gnuplot-font-lock-keywords '(("^[*A-Za-z_]+[ \n\t]" . font-lock-function-name-face) ("\"[^\"]+\"" . font-lock-string-face) ("^#.*" . font-lock-comment-face) ;;("^[*A-Za-z_]+(.*)" . blue) ) "Default font-lock keywords") (defun gnuplot-mode () "Major mode for editing gnuplot scripts" (interactive) (kill-all-local-variables) (setq mode-name "gnuplot") (setq major-mode 'gnuplot-mode)) (setq auto-mode-alist (append '(("\\.gnu" . gnuplot-mode)) auto-mode-alist)) ;; ###################################################################### (setq cperl-extra-newline-before-brace nil cperl-help t ) ;; für completion: (defadvice display-completion-list (around completion-window-width first activate) "cl-window-width is set to 80" (let ((cl-keys (cons :window-width (cons 80 cl-keys)))) ad-do-it)) ;; personal HTML-Mode (setq html-helper-htmldtd-version "\n") ;;(add-hook 'html-mode-hook 'my-html-colors) (setq html-helper-address-string "René Scholz" html-helper-timestamp-hook 'my-html-helper-default-insert-timestamp tempo-insert-string-functions '(upcase) html-auto-sgml-entity-conversion 1 hm--html-expert 1 ) ;(add-hook 'sgml-mode-hook ; '(lambda () ;; (setq sgml-balanced-tag-edit t) ;; (setq sgml-auto-insert-required-elements t) ;; (setq sgml-omittag-transparent t) ;; (setq sgml-data-directory ;; (concat data-directory "sgml/")) ;;; Redine markup to be uppercase. ; (defmacro sgml-general-case (string) (`(upcase (, string)))) ;; (define-key sgml-mode-map "\C-c-" 'sgml-untag-element) ;; (define-key html-mode-map "\C-c-" 'sgml-untag-element) ; ) ; t) ;; for URL-Klicking: (setq browse-url-browser-function "browse-url-netscape" highlight-headers-follow-url-function 'highlight-headers-follow-url-netscape )