French

Adaptation au clavier azerty

Libre à tous de changer les raccourcis comme bon nous semble. Nous allons juste ici changer des raccourcis qui sont trop pénibles à taper avec le clavier azerty.

; Diviser la fenêtre
(global-set-key (kbd "C-x é") 'split-window) ; comme C-x 2 mais on se passe de MAJ
(global-set-key (kbd "C-x \"") 'split-window-horizontally) ;C-x 3
(global-set-key (kbd "C-x &") 'delete-other-windows) ;C-x 1
(global-set-key (kbd "C-x à") 'delete-window) ;C-x 0

Jours fériés

Ceci est à rajouter dans votre init-file, et à visualiser avec M-x holidays.

(setq french-holiday
      '((holiday-fixed 1 1 "Jour de l'an")
        (holiday-fixed 1 6 "Épiphanie")
        (holiday-fixed 2 2 "Chandeleur")
        (holiday-fixed 2 14 "Saint Valentin")
        (holiday-fixed 5 1 "Fête du travail")
        (holiday-fixed 5 8 "Commémoration de la capitulation de l'Allemagne en 1945")
        (holiday-fixed 6 21 "Fête de la musique")
        (holiday-fixed 7 14 "Fête nationale - Prise de la Bastille")
        (holiday-fixed 8 15 "Assomption (Religieux)")
        (holiday-fixed 11 11 "Armistice de 1918")
        (holiday-fixed 11 1 "Toussaint")
        (holiday-fixed 11 2 "Commémoration des fidèles défunts")
        (holiday-fixed 12 25 "Noël")
        ;; fêtes à date variable
        (holiday-easter-etc 0 "Pâques")
        (holiday-easter-etc 1 "Lundi de Pâques")
        (holiday-easter-etc 39 "Ascension")
        (holiday-easter-etc 49 "Pentecôte")
        (holiday-easter-etc 50 "Lundi de Pentecôte")
        (holiday-easter-etc -47 "Mardi gras")
        (holiday-float 6 0 3 "Fête des pères") ;; troisième dimanche de juin
        ;; Fête des mères
        (holiday-sexp
         '(if (equal
               ;; Pentecôte
               (holiday-easter-etc 49)
               ;; Dernier dimanche de mai
               (holiday-float 5 0 -1 nil))
              ;; -> Premier dimanche de juin si coïncidence
              (car (car (holiday-float 6 0 1 nil)))
            ;; -> Dernier dimanche de mai sinon
            (car (car (holiday-float 5 0 -1 nil))))
         "Fête des mères")))

(setq calendar-date-style 'european
      calendar-holidays (append french-holiday)
      calendar-mark-holidays-flag t)

Emacs avec un clavier bépo

Comment améliorer l'ergonomie d'emacs, notamment lorsqu'on utilise un clavier bépo (de type typematrx ou pas) ? Il est discuté de cette question notamment sur le site bepo.fr : http://bepo.fr/wiki/Utilisateur:Lots_of_birds/Emacs

Raccourcis clavier

Gestion des fenêtres :

(global-set-key (kbd "C-x «") 'split-window) ; marche C-x 2
(global-set-key (kbd "C-x »") 'split-window-horizontally) ;C-x 3
(global-set-key (kbd "C-x \"") 'delete-other-windows) ;C-x 1
(global-set-key (kbd "C-x *") 'delete-window) ;C-x 0

Changer de ligne, aller au début et à la fin du buffer :

(global-set-key (kbd "M-t") 'next-line)
(global-set-key (kbd "M-s") 'previous-line)


(global-set-key (kbd "M-«") `beginning-of-buffer)
(global-set-key (kbd "M-»") `end-of-buffer)

Effacer la ligne courante en un coup (au lieu de C-a C-k C-k) :

(defun my-kill-line-lazy()
  "Kills the whole line where the cursor is."
         (interactive)
         (beginning-of-line)
         (kill-whole-line))
; rajouter indent ?
; bound to C-0
(global-set-key (kbd "C-*") 'my-kill-line-lazy) ;bépo

Raccourcis claviers avec keychord

Le mode keychord permet d'associer une action à deux touches «normales» (pas ctrl ni alt) appuyées rapidement. On peut donc définir des raccourcis sans les touches Control ou Alt. Voir la page Ergonomics.

Donc ces raccourcis sont géniaux : changer de buffer avec les combinaisons '« et '» qui sont accessibles avec les index; choisir un buffer avec 'b ; tuer le buffer avec 'k ;

(require 'key-chord)
(key-chord-mode 1)

;; Particulièrement pratique en bépo, où le ' est facile à atteindre avec l'index droit.
(key-chord-define-global "'k" 'kill-buffer)
(key-chord-define-global "''" 'save-buffer) ; je ne peux déjà plus m'en passer !
(key-chord-define-global "'g" 'keyboard-quit) ;ça vaut aussi pour l'inverse ! ie g'
(key-chord-define-global "'q" 'keyboard-quit)
(key-chord-define-global "'f" 'find-file)
(key-chord-define-global "'b" 'ido-switch-buffer)


(key-chord-define-global "'»" 'next-buffer) ; ou alors '( et ') pour majeur et index
(key-chord-define-global "'«" 'previous-buffer)

(require 'space-chord)
(space-chord-define-global "f" 'find-file)