Mercurial > hg > config
comparison .emacs @ 0:f3ab51c79813
adding configuration from https://svn.openplans.org/svn/config_jhammel/
author | k0s <k0scist@gmail.com> |
---|---|
date | Thu, 15 Oct 2009 11:41:26 -0400 |
parents | |
children | 81e89e519980 |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:f3ab51c79813 |
---|---|
1 (server-start) | |
2 (if (boundp 'tool-bar-mode) (tool-bar-mode 0)) | |
3 (setq inhibit-startup-message t) | |
4 (setq make-backup-files nil) | |
5 (put 'downcase-region 'disabled nil) | |
6 (setq truncate-lines nil) | |
7 (setq truncate-partial-width-windows nil) | |
8 (setq use-file-dialog nil) | |
9 (setq python-indent 4) | |
10 (setq python-guess-indent nil) | |
11 (setq-default indent-tabs-mode nil) | |
12 (defface extra-whitespace-face '((t (:background "pale green"))) "Used for tabs and such.") | |
13 | |
14 (autoload 'doctest-mode "doctest-mode" "doctest editing mode." t) | |
15 | |
16 (transient-mark-mode 1) | |
17 | |
18 (put 'upcase-region 'disabled nil) | |
19 ;; Show line-number in the mode line | |
20 (line-number-mode 1) | |
21 | |
22 ;; Show column-number in the mode line | |
23 (column-number-mode 1) | |
24 | |
25 ;; Bind major editing modes to certain file extensions | |
26 (setq auto-mode-alist (cons '("\\.zcml$" . sgml-mode) auto-mode-alist)) | |
27 (setq auto-mode-alist (cons '("\\.pt$" . sgml-mode) auto-mode-alist)) | |
28 (setq auto-mode-alist (cons '("\\.cpt$" . sgml-mode) auto-mode-alist)) | |
29 (setq auto-mode-alist (cons '("\\.cpy$" . python-mode) auto-mode-alist)) | |
30 (setq auto-mode-alist (cons '("\\.vpy$" . python-mode) auto-mode-alist)) | |
31 | |
32 ;; Turn off the status bar and on the mouse if we're not in a window system | |
33 (menu-bar-mode (if window-system 1 -1)) | |
34 (add-hook 'text-mode-hook 'turn-on-auto-fill) | |
35 | |
36 (add-hook 'sgml-mode-hook 'turn-off-auto-fill) | |
37 | |
38 (setq grep-command "grep -liE") | |
39 | |
40 ;; recentf stuff | |
41 (require 'recentf) | |
42 (recentf-mode 1) | |
43 (setq recentf-max-menu-items 25) | |
44 (global-set-key "\C-x\ \C-r" 'recentf-open-files) | |
45 | |
46 ;; full-steam-ahead-and-damn-the-torpedoes | |
47 (defun | |
48 full-steam-ahead-and-damn-the-torpedoes | |
49 (prompt) t) | |
50 (defalias 'y-or-n-p | |
51 'full-steam-ahead-and-damn-the-torpedoes) | |
52 (defalias 'yes-or-no-p | |
53 'full-steam-ahead-and-damn-the-torpedoes) | |
54 | |
55 (require 'uniquify) | |
56 (setq uniquify-buffer-name-style 'post-forward) | |
57 | |
58 ;; wheel mouse | |
59 (global-set-key [mouse-4] 'scroll-down) | |
60 (global-set-key [mouse-5] 'scroll-up) | |
61 | |
62 ;; substring buffer switching mode | |
63 (iswitchb-mode 1) | |
64 | |
65 (global-set-key "\M-g" 'goto-line) | |
66 | |
67 ;; (when (load "flymake" t) | |
68 ;; (defun flymake-pyflakes-init () | |
69 ;; (let* ((temp-file (flymake-init-create-temp-buffer-copy | |
70 ;; 'flymake-create-temp-inplace)) | |
71 ;; (local-file (file-relative-name | |
72 ;; temp-file | |
73 ;; (file-name-directory buffer-file-name)))) | |
74 ;; (list "pyflakes" (list local-file)))) | |
75 | |
76 ;; (add-to-list 'flymake-allowed-file-name-masks | |
77 ;; '("\\.py\\'" flymake-pyflakes-init))) | |
78 | |
79 ;; (add-hook 'find-file-hook 'flymake-find-file-hook) | |
80 (server-start) |