From: Chen Zhaoyang <chenzhauyang@gmail.com>
To: emacs-devel@gnu.org
Subject: [PATCH] Add keymap information to korean-hangul input method
Date: Fri, 17 Feb 2023 22:26:35 -0600 [thread overview]
Message-ID: <87sff3egzo.fsf@gmail.com> (raw)
[-- Attachment #1: Type: text/plain, Size: 186 bytes --]
Hello,
The input method `korean-hangul` has no keymap information when queried
by `describe-input-method`. I wrote some minimal documentation for this
input method.
--
Chen Zhaoyang
[-- Attachment #2: 0001-add-keymap-information-for-korean-hangul-input-metho.patch --]
[-- Type: text/x-diff, Size: 2045 bytes --]
---
lisp/leim/quail/hangul.el | 51 +++++++++++++++++++++++++++++++++++++--
1 file changed, 49 insertions(+), 2 deletions(-)
diff --git a/lisp/leim/quail/hangul.el b/lisp/leim/quail/hangul.el
index 46a2e5a6ba2..f8b804b66da 100644
--- a/lisp/leim/quail/hangul.el
+++ b/lisp/leim/quail/hangul.el
@@ -537,11 +537,58 @@ hangul-input-method-deactivate
(setq describe-current-input-method-function nil))
(kill-local-variable 'input-method-function)))
+(defconst hangul2-keymap-help-text
+ "key : hangul : ipa
+| q | ㅂ | p |
+| Q | ㅃ | p̤ |
+| w | ㅈ | tɕ |
+| W | ㅉ | tɕ̤ |
+| e | ㄷ | t |
+| E | ㄸ | t̤ |
+| r | ㄱ | k |
+| R | ㄲ | k̤ |
+| t | ㅅ | s |
+| T | ㅆ | s̤ |
+| Y | ㅛ | jo |
+| u | ㅕ | jʌ |
+| i | ㅑ | ja |
+| o | ㅐ | ɛ |
+| O | ㅒ | jɛ |
+| p | ㅔ | e |
+| P | ㅖ | je |
+| a | ㅁ | m |
+| s | ㄴ | n |
+| d | ㅇ | ŋ |
+| f | ㄹ | l |
+| g | ㅎ | h |
+| h | ㅗ | o |
+| j | ㅓ | ʌ |
+| k | ㅏ | a |
+| l | ㅣ | i |
+| z | ㅋ | kʰ |
+| x | ㅌ | tʰ |
+| c | ㅊ | tɕʰ |
+| v | ㅍ | pʰ |
+| b | ㅠ | ju |
+| n | ㅜ | u |
+| m | ㅡ | ɯ |
+"
+ "Keymap help information for the korean-hangul2 input method.")
+
+;; (defun hangul-input-method-help ()
+;; "Describe the current Hangul input method."
+;; (interactive)
+;; (with-output-to-temp-buffer "*Help*"
+;; (princ hangul-input-method-help-text)))
+
(defun hangul-input-method-help ()
"Describe the current Hangul input method."
(interactive)
- (with-output-to-temp-buffer "*Help*"
- (princ hangul-input-method-help-text)))
+ (let* ((help-text hangul-input-method-help-text)
+ (full-help-text (cond ((string= current-input-method "korean-hangul") (concat help-text "\n\n" hangul2-keymap-help-text))
+ (t hangul-input-method-help-text))))
+ (with-output-to-temp-buffer "*Help*"
+ (princ full-help-text))))
(define-obsolete-function-alias 'alphabetp 'hangul-alphabetp "29.1")
--
2.30.2
reply other threads:[~2023-02-18 4:26 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87sff3egzo.fsf@gmail.com \
--to=chenzhauyang@gmail.com \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).