Emacs Lisp: input method for ⒸⒾⓇⒸⓁⒺⒹ letters

Emacs Lisp: input method for ⒸⒾⓇⒸⓁⒺⒹ letters

This enables easy writing of ⒸⒾⓇⒸⓁⒺⒹ letters with GNU Emacs text editor.

;; ⒸⒾⓇⒸⓁⒺⒹ ⓁⒶⓉⒾⓃ ⒾⓃⓅⓊⓉ ⓂⒺⓉⒽⓄⒹ

(quail-define-package 
 "circled-latin" "Unicode" "Circled Latin" t
 "Circled Latin input method"
 nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("A" 9398)
 ("B" 9399)
 ("C" 9400)
 ("D" 9401)
 ("E" 9402)
 ("F" 9403)
 ("G" 9404)
 ("H" 9405)
 ("I" 9406)
 ("J" 9407)
 ("K" 9408)
 ("L" 9409)
 ("M" 9410)
 ("N" 9411)
 ("O" 9412)
 ("P" 9413)
 ("Q" 9414)
 ("R" 9415)
 ("S" 9416)
 ("T" 9417)
 ("U" 9418)
 ("V" 9419)
 ("W" 9420)
 ("X" 9421)
 ("Y" 9422)
 ("Z" 9423)
 ("a" 9424)
 ("b" 9425)
 ("c" 9426)
 ("d" 9427)
 ("e" 9428)
 ("f" 9429)
 ("g" 9430)
 ("h" 9431)
 ("i" 9432)
 ("j" 9433)
 ("k" 9434)
 ("l" 9435)
 ("m" 9436)
 ("n" 9437)
 ("o" 9438)
 ("p" 9439)
 ("q" 9440)
 ("r" 9441)
 ("s" 9442)
 ("t" 9443)
 ("u" 9444)
 ("v" 9445)
 ("w" 9446)
 ("x" 9447)
 ("y" 9448)
 ("z" 9449))

;; (let ((num 65))
;;   (while (< num 91)
;;     (insert (format "(\"%s\" %d)\n" (char-to-string num) (char-from-name (concat "CIRCLED LATIN CAPITAL LETTER " (char-to-string num)))))
;;     (setq num (1+ num))))

;; (let ((num 97))
;;   (while (< num (+ 97 26))
;;     (insert (format "(\"%s\" %d)\n" (char-to-string num) (char-from-name (concat "CIRCLED LATIN SMALL LETTER " (capitalize (char-to-string num))))))
;;     (setq num (1+ num))))

Related pages

Leave Your Comment or Contact GNU.Support

Contact GNU.Support now. There is a simple rule at GNU.Support: if we can help you, we do, whenever and wherever necessary, and it's the way we've been doing business since 2002, and the only way we know


Full name:


E-mail:


Message: