mastodon warning! may contain trace amounts of Lisp

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

· © Edgard Bikelis (eſb) created using Emacs 29.0.50 (Org mode 9.5.3) ·
· created: 2020-06-11 last modified: 2022-06-02 ·