granthalipiḥ
(get-char-code-property 2309 'name) ;; → "DEVANAGARI LETTER A" (get-char-code-property 70405 'name) ;; → "GRANTHA LETTER A" (- (string-to-char "𑌅") (string-to-char "अ")) ;; → 68096 (#o205000, #x10a00) (string (+ 68096 (string-to-char "अ"))) ;; → "𑌅" (string-to-list "त्रलला खड्गः") ;; → (2340 2381 2352 2354 2354 2366 32 2326 2337 2381 2327 2307) (let (out) (dolist (i (string-to-list "त्रलला खड्गः")) (push (+ i 68096) out)) out) ;; → (70403 70423 70477 70433 70422 68128 70462 70450 70450 70448 70477 70436) (let (out) (dolist (i (string-to-list "त्रलला खड्गः")) (push (string (+ i 68096)) out)) out) ; → ("𑌃" "𑌗" "𑍍" "𑌡" "𑌖" "𐨠" "𑌾" "𑌲" "𑌲" "𑌰" "𑍍" "𑌤") (string-join (let (out) (dolist (i (string-to-list "त्रलला खड्गः")) (push (string (+ i 68096)) out)) (reverse out))) ;; → "𑌤𑍍𑌰𑌲𑌲𑌾𐨠𑌖𑌡𑍍𑌗𑌃" (string-to-char "ऀ") ;; → 2304 (#o4400, #x900) (string-to-char "ॿ") ;; → 2431 (#o4577, #x97f) (- (string-to-char "ॿ") (string-to-char "ऀ")) ;; → 127 (#o177, #x7f, ?\C-?) (let (out) (dotimes (i 127) (push (string (+ 2304 i)) out)) (reverse out)) ;; ("ऀ" "ँ" "ं" "ः" "ऄ" "अ" "आ" "इ" "ई" "उ" "ऊ" "ऋ" "ऌ" "ऍ" "ऎ" "ए" "ऐ" "ऑ" ;; "ऒ" "ओ" "औ" "क" "ख" "ग" "घ" "ङ" "च" "छ" "ज" "झ" "ञ" "ट" "ठ" "ड" "ढ" "ण" ;; "त" "थ" "द" "ध" "न" "ऩ" "प" "फ" "ब" "भ" "म" "य" "र" "ऱ" "ल" "ळ" "ऴ" "व" "श" ;; "ष" "स" "ह" "ऺ" "ऻ" "़" "ऽ" "ा" "ि" "ी" "ु" "ू" "ृ" "ॄ" "ॅ" "ॆ" "े" ;; "ै" "ॉ" "ॊ" "ो" "ौ" "्" "ॎ" "ॏ" "ॐ" "॑" "॒" "॓" "॔" "ॕ" "ॖ" "ॗ" "क़" "ख़" ;; "ग़" "ज़" "ड़" "ढ़" "फ़" "य़" "ॠ" "ॡ" "ॢ" "ॣ" "।" "॥" "०" "१" "२" "३" "४" "५" ;; "६" "७" "८" "९" "॰" "ॱ" "ॲ" "ॳ" "ॴ" "ॵ" "ॶ" "ॷ" "ॸ" "ॹ" "ॺ" "ॻ" "ॼ" "ॽ" ;; "ॾ") (let (out) (dolist (i (string-to-list (string-join (let (out) (dotimes (i 127) (push (string (+ 2304 i)) out)) (reverse out))))) (push (string (+ i 68096)) out)) (reverse out)) ;;("𑌀" "𑌁" "𑌂" "𑌃" "" "𑌅" "𑌆" "𑌇" "𑌈" "𑌉" "𑌊" "𑌋" "𑌌" "" "" ;; "𑌏" "𑌐" "" "" "𑌓" "𑌔" "𑌕" "𑌖" "𑌗" "𑌘" "𑌙" "𑌚" "𑌛" "𑌜" "𑌝" ;; "𑌞" "𑌟" "𑌠" "𑌡" "𑌢" "𑌣" "𑌤" "𑌥" "𑌦" "𑌧" "𑌨" "" "𑌪" "𑌫" "𑌬" ;; "𑌭" "𑌮" "𑌯" "𑌰" "" "𑌲" "𑌳" "" "𑌵" "𑌶" "𑌷" "𑌸" "𑌹" "" "𑌻" ;; "𑌼" "𑌽" "𑌾" "𑌿" "𑍀" "𑍁" "𑍂" "𑍃" "𑍄" "" "" "𑍇" "𑍈" "" "" ;; "𑍋" "𑍌" "𑍍" "" "" "𑍐" "" "" "" "" "" "" "𑍗" "" "" ;; "" "" "" "𑍝" "𑍞" "𑍟" "𑍠" "𑍡" "𑍢" "𑍣" "" "" "𑍦" "𑍧" "𑍨" ;; "𑍩" "𑍪" "𑍫" "𑍬" "" "" "" "𑍰" "𑍱" "𑍲" "𑍳" "𑍴" "" "" "" ;; "" "" "" "" "" "" "") (defun between (min max num) (and (> num min) (< num max))) (aref char-script-table (string-to-char "अ")) ;; → devanagari (aref char-script-table (string-to-char "᳐")) ;; → vedic (aref char-script-table (string-to-char "꣸")) ;; → devanagari