|
0
|
1 ;; Augie Fackler's .emacs file |
|
|
2 ; Places I've stolen from: |
|
|
3 ; Karl Fogel: http://svn.red-bean.com/repos/kfogel/trunk |
|
|
4 ; Dave Anderson: |
|
|
5 |
|
|
6 (setq load-path (cons (expand-file-name "~/.elisp") load-path)) |
|
|
7 ; Better buffer switching and file loading (load first in case we need the |
|
|
8 ; * Messages * buffer) |
|
|
9 (require 'ido) |
|
|
10 (ido-mode t) |
|
|
11 |
|
|
12 (require 'show-wspace) |
|
|
13 (require 'doctest-mode) |
|
|
14 |
|
|
15 ; Start the server so that emacsclient will work |
|
|
16 ; TODO: is there a way to *not* start a server if one was already running? |
|
|
17 (server-start) |
|
|
18 |
|
|
19 ; All lines should end in a newline |
|
|
20 (setq require-final-newline t) |
|
|
21 |
|
|
22 ; disable tabs |
|
|
23 (setq tab-width 4) |
|
|
24 (setq-default indent-tabs-mode nil) |
|
|
25 |
|
|
26 (defun af-python-mode-hook () |
|
|
27 ; highlight tabs in Python |
|
|
28 (make-variable-buffer-local 'font-lock-mode-hook) |
|
|
29 (add-hook 'font-lock-mode-hook 'show-ws-highlight-tabs) |
|
|
30 (make-variable-buffer-local 'python-indent) |
|
|
31 (if (string-match "melange" buffer-file-name) |
|
|
32 (set-variable 'python-indent 2)) |
|
|
33 ) |
|
|
34 (add-hook 'python-mode-hook 'af-python-mode-hook) |
|
|
35 |
|
|
36 ;;pymacs |
|
|
37 (setenv "PYTHONPATH" (concat (getenv "HOME") "/unixSoft/lib/python")) |
|
|
38 (autoload 'pymacs-apply "pymacs") |
|
|
39 (autoload 'pymacs-call "pymacs") |
|
|
40 (autoload 'pymacs-eval "pymacs" nil t) |
|
|
41 (autoload 'pymacs-exec "pymacs" nil t) |
|
|
42 (autoload 'pymacs-load "pymacs" nil t) |
|
|
43 (eval-after-load "pymacs" |
|
|
44 '(add-to-list 'pymacs-load-path "~/unixSoft/lib/python")) |
|
|
45 ;(pymacs-load "ropemacs" "rope-") |
|
|
46 ;(setq ropemacs-enable-autoimport t) |
|
|
47 |
|
|
48 ; text-mode tries to use M-s for something other than my save shortcut. |
|
|
49 ; That's evil. Stop it from doing that. |
|
|
50 (add-hook 'text-mode-hook '(lambda () |
|
|
51 (define-key text-mode-map "\M-s" |
|
|
52 'save-buffer))) |
|
|
53 |
|
|
54 ; Cleanup whitespace before saves. |
|
|
55 (add-hook 'before-save-hook '(lambda () |
|
|
56 (whitespace-cleanup))) |
|
|
57 |
|
|
58 ; Disable that startup screen |
|
|
59 (setq inhibit-startup-message t) |
|
|
60 |
|
|
61 ; Basically everything I do is in version control, stop saving backup files |
|
|
62 (setq make-backup-files nil) |
|
|
63 |
|
|
64 ; Set some pretty colors that are gentler on my eyes |
|
|
65 (setq default-frame-alist |
|
|
66 '((width . 80) |
|
|
67 (cursor-color . "white") |
|
|
68 (cursor-type . box) |
|
|
69 (foreground-color . "white") |
|
|
70 (background-color . "black") |
|
|
71 ) |
|
|
72 ) |
|
|
73 |
|
|
74 ;; Desktop mode to remember buffers |
|
|
75 (load "desktop") |
|
|
76 (setq desktop-enable t) |
|
|
77 |
|
|
78 ;; Automatically revert unedited files that change on the underlying |
|
|
79 ;; system. |
|
|
80 (global-auto-revert-mode) |
|
|
81 |
|
|
82 ;; Key Bindings |
|
|
83 ; M-backspace kills the current buffer |
|
|
84 (global-set-key [(meta backspace)] 'kill-this-buffer) |
|
|
85 ; Save early and often, with only one keystroke |
|
|
86 (global-set-key [(meta s)] 'save-buffer) |
|
|
87 ; Typing tab is for lesser editors, make hitting return do that |
|
|
88 (global-set-key "\C-m" 'newline-and-indent) |
