diff options
| -rw-r--r-- | input-conf.el | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/input-conf.el b/input-conf.el index a735741..461b674 100644 --- a/input-conf.el +++ b/input-conf.el @@ -35,8 +35,12 @@ (remove-hook 'quail-activate-hook #'durand-zozy-remap-keys) +;;; Default input method + (setq-default default-input-method "devanagari-kyoto-harvard") +;;; Short-cut headlong selection of input methods. + (defvar durand-input-method-list nil "The list of input methods that I oft use.") @@ -62,5 +66,39 @@ (define-key global-map (vector ?\C-\\) #'durand-toggle-input) (define-key global-map (vector 3 ?i) #'durand-toggle-input) +;;; Custom french keyboard layout + +;; I am used to the french keyboard, so it would be most convenient if +;; the quail packages can automatically translate the keys according +;; to this layout. + +(cond + ((assoc "durand-fr" quail-keyboard-layout-alist #'string=) + (setcdr + (assoc "durand-fr" quail-keyboard-layout-alist #'string=) + "\ + \ + &1é2\"3'4(5§6è7!8ç9à0)°-_<> \ + aAzZeErRtTyYuUiIoOpP^¨$* \ + qQsSdDfFgGhHjJkKlLmMù%`£ \ + wWxXcCvVbBnN,?;.:/=+ \ + ")) + (t + (setq + quail-keyboard-layout-alist + (cons + (cons + "durand-fr" + "\ + \ + &1é2\"3'4(5§6è7!8ç9à0)°-_<> \ + aAzZeErRtTyYuUiIoOpP^¨$* \ + qQsSdDfFgGhHjJkKlLmMù%`£ \ + wWxXcCvVbBnN,?;.:/=+ \ + ") + quail-keyboard-layout-alist)))) + +(quail-set-keyboard-layout "durand-fr") + (provide 'input-conf) ;;; input-conf.el ends here |