Add more vimmy keybindings

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

.emacs.d/ac-comphist.dat

@@ -1,58 +0,0 @@
-((("foo" .
-   [1 0 0])
-  ("color-theme-tty-dark" .
-   [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0])
-  ("color-theme-tangotango" .
-   [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0])
-  ("color-theme-blackboard" .
-   [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1])
-  ("setcdr" .
-   [0 0 0 1 0 0])
-  ("ac-expand-on-auto-complete" .
-   [0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0])
-  ("set-buffer" .
-   [0 0 0 1 0 0 0 0 0 0])
-  ("t" .
-   [1])
-  ("ac-dwim" .
-   [0 0 0 0 0 0 1])
-  ("defun" .
-   [0 0 0 1 0])
-  ("nil" .
-   [2 0 0])
-  ("ac-auto-start" .
-   [0 0 0 0 0 0 0 0 0 0 0 0 1])
-  ("autoload" .
-   [0 0 0 1 0 0 0 0])
-  ("setq" .
-   [2 0 0 1])
-  ("ac-completing-map" .
-   [0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0])
-  ("ac-complete" .
-   [1 0 0 0 0 0 1 0 0 0 0])
-  ("first" .
-   [0 0 0 0 2])
-  ("rest" .
-   [0 0 0 3])
-  ("ac-expand" .
-   [1 0 0 0 0 0 0 0 1])
-  ("auto" .
-   [1 0 0 0])
-  ("require" .
-   [3 0 0 1 0 0 2])
-  ("return" .
-   [0 0 0 1 0 0])
-  ("int" .
-   [4 0 0])
-  ("argc" .
-   [1 0 1 0])
-  ("set-default" .
-   [0 0 0 1 0 0 0 0 0 0 0])
-  (":bold" .
-   [1 0 0 0 0])
-  ("if" .
-   [1 0])
-  ("else" .
-   [2 0 0 0])
-  ("color-theme-barak" .
-   [3 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0])))

.emacs.d/init.el

@@ -1,3 +1,7 @@
+(if (< emacs-major-version 23)
+    (defun characterp (obj) 
+      (and (char-or-string-p obj) (not (stringp obj)))))
+
 (add-to-list 'load-path "~/.emacs.d")
 (add-to-list 'load-path "~/.emacs.d/auto-complete")
 
@@ -14,6 +18,7 @@
 (setq ac-dwim t)
 (setq ac-expand-on-auto-complete nil)
 (setq ac-use-fuzzy t) 
+(setq viper-search-wrap-around t) 
 ;(define-key ac-completing-map "\t" 'ac-fuzzy-complete)
 ;(define-key ac-completing-map "\r" nil)
 
@@ -46,6 +51,13 @@
 
 (tabbar-mode)
 
+(add-to-list 'ex-token-alist '("ls" (list-buffers)))
+(vimpulse-map "gn" 'tabbar-forward-tab)
+(vimpulse-map "gp" 'tabbar-backward-tab)
+(vimpulse-map "gw" 'vimpulse-search-forward-for-symbol-at-point)
+;(define-key viper-insert-global-user-map "\C-d" 'delete-char))
+(add-hook 'window-setup-hook 'delete-other-windows)
+
 ; Basic frame defaults
 (let ((background-color "#2F2F2F")
       (foreground-color "LightGrey")
@@ -69,7 +81,6 @@
 (color-theme-initialize)
 ;(require 'color-theme-barak)
 
-(if window-system
- (color-theme-barak))
+(color-theme-barak)
 
 ;(defun my-emacs-startup-hook () (my-close-scratch)) (add-hook 'emacs-startup-hook 'my-emacs-startup-hook)

.emacs.d/themes/color-theme-barak.el

@@ -3,13 +3,13 @@
   (interactive)
   (color-theme-install
    '(color-theme-barak
-     ((background-color . "#121212")
+     ((background-color . "black")
       (background-mode . dark)
       (border-color . "black")
       (cursor-color . "#A7A7A7")
       (foreground-color . "#E0E0E0")
       (mouse-color . "sienna1"))
-     (default ((t (:background "#121212" :foreground "#E0E0E0"))))
+     (default ((t (:background "black" :foreground "#E0E0E0"))))
      (blue ((t (:foreground "blue"))))
      (bold ((t (:bold t))))
      (bold-italic ((t (:bold t))))