viper-vi-global-user-map

viper-vi-global-user-map.el

(require 'picture)
;; do something usefull instead of ringing error bell when trying to move right or down past a newline or end of file
(define-key viper-vi-global-user-map "l" 'picture-forward-column)  	    	
(define-key viper-vi-global-user-map "h" 'picture-backward-column)  	    
(define-key viper-vi-global-user-map "j" 'picture-move-down)        	       	
(define-key viper-vi-global-user-map "k" 'picture-move-up)    	     	
(define-key viper-vi-global-user-map "1" 'delete-other-windows)	     	     
(define-key viper-vi-global-user-map "e" 'picture-end-of-line)
(define-key viper-vi-global-user-map " " 'scroll-up) 	   

(defvar buffer-ring nil)	   						   
(defadvice switch-to-buffer (before buffer-ring-advice ())
"keep track of buffers switched"
(push (current-buffer) buffer-ring)
)
(ad-activate 'switch-to-buffer)
(defun my-last-buffer ()
(interactive)  
(ad-deactivate 'switch-to-buffer)
(switch-to-buffer (pop buffer-ring))
(ad-activate 'switch-to-buffer)
)
(define-key viper-vi-global-user-map [backspace] 'my-last-buffer)    

;; use q<key> instead of C-x<key> for some common operations
;; exmaple:  qf --> find-file
;; example:  qb --> list-buffers
(defvar q-map (make-sparse-keymap))
(define-key q-map "f" 'find-file)
(define-key q-map "b" 'list-buffers)
(define-key q-map "o" 'other-window)
(define-key q-map "s" 'save-buffer)
(define-key q-map "0" 'delete-window)
(define-key q-map "e" 'eval-last-sexp)
(define-key q-map [left] 'previous-buffer)
(define-key q-map [right] 'next-buffer)
(define-key q-map " " 'scroll-down)
(define-key q-map "a" 'show-all)
(define-key q-map "h" 'split-window-horizontally)
(define-key viper-vi-global-user-map "q" q-map)