Дефайн дефайна

[вздымщик Цыпа]

Хочется странного, которое в реальной его ипостаси описывать долго, а проще пояснить синтетическим примером.

Нужен способ определять команды, которые кроме того, что непосредственно написано в определении, делают еще что-то. Например, автоматически обрамляют вывод в угловые скобки.

В простейшем виде выглядит так: \def\adef#1#2{\def#1{\langle {#2}\rangle}}

В применении:

\def\adef#1#2{\def#1{\langle {#2}\rangle}}
\adef\q{1234}
$\q$

\def\adef#1#2{\def#1{\langle {#2}\rangle}}\adef\q{1234}$\q$

Но в таком виде оно не жрет параметры и на конструкцию \adef\q#1{1234 - #1 - 4321} ругается грязными словами.

Причем я точно помню, что 20 лет назад влегкую такие вещи делал, но сейчас все выветрилось и кроме \expandafter и \csname в голове ничего не вертится, да и про то ничего не помню детально.

Поможите, чтоль, если кто в курсе.