summaryrefslogtreecommitdiff
path: root/input-conf.el
diff options
context:
space:
mode:
Diffstat (limited to 'input-conf.el')
-rw-r--r--input-conf.el38
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