107 lines
3.2 KiB
Clojure
Executable file
107 lines
3.2 KiB
Clojure
Executable file
#^:shebang '[
|
|
exec java -cp "$HOME/.m2/repository/org/clojure/clojure/1.8.0/clojure-1.8.0.jar" clojure.main "$0" "$@"]
|
|
|
|
|
|
(require '[clojure.string :as str])
|
|
|
|
(def file "FiraCode.glyphs")
|
|
|
|
(println "Looking for ligatures in" file "...\n")
|
|
|
|
;; [ ["dash" "greater" "greater"] ... ]
|
|
(def ligas (->> (slurp file)
|
|
(re-seq #"glyphname = ([a-z_]+)\.liga;")
|
|
(map second)
|
|
set
|
|
(mapv #(vec (str/split % #"_")))))
|
|
|
|
|
|
; (def ligas
|
|
; [ ["hyphen" "greater"]
|
|
; ["greater" "equal"]
|
|
; ["equal" "greater"]
|
|
; ["hyphen" "hyphen" "greater"]
|
|
; ["equal" "equal" "greater"]
|
|
; ["greater" "hyphen"]])
|
|
|
|
; (def ligas
|
|
; [ ["slash" "asterisk"]
|
|
; ["slash" "asterisk" "asterisk"]
|
|
; ["asterisk" "asterisk"]
|
|
; ["asterisk" "asterisk" "asterisk"]])
|
|
|
|
(def ignores
|
|
{ ["slash" "asterisk"]
|
|
(str
|
|
" ignore sub slash' asterisk slash;\n"
|
|
" ignore sub asterisk slash' asterisk;\n")
|
|
|
|
["asterisk" "slash"]
|
|
(str
|
|
" ignore sub slash asterisk' slash;\n"
|
|
" ignore sub asterisk' slash asterisk;\n")
|
|
|
|
["asterisk" "asterisk"]
|
|
(str
|
|
" ignore sub slash asterisk' asterisk;\n"
|
|
" ignore sub asterisk' asterisk slash;\n")
|
|
|
|
["asterisk" "asterisk" "asterisk"]
|
|
(str
|
|
" ignore sub slash asterisk' asterisk asterisk;\n"
|
|
" ignore sub asterisk' asterisk asterisk slash;\n")
|
|
})
|
|
|
|
(defn liga->rule
|
|
"[f f i] => { [CR CR i] f_f_i.liga
|
|
[CR f i] CR
|
|
[ f f i] CR }"
|
|
[liga]
|
|
(case (count liga)
|
|
2 (let [[a b] liga]
|
|
(str/replace
|
|
(str " lookup 1_2 {\n"
|
|
" ignore sub 1 1' 2;\n"
|
|
" ignore sub 1' 2 2;\n"
|
|
(get ignores liga)
|
|
" sub CR 2' by 1_2.liga;\n"
|
|
" sub 1' 2 by CR;\n"
|
|
" } 1_2;")
|
|
#"\d" {"1" a "2" b}))
|
|
3 (let [[a b c] liga]
|
|
(str/replace
|
|
(str " lookup 1_2_3 {\n"
|
|
" ignore sub 1 1' 2 3;\n"
|
|
" ignore sub 1' 2 3 3;\n"
|
|
(get ignores liga)
|
|
" sub CR CR 3' by 1_2_3.liga;\n"
|
|
" sub CR 2' 3 by CR;\n"
|
|
" sub 1' 2 3 by CR;\n"
|
|
" } 1_2_3;")
|
|
#"\d" {"1" a "2" b "3" c}))
|
|
4 (let [[a b c d] liga]
|
|
(str/replace
|
|
(str " lookup 1_2_3_4 {\n"
|
|
" ignore sub 1 1' 2 3 4;\n"
|
|
" ignore sub 1' 2 3 4 4;\n"
|
|
(get ignores liga)
|
|
" sub CR CR CR 4' by 1_2_3_4.liga;\n"
|
|
" sub CR CR 3' 4 by CR;\n"
|
|
" sub CR 2' 3 4 by CR;\n"
|
|
" sub 1' 2 3 4 by CR;\n"
|
|
" } 1_2_3_4;")
|
|
#"\d" {"1" a "2" b "3" c "4" d}))))
|
|
|
|
|
|
(println "### start of generated calt\n")
|
|
(println (->> ligas (sort-by count) (reverse) (map liga->rule) (str/join "\n\n")))
|
|
(println "\n### end of generated calt\n")
|
|
|
|
(println "Total ligatures count:" (count ligas))
|
|
(println " " (->> ligas
|
|
(group-by count)
|
|
(sort-by first)
|
|
(map (fn [[k v]] (str (count v) (case k 2 " pairs", 3 " triples", 4 " quadruples"))))
|
|
(str/join ", ")))
|
|
(println)
|