Emacs Lisp: input method for FULLWIDTH LATIN LETTERS

Emacs Lisp: input method for FULLWIDTH LATIN LETTERS

This is input method for FULLWIDTH LATIN LETTERS for easy writing whenever necessary.

;; FULLWIDTH LATIN LETTERS
;; unlike these latin letters

(quail-define-package 
 "fullwidth-latin" "Unicode" "Fullwidth Latin" t
 "Fullwidth Latin input method"
 nil t nil nil nil nil nil nil nil nil t)

(quail-define-rules
 ("A" 65313)
 ("B" 65314)
 ("C" 65315)
 ("D" 65316)
 ("E" 65317)
 ("F" 65318)
 ("G" 65319)
 ("H" 65320)
 ("I" 65321)
 ("J" 65322)
 ("K" 65323)
 ("L" 65324)
 ("M" 65325)
 ("N" 65326)
 ("O" 65327)
 ("P" 65328)
 ("Q" 65329)
 ("R" 65330)
 ("S" 65331)
 ("T" 65332)
 ("U" 65333)
 ("V" 65334)
 ("W" 65335)
 ("X" 65336)
 ("Y" 65337)
 ("Z" 65338)
 ("a" 65345)
 ("b" 65346)
 ("c" 65347)
 ("d" 65348)
 ("e" 65349)
 ("f" 65350)
 ("g" 65351)
 ("h" 65352)
 ("i" 65353)
 ("j" 65354)
 ("k" 65355)
 ("l" 65356)
 ("m" 65357)
 ("n" 65358)
 ("o" 65359)
 ("p" 65360)
 ("q" 65361)
 ("r" 65362)
 ("s" 65363)
 ("t" 65364)
 ("u" 65365)
 ("v" 65366)
 ("w" 65367)
 ("x" 65368)
 ("y" 65369)
 ("z" 65370))

;; (let ((num 65))
;;   (while (< num 91)
;;     (insert (format "(\"%s\" %d)\n" (char-to-string num) (char-from-name (concat "FULLWIDTH 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 "FULLWIDTH LATIN SMALL LETTER " (capitalize (char-to-string num))))))
;;     (setq num (1+ num))))












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: