From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/15314
Path: main.gmane.org!not-for-mail
From: Hans Hagen <pragma@wxs.nl>
Newsgroups: gmane.comp.tex.context
Subject: Re: \=i
Date: Thu, 03 Jun 2004 13:31:49 +0200
Sender: ntg-context-admin@ntg.nl
Message-ID: <6.1.1.1.2.20040603133129.01d29ec0@server-1>
References: <6.1.1.1.2.20040601205229.07dab140@server-1>
 <20040602204521.19379@smtp.btinternet.com>
Reply-To: ntg-context@ntg.nl
NNTP-Posting-Host: deer.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"; format=flowed
X-Trace: sea.gmane.org 1086262503 12229 80.91.224.253 (3 Jun 2004 11:35:03 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Thu, 3 Jun 2004 11:35:03 +0000 (UTC)
Original-X-From: ntg-context-admin@ntg.nl Thu Jun 03 13:34:53 2004
Return-path: <ntg-context-admin@ntg.nl>
Original-Received: from ref.vet.uu.nl ([131.211.172.13] helo=ref.ntg.nl)
	by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 1BVqUn-0007fG-00
	for <gctc-ntg-context-518@gmane.org>; Thu, 03 Jun 2004 13:34:53 +0200
Original-Received: from ref.ntg.nl (localhost.localdomain [127.0.0.1])
	by ref.ntg.nl (Postfix) with ESMTP
	id 017D310B1D; Thu,  3 Jun 2004 13:29:53 +0200 (MEST)
Original-Received: from mailrelay02.solcon.nl (maillb.solcon.nl [212.45.32.200])
	by ref.ntg.nl (Postfix) with ESMTP id 460D010AE5
	for <ntg-context@ntg.nl>; Thu,  3 Jun 2004 13:27:48 +0200 (MEST)
Original-Received: from server-1.pragma-net.nl (dsl-212-84-128-085.solcon.nl [212.84.128.85])
	by mailrelay02.solcon.nl (8.12.11/SQL-8.12.11-5/8.12.11) with ESMTP id i53BWeqF019778
	for <ntg-context@ntg.nl>; Thu, 3 Jun 2004 13:32:40 +0200
Original-Received: by server-1.pragma-net.nl (Postfix, from userid 65534)
	id 076581D3FA; Thu,  3 Jun 2004 13:32:42 +0200 (CEST)
Original-Received: from laptop-3.wxs.nl (unknown [10.100.1.52])
	by server-1.pragma-net.nl (Postfix) with ESMTP id 9F9C817BA2
	for <ntg-context@ntg.nl>; Thu,  3 Jun 2004 11:32:40 +0000 (UTC)
X-Sender: hagen-mail@server-1
X-Mailer: QUALCOMM Windows Eudora Version 6.1.1.1
Original-To: ntg-context@ntg.nl
In-Reply-To: <20040602204521.19379@smtp.btinternet.com>
Original-References: <6.1.1.1.2.20040601205229.07dab140@server-1>
 <20040602204521.19379@smtp.btinternet.com>
X-Virus-Scanned: clamd / ClamAV version 0.70, clamav-milter version 0.70j
Errors-To: ntg-context-admin@ntg.nl
X-BeenThere: ntg-context@ntg.nl
X-Mailman-Version: 2.0.13
Precedence: bulk
List-Help: <mailto:ntg-context-request@ntg.nl?subject=help>
List-Post: <mailto:ntg-context@ntg.nl>
List-Subscribe: <http://www.ntg.nl/mailman/listinfo/ntg-context>,
	<mailto:ntg-context-request@ntg.nl?subject=subscribe>
List-Id: mailing list for ConTeXt users <ntg-context.ntg.nl>
List-Unsubscribe: <http://www.ntg.nl/mailman/listinfo/ntg-context>,
	<mailto:ntg-context-request@ntg.nl?subject=unsubscribe>
List-Archive: <http://www.ntg.nl/pipermail/ntg-context/>
Xref: main.gmane.org gmane.comp.tex.context:15314
X-Report-Spam: http://spam.gmane.org/gmane.comp.tex.context:15314

At 21:45 02/06/2004, you wrote:

>I'd prefer (at least a variant) that does it based on fontstyle as well:
>
>\unprotect
>
>\definesystemvariable{sx}
>
>\def\definestylecollection
>    {\dotripleargument\dodefinestylecollection}
>
>\def\dodefinestylecollection[#1][#2][#3][#4]%
>    {\unexpanded\setvalue{#1}{\styleinstance[#1]}%
>     \setvalue{\??sx#1:#2:#3}{#4}}
>
>\unexpanded\def\styleinstance[#1]%
>    {\executeifdefined{\??sx#1:\fontstyle:\fontalternative}{\getvalue{\?
>?sx#1:\fontstyle:\s!default}}}
>
>\protect
>\definestylecollection[caps][ss][default][\sc]
>\definestylecollection[caps][ss][bf][\bc]
>\definestylecollection[caps][ss][bi][\bc]
>\definestylecollection[caps][ss][bs][\bc]

% \definestylecollection[mine]

% \definestyleinstance[mine][default][sorry]
% \definestyleinstance[mine][tt][bs][ttbs:\rm\sl]
% \definestyleinstance[mine][tt][bf][ttbf:\rm\sl]
% \definestyleinstance[mine][bf][\sl]
% \definestyleinstance[mine][sl][\tt]

% {\bf test \mine test \sl test \mine test \bs oeps \mine oeps {\tt test 
\mine \bf test}}

\definesystemvariable{sx}

\def\definestylecollection
   {\dosingleargument\dodefinestylecollection}

\def\dodefinestylecollection[#1]%
   {\iffirstargument
      \unexpanded\setvalue{#1}{\styleinstance[#1]}%
      \def\docommand##1%
        {\def\dodocommand####1{\letbeundefined{\??sx##1:####1:\commalistelement}}%
         \processcommacommand[\alternativelist,\s!default]\dodocommand}%
      \processcommacommand[\stylelist,\s!default]\docommand
    \fi}

\def\definestyleinstance
   {\doquadrupleargument\dodefinestyleinstance}

\def\dodefinestyleinstance[#1][#2][#3][#4]% [name] [rm|ss|tt|..] 
[sl|bf|...] [whatever]
   {\iffirstargument
      \doifundefined{#1}{\definestylecollection[#1]}%
    \fi
    \iffourthargument
      \setvalue{\??sx#1:#2:#3}{#4}%
    \else\ifthirdargument
      \setvalue{\??sx#1::#2}{#3}%
    \else\ifsecondargument
      \letvalue{\??sx#1::#2}\empty
    \fi\fi\fi}

\unexpanded\def\styleinstance[#1]% will be faster
   {%\begingroup\expanded{\infofont[#1:\fontstyle:\fontalternative]}\endgroup
    \executeifdefined{\??sx#1:\fontstyle:\fontalternative}%
   {\executeifdefined{\??sx#1:\fontstyle:\s!default}%
   {\executeifdefined{\??sx#1::\fontalternative}
   {\getvalue        {\??sx#1::\s!default}}}}}