From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/829
Path: main.gmane.org!not-for-mail
From: Hans Hagen <pragma@wxs.nl>
Newsgroups: gmane.comp.tex.context
Subject: p in tables
Date: Wed, 08 Sep 1999 12:06:48 +0200
Sender: owner-ntg-context@let.uu.nl
Message-ID: <37D63538.F144249B@wxs.nl>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Trace: main.gmane.org 1035391671 27469 80.91.224.250 (23 Oct 2002 16:47:51 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Wed, 23 Oct 2002 16:47:51 +0000 (UTC)
Original-To: NTG-CONTEXT <ntg-context@ntg.nl>,
        "Matthew.Baker@gmd.de" <Matthew.Baker@gmd.de>
Xref: main.gmane.org gmane.comp.tex.context:829
X-Report-Spam: http://spam.gmane.org/gmane.comp.tex.context:829

Hi Matt, 

Add this to cont-new.tex (hooks in to TaBlE): 

\unprotect

\letvalue{!tk<\string l>}=\undefined
\letvalue{!tk<\string c>}=\undefined
\letvalue{!tk<\string r>}=\undefined

\NewFormatKey c%
  {\prependtoks\raggedcenter\to\!taDataColumnTemplate
   \ReadFormatKeys \LeftGlue\hfil \RightGlue\hfil}

\NewFormatKey l%
  {\prependtoks\raggedright\to\!taDataColumnTemplate
   \ReadFormatKeys \LeftGlue{} \RightGlue\hfil}

\NewFormatKey r%
  {\prependtoks\raggedleft\to\!taDataColumnTemplate
   \ReadFormatKeys \LeftGlue\hfil \RightGlue{}}

\appendtoks \TABLEparalignment \to \EveryTableParBox

\def\dosteltabellenin[#1]%
  {\getparameters[\??ti][#1]%
   \processaction
     [\@@tiuitlijnen]
     [ \v!rechts=>\def\TABLEparalignment{\raggedright},
        \v!links=>\def\TABLEparalignment{\raggedleft},
       \v!midden=>\def\TABLEparalignment{\raggedcenter},
      \v!default=>\def\TABLEparalignment{\notragged},
      \v!unknown=>\def\TABLEparalignment{\notragged}]%
   \assignalfadimension{\@@tiVL}{\@@tiVLwidth} {2}{4}{6}%
   \assignalfadimension{\@@tiHL}{\@@tiHLheight}{2}{4}{6}}

\steltabellenin[\c!uitlijnen=\v!rechts]

\protect 

And you will be happy. You can change the default in your cont-sys file
or document: 

  \setuptables[align=normal]

I can hardly make this the default, because people expect their old docs
to be the way they were. 

I'll think about an extra key for normal alignment (n is already used),
maybe x. 

Hans

-----------------------------------------------------------------
                                          Hans Hagen | PRAGMA ADE
              Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
      tel: 038 477 53 69 | fax: 038 477 53 74 | www.pragma-ade.nl
-----------------------------------------------------------------