blob: cf19d73039c16809fabf6747bc25db42cf8ab074 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
;; ~/.emacs.d/init.el (~/.emacs)
;; Luke Hoersten <[email protected]>
;; general
(add-to-list 'load-path "~/.emacs.d/") ; set default emacs load path
(setq-default
ediff-split-window-function 'split-window-horizontally ; diff horizontally
x-select-enable-clipboard t ; paste from X buffer
inhibit-splash-screen t ; disable splash screen
truncate-lines t ; truncate, not wrap, lines
indent-tabs-mode nil) ; mouse hover variables
(put 'set-goal-column 'disabled nil) ; enable goal column setting
(put 'narrow-to-region 'disabled nil) ; enable hiding
(menu-bar-mode nil) ; remove menu bar
(display-time-mode t) ; show clock
(column-number-mode t) ; show column numbers
(delete-selection-mode t) ; replace highlighted text
(windmove-default-keybindings) ; move between windows with shift-arrow
(ido-mode t) ; file/buffer selector
(setq-default ido-enable-flex-matching t) ; fuzzy matching for ido mode
(add-hook 'text-mode-hook 'flyspell-mode t) ; spellcheck text
(add-hook 'text-mode-hook 'turn-on-aut-fill) ; autofill text
;; whitespace
(global-whitespace-mode t) ; show whitespace
(add-hook 'before-save-hook 'whitespace-cleanup) ; cleanup whitespace on exit
(setq-default
whitespace-line-column 120 ; column width
whitespace-style ; whitespace elements to show
'(tabs tab-mark trailing lines-tail
space-before-tab indentation empty))
;; coding
(which-func-mode t) ; show current function
(show-paren-mode t) ; show matching paren
(transient-mark-mode t) ; show highlighting
(global-font-lock-mode t) ; syntax highlighting
(global-set-key (kbd "C-c c") 'compile) ; compile
(global-set-key (kbd "C-c r") 'recompile) ; recompile
;; includes
(require 'hoersten-pastebin-region) ; send selected text to pastebin
(require 'mercurial) ; load mercurial mode
(require 'nav) ; load nav bar
(require 'hoersten-c-style) ; load c specific lisp
;; unicode
(require 'pretty-mode)
(global-pretty-mode t)
(setq haskell-font-lock-symbols 'unicode)
;; snippets
(require 'yasnippet)
(yas/initialize)
(yas/load-directory "~/.emacs.d/snippets/")
;; zencoding html
(require 'zencoding-mode)
(add-hook 'sgml-mode-hook 'zencoding-mode) ; Auto-start on any markup modes
;; unique buffer names with dirs
(require 'uniquify)
(setq
uniquify-buffer-name-style 'post-forward
uniquify-separator ":")
;; shell
(global-set-key (kbd "C-c s") 'shell) ; start shell
(ansi-color-for-comint-mode-on) ; color in shell buffer
(setq-default
comint-scroll-to-bottom-on-input t ; only type on prompt
comint-scroll-show-maximum-output t) ; place text at bottom
;; org mode
(add-hook
'org-mode-hook
'(lambda ()
(local-set-key (kbd "M-p") 'org-move-item-up)
(local-set-key (kbd "M-S-p") 'org-move-subtree-up)
(local-set-key (kbd "M-n") 'org-move-item-down)
(local-set-key (kbd "M-S-n") 'org-move-subtree-down)))
;; line numbers
;;(global-linum-mode t)
(mapc
(lambda (x)
(add-hook x 'linum-mode))
'(text-mode-hook
c-mode-common-hook
python-mode-hook
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
(tool-bar-mode nil) ; remove tool bar
(scroll-bar-mode nil) ; remove scroll bar
(visual-line-mode t) ; word wrap break on whitespace
(set-default-font "Monospace-10")
;; twilight theme
(require 'color-theme)
(load "color-theme-twilight")
(color-theme-twilight)
(global-hl-line-mode t)))
|
