Added logical and ` /\ ` and logical or ` \/ ` ligatures, U+2227 `∧` and U+2228 `∨` (#738)

pull/855/head
Nikita Prokopov 2019-09-02 09:07:15 +07:00
rodzic 4d6514d988
commit fb5098cf05
3 zmienionych plików z 156 dodań i 4 usunięć

Wyświetl plik

@ -48,6 +48,7 @@ All notable changes to this project will be documented in this file.
- U+2387 Alternative Key Symbol `⎇`
- U+238B Broken Circle with Northwest Arrow (Escape) `⎋`
- U+23CF Eject symbol `⏏`
- Added logical and ` /\ ` and logical or ` \/ ` ligatures, U+2227 `∧` and U+2228 `` [#738]
#### 1.207 (April 6, 2019)

File diff suppressed because one or more lines are too long

Wyświetl plik

@ -101,6 +101,12 @@
["less" "dollar" "greater"]
})
(def manual? #{
;; /\ \/
["slash" "backslash"]
["backslash" "slash"]
})
(defn liga->rule
"[f f i] => { [LIG LIG i] f_f_i.liga
[LIG f i] LIG
@ -163,7 +169,7 @@
:when (str/ends-with? name ".liga")
:let [[_ liga] (re-matches #"([a-z_]+)\.liga" name)]]
(str/split liga #"_")) ;; [ ["dash" "greater" "greater"] ... ]
calt (->> ligas (sort-by count) (reverse) (map liga->rule) (str/join "\n\n"))
calt (->> ligas (remove manual?) (sort-by count) (reverse) (map liga->rule) (str/join "\n\n"))
font' (replace-calt font calt)]
(println "Saving" file "...")