yiddish.tex

% Author: Marc Trius
% Email: derpayatz@gmail.com
% Licensed under GNU General Public License

\startenvironment yiddish

% Strings replacement

\setupheadtext[content=אינהאַלט]

% breaks the head text
% \installlanguage
%    [yiddish]
%    [righthyphenchar="05BE,
%     default=en]

\mainlanguage[yiddish]

\setupdirections[bidi=global,method=one]
\setupalign[r2l, hz, hanging]
\setuplayout[direction=reverse]
\setupinteractionscreen[option=righttoleft]

% Numbers

\dontcomplain

\startluacode

local concat, insert, reverse = table.concat, table.insert, table.reverse
local rep = string.rep
local floor = math.floor

local trace_hebrew  trackers.register("converters.hebrew", function(v)
    trace_hebrew = v
end)

local list = {
    { 400, "ת" },
    { 300, "ש" },
    { 200, "ר" },
    { 100, "ק" },
    {  90, "צ" },
    {  80, "פ" },
    {  70, "ע" },
    {  60, "ס "},
    {  50, "נ" },
    {  40, "מ" },
    {  30, "ל" },
    {  20, "כ" },
    {  10, "י" ,},
    {   9, "ט" },
    {   8, "ח" },
    {   7, "ז", },
    {   6, "ו", },
    {   5, "ה" },
    {   4, "ד" },
    {   3, "ג" },
    {   2, "ב" },
    {   1, "א" },
}

local special = {
    [15] = "ט״ו", -- exception: avoid mixup with God יה
    [16] = "ט״ז", -- exception: avoid mixup with God יו
}

local function tohebrew(n,gershayim,geresh)
    local split = { }
    local size  = 0
    while n > 1000 do
        size = size + 1
        split[size] = n % 1000
        n = floor(n/1000)
    end
    size = size + 1
    split[size] = n
    for i=1,size do
        local t = { }
        local n = 0
        local s = split[i]
        while s > 0 do
            for i=1,#list do
              ::again::
                local li = list[i]
                local l1 = li[1]
                local s1 = special[l1]
                if s1 then
                    s = s - l1
                    n = n + 1
                    t[n] = s1
                    goto again
                elseif s >= l1 then
                    s = s - l1
                    n = n + 1
                    t[n] = li[2]
                    goto again
                end
            end
        end
        ::done::
        split[i] = t
    end
    if gershayim then
        for i=1,size do
            local si = split[i]
            local ni = #si
            if ni >= 2 then
                local s = "״"
                insert(split[i],ni,trace_hebrew and ("{\\red "..s.."}") or s)
            end
        end
    end
    if geresh then
        for i=2,#split do
            local s = rep("׳",i-1)
            insert(split[i],trace_hebrew and ("{\\blue "..s.."}") or s)
        end
    end
    for i=1,size do
        split[i] = concat(split[i])
    end
    result = string.format("{\\righttoleft %s}",concat(reverse(split)))
    return result
end

converters.tohebrew = hebrewnumber

converters.hebrewnumerals = converters.hebrew

-- converters['alphabetic:hb'] = converters.hebrewnumerals

interfaces.implement {
    name      = "hebrewnumerals",
    actions   = { tohebrew, context },
    arguments = { "integer", true, true }
}

\stopluacode

\unprotect
\def\hebrewnumerals#1{\clf_hebrewnumerals\numexpr#1\relax}
\protect


\defineconversion [hebrewnumerals] [\hebrewnumerals]

\enabletrackers[converters.hebrew]

% Fonts
\definefontfeature [yiddish] [hebrew] [
	protrusion=punctuation,
	expansion=quality,
% 	hlig=no,
% 	liga=no,
	dlig=no,
% 	clig=no
]

\starttypescript [serif] [Frank Ruehl]
	\definefontsynonym [Serif]		[file:fonts/FrankRuehlCLM-Medium.ttf]	[features=yiddish]
	\definefontsynonym [SerifBold]	[file:fonts/FrankRuehlCLM-Bold.ttf]		[features=yiddish]
\stoptypescript

\starttypescript [sans] [Secular]
	\definefontsynonym [Sans]  [file:fonts/SecularOne-Regular.ttf]		[features=yiddish]
	\definefontsynonym [SansBold]	[file:fonts/SuezOne-Regular.ttf]		[features=yiddish]
\stoptypescript

\definetypeface [yiddish]	[rm]	[serif] [Frank Ruehl]
\definetypeface [yiddish]	[ss]	[sans]	[Secular]

\setupbodyfont[yiddish,rm,12pt]

\setupbodyfont [yiddish]

% Emphasis

\definehighlight[em]
\setuphighlight[em][style={\setcharacterkerning[extrakerning]}]

\usemodule [translate]
\enableinputtranslation

% Correct horizontal bar spacing

\translateinput
  [―]
  [\sixperemspace―\sixperemspace]

% Hyphenation

\input{hyphenation_list}

\stopenvironment