Utilisateur:Sarcastic/Emacs

De Disposition de clavier bépo

Voilà une ébauche de mon futur fichier .emacs (C'est pas très avancé, y a les commandes les plus courantes qui sont équivalentes aux commandes les plus courantes en AZERTY, et les commandes de déplacement qui passent en [h], [i], [j] et [k] — Comme pour Vi, quoi — et je pense garder a et e à la place qu'elles ont sur le bépo – sur [q] et [f], quoi)

Dans la première partie du fichier, je désatribue les touches dont les fonctions sont réattribuées par la suite (histoire d'éviter les combinaisons malencontreuses). Dans la seconde je réattribue au cas par cas les touches. Les indications en commentaires sont les touches en AZERTY (l'habitude pour les raccourcis claviers).

(global-unset-key "\C-x\C-f")
(global-unset-key "\C-x\C-s")
(global-unset-key "\C-x\C-w")
(global-unset-key "\C-x\C-c")
(global-unset-key "\C-xk")
(global-unset-key "\C-s")
(global-unset-key "\C-g")
;;(global-unset-key "\C-h") ;; Help
(global-unset-key "\C-b") ;; backward-char
(global-unset-key "\C-f") ;; forward-char
(global-unset-key "\C-p") ;; previous-line
(global-unset-key "\C-n") ;; next-line
(global-unset-key "\M-b") ;; backward-word
(global-unset-key "\M-f") ;; forward-word
(global-unset-key "\C-\M-b") ;; backward-sexp
(global-unset-key "\C-\M-f") ;; forward-sexp
(global-unset-key "\C-w")
(global-unset-key "\M-w")
(global-unset-key "\C-y")
(global-unset-key "\M-x")

(global-unset-key "\C-x")

;; Déplacement du C-x
(global-set-key "\C-y" ctl-x-map)

;; C-x C-f (Ouvrir un fichier)
(global-set-key "\C-y\C-e" 'find-file)

;; C-x C-s (Sauver le buffer)
(global-set-key "\C-y\C-u" 'save-buffer)

;; C-x C-w (Enregistrer sous)
(global-set-key (kbd "C-y C-à") 'write-file)

;; C-x C-c (Quitter)
(global-set-key "\C-y\C-x" 'save-buffers-kill-emacs)

;; C-x k (Fermer un tampon)
(global-set-key "\C-ys" 'kill-buffer)

;; C-s (Rechercher)
(global-set-key "\C-u" 'isearch-forward)

;; C-g (Annuler la commande en cours)
(global-set-key (kbd "C-,") 'keyboard-quit)

;; C-h (Appeler l'aide)
;;(global-set-key "\C-c" 'help-command)

;; C-h (Reculer d'un caractère)
(global-set-key "\C-c" 'backward-char)

;; C-l (Avancer d'un caractère)
(global-set-key "\C-r" 'forward-char)

;; C-j (Ligne précédente)
(global-set-key "\C-t" 'previous-line)

;; C-k (Ligne suivante)
(global-set-key "\C-s" 'next-line)

;; M-h (Reculer d'un mot)
(global-set-key "\M-c" 'backward-word)

;; M-l (Avancer d'un mot)
(global-set-key "\M-r" 'forward-word)

;; C-M-h (Reculer jusqu'à un espace)
(global-set-key "\C-\M-c" 'backward-sexp)

;; C-M-l (Avancer jusqu'à un espace)
(global-set-key "\C-\M-r" 'forward-sexp)

;; C-w (Couper une région)
(global-set-key (kbd "C-à") 'kill-region)

;; M-w (Copier une région)
(global-set-key (kbd "M-à") 'kill-ring-save)

;; C-y (Coller) Petit problème avec la touche morte, nécessite d'appuyer 2 fois.
;; Déplacer la touche dans une prochaine version.
(global-set-key (kbd "C-^") 'yank)

;; M-x (Exécuter une commande)
(global-set-key "\M-y" 'execute-extended-command)