[dev-context] \definelistplacement

[Wolfgang Schuster]

Hi,

can the \defineplistplacement command in the same way be modified as the \defineheadplacement command to allow

  \definelistplacement[…][…]#1#2#3{…} % old form with parameters

and

  \definelistplacement[…][…]{…} % new form without parameters


\unexpanded\def\definelistplacement
  {\dodoubleempty\dodefinelistplacement}
 
\def\dodefinelistplacement[#1][#2]%
  {\setvalue{\??listelement#1}%
     {\doifelsenothing{#2}
        {\getvalue{\??listelement\v!command}}%
        {\expandcheckedcsname\??listelement{#2}\v!command}%
      \setlistparameter\c!command{\getvalue{\??listelementcommand#1}}}%
   \doifnextbgroupelse
     {\dodefinelistplacementyes{#1}}
     {\dodefinelistplacementnop{#1}}}

\def\dodefinelistplacementyes#1%
  {\setvalue{\??listelementcommand#1}##1##2}

\def\dodefinelistplacementnop#1%
  {\setvalue{\??listelementcommand#1}}

Wolfgang