From 197dcc07e729e1df006a8d4c11105dea27ff455e Mon Sep 17 00:00:00 2001 From: Alexander Sulfrian Date: Tue, 24 Apr 2012 23:42:05 +0200 Subject: emacs: externalized custom file, use color-theme --- emacs | 260 +++++------------------------------------------------------------- 1 file changed, 17 insertions(+), 243 deletions(-) (limited to 'emacs') diff --git a/emacs b/emacs index f867911..bb0cbfa 100644 --- a/emacs +++ b/emacs @@ -1,240 +1,21 @@ -(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) - '(ac-auto-start t) - '(ac-dwim t) - '(ac-modes (quote (emacs-lisp-mode lisp-interaction-mode c-mode cc-mode c++-mode java-mode perl-mode cperl-mode python-mode ruby-mode ecmascript-mode javascript-mode js2-mode php-mode css-mode makefile-mode sh-mode fortran-mode f90-mode ada-mode xml-mode sgml-mode delphi-mode))) - '(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) - '(browse-kill-ring-depropertize nil) - '(browse-kill-ring-display-duplicates nil) - '(browse-kill-ring-highlight-current-entry nil) - '(browse-kill-ring-highlight-inserted-item 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)) - '(cua-delete-selection nil) - '(cua-mode t nil (cua-base)) - '(cua-rectangle-mark-key [134217760]) - '(cua-remap-control-v nil) - '(cua-remap-control-z nil) - '(curchg-default-cursor-color "white") - '(curchg-overwrite/read-only-cursor-type (quote hollow)) - '(current-language-environment "English") - '(delphi-case-label-indent 2) - '(delphi-indent-level 2) - '(delphi-tab-always-indents nil) - '(dir-locals-mode t) - '(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 t (double)) - '(ecb-compilation-buffer-names (quote (("*Calculator*") ("*vc*") ("*vc-diff*") ("*Apropos*") ("*Occur*") ("*shell*") ("\\*[cC]ompilation.*\\*" . t) ("\\*i?grep.*\\*" . t) ("*JDEE Compile Server*") ("*Help*") ("\\*.*[Cc]ompletions\\*" . t) ("*Backtrace*") ("*Compile-log*") ("*bsh*") ("*Messages*")))) - '(ecb-compile-window-height 6) - '(ecb-compile-window-temporally-enlarge (quote both)) - '(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.40") - '(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") ("/home/alex/projects/todolist" "todolist")))) - '(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) - '(etags-table-search-up-depth 10) - '(fill-individual-varying-indent t) - '(flyspell-default-dictionary "english") - '(flyspell-delay 1) - '(flyspell-duplicate-distance -1) - '(flyspell-issue-message-flag nil) - '(flyspell-mark-duplications-flag nil) - '(flyspell-use-meta-tab t) - '(focus-follows-mouse t) - '(font-lock-support-mode (quote jit-lock-mode)) - '(frame-background-mode nil) - '(fringe-mode nil nil (fringe)) - '(global-auto-complete-mode t) - '(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)) - '(holiday-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")))) - '(indicate-buffer-boundaries (quote left)) - '(indicate-empty-lines t) - '(inhibit-eol-conversion nil) - '(inhibit-startup-screen t) - '(inverse-video nil) - '(ispell-extra-args nil) - '(ispell-program-name "/usr/bin/ispell") - '(ispell-silently-savep t) - '(ispell-use-framepop-p t) - '(jde-run-option-application-args (quote ("10"))) - '(jit-lock-chunk-size 1024) - '(jit-lock-context-time 0.1) - '(jit-lock-defer-time 0.1) - '(jit-lock-stealth-nice 0.1) - '(jit-lock-stealth-time nil) - '(linum-format (lambda (line) (propertize (format (let ((w (length (number-to-string (count-lines (point-min) (point-max)))))) (concat " %" (number-to-string w) "d ")) line) (quote face) (quote linum)))) - '(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)) - '(scroll-conservatively 0) - '(scroll-down-aggressively nil) - '(scroll-margin 0) - '(scroll-preserve-screen-position t) - '(scroll-step 0) - '(scroll-up-aggressively nil) - '(show-paren-mode t) - '(show-trailing-whitespace t) - '(sieve-manage-default-user "alexander@sulfrian.net") - '(sml-modeline-borders (quote ("" . " "))) - '(sml-modeline-len 12) - '(sml-modeline-numbers (quote percentage)) - '(smooth-scroll-margin 2) - '(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-bar-mode -1) - '(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) - '(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) - '(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) - '(winring-show-names t) - '(x-gtk-whole-detached-tool-bar nil) - '(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 120 :width normal :foundry "xos4" :family "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)))) - '(linum ((t (:background "gray10" :foreground "gray50" :box nil :overline nil :underline nil :slant normal :weight normal :height 0.75 :width normal)))) - '(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")))) - '(sml-modeline-end-face ((t (:inherit modeline)))) - '(sml-modeline-vis-face ((t (:background "gray30")))) - '(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)) +;; -*- self-compile-mode: t -*- +(setq custom-file "~/.emacs.d/emacs-custom.el") +(load custom-file) + +;; load-path anpassen +(let* ((my-lisp-dir "~/.emacs.d/lisp") + (default-directory my-lisp-dir) + (orig-load-path load-path)) + (setq load-path (cons my-lisp-dir nil)) + (normal-top-level-add-subdirs-to-load-path) + (nconc load-path orig-load-path)) + +;; load own color theme +(require 'color-themes-alex) (if (not window-system) - (custom-set-faces - '(linum ((t (:background "black" :foreground "white" :box nil :overline nil :underline nil :slant normal :weight normal :height 0.75 :width normal)))) - '(region ((nil (:inverse-video t)))))) + (color-theme-alex-console) + (color-theme-alex)) (global-set-key [mouse-3] 'imenu) @@ -254,13 +35,6 @@ (set-selection-coding-system 'utf-8) (prefer-coding-system 'utf-8) -; load-path anpassen -(let* ((my-lisp-dir "~/.emacs.d/lisp") - (default-directory my-lisp-dir) - (orig-load-path load-path)) - (setq load-path (cons my-lisp-dir nil)) - (normal-top-level-add-subdirs-to-load-path) - (nconc load-path orig-load-path)) ; fix keys for urxvt (if (not window-system) @@ -558,4 +332,4 @@ (setq deft-extension "org" deft-directory "~/.org/deft/" deft-text-mode 'org-mode) - (global-set-key (kbd "") 'deft)) \ No newline at end of file + (global-set-key (kbd "") 'deft)) -- cgit v1.2.3