From: Gavin via ntg-context <ntg-context@ntg.nl>
To: Max Chernoff <mseven@telus.net>
Cc: Gavin <gavinpublic@comcast.net>,
mailing list for ConTeXt users <ntg-context@ntg.nl>
Subject: Re: Spacing in \unit - SOLVED
Date: Wed, 12 Oct 2022 18:11:32 -0600 [thread overview]
Message-ID: <A3F5E0DB-6503-4542-B3C7-98F8CD7FA96F@comcast.net> (raw)
In-Reply-To: <6ff808a4d15d6c098525938ba785d7ad9c0d1d3c.camel@telus.net>
[-- Attachment #1: Type: text/plain, Size: 661 bytes --]
Hi Max and Rik
> On Oct 12, 2022, at 4:49 PM, Max Chernoff <mseven@telus.net> wrote:
>
> This new output looks *much* better than the old one, thanks!
Thank you!
> My only comment is that the spacing around the multiplication sign looks
> a little too tight to me. The original spacing was probably too large,
> but I think that a little more space than you currently have would be
> better.
I haven’t adjusted the space directly. I just changed the \times and \cdot from class binom to class ord. I’m not going to tweak the space. I don’t even use this font. With proportional numbers in Libertinus, I think the \times looks great.
[-- Attachment #2: PastedGraphic-5.pdf --]
[-- Type: application/pdf, Size: 14851 bytes --]
[-- Attachment #3: Type: text/plain, Size: 3548 bytes --]
With tabular numbers, the \times looks a bit off center due to the extra space around the following 1.
>> If anyone wants my changes, either for their own use or to improve the
>> distributed phys-dim.mkxl, I’m happy to share.
>
> Yes, can you please share that to the list?
See below for comments, and the full modified phys-dim.mkxl is attached
> Hi Rik,
>
>> It does look like you have introduced additional space before the
>> solidus. Was that intentional?
>
> I believe that that is intentional. From the earlier email:
>
>> removed an overzealous backspace before division symbols.
>
> This new spacing looks much more even to me, especially around the
> exponents.
It was intentional. I didn’t add space. I removed a backspace in the \unit code.
Below I list all of my changes to the phys-dim.mkxl code, with some commentary. I have added comments in the code everywhere I made a change, and I signed the changes with -GP, so they are easy to find.
Thanks for your encouragement, because my high school physics students certainly do not give a s#!t.
I hope some people find this useful!
Gavin
This used to add space around the \times in text. Now, instead, it removes the space around the \times in math by making the \times an ord. (ll. 170-172)
\permanent\protected\def\digitstextbinop#1% assumes preceding
{\ifmmode\mathord#1\else\nobreak#1\fi} % Removed space around binop (\times or \cdot) in \units -GP
%{\ifmmode#1\else\fourperemspace\nobreak#1\fourperemspace\fi} % This is the old line with spaces -GP
These lines produce the \cdot between units, one is for the default \cdot, the other when the separator=cdot option is used. I’m not entirely sure why they are separate. Now, in math mode, the \cdot is changed to an ord. (ll. 392-393
\protected\def\phys_units_separator
{\ifcsname\??unitseparator\unitparameter\c!separator\endcsname\lastnamedcs\else\ifmmode\mathord\cdot\else\cdot\fi\fi} % Made \cdot an "ord" in math mode -GP
\installunitsseparator\v!normal{\ifmmode\mathord\cdot\else\cdot\fi} % Made \cdot an "ord" in math mode -GP
To get the thin space between the number and the units (ll.412-418)
\protected\def\phys_units_space
{\ifmmode
\thinspace % let the atoms do the work. Right now atoms aren't doing the work, so I put in a \thinspace -GP
\else
\unskip % weird, why is unskip needed
\ifcsname\??unitspace\unitparameter\c!space\endcsname\lastnamedcs\else\unitsmediumspace\fi
\fi}
This had a hardcoded backspace before the solidus. I think it looks better without. Even if this space should be tighter, it probably should be dealt with for every solidus, not just the solidus in \unit the unit command. (ll.412-418)
\permanent\protected\def\unitsSOLIDUS
{%\ifnum\c_phys_units_state=\plusone % suffix % Removed three lines to eliminate backspace before / -GP
% \unitsbackspace
%\fi
{/}%
}%\unitsbackspace}
Finally, until the space around the dimension class is fixed, I’m just removing the code that sets units to this class. (ll. 618-623)
\def\phys_units_start
{\ifmmode
\dostarttagged\t!maction\t!unit
% \mathatom % I removed this because the correct spaces after dim haven't been set (e.g. dimbin, dimrel) -GP
% \s!leftclass \mathdimensioncode
% \s!rightclass \mathdimensioncode
\bgroup
\else
\dostarttagged\t!unit\empty
\fi
\let\phys_units_finish\phys_units_stop
\let\phys_units_start\relax}
[-- Attachment #4: phys-dim.mkxl --]
[-- Type: application/octet-stream, Size: 31110 bytes --]
%D \module
%D [ file=phys-dim,
%D version=2011-06-13, % was digits and units 1997.03.19,
%D title=\CONTEXT\ Physics,
%D subtitle=Digits and Units,
%D author={Hans Hagen},
%D date=\currentdate,
%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
\registerctxluafile{phys-dim}{}
% TAGGING NEEDS CHECKING ... WILL DO WHEN PARSER IS OK
\unprotect
%D \macros
%D {digits, setdigitmode, setdigitsign}
%D
%D This is an update of the \MKII\ digits mechanism. Beware, space delimited mode is
%D now resticted!
%D
%D Depending on the digit mode the command \type {\digits} normalizes number
%D patterns depending on the language set.
%D
%D \starttyping
%D This will never be a \digits{1.000.000} seller.
%D \stoptyping
%D
%D We still support the space delimited case but this is only for special purposes.
%D When used in the text, you'd better use the argument variant.
%D
%D \startbuffer
%D 1 \setdigitmode {1} \setdigitorder{0} \digits {12.345,90}
%D 2 \setdigitmode {2} \setdigitorder{0} \digits {12.345,90}
%D 3 \setdigitmode {3} \setdigitorder{0} \digits {12.345,90}
%D 4 \setdigitmode {4} \setdigitorder{0} \digits {12.345,90}
%D 5 \setdigitmode {5} \setdigitorder{0} \digits {12.345,90}
%D 6 \setdigitmode {6} \setdigitorder{0} \digits {12.345,90}
%D 1 \setdigitmode {1} \setdigitorder{1} \digits {12.345,90}
%D 2 \setdigitmode {2} \setdigitorder{1} \digits {12.345,90}
%D 3 \setdigitmode {3} \setdigitorder{1} \digits {12.345,90}
%D 4 \setdigitmode {4} \setdigitorder{1} \digits {12.345,90}
%D 5 \setdigitmode {5} \setdigitorder{1} \digits {12.345,90}
%D 6 \setdigitmode {6} \setdigitorder{1} \digits {12.345,90}
%D \stopbuffer
%D
%D \typebuffer
%D
%D This is typeset as:
%D
%D \startlines \getbuffer \stoplines
%D
%D The sign can be typeset as is or within the space of a digit.
%D
%D \startbuffer
%D \setdigitsign 0 \digits {+12.345,90}
%D \setdigitsign 1 \digits {+12.345,90}
%D \stopbuffer
%D
%D \typebuffer
%D
%D This is typset as:
%D
%D \startlines
%D \getbuffer
%D \stoplines
%D
%D The digit modes are:
%D
%D \startitemize[n,packed]
%D \item periods/comma
%D \item commas/period
%D \item thinmuskips/comma
%D \item thinmuskips/period
%D \item thickmuskips/comma
%D \item thickmuskips/period
%D \stopitemize
%D
%D The digit parser handles a bunch of special characters as well as different
%D formats. We strongly suggest you to use the grouped call.
%D
%D \starttabulate[|l|l|l|]
%D \NC \type{.} \NC , . \NC comma or period \NC \NR
%D \NC \type{,} \NC , . \NC comma or period \NC \NR
%D \NC \type{:} \NC \NC invisible period \NC \NR
%D \NC \type{;} \NC \NC invisible comma \NC \NR
%D \NC \type{_} \NC \NC invisible space \NC \NR
%D \NC \type{/} \NC \NC invisible sign \NC \NR
%D \NC \type{-} \NC $-$ \NC minus sign \NC \NR
%D \NC \type{+} \NC $+$ \NC plus sign \NC \NR
%D \NC \type{//} \NC \NC invisible high sign \NC \NR
%D \NC \type{--} \NC $\negative$ \NC high minus sign \NC \NR
%D \NC \type{++} \NC $\positive$ \NC high plus sign \NC \NR
%D \NC \type{=} \NC $\zeroamount$ \NC zero padding \NC \NR
%D \stoptabulate
%D
%D These triggers are used in the following examples.
%D
%D \starttabulate[|l|r|]
%D \NC \type{1} \NC \ruledhbox{\strut\digits{1}} \NC \NR
%D \NC \type{12} \NC \ruledhbox{\strut\digits{12}} \NC \NR
%D \NC \type{12.34} \NC \ruledhbox{\strut\digits{12.34}} \NC \NR
%D \NC \type{123,456} \NC \ruledhbox{\strut\digits{123,456}} \NC \NR
%D \NC \type{123,456.78} \NC \ruledhbox{\strut\digits{123,456.78}} \NC \NR
%D \NC \type{12,34} \NC \ruledhbox{\strut\digits{12,34}} \NC \NR
%D \NC \type{.1234} \NC \ruledhbox{\strut\digits{.1234}} \NC \NR
%D \NC \type{1234} \NC \ruledhbox{\strut\digits{1234}} \NC \NR
%D \NC \type{123,456.78^9} \NC \ruledhbox{\strut\digits{123,456.78^9}} \NC \NR
%D \NC \type{123,456.78e9} \NC \ruledhbox{\strut\digits{123,456.78e9}} \NC \NR
%D \NC \type{/123,456.78e-9} \NC \ruledhbox{\strut\digits{/123,456.78e-9}} \NC \NR
%D \NC \type{-123,456.78e-9} \NC \ruledhbox{\strut\digits{-123,456.78e-9}} \NC \NR
%D \NC \type{+123,456.78e-9} \NC \ruledhbox{\strut\digits{+123,456.78e-9}} \NC \NR
%D \NC \type{//123,456.78e-9} \NC \ruledhbox{\strut\digits{//123,456.78e-9}} \NC \NR
%D \NC \type{--123,456.78e-9} \NC \ruledhbox{\strut\digits{--123,456.78e-9}} \NC \NR
%D \NC \type{++123,456.78e-9} \NC \ruledhbox{\strut\digits{++123,456.78e-9}} \NC \NR
%D \NC \type{___,___,123,456,789.00} \NC \ruledhbox{\strut\digits{___,___,123,456,789.00}} \NC \NR
%D \NC \type{___,___,_12,345,678.==} \NC \ruledhbox{\strut\digits{___,___,_12,345,678.==}} \NC \NR
%D \stoptabulate
\newconstant\c_phys_digits_order
\newconstant\c_phys_digits_method
\newconstant\c_phys_digits_sign % we has sized (text script scriptscript)
\permanent\protected\def\setdigitmethod#1{\c_phys_digits_method #1\relax}
\permanent\protected\def\setdigitsign #1{\c_phys_digits_sign #1\relax}
\permanent\protected\def\setdigitorder #1{\c_phys_digits_order #1\relax}
\aliased\let\setdigitmode\setdigitmethod % compatibility
\def\phys_digits_normalized % we could calculate once and remember
{\ifcase\c_phys_digits_sign
\expandafter\secondoftwoarguments
\orelse\ifmmode
\expandafter\phys_digits_normalized_math
\else
\expandafter\phys_digits_normalized_text
\fi}
\def\phys_digits_normalized_math#1#2%
{\setbox\scratchbox\hbox{\normalstartimath\Ustack{#1}\normalstopimath}%
\hbox to \wd\scratchbox{\hss{\normalstartimath\Ustack{#2}\normalstopimath}\hss}}
\def\phys_digits_normalized_text#1#2%
{\setbox\scratchbox\hbox{#1}%
\hbox to \wd\scratchbox{\hss#2\hss}}
\def\phys_digits_raised
{\ifmmode
\expandafter\normalsuperscript
\else
\expandafter\unitshigh
\fi}
% we could use a symbolset but how many symbols are there ?
% \definesymbol[units][times][\times]
% \definesymbol[units][times][\cdots]
% \def\digitstimessymbol{\symbol[units][times]}
% \definesymbol[units][times][\times]
% \definesymbol[units][times][\cdots]
% \definesymbol[units][times][\invisibletimes]
% \definesymbol[units][times][\ifmmode\cdot\else\kern.2\emwidth\cdot\kern.2\emwidth\fi]
\permanent\protected\def\digitstextbinop#1% assumes preceding
{\ifmmode\mathord#1\else\nobreak#1\fi} % Removed space around binop (\times or \cdot) in \units -GP
%{\ifmmode#1\else\fourperemspace\nobreak#1\fourperemspace\fi} % This is the old line with spaces -GP
\frozen\def\digitstimessymbol{\digitstextbinop\times}
\frozen\protected\def\digitszeropadding {\hphantom{0}}
\frozen\protected\def\digitsnegative {\phys_digits_normalized{0}{\mathematics{\negative}}}
\frozen\protected\def\digitspositive {\phys_digits_normalized{0}{\mathematics{\positive}}}
\frozen\protected\def\digitsminus {\phys_digits_normalized{0}{\mathminus}}
\frozen\protected\def\digitsplus {\phys_digits_normalized{0}{\mathplus}}
\frozen\protected\def\digitsplusminus {\phys_digits_normalized{0}{\mathplusminus}}
\frozen\protected\def\digitsspace {\hphantom{0}}
\protected\def\digitsseparatorspace{\hphantom{.}}
\frozen\protected\def\digitssignspace {\hphantom{\digitsminus}}
\frozen\protected\def\digitshighspace {\hphantom{\digitspositive}}
\frozen\protected\def\digitspower #1{\digitstimessymbol10\phys_digits_raised{#1}}
\frozen\protected\def\digitspowerplus #1{\digitstimessymbol10\phys_digits_raised{\digitsplus#1}}
\frozen\protected\def\digitspowerminus #1{\digitstimessymbol10\phys_digits_raised{\digitsminus#1}}
\frozen\protected\def\digitsdigit #1{#1}
\frozen\protected\def\normaldigitscommasymbol {,}
\frozen\protected\def\normaldigitsperiodsymbol{.}
\frozen\let\normaldigitsseparatorspace\digitsseparatorspace
\installcorenamespace{digitscomma}
\installcorenamespace{digitsperiod}
\installcorenamespace{digitsspace}
\letcsname\??digitscomma 0\endcsname\normaldigitscommasymbol
\letcsname\??digitsperiod0\endcsname\normaldigitsperiodsymbol
\letcsname\??digitsspace 0\endcsname\normaldigitsseparatorspace
\letcsname\??digitscomma 1\endcsname\normaldigitsperiodsymbol
\letcsname\??digitsperiod1\endcsname\normaldigitscommasymbol
\letcsname\??digitsspace 1\endcsname\normaldigitsseparatorspace
\letcsname\??digitscomma 2\endcsname\normaldigitscommasymbol
\letcsname\??digitsperiod2\endcsname\normaldigitsperiodsymbol
\letcsname\??digitsspace 2\endcsname\normaldigitsseparatorspace
\letcsname\??digitscomma 3\endcsname\thinspace
\letcsname\??digitsperiod3\endcsname\normaldigitscommasymbol
\letcsname\??digitsspace 3\endcsname\thinspace
\letcsname\??digitscomma 4\endcsname\thinspace
\letcsname\??digitsperiod4\endcsname\normaldigitsperiodsymbol
\letcsname\??digitsspace 4\endcsname\thinspace
\letcsname\??digitscomma 5\endcsname\thickspace
\letcsname\??digitsperiod5\endcsname\normaldigitscommasymbol
\letcsname\??digitsspace 5\endcsname\thickspace
\letcsname\??digitscomma 6\endcsname\thickspace
\letcsname\??digitsperiod6\endcsname\normaldigitsperiodsymbol
\letcsname\??digitsspace 6\endcsname\thickspace
\frozen\protected\def\digitscommasymbol {\csname\??digitscomma \number\c_phys_digits_method\endcsname}
\frozen\protected\def\digitsperiodsymbol {\csname\??digitsperiod\number\c_phys_digits_method\endcsname}
\frozen\protected\def\digitsseparatorspace {\csname\??digitsspace \number\c_phys_digits_method\endcsname}
\frozen\protected\def\digitsfinalcomma {\digitsperiodsymbol} % more for tracing
\frozen\protected\def\digitsfinalperiod {\digitsperiodsymbol} % more for tracing
\frozen\protected\def\digitsintermediatecomma {\digitscommasymbol } % more for tracing
\frozen\protected\def\digitsintermediateperiod{\digitscommasymbol } % more for tracing
%D The user macro:
\protected\def\phys_digits_indeed#1%
{\dontleavehmode
\begingroup
\ifcase\c_phys_digits_order\expandafter\clf_digits_normal\else\expandafter\clf_digits_reverse\fi{\detokenize{#1}}%
\endgroup
\settrue\c_phys_units_dospace}
\permanent\protected\def\digits
{\doifelsenextbgroup\phys_digits_argument\phys_digits_spaced}
\def\phys_digits_argument#1%
{\phys_digits_indeed{#1}}
\def\phys_digits_spaced#1 % space delimited
{\phys_digits_indeed{#1}}
%D \macros
%D {unit}
%D
%D We have been using the units module (and its predecessor) for over a decade now
%D but when we moved on to \LUATEX\ a variant was prototyped that permits a less
%D texie coding. I finally picked up that thread and cleaned up the code a bit so
%D users can now play with it. (The main reason was that I wanted to test
%D exporting.)
%D
%D \startbuffer
%D 01: $10\unit{km/h}$
%D 02: $\unit{10 km/h}$
%D 03: \unit{km/h}
%D 04: \unit{10 km/h}
%D 05: \unit{10 km/h}
%D 06: \unit{~1 km/h}
%D 07: 10\unit{km/h}
%D 08: 10 \unit{km/h}
%D 09: $10 \unit{km/h}$
%D 10: 10 \unit{KiloMeter/Hour}
%D 11: 10 \unit{kilometer/hour}
%D 12: 10 \unit{km/h}
%D 13: 10 \unit{kilometer per hour}
%D 14: 10 \unit{km / h}
%D 15: 10 \unit{ km / h }
%D 16: 10 \unit{km/ms2}
%D 17: 10 \unit{meter per second}
%D 18: 10 \unit{cubic meter}
%D 19: 10 \unit{cubic meter per second}
%D 21: 10 \unit{cubic meter / second}
%D 22: $10 \unit{cubic meter / second}$
%D 23: 30 \unit{kilo pascal }
%D 24: 30 \unit{kilo pascal square meter / second}
%D 25: 30 \unit{kilo pascal square meter / kelvin second}
%D 26: \unit{30 kilo pascal square meter / kelvin second}
%D 27: $30 \unit{kilo pascal square meter / kelvin second }$
%D 28: 30 \unit{crap}
%D 29: 30 \unit{AC}
%D 30: $\frac{10 \unit{m/s}}{20 \unit{m/s}} $
%D 31: {\ss 30 \unit{kilo pascal square meter / second kelvin}}
%D 32: \unit{123.22^-3 km/s}
%D 33: \unit{123.22e-3 km/s}
%D \stopbuffer
%D
%D \typebuffer
%D
%D Result: \startlines \getbuffer \stoplines
%D
%D Depending on needs we can add more tweaks (also depends on to what extent we need
%D to be compatible with \MKII.
%D
%D Formatting is supported too:
%D
%D \startbuffer
%D \starttabulate[|l|l|l|]
%D \HL
%D \NC \unit{10 kilo gram} \NC \digits{10} \NC \unit{10} \NC \NR
%D \NC \unit{1 kilogram} \NC \digits{1} \NC \unit{1} \NC \NR
%D \NC \unit{0.1 kilogram} \NC \digits{0.1} \NC \unit{0.1} \NC \NR
%D \NC \unit{1.1 kilogram} \NC \digits{1.1} \NC \unit{1.1} \NC \NR
%D \NC \unit{11 kilogram} \NC \digits{11} \NC \unit{11} \NC \NR
%D \HL
%D \NC \unit{00,000.10 kilogram} \NC \digits{00,000.10} \NC \unit{00,000.10} \NC \NR
%D \NC \unit{@@,@@0.10 kilogram} \NC \digits{@@,@@0.10} \NC \unit{@@,@@0.10} \NC \NR
%D \NC \unit{__,___.10 kilogram} \NC \digits{__,___.10} \NC \unit{__,___.10} \NC \NR
%D \NC \unit{__,__0:10 kilogram} \NC \digits{__,__0:10} \NC \unit{__,__0:10} \NC \NR
%D \NC \unit{__,___:10 kilogram} \NC \digits{__,___:10} \NC \unit{__,___:10} \NC \NR
%D \HL
%D \stoptabulate
%D \stopbuffer
%D
%D \typebuffer \getbuffer
%D
%D Punctuation can be configures usiing \type {method}:
%D
%D \startbuffer
%D \starttabulate[|l|l|l|]
%D \HL
%D \NC \NC \setupunits[method=0]\unit{00,000.10 kilogram} \NC \setupunits[method=0]\unit{@@,@@0.10 kilogram} \NC \NR
%D \NC 1 \NC \setupunits[method=1]\unit{00,000.10 kilogram} \NC \setupunits[method=1]\unit{@@,@@0.10 kilogram} \NC \NR
%D \NC 2 \NC \setupunits[method=2]\unit{00,000.10 kilogram} \NC \setupunits[method=2]\unit{@@,@@0.10 kilogram} \NC \NR
%D \NC 3 \NC \setupunits[method=3]\unit{00,000.10 kilogram} \NC \setupunits[method=3]\unit{@@,@@0.10 kilogram} \NC \NR
%D \NC 4 \NC \setupunits[method=4]\unit{00,000.10 kilogram} \NC \setupunits[method=4]\unit{@@,@@0.10 kilogram} \NC \NR
%D \NC 5 \NC \setupunits[method=5]\unit{00,000.10 kilogram} \NC \setupunits[method=5]\unit{@@,@@0.10 kilogram} \NC \NR
%D \NC 6 \NC \setupunits[method=6]\unit{00,000.10 kilogram} \NC \setupunits[method=6]\unit{@@,@@0.10 kilogram} \NC \NR
%D \HL
%D \stoptabulate
%D \stopbuffer
%D
%D \typebuffer \getbuffer
% only a space when a number is part of the unit
\installcorenamespace {unit}
\installcorenamespace {unitseparator}
\installcorenamespace {unitspace}
\installcommandhandler \??unit {unit} \??unit
\setupunit
[\c!alternative=, % done: text
\c!separator=\v!normal, % done: cdot|big|medium|space
\s!language=\currentlanguage, % done: (no interface yet)
\c!order=\v!normal, % ,. (reverse: .,)
\c!method=0,
%\c!grid=\v!yes, % (maybe)
%\c!style=..., % done
%\c!color=..., % done
%\c!space=..., % (maybe) small medium big
]
\definehigh[unitshigh][\c!style=\txx]
\definelow [unitslow] [\c!style=\txx]
\aliased\let\setupunits\setupunit
\newconstant \c_phys_units_mode % 0=text 1=math 2=textinmath 3=mathintext
\newconstant \c_phys_units_state % 0=start 1=suffix 2=operator 3=unit 4=prefix 5=number
\newconditional\c_phys_units_quantity
\newconditional\c_phys_units_number
\newconditional\c_phys_units_dospace
% [\unit {micro ohm}]\par % no space before unit
% [10\unit {micro ohm}]\par % no space before unit
% [10 \unit{micro ohm}]\par % space before unit
% [ \unit {micro ohm}]\par % space before unit
% [\unit{10 micro ohm}]\par % space before unit
\frozen\protected\def\unitssmallspace {\thinspace}
\frozen\protected\def\unitsmediumspace{\medspace}
\frozen\protected\def\unitsbigspace {\thickspace}
\frozen\protected\def\unitsbackspace {\negthinspace}
\frozen\protected\def\unitsmathspace {\ifmmode\mathatomskip\mathdimensioncode\mathdimensioncode\mathstyle\fi}
\permanent\protected\def\installunitsseparator#1#2%
{\defcsname\??unitseparator#1\endcsname{#2}}
\protected\def\phys_units_separator
{\ifcsname\??unitseparator\unitparameter\c!separator\endcsname\lastnamedcs\else\ifmmode\mathord\cdot\else\cdot\fi\fi} % Made \cdot an "ord" in math mode -GP
\installunitsseparator\v!normal{\ifmmode\mathord\cdot\else\cdot\fi} % Made \cdot an "ord" in math mode -GP
\installunitsseparator\v!big {\unitsbigspace}
\installunitsseparator\v!medium{\unitsmediumspace}
\installunitsseparator\v!small {\unitssmallspace}
\installunitsseparator\v!none {}
\installunitsseparator\v!math {\unitsmathspace}
\permanent\protected\def\installunitsspace#1#2%
{\defcsname\??unitspace#1\endcsname{#2}}
% \protected\def\phys_units_space
% {\unskip % weird, why is unskip needed
% \ifcsname\??unitspace\unitparameter\c!space\endcsname\lastnamedcs\else\unitsmediumspace\fi}
% \im{1 \unit{hour} 20 \unit{minute} 56 \unit{second}}
% \im{\unit{1 hour} \unit{20 minute} 56 \unit{second}}
\protected\def\phys_units_space
{\ifmmode
\thinspace % let the atoms do the work. Right now atoms aren't doing the work, so I put in a \thinspace -GP
\else
\unskip % weird, why is unskip needed
\ifcsname\??unitspace\unitparameter\c!space\endcsname\lastnamedcs\else\unitsmediumspace\fi
\fi}
\installunitsspace\v!normal{\unitsmediumspace}
\installunitsspace\v!big {\unitsbigspace}
\installunitsspace\v!medium{\unitsmediumspace}
\installunitsspace\v!small {\unitssmallspace}
\installunitsspace\v!none {}
\installunitsspace\v!math {\unitsmathspace}
\newtoks \everyunits % we keep the old \units command so we need a longer one
\appendtoks
\disablemathpunctuation
\nocharacteralign
\to \everyunits
\appendtoks
\frozen\instance\setuevalue\currentunit{\phys_units_direct{\currentunit}}
\to \everydefineunit
\protected\def\phys_units_direct#1%
{\begingroup
\the\everyunits
\ifdim\lastskip>\zeropoint
\settrue\c_phys_units_dospace
\removelastskip
\fi
\c_phys_digits_method\unitparameter\c!method\relax
\ifmmode\else\dontleavehmode\fi
\edef\currentunit{#1}%
\enforced\edef\unitlanguage{\unitparameter\s!language}%
\enforced\let\prefixlanguage\unitlanguage
\enforced\let\operatorlanguage\unitlanguage
% \the\everyunits
%\removeunwantedspaces % not ok yet
\useunitstyleandcolor\c!style\c!color
\ifmmode
\ifcstok{\unitparameter\c!alternative}\v!text
\expandafter\expandafter\expandafter\phys_units_direct_text_in_math
\else
\expandafter\expandafter\expandafter\phys_units_direct_math
\fi
\else
\ifcstok{\unitparameter\c!alternative}\v!mathematics
\expandafter\expandafter\expandafter\phys_units_direct_math_in_text
\else
\expandafter\expandafter\expandafter\phys_units_direct_text
\fi
\fi}
\protected\def\phys_units_direct_text_in_math#1%
{\mathtext{%
\c_phys_units_mode\plustwo
\phys_units_indeed{#1}%
\phys_units_finish
}%
\endgroup}
\protected\def\phys_units_direct_math#1%
{\c_phys_units_mode\plusone
\rm\tf % slow
\mathtf
\phys_units_indeed{#1}%
\phys_units_finish
\endgroup}
\protected\def\phys_units_direct_text#1%
{\phys_units_indeed{#1}%
\phys_units_finish
\endgroup}
\protected\def\phys_units_direct_math_in_text#1%
{\removeunwantedspaces % brr
\startimath
\c_phys_units_mode\plusthree
\rm\tf
\mathtf
\phys_units_indeed{#1}%
\phys_units_finish
\stopimath
\endgroup}
\protected\def\phys_units_direct_nested#1#2%
{\phys_units_indeed{#2}}
\appendtoks
\let\phys_units_direct\phys_units_direct_nested
\to \everyunits
\protected\def\phys_units_indeed#1%
{\edef\p_order{\unitparameter\c!order}%
\ifx\p_order\v!reverse\expandafter\clf_unit_reverse\else\expandafter\clf_unit_normal\fi{\detokenize{#1}}}
\permanent\protected\def\digitstextbinnop#1%
{\ifmmode#1\else#1\fourperemspace\fi}
\permanent\protected\def\unitsPUS#1#2#3{\phys_units_next\prefixtext{#1}\unittext{#2}\unitsraise{\suffixtext{#3}}\c_phys_units_state\plusone} % suffix
\permanent\protected\def\unitsPU #1#2{\phys_units_next\prefixtext{#1}\unittext{#2}\c_phys_units_state\plusthree} % unit
\permanent\protected\def\unitsPS #1#2{\phys_units_next\prefixtext{#1}\unitsraise{\suffixtext{#2}}\c_phys_units_state\plusone} % suffix
\permanent\protected\def\unitsUS #1#2{\phys_units_next\unittext{#1}\unitsraise{\suffixtext{#2}}\c_phys_units_state\plusone} % suffix
\permanent\protected\def\unitsP #1{\phys_units_next\prefixtext{#1}1\c_phys_units_state\plusfour} % prefix
\permanent\protected\def\unitsU #1{\phys_units_next\unittext{#1}\c_phys_units_state\plusthree} % unit
\permanent\protected\def\unitsS #1{\phys_units_start{}\unitsraise{\suffixtext{#1}}\c_phys_units_state\plusone} % suffix
\permanent\protected\def\unitsO #1{\phys_units_start\operatortext{#1}\c_phys_units_state\plustwo} % operator
%permanent\protected\def\unitsN #1{\phys_units_start#1\c_phys_units_state\plusfive} % number
\permanent\protected\def\unitsC #1{\removeunwantedspaces\unittext{#1}\c_phys_units_state\plussix} % connected
\permanent\protected\def\unitsQ #1{\removeunwantedspaces\unitslower{#1}\c_phys_units_state\zerocount}
\permanent\protected\def\unitsR #1#2{% todo: tagging
\ifmmode
#2%
\orelse\ifnum#1=\plusone
\digitstextbinop{#2}% before and after
\else
\digitstextbinnop{#2}% after
\fi
\c_phys_units_state\zerocount
\setfalse\c_phys_units_dospace
\setfalse\c_phys_units_number
\setfalse\c_phys_units_quantity}
\permanent\protected\def\unitsRPM {\unitsR\plusone {±}} % todo: symbols
\permanent\protected\def\unitsRTO {\unitsR\plusone {–}} % todo: symbols
\permanent\protected\def\unitsRabout {\unitsR\zerocount{±}} % todo: symbols
\permanent\protected\def\unitsPopen {(}
\permanent\protected\def\unitsPclose {)}
\permanent\protected\def\unitrange #1{}
% Fonts can have a celsius and lack a fahrenheit symbol and as we want to be
% consistent so we check for the counterparts as well. It's slow but ok. Of course
% we could go virtual instead.
\permanent\protected\def\phys_units_text_prime {\textacute}
\permanent\protected\def\phys_units_text_doubleprime{\textacute\kern-.25em\textacute}
\permanent\protected\def\phys_units_text_celsius {°C}
\permanent\protected\def\phys_units_text_fahrenheit {°F}
\permanent\protected\def\checkedtextprime
{\iffontchar\font"2032\relax\iffontchar\font"2033\relax
′\else\phys_units_text_prime\fi\else\phys_units_text_prime
\fi}
\permanent\protected\def\checkedtextdoubleprime
{\iffontchar\font"2033\relax\iffontchar\font"2032\relax
″\else\phys_units_text_doubleprime\fi\else\phys_units_text_doubleprime
\fi}
% \permanent\protected\def\checkedtextcelsius
% {\ifmmode
% \phys_units_text_celsius
% \orelse\iffontchar\font"2103\relax
% ℃\else\phys_units_text_celsius
% \fi}
%
% \permanent\protected\def\checkedtextfahrenheit
% {\ifmmode
% \phys_units_text_fahrenheit
% \orelse\iffontchar\font"2109\relax
% ℉\else\phys_units_text_fahrenheit
% \fi}
%
% % but, as users don't like this ...
\aliased\let\checkedtextcelsius \phys_units_text_celsius
\aliased\let\checkedtextfahrenheit\phys_units_text_fahrenheit
\setelementnature[unit] [mixed]
\setelementnature[quantity][mixed]
\let\phys_units_finish\relax
\permanent\protected\def\unitsNstartindeed
{\ifmmode \else
\settrue\c_phys_units_quantity
\dostarttagged\t!quantity\empty
\settrue\c_phys_units_number
\dostarttagged\t!number\empty
\fi}
\permanent\protected\def\unitsNstop
{\ifconditional\c_phys_units_number
\setfalse\c_phys_units_number
\dostoptagged
\fi
\c_phys_units_state\plusfive}
% This is a hack: for some reason \unit {micro meter} like patterns give
% \unitsNstart \unitsNstop so there is a buglet in the parser
% \aliased\let\unitsNstartindeed\unitsNstart
\permanent\protected\def\unitsNstart
{\doifelsenextchar\unitsNstop\gobbleoneargument\unitsNstartindeed}
% End of hack.
\permanent\protected\def\unitsNspace
{\space}
\permanent\protected\def\unitsN#1%
{\unitsNstart#1\unitsNstop}
\def\phys_units_start
{\ifmmode
\dostarttagged\t!maction\t!unit
% \mathatom % I removed this because the correct spaces after dim haven't been set (e.g. dimbin, dimrel) -GP
% \s!leftclass \mathdimensioncode
% \s!rightclass \mathdimensioncode
\bgroup
\else
\dostarttagged\t!unit\empty
\fi
\let\phys_units_finish\phys_units_stop
\let\phys_units_start\relax}
\def\phys_units_stop
{\ifconditional\c_phys_units_number
\setfalse\c_phys_units_number
\dostoptagged
\fi
\ifconditional\c_phys_units_quantity
\setfalse\c_phys_units_quantity
\dostoptagged
\fi
\dostoptagged
\ifmmode
\egroup
\fi}
\permanent\def\unitsraise
{\ifcase\c_phys_units_mode
\expandafter\unitshigh
\or
\expandafter\normalsuperscript
\or
\expandafter\unitshigh
\or
\expandafter\normalsuperscript
\fi}
\permanent\def\unitslower
{\ifcase\c_phys_units_mode
\expandafter\unitslow
\or
\expandafter\normalsubscript
\or
\expandafter\unitslow
\or
\expandafter\normalsubscript
\fi}
\protected\def\phys_units_next
{\ifcase\c_phys_units_state % start
\ifconditional\c_phys_units_dospace
% \ifdim\lastskip=\zeropoint
\phys_units_space
% \else
% % too tricky ... we could remove and add
% \fi
\fi
\or % 1: suffix
{\phys_units_separator}%
\or % 2: operator
\or % 3: unit
{\phys_units_separator}%
\or % 4: prefix
\or % 5: number
\phys_units_space
\or % 6: symbol (connected)
\fi
\setfalse\c_phys_units_dospace
\phys_units_start}
\permanent\protected\def\unitsTIMES % Does this do anything? -GP
{\ifnum\c_phys_units_state=\plusone % suffix
\else
\unitssmallspace
\fi
\cdot} % or \times
\permanent\protected\def\unitsOUTOF
{\ifnum\c_phys_units_state=\plusone % suffix
\else
\unitssmallspace
\fi
:}
\permanent\protected\def\unitsSOLIDUS
{%\ifnum\c_phys_units_state=\plusone % suffix % Removed three lines to eliminate backspace before / -GP
% \unitsbackspace
%\fi
{/}%
}%\unitsbackspace}
\definelabelclass [unit] [2]
\definelabelclass [operator] [2]
\definelabelclass [prefix] [2]
\definelabelclass [suffix] [2] % This is only a label because we want to show them in a table.
\clf_definelabels{prefix}{prefixes}\s!false\relax
\clf_definelabels{unit}{units}\s!false\relax
\clf_definelabels{operator}{operators}\s!false\relax
\clf_definelabels{suffix}{suffixes}\s!false\relax
%D You can define additional units:
%D
%D \starttyping
%D \registerunit
%D [unit]
%D [point=point,
%D basepoint=basepoint,
%D scaledpoint=scaledpoint,
%D didot=didot,
%D cicero=cicero]
%D \stoptyping
%D
%D Possible categories are: \type {prefix}, \type {unit}, \type {operator}, \type
%D {suffix}, \type {symbol},\type {packaged}. You also need to define labels:
%D
%D \starttyping
%D \setupunittext
%D [point=pt,
%D basepoint=bp,
%D scaledpoint=sp,
%D didot=dd,
%D cicero=cc]
%D \stoptyping
\permanent\tolerant\protected\def\registerunit[#1]#*[#2]% todo: public implementer
{\clf_registerunit{#1}{#2}}
%D You can generate a list as follows:
%D
%D \starttyping
%D \usemodule[phy-01]
%D
%D \ShowUnitsTable % [prefixes]
%D \stoptyping
%D Now we define the standard units command:
\defineunit
[unit]
%D Example:
%D
%D \startbuffer[definitions]
%D \startluacode
%D languages.data.labels.prefixes.whatever = {
%D Kilo = "olik"
%D }
%D
%D languages.data.labels.units.whatever = {
%D Meter = "retem",
%D Second = "dnoces",
%D }
%D
%D languages.data.labels.operators.whatever = {
%D Solidus = " rep "
%D }
%D \stopluacode
%D \stopbuffer
%D
%D \startbuffer[sample]
%D \startlines
%D \lunit{10 km/s}
%D \lunit{10 Kilo Meter/s}
%D \lunit{10 kilo Meter/s}
%D \lunit{10 Kilo m/s}
%D \lunit{10 k Meter/s}
%D \stoplines
%D \stopbuffer
%D
%D \typebuffer[definitions] \getbuffer[definitions]
%D
%D \startbuffer
%D \typebuffer[sample]
%D
%D \defineunits[lunit] \getbuffer[sample]
%D \defineunits[lunit][label=test] \getbuffer[sample]
%D \defineunits[lunit][label=whatever] \getbuffer[sample]
%D \stopbuffer
%D
%D \typebuffer \getbuffer
%D
%D Another example:
%D
%D \starttyping
%D \startluacode
%D languages.data.labels.units.foo = {
%D Liter = "l"
%D }
%D languages.data.labels.units.bar = {
%D Liter = "L"
%D }
%D \stopluacode
%D
%D \defineunits[lunit] \lunit{10 l/s}\par
%D \defineunits[funit][label=foo] \funit{10 l/s}\par
%D \defineunits[bunit][label=bar] \bunit{10 l/s}\par
%D \stoptyping
%D Bonus:
%D
%D \starttyping
%D \pi\ = \hyphenateddigits[\unknown]{3.141592653589793238462643383279502884197169399375105} \blank
%D \pi\ = \hyphenateddigits{3.141592653589793238462643383279502884197169399375105} \blank
%D x $\pi = \hyphenateddigits[\unknown]{3.141592653589793238462643383279502884197169399375105}$ \blank
%D x $\pi = \hyphenateddigits{3.141592653589793238462643383279502884197169399375105}$ \blank
%D \stoptyping
\mutable\protected\def\digitsbreak{\hskip\zeropoint\s!plus\onepoint\relax\ifmmode\allowbreak\fi}
\protect \endinput
[-- Attachment #5: Type: text/plain, Size: 1 bytes --]
[-- Attachment #6: Type: text/plain, Size: 496 bytes --]
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!
maillist : ntg-context@ntg.nl / https://www.ntg.nl/mailman/listinfo/ntg-context
webpage : https://www.pragma-ade.nl / http://context.aanhet.net
archive : https://bitbucket.org/phg/context-mirror/commits/
wiki : https://contextgarden.net
___________________________________________________________________________________
next prev parent reply other threads:[~2022-10-13 0:11 UTC|newest]
Thread overview: 16+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-10-08 17:59 Spacing in \unit Gavin via ntg-context
2022-10-10 1:32 ` Alan Braslau via ntg-context
2022-10-10 6:15 ` Max Chernoff via ntg-context
2022-10-12 21:54 ` Spacing in \unit - SOLVED Gavin via ntg-context
2022-10-12 22:11 ` Rik Kabel via ntg-context
2022-10-12 22:49 ` Max Chernoff via ntg-context
2022-10-12 23:55 ` Spacing in \unit - degrees Alan Braslau via ntg-context
2022-10-13 3:14 ` Gavin via ntg-context
2022-10-13 13:26 ` Alan Braslau via ntg-context
2022-10-13 0:11 ` Gavin via ntg-context [this message]
2022-10-13 7:03 ` Spacing in \unit - SOLVED Oliver Sieber via ntg-context
2022-10-13 11:52 ` Gavin via ntg-context
2022-10-14 8:12 ` Hans Hagen via ntg-context
2022-10-21 18:20 ` Gavin via ntg-context
2022-10-21 19:07 ` Gavin via ntg-context
2022-10-12 16:50 ` Dimension atom in math? (was: Spacing in \unit) Gavin via ntg-context
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=A3F5E0DB-6503-4542-B3C7-98F8CD7FA96F@comcast.net \
--to=ntg-context@ntg.nl \
--cc=gavinpublic@comcast.net \
--cc=mseven@telus.net \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).