arbiter

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
#Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

^i::
    Send, Ï
Return

^e::
    Send, é
Return

^-::
    Send, —
Return

^!s::
    Square()
Return

^!w::
    Widetext()
Return

::larrow::←

::rarrow::→

::uarrow::↑

::darrow::↓

::subset::⊆

::propersubset::⊂

::iff::⇔

::disjunction::∨

::conjunction::∧

::setunion::∪

::setintersection::∩

::plusorminus::±

::antiderivative::∫

::logicalconsequence::∴

::logicalnegation::¬

::notequals::≠

::approximatelyequals::≈

::mapsto::↦

::xor::⊕

::partialderivative::∂

::forall::∀

::thereexists::∃

::elementof::∈

::notelementof::∉

::logicalequivalence::≡

::langle::⟨

::rangle::⟩

::modalnecessity::□

::modalpossibility::◊

::anarchysymbol::Ⓐ

::hammerandsickle::☭

::alpha::α

::beta::β

::biggamma::Γ

::gamma::γ

::bigdelta::Δ

::delta::δ

::epsilon::ε

::zeta::ζ

::eta::η

::bigtheta::Θ

::theta::θ

::iota::ι

::kappa::κ

::biglambda::Λ

::lambda::λ

::mu::μ

::nu::ν

::bigxi::Ξ

::xi::ξ

::bigpi::Π

::pi::π

::rho::ρ

::bigsigma::Σ

::sigma::σ

::sigmaend::ς

::tau::τ

::upsilon::υ

::bigphi::Φ

::phi::φ

::chi::χ

::bigpsi::Ψ

::psi::ψ

::bigomega::Ω

::omega::ω

::aleph::א

::hebrewbet::ב

::heartemoji::♥

::staremoji::★

::fullblock::█

::eaccent::é

::divisionsign::÷

::crossproduct::×

::cdot::·

::interrobang::‽

::sectionsign::§

::emdash::—

::hbar::ħ

::infinitysymbol::∞

::emptyset::∅

::dotminus::∸

::lessorequal::≤

::greaterorequal::≥

::muchless::≪

::muchgreater::≫

::bb-a::𝔸

::bb-b::𝔹

::bb-c::ℂ

::bb-d::𝔻

::bb-e::𝔼

::bb-f::𝔽

::bb-g::𝔾

::bb-h::ℍ

::bb-i::𝕀

::bb-j::𝕁

::bb-k::𝕂

::bb-l::𝕃

::bb-m::𝕄

::bb-n::ℕ

::bb-o::𝕆

::bb-p::ℙ

::bb-q::ℚ

::bb-r::ℝ

::bb-s::𝕊

::bb-t::𝕋

::bb-u::𝕌

::bb-v::𝕍

::bb-w::𝕎

::bb-x::𝕏

::bb-y::𝕐

::bb-z::ℤ

Square()
{
    spaces := "   "
    spacesfour := "    "
    spaceholder := ""
    inp := ""
    InputBox, inp
    if ErrorLevel
        return
    Loop, Parse, inp
    {
        Send %A_LoopField%
        Send %spaces%
    }
    Send {enter}
    offset := Round(1.434 * StrLen(inp) - 7.534)
    Loop, Parse, inp
    {
        if (A_Index != 1 && A_Index != StrLen(inp)) {
            Send %A_LoopField%
            spaceholder := ""
            Loop % StrLen(inp)
            {
                spaceholder := spaceholder . spacesfour
            }
            if (offset < 0) {
                StringTrimRight, spaceholder, spaceholder, (offset * -1)
            } else if (offset > 0) {
                Loop % offset
                {
                    spaceholder := spaceholder . " "
                }
            }
            if (A_LoopField == "I") {
                spaceholder := spaceholder . " "
            }
            Send %spaceholder%
            endletter := SubStr(inp, 1 - A_Index, 1)
            Send %endletter%
            Send {enter}
        }
    }
    Loop, Parse, inp
    {
        backletter := SubStr(inp, 1 - A_Index, 1)
        Send %backletter%
        Send %spaces%
    }
    Send {enter}
}

Widetext()
{
    inp := ""
    finalstring := ""
    spaces := "      "
    InputBox, inp
    if ErrorLevel
        return
    Loop, Parse, inp
    {
        if (A_Index != StrLen(inp)) {
            finalstring := finalstring . A_LoopField . spaces
        } else {
            finalstring := finalstring . A_LoopField
        }
    }
    Send %finalstring%
}