Viper-mode

De Disposition de clavier francophone et ergonomique bépo

Le viper-mode permet d'utiliser les raccourcis les plus importants de Vim sous Emacs. Voici une adaptation pour échanger fonctionnellement les touches clavier bépoc clavier bépot clavier bépos clavier bépor par clavier azertyh clavier azertyj clavier azertyk clavier azertyl et clavier bépoC clavier bépoT clavier bépoS clavier bépoR par clavier azertyH clavier azertyJ clavier azertyK clavier azertyL.

À placer à la fin de votre ~/.emacs :

; bépo-viper
 
(define-key viper-vi-global-user-map "h" 'viper-replace-char)
(define-key viper-vi-global-user-map "H" 'viper-overwrite)
(define-key viper-vi-global-user-map "k" 'viper-substitute)
(define-key viper-vi-global-user-map "K" 'viper-substitute-line)
(define-key viper-vi-global-user-map "j" 'viper-join-lines)
 
(define-key viper-vi-global-user-map "c" 'viper-backward-char)
(define-key viper-vi-global-user-map "t" 'viper-next-line)
(define-key viper-vi-global-user-map "s" 'viper-previous-line)
(define-key viper-vi-global-user-map "r" 'viper-forward-char)
 
(define-key viper-vi-global-user-map "C" 'viper-window-top)
(define-key viper-vi-global-user-map "T" 'pager-page-down)
(define-key viper-vi-global-user-map "S" 'pager-page-up) ; no manual :-(
(define-key viper-vi-global-user-map "R" 'viper-window-bottom)
 
(define-key viper-visual-mode-map "c" 'viper-backward-char)
(define-key viper-visual-mode-map "t" 'viper-next-line)
(define-key viper-visual-mode-map "s" 'viper-previous-line)
(define-key viper-visual-mode-map "r" 'viper-forward-char)