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

(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))))