Re: [NTG-context] Redefine symbols for new command \morse{.-..}

2010-12-10 Thread Hans Hagen 

On 10-12-2010 11:17, Jonas Stein wrote:

\define[]\short{\dontleavehmode \blackrule[width=0.4em]\ }
\define[]\long {\dontleavehmode \blackrule[width=1.4em]\ }
\define[1] \morse {MAGIC}

\morse{.-..}


up to you to complete the tables ... after that I'll clean up the code a 
bit



-
  Hans Hagen | PRAGMA ADE
  Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
 | www.pragma-pod.nl
-
\startluacode
moduledata.morse = moduledata.morse or { }

local morsecodes = {
["A"] = "·—",
["B"] = "—···",
["C"] = "—·—·",
["D"] = "—··",
["E"] = "·",
["F"] = "··—·",
["G"] = "——·",
["H"] = "····",
["I"] = "··",
["J"] = "·———",
["K"] = "—·—",
["L"] = "·—··",
["M"] = "——",
["N"] = "—·",
["O"] = "———",
["P"] = "·——·",
["Q"] = "——·—",
["R"] = "·—·",
["S"] = "···",
["T"] = "—",
["U"] = "··—",
["V"] = "···—",
["W"] = "·——",
["X"] = "—··—",
["Y"] = "—·——",
["Z"] = "——··",
["0"] = "—————",
["1"] = "·————",
["2"] = "··———",
["3"] = "···——",
["4"] = "····—",
["5"] = "·····",
["6"] = "—····",
["7"] = "——···",
["8"] = "———··",
["9"] = "————·",
["."] = "·—·—·—",
[","] = "——··——",
["?"] = "··——··",
["-"] = "—····—",
["/"] = "—··—· ",
[":"] = "———···",
["'"] = "·————·",
["-"] = "—····—",
[")"] = "—·——·—",
[";"] = "—·—·— ",
["("] = "—·——·",
["="] = "—···—",
["@"] = "·——·—·",
}

local simplecodes = {
["."] = "·",
["-"] = "—",
}

function moduledata.morse.tomorse(str,translate)
if translate then
str = utf.gsub(string.upper(str),".",morsecodes)
else
str = utf.gsub(str,".",simplecodes)
end
context.ignorespaces()
for s in string.utfcharacters(str) do
if s == "·" then
context.MorseShort()
elseif s == "—" then
context.MorseLong()
elseif s == "\n" or s == " " then
context.MorseSpace()
else
context.MorseUnknown(s)
end
end
context.removeunwantedspaces()
end

function moduledata.morse.filetomorse(name,translate)
moduledata.morse.tomorse(resolvers.loadtexfile(name),translate)
end

\stopluacode

\unprotect

\def\MorseShort{\dontleavehmode\blackrule[\c!width=0.4em]\space}
\def\MorseLong {\dontleavehmode\blackrule[\c!width=1.4em]\space}
\def\MorseSpace{\emspace}
\def\MorseUnknown#1{\emspace}
\def\MorseCode   #1{\ctxlua{moduledata.morse.tomorse("#1")}}
\def\Morse   #1{\ctxlua{moduledata.morse.tomorse("#1",true)}}
\def\MorseFile   #1{\ctxlua{moduledata.morse.filetomorse("#1",true)}}

\unprotect

\starttext

\MorseCode{.-..}

\Morse{CONTEXT}

\MorseFile{tufte}

\stoptext
___
If your question is of interest to others as well, please add an entry to the 
Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___

[NTG-context] Redefine symbols for new command \morse{.-..}

2010-12-10 Thread Jonas Stein 
i'd like to define a new command

\define[]\short{\dontleavehmode \blackrule[width=0.4em]\ }
\define[]\long {\dontleavehmode \blackrule[width=1.4em]\ }
\define[1] \morse {MAGIC}

\morse{.-..} 
should create a \short for every '.' and \long for every '-'
But this transcription should be only active in the 
"morse environment"

Is that possible? Who knows the MAGIC?

Kind regards,

-- 
Jonas Stein 

___
If your question is of interest to others as well, please add an entry to the 
Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___