Mercurial > dotfiles

changeset 225:cd77d083902b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge
author Augie Fackler <durin42@gmail.com>
date Mon, 20 Sep 2010 07:36:37 -0500
parents 7ca719e40c58 (current diff) 6aad20d9fcb0 (diff)
children f8a4c55ad070
files
diffstat 2 files changed, 27 insertions(+), 17 deletions(-) [+]
line wrap: on
line diff
--- a/.elisp/settings/00.bootstrap.el
+++ b/.elisp/settings/00.bootstrap.el
@@ -1,3 +1,5 @@
+;; emacs -l .elisp/settings/00.bootstrap.el --batch -f af-bootstrap-packages
+;; Use the above for moving into a new machine
 (add-to-list 'load-path (expand-file-name "~/.elisp"))
 (load "package")
 (package-initialize)
@@ -18,6 +20,7 @@
                   iedit
                   ;; from elpa
                   js2-mode
+                  magit
                   paredit
                   yaml-mode))
     (unless (or (member pack package-activated-list)
--- a/.elisp/settings/50.preferences.el
+++ b/.elisp/settings/50.preferences.el
@@ -29,15 +29,6 @@
 (setq tool-bar-mode nil)
 (tool-bar-mode 0)
 
-;; scrollbars, but on the right, not the left
-(set-scroll-bar-mode 'right)
-
-;; Command is meta in OS X.
-(setq ns-command-modifier (quote meta))
-
-;; Don't popup new frames for opened files
-(setq ns-pop-up-frames nil)
-
 ; cause imenu to always rescan the buffer (for textmate-goto-symbol)
 (setq imenu-auto-rescan t)
 ;; better uniquify from http://metapundit.net/sections/blog/emacs_and_django
@@ -48,16 +39,32 @@
 (setq uniquify-ignore-buffers-re "^\\*")
 (setq hg-outgoing-repository "")
 (setq hg-incoming-repository "")
-; so that Cmd+H won't activate Hide Current
-; App and Cmd+Shift+q won't logout user.
-(setq mac-pass-command-to-system nil)
 
-(cond
- ((eq window-system 'ns) ;; OS X
-  (set-face-attribute 'default nil :height 120))
- (t ;; everywhere else
-  (set-face-attribute 'default nil :height 100)))
+;; Make this a function in case we have to re-run it. I've had weirdness
+;; ensue with daemon mode not always initializing everything the way I want
+;; in new frames.
+(defun af-gui-init ()
+  (interactive)
+  ;; so that Cmd+H won't activate Hide Current
+  ;; App and Cmd+Shift+q won't logout user.
+  (setq mac-pass-command-to-system nil)
+
+  ;; scrollbars, but on the right, not the left
+  (if (window-system) (set-scroll-bar-mode 'right))
+
+  ;; Command is meta in OS X.
+  (setq ns-command-modifier (quote meta))
+
+  ;; Don't popup new frames for opened files
+  (setq ns-pop-up-frames nil)
 
+  (cond
+   ((eq window-system 'ns) ;; OS X
+    (set-face-attribute 'default nil :height 120))
+   (t ;; everywhere else
+    (set-face-attribute 'default nil :height 100)))
+)
+(af-gui-init)
 ;; use y or n instead of yes or no
 (fset 'yes-or-no-p 'y-or-n-p)