Added align-with-spaces require.
--- a/darwin.el Sat Nov 06 21:28:48 2010 -0500
+++ b/darwin.el Mon Nov 29 11:40:31 2010 -0600
@@ -11,4 +11,5 @@
(set-default-font "Menlo-12")
))
-(provide 'darwin)
\ No newline at end of file
+(message "Loaded Darwin settings")
+(provide 'darwin)
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/hoersten-align-with-spaces.el Mon Nov 29 11:40:31 2010 -0600
@@ -0,0 +1,16 @@
+;; ~/.emacs.d/hoersten-align-with-spaces.el
+;; Luke Hoersten <[email protected]>
+
+(global-set-key (kbd "C-c a") 'align-with-spaces)
+(defun align-with-spaces (beg end pattern)
+ "Align selected using only spaces for whitespace."
+ (interactive "r\nsAlign by: ")
+ (let ((indent-tabs-mode nil))
+ (align-string beg end pattern 1)
+ (align-entire beg end)
+ (untabify beg end)
+ (indent-region beg end)
+ (whitespace-cleanup-region beg end)))
+
+(message "Loaded Hoersten align-with-spaces function")
+(provide 'hoersten-align-with-spaces)
--- a/hoersten-c-style.el Sat Nov 06 21:28:48 2010 -0500
+++ b/hoersten-c-style.el Mon Nov 29 11:40:31 2010 -0600
@@ -73,4 +73,5 @@
(add-to-list 'auto-mode-alist '("\\.ipp$" . c++-mode))
(add-to-list 'auto-mode-alist '("\\.inl$" . c++-mode))
+(message "Loaded Hoersten C style")
(provide 'hoersten-c-style)
\ No newline at end of file
--- a/hoersten-pastebin-region.el Sat Nov 06 21:28:48 2010 -0500
+++ b/hoersten-pastebin-region.el Mon Nov 29 11:40:31 2010 -0600
@@ -39,4 +39,5 @@
(insert redirected)
(clipboard-kill-ring-save (point-min) (point-max))))))))))
+(message "Loaded Hoersten pastebin")
(provide 'hoersten-pastebin-region)
--- a/init.el Sat Nov 06 21:28:48 2010 -0500
+++ b/init.el Mon Nov 29 11:40:31 2010 -0600
@@ -2,7 +2,7 @@
;; Luke Hoersten <[email protected]>
;; general
-(add-to-list 'load-path "~/.emacs.d/") ; set default emacs load path
+(add-to-list 'load-path "~/.emacs.d") ; set default emacs load path
(setq-default
ediff-split-window-function 'split-window-horizontally ; diff horizontally
@@ -56,18 +56,6 @@
haskell-mode-hook
emacs-lisp-mode-hook))
-;; use only spaces for alignment
-(global-set-key (kbd "C-c a") 'align-with-spaces)
-(defun align-with-spaces (beg end pattern)
- "Align selected using only spaces for whitespace."
- (interactive "r\nsAlign by: ")
- (let ((indent-tabs-mode nil))
- (align-string beg end pattern 1)
- (align-entire beg end)
- (untabify beg end)
- (indent-region beg end)
- (whitespace-cleanup-region beg end)))
-
;; X stuff
(if window-system
(progn
@@ -94,12 +82,13 @@
;;;;;;;;;;;;; includes & requires ;;;;;;;;;;;;;
;; includes
-(require 'hoersten-pastebin-region) ; send selected text to pastebin
-(require 'hoersten-c-style) ; load c specific lisp
-(require 'vala-mode) ; vala programming language
+(require 'hoersten-align-with-spaces) ; use only spaces for alignment
+(require 'hoersten-pastebin-region) ; send selected text to pastebin
+(require 'hoersten-c-style) ; load c specific lisp
+(require 'vala-mode) ; vala programming language
;; nav mode
-(add-to-list 'load-path "~/.emacs.d/nav/")
+(add-to-list 'load-path "~/.emacs.d/nav")
(require 'nav)
;; unicode
@@ -107,10 +96,11 @@
(global-pretty-mode t)
;; snippets
-(add-to-list 'load-path "~/.emacs.d/yasnippet/")
+(add-to-list 'load-path "~/.emacs.d/yasnippet")
(require 'yasnippet)
(yas/initialize)
-(yas/load-directory "~/.emacs.d/yasnippet/snippets/")
+(yas/load-directory "~/.emacs.d/yasnippet/snippets")
+(setq-default yas/prompt-functions '(yas/ido-prompt yas/dropdown-prompt)) ; use ido for multiple snippets
;; python mode
(add-hook
@@ -129,10 +119,12 @@
(haskell-indent-mode t)
(capitalized-words-mode t)
(haskell-doc-mode t)
- ;; (imenu-add-menubar-index t)
+ (imenu-add-menubar-index t)
(setq
haskell-font-lock-symbols 'unicode
- haskell-indent-offset 3)))
+ haskell-indent-offset 3))
+ t ;; append instead of prepend else haskell-mode overwrites these settings
+ )
;; zencoding html
(require 'zencoding-mode)
--- a/linux.el Sat Nov 06 21:28:48 2010 -0500
+++ b/linux.el Mon Nov 29 11:40:31 2010 -0600
@@ -5,5 +5,5 @@
(progn
(set-default-font "Monospace-10")
))
-
-(provide 'linux)
\ No newline at end of file
+(message "Loaded Linux settings")
+(provide 'linux)