how to dismantle parametrized macro

["Johannes Hüsing" <hannes@ruhrau.de>]

Dear ConTeXters,

I am a bit stuck about how to handle the key-value mechanism of ConTeXt.
The text here, between my "monkey-see-monkey-do"
attempts to write a macro, hopefully demonstrates what I want to achieve.
Could sb give me a hand?

Thank you very much


Johannes

---8-<---
\setupcolors[state=start]
\setupoutput[pdf]

\definecolor[Accent:1:5][r=0.50, g=0.79, b=0.50]
\definecolor[Accent:2:5][r=0.75, g=0.69, b=0.84]
\definecolor[Accent:3:5][r=1.00, g=0.76, b=0.53]
\definecolor[Accent:4:5][r=1.00, g=1.00, b=0.60]
\definecolor[Accent:5:5][r=0.22, g=0.43, b=0.69]

\def\defineCBpalet{\dodoubleemptywithset\dodefineCBpalet}

\def\dodefineCBpalet[#1][#2]%
  {
    \def\sep{}
    \ifsecondargument
      \getparameters[CB][\c!n=,#2]
    \else	
      \def\CBn{3}
    \fi
    \def\colorlist{%
      \dorecurse{\CBn}{
      \sep #1:\recurselevel=#1:\recurselevel:\CBn
      \def\sep{,}}}
    \definepalet[#1][\colorlist]}

\defineCBpalet[Accent][n=5]

% I want this to expand into (without the indentation):
%       \definepalet[Accent]
%               [Accent:1=Accent:1:5,
%                Accent:2=Accent:2:5,
%                Accent:3=Accent:3:5,
%                Accent:4=Accent:4:5,
%                Accent:5=Accent:5:5]

\starttext

\comparepalet[Accent]

\stoptext

--->-8---

-- 
Johannes Hüsing   There is something fascinating about science. One gets
hannes@ruhrau.de  such wholesale returns of conjecture from such a 
                  trifling investment of fact.                Mark Twain