.emacs.d / .emacs

;;; XEmacs backwards compatibility file
;(setq user-init-file
;      (expand-file-name "init.el"
;			(expand-file-name ".xemacs" "~")))
;(setq custom-file
;      (expand-file-name "custom.el"
;			(expand-file-name ".xemacs" "~")))
;
;(load-file user-init-file)
;(load-file custom-file)

(require 'site-gentoo nil t)

;;;; babcode
; activate loading from ~/.emacs.d
(add-to-list 'load-path "~/.emacs.d")

; custom variables
(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.
 '(bbdb-complete-name-allow-cycling t)
 '(bbdb-file "~/.emacs.d/private/bbdb")
 '(bbdb-gui t)
 '(bbdb-offer-save (quote savenoprompt))
 '(bookmark-default-file "~/.emacs.d/private/.emacs.bmk")
 '(browse-url-browser-function (quote browse-url-kde))
 '(command-frequency-table-file "~/.emacs.d/private/command-frequencies")
 '(cua-prefix-override-inhibit-delay 0.01)
 '(current-language-environment "UTF-8")
 '(default-input-method "rfc1345")
 '(ecb-options-version "2.40")
 '(emms-source-playlist-default-format (quote native))
 '(erc-modules (quote (autoaway autojoin button completion dcc fill irccontrols keep-place list match menu move-to-prompt netsplit networks noncommands notify readonly ring services stamp track)))
 '(erc-nick "Arne")
 '(erc-try-new-nick-p t)
 '(ido-enable-flex-matching t)
 '(ido-max-prospects 0)
 '(ido-max-work-directory-list 50)
 '(ido-use-filename-at-point (quote guess))
 '(ido-use-url-at-point t)
 '(inhibit-startup-screen t)
 '(org-agenda-skip-deadline-if-done t)
 '(org-agenda-skip-scheduled-if-done t)
 '(org-agenda-start-on-weekday nil)
 '(org-agenda-start-with-clockreport-mode nil)
 '(org-extend-today-until 4)
 '(org-remember-templates (quote (("todo" 116 "TODO: %?
" "~/plan.org" nil nil) ("Note" 110 "%?
" nil nil nil))))
 '(org-capture-templates (quote (("t" "A simple task" entry (file+headline "~/.emacs.d/private/org/emacs-plan.org" "Aufgaben Sammeln") "* TODO %?"))))
 '(revert-without-query (quote (".*")))
 '(save-place t nil (saveplace))
 '(scroll-bar-mode (quote right))
 '(tool-bar-mode nil)
 '(type-break-demo-boring-stats nil)
 '(type-break-demo-functions (quote (type-break-demo-life type-break-demo-hanoi)))
 '(type-break-good-rest-interval 120)
 '(type-break-interval 1800)
 '(type-break-mode-line-message-mode t)
 '(type-break-query-function (quote y-or-n-p))
 '(type-break-warning-repeat 150)
 '(uniquify-buffer-name-style (quote forward) nil (uniquify))
 '(wl-summary-default-view (quote sequence))
 '(wl-summary-line-format "%n%T%P%M/%D(%W)%h:%m %t%[%17(%c %f%) %] %s")
 '(wl-thread-insert-opened t)
 '(x-select-enable-clipboard t)
 '(yas/trigger-key "<print>"))

; make sure, we actually have the bookmarks.
(bookmark-load bookmark-default-file t)

(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 (:inherit nil :stipple nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 98 :width normal :foundry "unknown" :family "DejaVu Sans"))))
 '(mode-line ((((type pm w32 ns pc tty)) (:background "gray75" :foreground "black" :box (:line-width -1 :color "grey50" :style released-button))) (((type x)) (:background "gray77" :foreground "black"))))
 '(mode-line-inactive ((default (:inherit mode-line :weight extra-light)) (((class color) (min-colors 88) (background light)) (:foreground "gray30" :weight light)))))

;;; load lisplets: 
;   Small lisp snippets to activate or adapt features or add small stuff.
(add-to-list 'load-path "~/.emacs.d/lisplets")
;; load the babenv
(require 'activate-babenv)

;; JKLI movement.
; (global-set-key "\C-j" 'backward-char)
; (global-set-key "\C-l" 'forward-char)
; (global-set-key "\C-i" 'previous-line)
; (global-set-key "\C-k" 'next-line)

; (global-set-key "\M-j" 'backward-word)
; (global-set-key "\M-l" 'forward-word)

; Within Emacs, <~> at the beginning of a file name is expanded to your HOME directory, so you can always find your .emacs file with C-x C-f ~/.emacs. 
; http://www.gnu.org/software/emacs/windows/Installing-Emacs.html#Installing-Emacs
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.