« Viper-mode » : différence entre les versions
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 | 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}}. | ||
Voici une adaptation pour échanger les | |||
À placer à la fin de votre .emacs: | À placer à la fin de votre {{c|~/.emacs}} : | ||
<source lang="lisp"> | <source lang="lisp"> | ||
; bépo-viper | |||
(define-key viper-vi-global-user-map "h" 'viper-replace-char) | (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 "H" 'viper-overwrite) | ||
| Ligne 21 : | Ligne 21 : | ||
(define-key viper-vi-global-user-map "S" 'pager-page-up) ; no manual :-( | (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-vi-global-user-map "R" 'viper-window-bottom) | ||
(define-key viper-visual-mode-map "c" 'viper-backward-char) | (define-key viper-visual-mode-map "c" 'viper-backward-char) | ||
| Ligne 27 : | Ligne 26 : | ||
(define-key viper-visual-mode-map "s" 'viper-previous-line) | (define-key viper-visual-mode-map "s" 'viper-previous-line) | ||
(define-key viper-visual-mode-map "r" 'viper-forward-char) | (define-key viper-visual-mode-map "r" 'viper-forward-char) | ||
</source> | </source> | ||
Version du 5 septembre 2009 à 22:17
Le viper-mode permet d'utiliser les raccourcis les plus importants de Vim sous Emacs. Voici une adaptation pour échanger les touches clavier bépoc clavier bépot clavier bépos clavier bépor par clavier bépoh clavier bépoj clavier bépok clavier bépol et clavier bépoC clavier bépoT clavier bépoS clavier bépoR par clavier bépoH clavier bépoJ clavier bépoK clavier bépoL.
À 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)