From d7ccb42582f85acf30568913610ccf4d602023fb Mon Sep 17 00:00:00 2001 From: Taco Hoekwater Date: Wed, 1 Jun 2011 08:54:21 +0000 Subject: commit context 2011.05.18 git-svn-id: svn://tug.org/texlive/trunk@22719 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/context/base/lang-wrd.mkiv | 30 +++++++++++++++++++----- 1 file changed, 24 insertions(+), 6 deletions(-) (limited to 'Master/texmf-dist/tex/context/base/lang-wrd.mkiv') diff --git a/Master/texmf-dist/tex/context/base/lang-wrd.mkiv b/Master/texmf-dist/tex/context/base/lang-wrd.mkiv index b6fc6a9d30f..22c234d0c6d 100644 --- a/Master/texmf-dist/tex/context/base/lang-wrd.mkiv +++ b/Master/texmf-dist/tex/context/base/lang-wrd.mkiv @@ -37,18 +37,36 @@ \unexpanded\def\setupspellchecking {\dosingleargument\dosetupspellchecking} +\newtoks\everysetupspellchecking + \unexpanded\def\setupspellchecking[#1]% todo colors {\getparameters[\??wl][#1]% + \the\everysetupspellchecking} + +\appendtoks \doifelse\@@wlstate\v!start - {\ctxlua{languages.words.enable(\@@wlmethod)}} - {\ctxlua{languages.words.disable()}}} + {\ctxlua{languages.words.enable { method = "\@@wlmethod", list = "\@@wllist" }}} + {\ctxlua{languages.words.disable()}}% +\to \everysetupspellchecking + +% beware, maybe some day we will honour grouping + +% 1: spell checking +% 2: word counting +% 3: language coloring \setupspellchecking [\c!state=\v!stop, - \c!method=1] + \c!method=1, + \c!list=] -\appendtoks - \ctxlua{languages.words.dump_used_words("\jobname.words")}% -\to \everybye +\definecolor[word:yes] [g=.75] +\definecolor[word:no] [r=.75] + +%definecolor[word:unset] [s=.75] +\definecolor[word:en] [b=.75] +\definecolor[word:de] [r=.75] +\definecolor[word:nl] [g=.75] +\definecolor[word:unknown][r=.75,g=.75] \protect \endinput -- cgit v1.2.3