-- This file:
-- http://angg.twu.net/LUA/composechars-u8.lua
-- http://angg.twu.net/LUA/composechars-u8.lua.html
--  (find-angg        "LUA/composechars-u8.lua")
-- Author: Eduardo Ochs <eduardoochs@gmail.com>
-- Version: 2015mar26
-- Public domain.

-- See: (find-angg "LUA/oldglyphs.lua")

-- (find-efunction 'eev-compose-two-keys)
-- (find-efunction 'eev-composes-update)
-- (find-evardescr 'eev-composes-all)
-- (find-epp        eev-composes-all)

-- (find-eev "eev-glyphs.el")
-- (find-eev "eev-math-glyphs.el")
-- (find-efunction 'eev-math-glyphs-edrx)

-- uppergreek:  (find-einsert '(( 913  937)))
-- lowergreek:  (find-einsert '(( 945  969)))
-- arrows:      (find-einsert '((8592 8703)))
-- math:        (find-einsert '((8704 8899)))
--  elementof:  (find-einsert '((8712 8717)))
--  subsetof:   (find-einsert '((8834 8843)))

--  subsetof:   (find-einsert '((9400 9900)))

-- (defun c () (interactive) (insert (format "%d " (following-char))))
-- (setq last-kbd-macro (kbd "<<c>> C-a <down>"))

uppergreek = [[
915 Γ GG Gamma
916 Δ DD Delta
920 Θ TH Theta
923 Λ LL Lambda
926 Ξ XI Xi
928 Π PI Pi
931 Σ SI Sigma
934 Φ PH Phi
936 Ψ PS Psi
937 Ω OM Omega
]]

lowergreek = [[
945 α aa alpha
946 β bb beta
947 γ gg gamma
948 δ dd delta
949 ε ee epsilon
950 ζ zz zeta
951 η et eta
952 θ th theta
953 ι ii iota
954 κ kk kappa
955 λ ll lambda
956 μ mu mu
957 ν nu nu
958 ξ xi xi
959 ο __ omicron
960 π pi pi
961 ρ rh rho
963 σ si sigma
964 τ tt tau
965 υ uu upsilon
966 φ ph phi
967 χ ch chi
968 ψ ps psi
969 ω om omega
]]

-- (find-efunction 'eev-math-glyphs-edrx)
-- (eev-math-glyphs-edrx)
math = [[
8704 ∀ fa forall
8706 ∂ pa partial
8707 ∃ ex exists
8708 ∄ nx notexists
8709 ∅ em emptyset
8710 ∆ In increment
8711 ∇ na nabla
8718 ∎ qe qed
8721 ∑ BS bigsum
8734 ∞ 88 infty
8741 ∥ || norm
8743 ∧ la land
8744 ∨ lo lor
8745 ∩ ca cap
8746 ∪ cu cup
8747 ∫ In Int
8776 ≈ ae almosteq
8799 ≟ ?= question=
8800 ≠ != not=
8801 ≡ == identical
8802 ≢ __ notidentical
8804 ≤ le le
8805 ≥ ge ge
8851 ⊓ qa sqcap
8852 ⊔ qu sqcup
8868 ⊤ tp top
8869 ⊥ bt bot
8888 ⊸ -o lolli
8896 ⋀ BA bigland
8897 ⋁ BO biglor
8898 ⋂ BI bigcap
8899 ⋃ BU bigcup
]]


--[[
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile "composechars-u8.lua"

--]]




-- Local Variables:
-- coding: utf-8-unix
-- End: