;;..v....x....v....x....v....x....v....x....v....x....v....x....v....x....v....
;;
;; convert utf-8/iso-8859-15: Cx RET f utf-8 RET
;;
;; Wed Dec 6 20:21:32 CET 2006
;; http://www.pro-linux.de/news/2003/5550.html
(require 'autoinsert)
(auto-insert-mode 1)
(setq auto-insert t)
;; (setq auto-insert-query nil)
(add-hook 'find-file-hooks 'auto-insert)
(setq auto-insert-directory "~/src/skel/")
;; (setq auto-insert-alist
;; '((scheme-mode . "template.scm")
;; (texinfo-mode . "template.texi")
;; ("\\.\\(c\\|h\\)$" . "template.c")))
(setq auto-insert-alist
'(("\\.h" . "template.h")
("\\.html" . "template.html")))
;;
;; Fri Mar 18 17:00:35 CET 2005
;; http://www.webweavertech.com/ovidiu/emacs.html
;;; MacOS X specific stuff
;; (setq mac-command-key-is-meta nil)
;; Sun Apr 9 23:08:24 CEST 2006
;; (require 'mmm-auto)
;; (setq mmm-global-mode 'maybe)
;; (mmm-add-mode-ext-class 'html-mode nil 'mason)
;; Fri May 6 00:08:11 CEST 2005 (neither \C-/ nor \C-\ work) (global-set-key "\C-ci" 'indent-region) (global-set-key "\M-." 'find-tag-other-window)
;; Fri Apr 1 23:18:58 CEST 2005
;; (setq explicit-bash-args `("--login"))
;; tramp (succ. of ange-ftp) defaults to ssh
;; e.g.: /scp:hwais@195.234.187.87:/home/hwais/src/er/buslay
(require 'tramp)
(setq tramp-default-method "ftp")
;; Thu Mar 31 22:13:49 CEST 2005
(global-set-key [C-kp-home] 'beginning-of-buffer)
(global-set-key [C-kp-end] 'end-of-buffer)
;; junisphere:
(setq default-tab-width 8)
;;Mon Mar 24 21:22:34 WET 2003
(setq default-tab-width 4)
;; Sat Feb 15 20:46:56 WET 2003
(set-frame-name "emacs")
;; Wed Dec 4 20:56:27 CET 2002
;; http://koala.ilog.fr/colas/mouse-wheel-scroll/
;; make wheelmouse work
(defun up-slightly () (interactive) (scroll-up 5))
(defun down-slightly () (interactive) (scroll-down 5))
(global-set-key [mouse-4] 'down-slightly)
(global-set-key [mouse-5] 'up-slightly)
(defun up-one () (interactive) (scroll-up 1))
(defun down-one () (interactive) (scroll-down 1))
(global-set-key [S-mouse-4] 'down-one)
(global-set-key [S-mouse-5] 'up-one)
(defun up-a-lot () (interactive) (scroll-up))
(defun down-a-lot () (interactive) (scroll-down))
(global-set-key [C-mouse-4] 'down-a-lot)
(global-set-key [C-mouse-5] 'up-a-lot)
;;
;; this gives SEGV in scratch under X:
;; (x-popup-dialog t (list "hallo" nil))
;;
(setq default-major-mode 'text-mode)
(global-unset-key "\C-x\C-u")
;; (setq explicit-shell-file-name "/bin/bash")
(setq explicit-bash-args (list "--noediting" "--login" "-i"))
(setq-default shell-cd-regexp nil)
(setq-default shell-pushd-regexp nil)
(setq-default shell-popd-regexp nil)
(add-hook 'comint-output-filter-functions
'comint-watch-for-password-prompt)
(add-hook 'gnus-article-mode-hook
'(lambda ()
(global-set-key "u" 'message "Hallo")
))
(add-hook 'c-mode-hook 'turn-on-font-lock)
;; junisphere:
(add-hook 'c-mode-hook
'(lambda ()
(c-set-style "k&r")
(turn-on-font-lock)
(setq c-basic-offset 8)
(setq c-brace-imaginary-offset 0)
(setq c-brace-offset -8)
(c-toggle-hungry-state 1)
(c-toggle-auto-state -1)))
(add-hook 'c++-mode-hook
'(lambda ()
(c-set-style "k&r")
(turn-on-font-lock)
(setq c-basic-offset 8)
(setq c-brace-imaginary-offset 0)
(setq c-brace-offset -8)
(c-set-offset 'inline-open 0) ;; first brace in method
(c-set-offset 'innamespace 0) ;; use C-c C-s to see what indents
(c-toggle-auto-state -1)))
;; (add-hook 'c-mode-hook
;; '(lambda () ;; (c-set-style "k&r") ;; (turn-on-font-lock) ;; (setq c-basic-offset 4) ;; (setq indent-tabs-mode nil) ;; (c-toggle-hungry-state 1) ;; (c-toggle-auto-state -1)))
;;
;; (add-hook 'c++-mode-hook
;; '(lambda () ;; (c-set-style "k&r") ;; (turn-on-font-lock) ;; (setq c-basic-offset 4) ;; (setq indent-tabs-mode nil) ;; (c-toggle-hungry-state 1) ;; (c-toggle-auto-state -1)))
(add-hook 'perl
'(lambda ()
(turn-on-font-lock)
(setq indent-tabs-mode nil)))
(add-hook 'python-mode-hook
'(lambda ()
(turn-on-font-lock)
(setq indent-tabs-mode nil)))
(add-hook 'java-mode-hook
'(lambda ()
(turn-on-font-lock)
(setq indent-tabs-mode nil)))
(add-hook 'tex-mode-hook 'turn-on-font-lock) (add-hook 'html-mode-hook 'turn-on-font-lock) (add-hook 'sgml-mode-hook 'turn-on-font-lock) (add-hook 'shell-mode-hook 'turn-on-font-lock) (add-hook 'Shell-scrip-mode-hook 'turn-on-font-lock) (add-hook 'makefile-mode-hook 'turn-on-font-lock) (add-hook 'emacs-lisp-mode-hook 'turn-on-font-lock) (setq font-lock-maximum-decoration t)
;; (set-face-attribute-internal 'font-lock-comment-face 'foreground "blue" nil)
;; umlaute
;; Warning (i18n): `standard-display-european' is semi-obsolete
;; (standard-display-european t)
;; display time in modeline
(display-time)
(load "desktop")
;; from /usr/local/share/emacs/20.2/lisp/desktop.el
(desktop-load-default)
(desktop-read)
(add-hook 'kill-emacs-hook
'(lambda ()
(desktop-truncate search-ring 3)
(desktop-truncate regexp-search-ring 3)))
;; make % match parentheses (from FAQ: ^H F)
(global-set-key "%" 'match-paren)
(defun match-paren (arg)
"Go to the matching parenthesis if on parenthesis otherwise insert %."
(interactive "p")
(cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
((looking-at "\\s\)") (forward-char 1) (backward-list 1))
(t (self-insert-command (or arg 1)))))
(global-set-key "\C-cc" 'compile)
(global-set-key "\C-cl" 'goto-line)
;; find all info-pages:
(setq Info-default-directory-list
(list "/usr/share/info/emacs-20" "/usr/share/info" "/usr/local/info"))
;; no bell please
(setq ring-bell-function '(lambda ()))
;; laptop setting:
;; This disables auto-saving based on time, and makes the auto-saving be
;; done every 2500 keyboard actions.
(setq auto-save-interval 2500)
(setq auto-save-timeout nil)
(setq-default transient-mark-mode t)
(server-start)
;;(gnuserv-start)
;;(global-set-key "\e." 'tags-search)
;;for JDE
;;(load "jde")
;;(add-hook 'jde-mode-hook
;; '(lambda () ;; (setq jde-compiler "jikes") ;; (jde-set-global-classpath "/usr/share/kaffe/Klasses.jar")))
(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.
'(canlock-password "2115e963320140ab412357fd89316e856a76456a"))
(setq browse-url-browser-function 'browse-url-w3) (setq w3-default-homepage "http://localhost/~helmut/")
;; message-id in gnus
;; (setq message-required-mail-headers (remove 'Message-ID message-required-mail-headers))
;; message-id:
(setq system-name "wais.org")
;; Thu May 6 19:38:48 CEST 2004
;; from /usr/src/linux/Documentation/CodingStyle:
;; ..if you put the string -*- linux-c -*- somewhere on the first
;; two lines, this mode will be automatically invoked. Also, you may want
;; to add
;; (setq auto-mode-alist (cons '("/usr/src/linux.*/.*\\.[ch]$" . linux-c-mode)
;; auto-mode-alist))
(defun linux-c-mode ()
"C mode with adjusted defaults for use with the Linux kernel."
(interactive)
(c-mode)
(c-set-style "K&R")
(setq c-basic-offset 8))
(custom-set-faces
;; custom-set-faces 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.
'(default ((t (:stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 96 :width normal :family "apple-monaco")))))
;; Sun Mar 20 16:40:46 CET 2005
(tool-bar-mode -1)
;; two buffers a 79 + scrollbars
(set-frame-width (selected-frame) 164)
(set-frame-height (selected-frame) 50)
(set-frame-position (selected-frame) 2 30)
(split-window-horizontally)