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

De Disposition de clavier bépo
(Page créée avec « Le viper-mode permet d'utiliser les raccourcis les plus importants de vim sous emacs. Voici une adaptation pour échanger les ctsr/hjkl et CTSR/HJKL. À placer dans votre .e... »)
 
(Ajout de la catégorie "Logiciels")
 
(5 versions intermédiaires par 2 utilisateurs non affichées)
Ligne 1 : Ligne 1 :
Le viper-mode permet d'utiliser les raccourcis les plus importants de vim sous emacs.  
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}}.
Voici une adaptation pour échanger les ctsr/hjkl et CTSR/HJKL.
 
À placer dans votre .emacs ou dans votre .viper:
À placer à la fin de votre {{c|~/.emacs}} :
 
<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-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)


<pre class="xkb"><nowiki>
;;;;;;;;;;;;;;;;; bépo                                                                                                           
;;viper                                                                                                                           
(define-key viper-vi-global-user-map "c" 'viper-backward-char)
(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 "t" 'viper-next-line)
Ligne 12 : Ligne 18 :


(define-key viper-vi-global-user-map "C" 'viper-window-top)
(define-key viper-vi-global-user-map "C" 'viper-window-top)
(define-key viper-vi-global-user-map "T" 'viper-join-line)
(define-key viper-vi-global-user-map "T" 'pager-page-down)
(define-key viper-vi-global-user-map "S" 'viper-nil) ; 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-vi-global-user-map "h" 'viper-command-argument)
(define-key viper-visual-mode-map "t" 'viper-next-line)
(define-key viper-vi-global-user-map "j" 'viper-goto-char-forward)
(define-key viper-visual-mode-map "s" 'viper-previous-line)
(define-key viper-vi-global-user-map "k" 'viper-substitute)
(define-key viper-visual-mode-map "r" 'viper-forward-char)
(define-key viper-vi-global-user-map "l" 'viper-replace-char)
</source>
 
[[Catégorie:Logiciels]]
(define-key viper-vi-global-user-map "H" 'viper-change-to-eol)
(define-key viper-vi-global-user-map "J" 'viper-goto-char-backward)
(define-key viper-vi-global-user-map "K" 'viper-substitute-line)
(define-key viper-vi-global-user-map "L" 'viper-overwrite)
</nowiki></pre>
 
vimpulse permet de rajouter quelques commandes vim au viper-mode. Voici l'adaptation correspondante:
 
<pre class="xkb"><nowiki>
;; vimpulse
(define-key viper-visual-mode-map "h" 'viper-visual-replace-region)
</nowiki></pre>

Dernière version du 27 mars 2023 à 14:28

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)
Récupérée de « https://bepo.fr/wiki/index.php?title=Viper-mode&oldid=31491 »