Add emacs directory

git-svn-id: http://photonzero.com/dotfiles/trunk@54 23f722f6-122a-0410-8cef-c75bd312dd78

.emacs.d/init.el

@@ -0,0 +1,75 @@
+(add-to-list 'load-path "~/.emacs.d")
+(add-to-list 'load-path "~/.emacs.d/auto-complete")
+
+; Requires
+(require 'vimpulse)
+(require 'color-theme)
+(require 'color-theme-autoloads)
+(require 'tabbar)
+;(require 'highlight-symbol)
+(require 'auto-complete-config)
+
+(add-to-list 'ac-dictionary-directories "~/.emacs.d/auto-complete/dict")
+(ac-config-default)
+(setq ac-dwim t)
+(setq ac-expand-on-auto-complete nil)
+(setq ac-use-fuzzy t) 
+;(define-key ac-completing-map "\t" 'ac-fuzzy-complete)
+;(define-key ac-completing-map "\r" nil)
+
+; This is the other Vim-mode. Maybe should delete this..
+;
+;(add-to-list 'load-path "~/.emacs.d/vim-mode")
+;(require 'vim)
+;(vim-mode 1)
+
+; Tabbar settings (Simple groups)
+ (defun tabbar-buffer-groups ()
+   "Return the list of group names the current buffer belongs to.
+ This function is a custom function for tabbar-mode's tabbar-buffer-groups.
+ This function group all buffers into 3 groups:
+ Those Dired, those user buffer, and those emacs buffer.
+ Emacs buffer are those starting with “*”."
+   (list
+    (cond
+     ((string-equal "*" (substring (buffer-name) 0 1))
+      "Emacs Buffer"
+      )
+     ((eq major-mode 'dired-mode)
+      "Dired"
+      )
+     (t
+      "User Buffer"
+      )
+     ))) ;; from Xah Lee
+ (setq tabbar-buffer-groups-function 'tabbar-buffer-groups)
+
+(tabbar-mode)
+
+; Basic frame defaults
+(let ((background-color "#2F2F2F")
+      (foreground-color "LightGrey")
+      (fname "Inconsolata-13")
+      (fheight 45)
+      (fwidth 115))
+     
+  (set-default-font fname)
+  (add-to-list 'default-frame-alist (cons 'font fname))
+;  (set-background-color background-color)
+;  (add-to-list 'default-frame-alist (cons 'background-color background-color))  
+;  (set-foreground-color foreground-color)  
+  (add-to-list 'default-frame-alist (cons 'foreground-color foreground-color))  
+  (add-to-list 'default-frame-alist (cons 'height fheight))  
+  (add-to-list 'default-frame-alist (cons 'width fwidth))  
+)
+(custom-set-variables '(inhibit-startup-screen t))
+(custom-set-faces)
+
+; Run color-theme
+(color-theme-initialize)
+;(require 'color-theme-barak)
+
+(if window-system
+ (color-theme-barak))
+
+;(defun my-emacs-startup-hook () (my-close-scratch)) (add-hook 'emacs-startup-hook 'my-emacs-startup-hook)