leim/leim-ext.el

   1 ;; leim-ext.el -- extra leim configuration      -*- coding:utf-8; -*-
   2
   3 ;; Copyright (C) 2004-2018 Free Software Foundation, Inc.
   4 ;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
   5 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
   6 ;;   Registration Number H13PRO009
   7
   8 ;; This file is part of GNU Emacs.
   9
  10 ;; GNU Emacs is free software: you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation, either version 3 of the License, or
  13 ;; (at your option) any later version.
  14
  15 ;; GNU Emacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.
  22
  23 ;;; Commentary:
  24
  25 ;; Makefile in this directory appends the contents of this file (only
  26 ;; such non-empty lines that don't begin with ';') to the generated
  27 ;; file leim-list.el.
  28
  29 ;;; Code:
  30
  31 (eval-after-load "quail/PY-b5"
  32   '(quail-defrule "ling2" ?○ nil t))
  33
  34 ;; Enable inputting full-width space (U+3000).
  35 (eval-after-load "quail/Punct"
  36   '(quail-defrule " " ?　 nil t))
  37 (eval-after-load "quail/Punct-b5"
  38   '(quail-defrule " " ?　 nil t))
  39
  40 (register-input-method "ucs" "UTF-8" 'ucs-input-activate "U+"
  41                        "Unicode input as hex in the form Uxxxx.")
  42
  43 (register-input-method
  44  "korean-hangul"
  45  "UTF-8"
  46  'hangul-input-method-activate
  47  "한2"
  48  "Hangul 2-Bulsik Input"
  49  'hangul2-input-method
  50  "Input method: korean-hangul2 (mode line indicator:한2)\n\nHangul 2-Bulsik input method.")
  51
  52 (register-input-method
  53  "korean-hangul3f"
  54  "UTF-8"
  55  'hangul-input-method-activate
  56  "한3f"
  57  "Hangul 3-Bulsik final Input"
  58  'hangul3-input-method
  59  "Input method: korean-hangul3 (mode line indicator:한3f)\n\nHangul 3-Bulsik final input method.")
  60
  61 (register-input-method
  62  "korean-hangul390"
  63  "UTF-8"
  64  'hangul-input-method-activate
  65  "한390"
  66  "Hangul 3-Bulsik 390 Input"
  67  'hangul390-input-method
  68  "Input method: korean-hangul390 (mode line indicator:한390)\n\nHangul 3-Bulsik 390 input method.")
  69
  70 (register-input-method
  71  "korean-hangul3"
  72  "UTF-8"
  73  'hangul-input-method-activate
  74  "한390"
  75  "Hangul 3-Bulsik 390 Input"
  76  'hangul390-input-method
  77  "Input method: korean-hangul390 (mode line indicator:한390)\n\nHangul 3-Bulsik 390 input method.")
  78
  79 ;; Following lines are marked such that Makefile adds them to output.
  80 ;; leim-list-header adds "coding: utf-8"; we could move that here,
  81 ;; unless others are using that stuff to generate their own leim files.
  82 ;; TODO?  Better to add leim-list-footer?
  83
  84 ;;inc Local Variables:
  85 ;;inc no-byte-compile: t
  86 ;;inc version-control: never
  87 ;;inc no-update-autoloads: t
  88 ;;inc End:
  89
  90 ;;;inc leim-list.el ends here
  91
  92 ;;; leim-ext.el ends here