[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 n...@jonasstein.de

___
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
___

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
___