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