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-09-25 22:12:45 +02:00
parent 1a767eeab0
commit b2de3d6412
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
.emacs.d/init.el
View file

@ -188,6 +188,13 @@ Argument REGEX will be used to set `outline-regexp' for this buffer."
(interactive) (interactive)
(server-save-buffers-kill-terminal nil)) (server-save-buffers-kill-terminal nil))
(defun oni:compilation-finish-function (buffer str)
"Don't show compilation window if everything went OK."
(unless (string-match-p "exited abnormally" str)
;;(run-at-time 0.5 nil 'delete-windows-on buffer)
(delete-windows-on buffer)
(message "Compilation successful")))
(defun oni:compile-el () (defun oni:compile-el ()
"Compile the current buffer file if it is an .el file." "Compile the current buffer file if it is an .el file."
(let* ((full-file-name (buffer-file-name)) (let* ((full-file-name (buffer-file-name))
@ -1062,6 +1069,9 @@ for easy selection."
(add-to-list 'auto-mode-alist '("^PKGBUILD$" . shell-script-mode)) (add-to-list 'auto-mode-alist '("^PKGBUILD$" . shell-script-mode))
(add-to-list 'auto-mode-alist '("^\\.Xmodmap$" . xmodmap-mode)) (add-to-list 'auto-mode-alist '("^\\.Xmodmap$" . xmodmap-mode))
(add-to-list 'compilation-finish-functions
'oni:compilation-finish-function)
(add-to-list 'custom-theme-load-path (add-to-list 'custom-theme-load-path
(concat custom-theme-directory "/naquadah-theme")) (concat custom-theme-directory "/naquadah-theme"))