« Viper-mode » : différence entre les versions

De Disposition de clavier bépo
mAucun résumé des modifications
mAucun résumé des modifications
Ligne 1 : Ligne 1 :
Le ''viper-mode'' permet d'utiliser les raccourcis les plus importants de [[Vim]] sous [[Emacs]]. Voici une adaptation pour échanger les touches {{t|c}} {{t|t}} {{t|s}} {{t|r}} par {{t|h}} {{t|j}} {{t|k}} {{t|l}} et {{t|C}} {{t|T}} {{t|S}} {{t|R}} par {{t|H}} {{t|J}} {{t|K}} {{t|L}}.
Le ''viper-mode'' permet d'utiliser les raccourcis les plus importants de [[Vim]] sous [[Emacs]]. Voici une adaptation pour échanger fonctionnellement les touches {{t|c}} {{t|t}} {{t|s}} {{t|r}} par {{ta|h}} {{ta|j}} {{ta|k}} {{ta|l}} et {{t|C}} {{t|T}} {{t|S}} {{t|R}} par {{ta|H}} {{ta|J}} {{ta|K}} {{ta|L}}.


À placer à la fin de votre {{c|~/.emacs}} :
À placer à la fin de votre {{c|~/.emacs}} :

Version du 5 septembre 2009 à 23:18

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)