From 452eb1d2baf25f353b72cb25e137d2d71be8ecb6 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Sun, 19 Jan 2014 13:15:34 +0900
Subject: [PATCH] small fix of my-auto-install-package

---
 emacs.el | 36 +++++++++++++++++++++---------------
 1 file changed, 21 insertions(+), 15 deletions(-)

diff --git a/emacs.el b/emacs.el
index f4a7e91..102b513 100644
--- a/emacs.el
+++ b/emacs.el
@@ -81,6 +81,18 @@ IF OK-IF-ALREADY-EXISTS is true force download."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; package
 
+(defvar my-package-list nil
+  "Package list just for me.")
+(setq my-package-list
+      '(
+        markdown-mode
+        yaml-mode
+        ;; ack
+        color-moccur
+        gtags
+        )
+)
+
 (when (require 'package nil t)
   (add-to-list 'package-archives
                '("ELPA" . "http://tromey.com/elpa/"))
@@ -91,22 +103,16 @@ IF OK-IF-ALREADY-EXISTS is true force download."
                '("marmalade" . "http://marmalade-repo.org/packages/"))
   (package-initialize)
   ;; (package-refresh-contents)
-  )
-
-(defun my-auto-install-package ()
-  "Install packages semi-automatically."
-  (interactive)
-  (mapc (lambda (pkg)
-          (or (package-installed-p pkg)
-              (locate-library (symbol-name pkg))
-              (package-install pkg)))
-        '(
-          markdown-mode
-          yaml-mode
-          ;; ack
-          color-moccur
-          )))
 
+  (defun my-auto-install-package ()
+    "Install packages semi-automatically."
+    (interactive)
+    (mapc (lambda (pkg)
+            (or (package-installed-p pkg)
+                (locate-library (symbol-name pkg))
+                (package-install pkg)))
+          my-package-list))
+  )
 
 ;; (lazy-load-eval 'sudoku)