rendered paste body;; Load site-wide files
(load "/usr/share/emacs/site-lisp/site-gentoo.el")
;; Load color theme
(load-library "~/.emacs.d/life-color-theme.elc")
(life-color-theme)
;; Load DVC (Distributed Version Control) library
(load-file "~/.emacs.d/dvc/dvc-load.elc")
;(add-to-list 'load-path "~/.emacs.d/dvc/++build")
;(require 'dvc-autoloads)
;; Load Bongo and related stuff
(add-to-list 'load-path "~/.emacs.d/bongo")
(autoload 'bongo "bongo" "bongo" t)
(load-library "~/.emacs.d/bongo/lastfm-submit.elc")
;; Load CEDET stuff
(add-to-list 'load-path "~/.emacs.d/cedet")
(load-file "~/.emacs.d/cedet/common/cedet.elc")
;; Plug spam-filtering for Gnus
(require 'spam)
;; Customizations for CC Mode.
(defun my-make-CR-do-indent ()
(define-key c-mode-base-map "\C-m" 'c-context-line-break))
(add-hook 'c-initialization-hook 'my-make-CR-do-indent)
(defun my-c-mode-common-hook ()
(c-toggle-hungry-state 1)
(c-toggle-electric-state 1)
(c-toggle-auto-newline 1)
)
(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
;; Pretty lambda
(defun pretty-lambdas ()
(font-lock-add-keywords
nil `(("\\(lambda\\>\\)"
(0 (progn (compose-region (match-beginning 1) (match-end 1)
,(make-char 'greek-iso8859-7 107))
nil))))))
(add-hook 'lisp-mode-hook 'pretty-lambdas)
(add-hook 'emacs-lisp-mode-hook 'pretty-lambdas)
(add-hook 'python-mode-hook 'pretty-lambdas)
;; Org-mode settings
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
(define-key global-map "\C-cl" 'org-store-link)
(define-key global-map "\C-ca" 'org-agenda)
(add-hook 'org-mode-hook 'turn-on-auto-fill)
;; Use nxml-mode instead of sgml, xml or html mode.
(mapc
(lambda (pair)
(if (or (eq (cdr pair) 'xml-mode)
(eq (cdr pair) 'sgml-mode)
(eq (cdr pair) 'html-mode))
(setcdr pair 'nxml-mode)))
magic-mode-alist)
(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.
'(bongo-enabled-backends (quote (vlc ogg123 timidity)))
'(bongo-global-lastfm-mode t)
'(bongo-header-line-mode nil)
'(bongo-mode-line-indicator-mode t)
'(bongo-player-started-hook (quote (bongo-show bongo-random-playback-mode)))
'(browse-url-browser-function (quote w3m-browse-url))
'(c-hanging-semi&comma-criteria (quote set-from-style))
'(c-syntactic-indentation t)
'(calendar-week-start-day 1)
'(canlock-password "(long hash stripped)")
'(completion-on-separator-character t)
'(delphi-case-label-indent 2)
'(delphi-compound-block-indent 2)
'(delphi-indent-level 2)
'(dired-recursive-deletes (quote top))
'(erc-autoaway-message "Autoaway after %i seconds of idletime")
'(erc-autoaway-mode t)
'(erc-nick "dzhus")
'(erc-nick-uniquifier "")
'(erc-user-full-name "Dmitry Dzhus")
'(global-semantic-decoration-mode t nil (semantic-decorate-mode))
'(gnus-before-startup-hook (quote (spam-initialize)))
'(gnus-default-charset (quote utf-8))
'(gnus-directory "~/mail")
'(gnus-group-line-format "%L %p %4U%4y%4T:%B%G %O
")
'(gnus-group-mode-hook (quote (gnus-topic-mode gnus-agent-mode)))
'(gnus-group-prepare-hook nil)
'(gnus-group-update-group-hook (quote (gnus-topic-mode)))
'(gnus-load-hook nil)
'(gnus-mailing-list-groups "gmane.*")
'(gnus-play-startup-jingle t)
'(gnus-secondary-select-methods (quote ((nnimap "mail.sphinx.net.ru" (nnimap-authenticator login) (nnimap-expunge-on-close never) (nnimap-authinfo-file "~/.authinfo")))))
'(gnus-select-method (quote (nntp "news.gmane.org")))
'(gnus-spam-newsgroup-contents (quote (("spam" gnus-group-spam-classification-spam))))
'(gnus-spam-process-destinations (quote (("nnimap:mail.sphinx.net.ru+spam" ""))))
'(gnus-spam-process-newsgroups (quote (("INBOX" ((spam spam-use-bogofilter) (ham spam-use-bogofilter))))))
'(gnus-use-full-window nil)
'(gnus-user-agent (quote (gnus emacs type codename)))
'(indent-tabs-mode nil)
'(ispell-highlight-face (quote flyspell-incorrect))
'(iswitchb-mode t)
'(jabber-history-enable-rotation nil)
'(jabber-history-enabled t)
'(jabber-history-size-limit 4096)
'(jabber-muc-autojoin nil)
'(jabber-nickname "Sphinx")
'(jabber-password "password")
'(jabber-roster-buffer "*jabber*")
'(jabber-roster-line-format " %c %-25n %u %S
")
'(jabber-server "jabber.corbina.ru")
'(jabber-use-global-history nil)
'(jabber-username "Sphinx")
'(longlines-show-hard-newlines t)
'(longlines-wrap-follows-window-size t)
'(make-backup-files nil)
'(message-directory "~/mail/")
'(message-send-mail-function (quote smtpmail-send-it))
'(nnimap-dont-close t)
'(nnimap-split-download-body t)
'(nnimap-split-fancy (quote (| (: spam-split) "INBOX")))
'(nnimap-split-inbox (quote ("INBOX")))
'(nnimap-split-rule (quote nnimap-split-fancy))
'(org-agenda-files "~/org/.agenda_files")
'(org-agenda-restore-windows-after-quit t)
'(org-export-default-language "ru")
'(org-fontify-done-headline t)
'(org-log-done t)
'(org-lowest-priority 68)
'(python-guess-indent nil)
'(scheme-mit-dialect nil)
'(scheme-program-name "guile")
'(semantic-imenu-summary-function (quote semantic-format-tag-abbreviate))
'(semantic-which-function-use-color t)
'(semanticdb-default-save-directory "~/.emacs.d/.semantic-cache")
'(smiley-regexp-alist nil)
'(smtpmail-smtp-server "mail.sphinx.net.ru")
'(spam-bogofilter-database-directory nil)
'(spam-use-bogofilter t)
'(standard-indent 2)
'(text-mode-hook (quote (turn-on-auto-fill)))
'(tool-bar-mode nil)
'(tooltip-delay 0.4)
'(user-full-name "Dmitry Dzhus")
'(user-mail-address "mail@sphinx.net.ru")
'(volume-amixer-channels (quote ("Line" "PCM")))
'(volume-amixer-default-channel "PCM"))
(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 "#e5e5e5" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :family "Dejavu Sans Mono"))))
'(bold ((t (:weight bold))))
'(fixed-pitch ((t (:family "courier new"))))
'(jabber-chat-prompt-system ((t (:foreground "darkgreen" :weight bold))))
'(jabber-roster-user-away ((t (:foreground "khaki4" :slant italic :weight normal))))
'(jabber-roster-user-chatty ((t (:foreground "limegreen" :slant normal :weight bold))))
'(jabber-roster-user-dnd ((t (:foreground "darkred" :slant italic :weight normal))))
'(jabber-roster-user-error ((t (:foreground "red" :slant italic :weight light))))
'(jabber-roster-user-online ((t (:foreground "forestgreen" :slant normal :weight bold))))
'(variable-pitch ((t nil))))