annotate .elisp/settings/50.preferences.el @ 221:6aad20d9fcb0

emacs gui: move gui initialization code to a function Given the weirdness observed in gui init with daemon mode, this should make life with daemon mode easier.
author Augie Fackler <durin42@gmail.com>
date Tue, 07 Sep 2010 19:33:23 -0500
parents e4842709368a
children e742cf5a748c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
77
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1 ;; All lines should end in a newline
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
2 (setq require-final-newline t)
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
3
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
4 ;; disable tabs
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
5 (setq tab-width 4)
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
6 (setq-default indent-tabs-mode nil)
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
7
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
8 ;; Cleanup whitespace before saves.
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
9 (add-hook 'before-save-hook '(lambda ()
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
10 (if af-cleanup-whitespace (whitespace-cleanup))))
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
11
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
12 ;; Disable that startup screen
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
13 (setq inhibit-startup-message t)
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
14
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
15 ;; Basically everything I do is in version control, stop saving backup files
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
16 (setq make-backup-files nil)
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
17
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
18 ; always highlight matching paren
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
19 (show-paren-mode 1)
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
20
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
21 ;; Automatically revert unedited files that change on the underlying
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
22 ;; system.
45d7441d0cf2 Modularize .emacs
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
23 (global-auto-revert-mode)
84
f013f40e7b63 Import latest nosemacs, set nose to output dots instead of verbose output.
Augie Fackler <durin42@gmail.com>
parents: 77
diff changeset
24
f013f40e7b63 Import latest nosemacs, set nose to output dots instead of verbose output.
Augie Fackler <durin42@gmail.com>
parents: 77
diff changeset
25 ;; I like dots in my nose output
97
5f7b673008b5 Disable toolbar, really use dots.
Augie Fackler <durin42@gmail.com>
parents: 84
diff changeset
26 (setq nose-use-verbose nil)
5f7b673008b5 Disable toolbar, really use dots.
Augie Fackler <durin42@gmail.com>
parents: 84
diff changeset
27
5f7b673008b5 Disable toolbar, really use dots.
Augie Fackler <durin42@gmail.com>
parents: 84
diff changeset
28 ;; no toolbar
114
d4845549ed7c No toolbar, but mean it this time.
Augie Fackler <durin42@gmail.com>
parents: 106
diff changeset
29 (setq tool-bar-mode nil)
165
a8e5d4b0913d emacs: Really hide the toolbar.
Augie Fackler <durin42@gmail.com>
parents: 161
diff changeset
30 (tool-bar-mode 0)
105
11fa0420b392 New settings for emacs 23 nightlies.
Augie Fackler <durin42@gmail.com>
parents: 97
diff changeset
31
151
bf6b5a0dc1f3 .elisp: Make textmate-goto-symbol always recompute function locations.
Augie Fackler <durin42@gmail.com>
parents: 139
diff changeset
32 ; cause imenu to always rescan the buffer (for textmate-goto-symbol)
bf6b5a0dc1f3 .elisp: Make textmate-goto-symbol always recompute function locations.
Augie Fackler <durin42@gmail.com>
parents: 139
diff changeset
33 (setq imenu-auto-rescan t)
106
398b9c3a3a0b Better buffer name uniquify rules.
Augie Fackler <durin42@gmail.com>
parents: 105
diff changeset
34 ;; better uniquify from http://metapundit.net/sections/blog/emacs_and_django
398b9c3a3a0b Better buffer name uniquify rules.
Augie Fackler <durin42@gmail.com>
parents: 105
diff changeset
35 (require 'uniquify)
398b9c3a3a0b Better buffer name uniquify rules.
Augie Fackler <durin42@gmail.com>
parents: 105
diff changeset
36 (setq uniquify-buffer-name-style 'reverse)
398b9c3a3a0b Better buffer name uniquify rules.
Augie Fackler <durin42@gmail.com>
parents: 105
diff changeset
37 (setq uniquify-separator "/")
398b9c3a3a0b Better buffer name uniquify rules.
Augie Fackler <durin42@gmail.com>
parents: 105
diff changeset
38 (setq uniquify-after-kill-buffer-p t)
398b9c3a3a0b Better buffer name uniquify rules.
Augie Fackler <durin42@gmail.com>
parents: 105
diff changeset
39 (setq uniquify-ignore-buffers-re "^\\*")
123
b2a07050b430 Allow mercurial.el to default to default or default-push as needed.
Augie Fackler <durin42@gmail.com>
parents: 114
diff changeset
40 (setq hg-outgoing-repository "")
b2a07050b430 Allow mercurial.el to default to default or default-push as needed.
Augie Fackler <durin42@gmail.com>
parents: 114
diff changeset
41 (setq hg-incoming-repository "")
154
b67c5a3b98f3 emacs preferences: set a text height so linux doesn't get ideas.
Augie Fackler <durin42@gmail.com>
parents: 139
diff changeset
42
221
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
43 ;; Make this a function in case we have to re-run it. I've had weirdness
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
44 ;; ensue with daemon mode not always initializing everything the way I want
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
45 ;; in new frames.
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
46 (defun af-gui-init ()
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
47 (interactive)
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
48 ;; so that Cmd+H won't activate Hide Current
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
49 ;; App and Cmd+Shift+q won't logout user.
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
50 (setq mac-pass-command-to-system nil)
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
51
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
52 ;; scrollbars, but on the right, not the left
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
53 (if (window-system) (set-scroll-bar-mode 'right))
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
54
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
55 ;; Command is meta in OS X.
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
56 (setq ns-command-modifier (quote meta))
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
57
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
58 ;; Don't popup new frames for opened files
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
59 (setq ns-pop-up-frames nil)
159
362d19c732a8 preferences: use y-or-n-p instead of yes-or-no-p
Augie Fackler <durin42@gmail.com>
parents: 154
diff changeset
60
221
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
61 (cond
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
62 ((eq window-system 'ns) ;; OS X
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
63 (set-face-attribute 'default nil :height 120))
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
64 (t ;; everywhere else
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
65 (set-face-attribute 'default nil :height 100)))
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
66 )
6aad20d9fcb0 emacs gui: move gui initialization code to a function
Augie Fackler <durin42@gmail.com>
parents: 217
diff changeset
67 (af-gui-init)
159
362d19c732a8 preferences: use y-or-n-p instead of yes-or-no-p
Augie Fackler <durin42@gmail.com>
parents: 154
diff changeset
68 ;; use y or n instead of yes or no
362d19c732a8 preferences: use y-or-n-p instead of yes-or-no-p
Augie Fackler <durin42@gmail.com>
parents: 154
diff changeset
69 (fset 'yes-or-no-p 'y-or-n-p)
193
0ab568ab2b1b emacs: better magit diff faces
Augie Fackler <durin42@gmail.com>
parents: 173
diff changeset
70
217
e4842709368a emacs: move colors to their own file and migrate to whitespace from wspace
Augie Fackler <durin42@gmail.com>
parents: 194
diff changeset
71 ;; whitespace detection
e4842709368a emacs: move colors to their own file and migrate to whitespace from wspace
Augie Fackler <durin42@gmail.com>
parents: 194
diff changeset
72 (setq whitespace-style '(trailing tabs lines-tail indentation trailing empty))
e4842709368a emacs: move colors to their own file and migrate to whitespace from wspace
Augie Fackler <durin42@gmail.com>
parents: 194
diff changeset
73 (global-whitespace-mode 1)