From 65169da49653a6f72978018e53ab702109bde074 Mon Sep 17 00:00:00 2001 From: JSDurand Date: Fri, 23 Dec 2022 20:13:41 +0800 Subject: input-conf: Some preliminary configurations --- init.el | 5 +++++ input-conf.el | 39 +++++++++++++++++++++++++++++++++++++++ 2 files changed, 44 insertions(+) create mode 100644 input-conf.el diff --git a/init.el b/init.el index 96340c2..fdeb8de 100644 --- a/init.el +++ b/init.el @@ -299,6 +299,11 @@ no effect." (load-after-function prepare-rime "rime-conf.el" "Load rime and launch it." nil (durand-set-input-method)) +;;; Input method configuration + +(load-after-function toggle-input-method "input-conf.el" + "Load my configurations of input methods." nil) + ;; The effect of super is to apply bitwise or to the key with ;; (ash 1 23). The codes are as follows. ;; diff --git a/input-conf.el b/input-conf.el new file mode 100644 index 0000000..e08e0f5 --- /dev/null +++ b/input-conf.el @@ -0,0 +1,39 @@ +;;; input-conf.el --- My configurations of input methods -*- lexical-binding: t; -*- + +;; Copyright (C) 2022 Jean Sévère Durand + +;; Author: Jean Sévère Durand +;; Keywords: convenience, abbrev, emulations, i18n + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: + +;; I want to use the built-in input methods for inserting in other +;; languages than English. + +;;; Code: + +;;; Chinese-zozy + +;; This does not work. I shall find another way to do this. +(defun durand-zozy-remap-keys () + "Remap smoe keys for the input method \"Chinese-zozy\"." + (let ((map (quail-translation-keymap))) + (define-key map (vector ?\") "3"))) + +(remove-hook 'quail-activate-hook #'durand-zozy-remap-keys) + +(provide 'input-conf) +;;; input-conf.el ends here -- cgit v1.2.3-18-g5258