ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

.emacs.d/init.el

Browse source
This commit is contained in:
Tom Willemsen 2012-12-04 17:41:57 +01:00
parent b6940d55f1
commit ff77b0c0d9
1 changed files with 24 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
.emacs.d/init.el
View file

@ -13,7 +13,14 @@
(add-to-list 'load-path directory)
(let ((default-directory directory))
(normal-top-level-add-subdirs-to-load-path)))
'("/usr/share/emacs/site-lisp" "~/.emacs.d/site-lisp")))
'("/usr/share/emacs/site-lisp" "~/.emacs.d/site-lisp"
"/usr/local/emacs/share/emacs/site-lisp"))
(mapc #'(lambda (directory)
(add-to-list 'load-path directory)
(let ((loaddefs (concat directory "/loaddefs.el")))
(when (file-exists-p loaddefs)
(load loaddefs))))
'("~/var/src/emacs/dispass.el" "~/var/src/emacs/mode-icons")))
(require 'geiser-install)
(require 'iso-transl)
@ -60,26 +67,21 @@
"Face for the supposedly empty line in commit messages."
:group 'local)
(eval-after-load "ebuff-menu"
'(define-key electric-buffer-menu-mode-map
(kbd "C-s") 'isearch-forward))
(eval-after-load "em-term"
'(add-to-list 'eshell-visual-commands
"unison"))
'(add-to-list 'eshell-visual-commands "unison"))
(eval-after-load "emms-source-file"
'(progn
(require 'emms-setup)
(emms-standard)
(require 'emms-player-mpd)
(setq emms-player-mpd-server-name "localhost")
(setq emms-player-mpd-server-port "6600")
(emms-standard)
(add-to-list 'emms-info-functions 'emms-info-mpd)
(add-to-list 'emms-player-list 'emms-player-mpd)
(setq emms-player-mpd-server-name "localhost")
(setq emms-player-mpd-server-port "6600")
(setq emms-player-mpd-music-directory "/mnt/music/mp3")))
(eval-after-load "flymake"
@ -109,8 +111,8 @@
(eval-after-load "jabber"
'(remove-hook 'jabber-alert-presence-hooks 'jabber-presence-echo))
(eval-after-load "mu4e"
'(require 'mu4e-init))
(eval-after-load "newst-treeview"
'(require 'newsticker-init))
(eval-after-load "org"
'(require 'org-init))
@ -211,6 +213,8 @@
"line too long"
"at least two spaces before inline comment"
"trailing whitespace"
"imported but unused"
"Unused import"
"too many blank lines"))))
(setq flymake-log-file-name (expand-file-name "~/.emacs.d/flymake.log"))
(setq flymake-log-level 0)
@ -218,7 +222,6 @@
(eval-when-compile
(regexp-opt '("warning"
"Warning"
"imported but unused"
"redefinition of unused"
"Redefining built-in"
"Redefining name"
@ -290,6 +293,7 @@
(setq window-combination-resize t)
(setq yas-prompt-functions '(yas-ido-prompt))
(add-hook 'after-change-major-mode-hook 'set-current-mode-icon)
(add-hook 'after-save-hook 'oni:after-save-func t)
(add-hook 'before-save-hook 'oni:before-save-func)
(add-hook 'c-mode-hook 'oni:c-mode-func)
@ -376,7 +380,7 @@
(add-to-list
'display-buffer-alist
'("^\\*magit: .*\\*$" . ((display-buffer-same-window . nil))))
'(".*" . ((display-buffer-same-window . nil))))
(add-to-list
'display-buffer-alist
'("^\\*git-project-list\\*$" . ((git-project-show-window . nil))))