Mercurial > dotfiles

changeset 214:2a4efba0fe8b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
emacs: move package bootstrap to its own file
author Augie Fackler <durin42@gmail.com>
date Sat, 13 Feb 2010 20:00:15 -0600
parents 1947b2c08f29
children ca0e1cff654c
files .elisp/settings/00.bootstrap.el .elisp/settings/10.require.el .emacs
diffstat 3 files changed, 26 insertions(+), 29 deletions(-) [+]
line wrap: on
line diff
new file mode 100644
--- /dev/null
+++ b/.elisp/settings/00.bootstrap.el
@@ -0,0 +1,26 @@
+(add-to-list 'load-path (expand-file-name "~/.elisp"))
+(load "package")
+(package-initialize)
+
+(setq package-archives '(("durin42" . "http://home.durin42.com/elpa/")
+                         ("elpa" . "http://tromey.com/elpa/")))
+
+(defun af-bootstrap-packages ()
+  (interactive)
+  (unless package-archive-contents (package-refresh-contents))
+  (dolist (pack '(diff-mode-
+                  doctest-mode
+                  http-twiddle
+                  ipython
+                  nose
+                  ;; disabled until I don't need a modified version
+                  ;; textmate
+                  iedit
+                  ;; from elpa
+                  js2-mode
+                  paredit
+                  yaml-mode))
+    (unless (or (member pack package-activated-list)
+                (functionp pack))
+      (message "Installing %s" (symbol-name pack))
+      (package-install pack))))
--- a/.elisp/settings/10.require.el
+++ b/.elisp/settings/10.require.el
@@ -4,32 +4,6 @@
 (setq ido-enable-flex-matching t)
 (ido-mode t)
 
-(load "package")
-(package-initialize)
-
-(setq package-archives '(("durin42" . "http://home.durin42.com/elpa/")
-                         ("elpa" . "http://tromey.com/elpa/")))
-
-(defun af-bootstrap-packages ()
-  (interactive)
-  (unless package-archive-contents (package-refresh-contents))
-  (dolist (pack '(diff-mode-
-                  doctest-mode
-                  http-twiddle
-                  ipython
-                  nose
-                  ;; disabled until I don't need a modified version
-                  ;; textmate
-                  iedit
-                  ;; from elpa
-                  js2-mode
-                  paredit
-                  yaml-mode))
-    (unless (or (member pack package-activated-list)
-                (functionp pack))
-      (message "Installing %s" (symbol-name pack))
-      (package-install pack))))
-
 (require 'python-mode)
 (require 'ipython)
 (require 'show-wspace)
--- a/.emacs
+++ b/.emacs
@@ -4,10 +4,7 @@
 ;  Dave Anderson: https://ssl.natulte.net/hg/dotfiles/
 ;  Emacs Starter Kit: http://github.com/technomancy/emacs-starter-kit
 
-(add-to-list 'load-path (expand-file-name "~/.elisp"))
-
 ; Start the server so that emacsclient will work
-; TODO: is there a way to *not* start a server if one was already running?
 (server-start)
 
 (let ((settings-files (concat (getenv "HOME") "/.elisp/settings")))