Utilisateur:Sarcastic/Emacs

Bon, j'ai commencé à revoir les touches d'Emacs pour les refaire en mieux (En grande partie parce que les commandes en C-x sont abominables avec la version 1.0).

Jusque ici j'ai :

• les commandes les plus courantes hors du flux — critères totalement subjectifs, je précise — qui se trouve sur leurs équivalents azerty. Cela concerne les commandes comme C-x C-f, C-x C-s, C-x C-c, C-s, etc. Voir les commentaires pour une liste exhaustive des touches modifiées.
• les commandes les plus courantes dans le flux qui se trouve à des places plus ou moins diverses, logiques… Ou pas. Ça concerne principalement les commandes de déplacement déplacées pour pouvoir faire un déplacement à la VI, donc sur hijk azerty. Je pense laisser le C-d là où il est en bépo, idem pour le C-a et le C-e, j'apprécie assez à l'utilisation (même si c'est plus discutable pour le C-a et le C-e).
• des commandes qu'il faut encore que je place, genre C-k (Peut-être en C-a azerty) ou C-h (Mais bon, un vrai utilisateur d'Emacs n'a pas besoin de l'aide).

Dans la première partie du fichier, je désattribue 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 - commenté, on enlève pas
(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) - Ou pas
;;(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)