From 8fe926fa3684d5ceebee2edf3ef7052c11e258c0 Mon Sep 17 00:00:00 2001 From: Alexander Sulfrian Date: Thu, 5 Feb 2009 12:38:13 +0100 Subject: added .emacs to dotfiles --- emacs | 305 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 305 insertions(+) create mode 100644 emacs (limited to 'emacs') diff --git a/emacs b/emacs new file mode 100644 index 0000000..88c1f1f --- /dev/null +++ b/emacs @@ -0,0 +1,305 @@ +(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. + '(Buffer-menu-use-frame-buffer-list nil) + '(abbrev-mode t) + '(all-christian-calendar-holidays t) + '(auto-compression-mode t nil (jka-compr)) + '(auto-insert-mode t) + '(auto-insert-query nil) + '(backward-delete-char-untabify-method nil) + '(bubblet-high-score 286 t) + '(bubblet-high-stats (quote (47 131)) t) + '(bubblet-num-games 1 t) + '(bubblet-total-score 286 t) + '(bubblet-total-stats (quote (47 131)) t) + '(c-basic-offset 8) + '(c-syntactic-indentation t) + '(c-syntactic-indentation-in-macros nil) + '(c-tab-always-indent nil) + '(calendar-week-start-day 1) + '(case-fold-search t) + '(column-number-mode t) + '(compilation-skip-threshold 2) + '(confirm-kill-emacs (quote y-or-n-p)) + '(current-language-environment "English") + '(delphi-case-label-indent 2) + '(delphi-indent-level 2) + '(delphi-tab-always-indents nil) + '(display-time-24hr-format t) + '(display-time-day-and-date t) + '(display-time-interval 60) + '(display-time-mail-file (quote none)) + '(display-time-string-forms (quote ((if (and (not display-time-format) display-time-day-and-date) (format-time-string "---%a %b %e " now) "") (propertize (format-time-string (or display-time-format (if display-time-24hr-format "%H:%M" "%-I:%M%p")) now) (quote help-echo) (format-time-string "%a %b %e, %Y" now)) load (if mail (concat " " (propertize display-time-mail-string (quote display) (\` (when (and display-time-use-mail-icon (display-graphic-p)) (\,@ display-time-mail-icon) (\,@ (if (and display-time-mail-face (memq (plist-get (cdr display-time-mail-icon) :type) (quote (pbm xbm)))) (let ((bg (face-attribute display-time-mail-face :background))) (if (stringp bg) (list :background bg))))))) (quote face) display-time-mail-face (quote help-echo) "You have new mail; mouse-2: Read mail" (quote mouse-face) (quote mode-line-highlight) (quote local-map) (make-mode-line-mouse-map (quote mouse-2) read-mail-command))) "")))) + '(double-mode nil nil (double)) + '(ecb-compile-window-height 6) + '(ecb-compile-window-width (quote frame)) + '(ecb-directories-menu-user-extension (quote (("Version Control" (ecb-dir-popup-cvs-status "CVS Status") (ecb-dir-popup-cvs-examine "CVS Examine") (ecb-dir-popup-cvs-update "CVS Update"))))) + '(ecb-history-sort-method nil) + '(ecb-layout-name "left7") + '(ecb-layout-window-sizes (quote (("left7" (0.21844660194174756 . 0.5873015873015873) (0.21844660194174756 . 0.15873015873015872) (0.21844660194174756 . 0.23809523809523808))))) + '(ecb-options-version "2.32") + '(ecb-primary-secondary-mouse-buttons (quote mouse-1--mouse-2)) + '(ecb-process-non-semantic-files t) + '(ecb-show-help-format (quote info)) + '(ecb-source-path (quote (("/" "/") ("/home/alex/" "~/") #("/home/alex/chat" 0 15 (help-echo "Mouse-2 toggles maximizing, mouse-3 displays a popup-menu")) ("/home/alex/projects/uni/ti3" "ti3") ("/home/alex/projects/c/antispam" "antispamm") ("/home/alex/projects/c/antispam" "antispam")))) + '(ecb-stealthy-tasks-delay 0.5) + '(ecb-tag-display-function (quote ((default . ecb--semantic-format-tag-uml-prototype)))) + '(ecb-tip-of-the-day nil) + '(ecb-use-speedbar-instead-native-tree-buffer nil) + '(fill-individual-varying-indent t) + '(focus-follows-mouse t) + '(font-lock-support-mode (quote jit-lock-mode)) + '(frame-background-mode nil) + '(fringe-mode nil nil (fringe)) + '(general-holidays (quote ((holiday-fixed 1 1 "New Year's Day") (holiday-fixed 2 14 "Valentine's Day") (holiday-fixed 4 1 "April Fools' Day") (holiday-float 5 0 2 "Mother's Day") (holiday-fixed 10 31 "Halloween")))) + '(global-font-lock-mode t nil (font-lock)) + '(global-hl-line-mode t nil (hl-line)) + '(gnus-audio-au-player "/usr/bin/aplay") + '(gnus-audio-wav-player "/usr/bin/aplay") + '(grep-command "grep --color -nH -e ") + '(gud-tooltip-mode nil) + '(hl-line-face (quote highlight)) + '(indicate-buffer-boundaries (quote left)) + '(indicate-empty-lines t) + '(inhibit-eol-conversion nil) + '(inhibit-startup-screen t) + '(inverse-video nil) + '(jde-run-option-application-args (quote ("10"))) + '(jit-lock-defer-time 0.5) + '(jit-lock-stealth-time nil) + '(make-backup-files nil) + '(mark-holidays-in-calendar t) + '(mouse-1-click-in-non-selected-windows nil) + '(mouse-autoselect-window t) + '(mouse-avoidance-mode (quote jump) nil (avoid)) + '(mouse-sel-mode nil) + '(mouse-wheel-follow-mouse nil) + '(mouse-wheel-mode t nil (mwheel)) + '(msb-mode t nil (msb)) + '(newsticker-url-list-defaults (quote (("Debian Security Advisories" "http://www.debian.org/security/dsa.en.rdf") ("Heise News (german)" "http://www.heise.de/newsticker/heise.rdf")))) + '(org-modules (quote (org-bbdb org-bibtex org-gnus org-info org-jsinfo org-irc org-mew org-mhe org-rmail org-vm org-wl org-mouse org-bookmark org-depend org-eval org-man org-screen org-toc))) + '(pcomplete-autolist t) + '(require-final-newline t) + '(ruler-mode-show-tab-stops nil) + '(savehist-mode t nil (savehist)) + '(scalable-fonts-allowed t) + '(scroll-bar-mode (quote right)) + '(server-mode t) + '(show-trailing-whitespace nil) + '(speedbar-directory-button-trim-method (quote trim)) + '(speedbar-frame-parameters (quote ((minibuffer) (width . 30) (height . 60) (border-width . 0) (menu-bar-lines . 0) (tool-bar-lines . 0) (unsplittable . t) (left-fringe . 0)))) + '(speedbar-frame-plist (quote (minibuffer nil width 30 height 60 border-width 0 internal-border-width 0 unsplittable t default-toolbar-visible-p nil has-modeline-p nil menubar-visible-p nil default-gutter-visible-p nil))) + '(speedbar-indentation-width 2) + '(speedbar-show-unknown-files t) + '(speedbar-track-mouse-flag t) + '(speedbar-use-images nil) + '(speedbar-visiting-tag-hook (quote (speedbar-highlight-one-tag-line speedbar-recenter-to-top))) + '(sql-product (quote mysql)) + '(sql-server "") + '(sql-user "") + '(standard-indent 8) + '(tab-always-indent nil) + '(tab-stop-list (quote (8 16 24 32 40 48 56 64 72 80 88 96 104 112 120))) + '(tab-width 8) + '(tabkey2-mode nil) + '(timeclock-modeline-display t nil (timeclock)) + '(timeclock-relative nil) + '(timeclock-workday 0) + '(tls-process-connection-type t) + '(tool-bar-mode nil nil (tool-bar)) + '(tooltip-delay 0.5) + '(tooltip-frame-parameters (quote ((name . "tooltip") (internal-border-width . 1) (border-width . 1)))) + '(tooltip-use-echo-area nil) + '(tooltip-x-offset 10) + '(tooltip-y-offset 10) + '(transient-mark-mode t) + '(truncate-lines nil) + '(truncate-partial-width-windows nil) + '(uniquify-buffer-name-style (quote post-forward-angle-brackets) nil (uniquify)) + '(user-mail-address "alexander@sulfrian.net") + '(view-calendar-holidays-initially t) + '(view-read-only t) + '(visible-bell nil) + '(whitespace-auto-cleanup nil) + '(whitespace-check-ateol-whitespace nil) + '(whitespace-check-indent-whitespace nil) + '(whitespace-check-leading-whitespace nil) + '(whitespace-check-spacetab-whitespace nil) + '(whitespace-check-trailing-whitespace nil) + '(whitespace-display-in-modeline nil) + '(whitespace-display-spaces-in-color t) + '(whitespace-global-mode nil) + '(whitespace-indent-regexp "^ *\\( \\)+") + '(whitespace-rescan-timer-time 0) + '(windmove-wrap-around nil) + '(x-gtk-whole-detached-tool-bar nil) + '(x-select-enable-clipboard t) + '(x-stretch-cursor nil)) + +(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 "black" :foreground "grey90" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 92 :width normal :family "xos4-terminus")))) + '(border ((t (:background "gray50")))) + '(custom-face-tag ((t (:weight bold)))) + '(custom-group-tag ((((min-colors 88) (class color) (background light)) (:foreground "blue1" :weight bold)))) + '(custom-group-tag-1 ((((min-colors 88) (class color) (background light)) (:foreground "red1" :weight bold :height 1.2)))) + '(custom-variable-tag ((((min-colors 88) (class color) (background light)) (:foreground "blue1" :weight bold)))) + '(fixed-pitch ((t (:family "terminus")))) + '(font-lock-comment-face ((nil (:foreground "green3")))) + '(font-lock-constant-face ((nil (:weight bold)))) + '(font-lock-negation-char-face ((t (:foreground "red" :weight bold)))) + '(font-lock-preprocessor-face ((t (:inherit font-lock-builtin-face :foreground "magenta")))) + '(font-lock-string-face ((nil (:foreground "red2")))) + '(font-lock-warning-face ((t (:foreground "Red" :weight bold)))) + '(fringe ((((class color) (background light)) (:background "gray80")))) + '(highlight ((nil (:background "grey10")))) + '(isearch ((((class color) (min-colors 88) (background dark)) (:background "yellow3" :foreground "black" :weight bold)))) + '(italic ((((supports :underline t)) (:underline t)))) + '(link ((((class color) (min-colors 88) (background dark)) (:foreground "cyan1" :underline t)))) + '(menu ((t nil))) + '(mode-line ((t (:box (:line-width 1 :color "grey75"))))) + '(mode-line-highlight ((((class color) (min-colors 88)) (:box (:line-width 2 :color "grey40" :style released-button))))) + '(mode-line-inactive ((default (:inherit mode-line :foreground "gray60")) (nil nil))) + '(mumamo-background-chunk-major ((((class color) (min-colors 88) (background light)) nil))) + '(mumamo-background-chunk-submode ((((class color) (min-colors 88) (background light)) nil))) + '(newsticker-immortal-item-face ((t (:foreground "blue" :slant italic :weight bold)))) + '(newsticker-new-item-face ((t (:weight bold)))) + '(newsticker-obsolete-item-face ((t (:strike-through t :weight bold)))) + '(newsticker-old-item-face ((t (:foreground "red4" :weight bold)))) + '(region ((((class color) (min-colors 88) (background dark)) (:inverse-video t)))) + '(scroll-bar ((t (:background "black" :foreground "gray25")))) + '(shadow ((((class color grayscale) (min-colors 88) (background dark)) (:foreground "grey50")))) + '(tooltip ((((class color)) (:background "lightyellow" :foreground "black" :height 0.5)))) + '(variable-pitch ((t (:family "terminus")))) + '(vhdl-font-lock-attribute-face ((((class color) (background light)) (:foreground "Orchid")))) + '(vhdl-font-lock-directive-face ((((class color) (background light)) (:foreground "cyan3")))) + '(vhdl-font-lock-prompt-face ((t (:foreground "Red")))) + '(widget-button ((t (:background "grey75" :foreground "black" :box (:line-width 2 :color "grey75" :style released-button))))) + '(widget-button-face ((t (:box (:line-width 2 :color "grey75" :style released-button)))) t) + '(widget-field ((t (:background "grey10" :box (:line-width 1 :color "grey75" :style pressed-button))))) + '(widget-field-face ((t (:background "gray85"))) t) + '(widget-single-line-field-face ((t (:background "gray85"))) t)) + +(global-set-key [mouse-3] 'imenu) + +;; define F1 to display man page of the current word +(global-set-key [(f1)] (lambda () (interactive) (manual-entry (current-word)))) + +(load "/usr/share/emacs/site-lisp/site-gentoo") + +(setq text-mode-hook 'turn-on-auto-fill) +(setq fill-column 72) + +(setq semanticdb-default-save-directory "~/.emacs.d/semantic") +(setq ispell-extra-args '("-Tlatin15" + "-d" "/usr/lib/ispell/german" + "-w" "äöüÄÖÜß")) + +(setq locale-coding-system 'utf-8) +(set-terminal-coding-system 'utf-8) +(set-keyboard-coding-system 'utf-8) +(set-selection-coding-system 'utf-8) +(prefer-coding-system 'utf-8) + +(setq load-path (cons "/usr/share/maxima/5.9.0/emacs" load-path)) +(autoload 'maxima-mode "maxima" "Maxima mode" t) +(autoload 'maxima "maxima" "Maxima interactive" t) +(setq auto-mode-alist (cons '("\.max" . maxima-mode) auto-mode-alist)) +(autoload 'emaxima-mode "emaxima" "EMaxima" t) +(add-hook 'emaxima-mode-hook 'emaxima-mark-file-as-emaxima) + +(setq auto-mode-alist (cons '("README" . text-mode) auto-mode-alist)) +(setq auto-mode-alist (cons '("\\.pas" . delphi-mode) auto-mode-alist)) +(setq compilation-scroll-output t) + +(require 'compile) +(pushnew '("^\\([-a-zA-Z0-9\\.\\/_~]+\\)(\\([0-9]+\\),\\([0-9]+\\))\s\\([Ff]atal:\\|[Nn]ote:\\|[Ww]arning:\\|[Ee]rror:\\)\s\\(.*$\\)" 1 2 3) + compilation-error-regexp-alist) + +(setq cssm-indent-level 4) +(setq cssm-newline-before-closing-bracket t) +(setq cssm-indent-function #'cssm-c-style-indenter) + +; removing annoyances +(setq inhibit-startup-message t) +(setq require-final-newline t) +(fset 'yes-or-no-p 'y-or-n-p) +(setq next-line-add-newlines nil) + +; general settings +(require 'paren) (show-paren-mode t) +(global-font-lock-mode t t) +(setq font-lock-maximum-decoration t) +(follow-mode t) + +(require 'uniquify) +(setq uniquify-buffer-name-style 'reverse) + +; c-mode stuff +(setq indent-tabs-mode t) +(setq tab-width 8) +(setq c-default-style "linux") +(c-set-offset 'arglist-cont-nonempty '(c-lineup-arglist-tabs-only c-lineup-gcc-asm-reg)) + +(add-hook 'c-mode-common-hook + '(lambda () + (turn-on-auto-fill) + (setq fill-column 80) + (setq comment-column 60) + (modify-syntax-entry ?_ "w") ; now '_' is not considered a word-delimiter + (c-set-style "linux") ; set indentation style + )) + +(global-set-key [C-return] 'dabbrev-expand) +(define-key esc-map [C-return] 'dabbrev-completion) + +(global-set-key [f12] 'indent-region) + +; Ctrl(+Shift)+Tab to (un)indent a line with a full tab +(defun indent-region-with-tab () + (interactive) + (save-excursion + (if (< (point) (mark)) (exchange-point-and-mark)) + (let ((save-mark (mark))) + (if (= (point) (line-beginning-position)) (previous-line 1)) + (goto-char (line-beginning-position)) + (while (>= (point) save-mark) + (goto-char (line-beginning-position)) + (insert "\t") + (previous-line 1))))) +(defun unindent-region-with-tab () + (interactive) + (save-excursion + (if (< (point) (mark)) (exchange-point-and-mark)) + (let ((save-mark (mark))) + (if (= (point) (line-beginning-position)) (previous-line 1)) + (goto-char (line-beginning-position)) + (while (>= (point) save-mark) + (goto-char (line-beginning-position)) + (if (= (string-to-char "\t") (char-after (point))) (delete-char 1)) + (previous-line 1))))) +(global-set-key [C-tab] 'indent-region-with-tab) +(global-set-key [C-S-iso-lefttab] 'unindent-region-with-tab) + + +; byte-compile .emacs +(defun autocompile nil + "compile itself if ~/.emacs" + (interactive) + (require 'bytecomp) + (if (string= (buffer-file-name) (expand-file-name (concat default-directory ".emacs"))) + (byte-compile-file (buffer-file-name)))) +(add-hook 'after-save-hook 'autocompile) + +; servermode (to edit files with emacsclient) +(server-start) + +; emacs code browser +(ecb-activate) + -- cgit v1.2.3