% [format_XETEX.mac]

% Note, for example, that using \def\lb{\char"007B} for left braces (instead of  $\($ )
% produces a size which corresponds to the font being used.
% The same philosopy is applied elsewhere in this list


%%%%%%%%%%%%    FIXED VERTICAL  DISTANCES  (increasing order)
%  I do not bother with the glue as I change distances via \vskip if not correct

\def\pni{\par\noindent}   
\def\pin{\par\indent}        

% \smallskip = 3pt; I want a little more
\def\sni{\vskip 4truept\noindent}   
\def\sin{\vskip 4truept\indent}

%         \medskip = 6pt; I want a little more
\def\mni{\vskip 8 truept\noindent}
\def\min{\vskip 8 truept\indent}

%  \bigskip is 12pt 
\def\bni{\vskip 12truept\noindent}   
\def\bin{\vskip 12truept\indent}

\def\nin{\noindent} 

\def\centreline{\centerline} % Canadian spelling which I naturally tend to write

%%%%%%%%%%%%    FIXED HORIZONTAL DISTANCES (increasing order)
%     
\def\gl{\hglue 1.0pt}     %   gl = GLUE , does not break
\def\th{\hskip 1.5pt}    %   = approx  \thinspace  GLUE
\def\thh{\hskip 2.25pt}    %   between \th and Th

% just like \big and \Big
\def\Th{\hskip 3.0pt}     %  = \jot
\def\TH{\hskip 4.0pt}    

% just like \big and \Big
\def\en{\enspace}         %  \hskip 5pt  BREAKS  
\def\En{\enspace}         %  \hskip 6pt  BREAKS 
\def\EN{\enspace}         %  \hskip 7pt  BREAKS 

% conflicts with Hebrew qof, so use \quad with Hebrew
%                 and comment out this next line
\def\q{\quad}               %  \hskip 10pt  BREAKS  
\def\qq{\qquad}           %  \hskip 20pt  BREAKS  

%%%%%%%%%%%%    SLASHES %%%%%%%%%%% 
\def\bsl{\char"005C\gl}

\def\fsl{\hskip 1.8pt/\hskip 1.5pt}  % was 2.5pt 

%%%%%%%%%%%%    SPECIAL INDENTS + SQUEEZE %%%%%%%%%%% 
\def\bibl{\mni\hangindent=\parindent\noindent}
\def\bib{\mni\hangindent=\parindent\noindent}

%  USAGE:  \squeeze{\spaceskip = 1.5pt proud, shallow, ....}
\def\squeeze{\hbox to \hsize }

%%%%%%%%%%%%  UNDERBAR IN FILE TITLE %%%%%%%%%%% 
\def\un{\kern -0.85pt \gl\_\gl }
\def\unl{\kern -0.85pt \gl\_\gl }

%%%%%%%%%%% TIRET + DOTS + GUILLEMETS + ANGLE BRACKETS %%%%%%%%%% 
\def\tiret{\Th--\Th}

\def\dots{\th{\rmfourteen ...}\th}  % OK  DO NOT PUT A PERIOD 

\def\lgui{{\rmsixteen\char"00AB\kern -1pt}}    %   ««     
\def\rgui{{\gl \rmsixteen\char"00BB}}               %   »»

\def\<{\gl{\rmsixteen\char"003C\gl}}  %    <
\def\>{{\gl\rmsixteen\char"003E}\gl}   %   >

%%%%%%%%%%%%          BRACES two choices %%%%%%%%%%% 
\def\lb{\char"007B}  % left braces
\def\lbr{\char"007B} % left braces         
  
\def\rb{\char"007D}% right braces
\def\rbr{\char"007D } % right braces

%%%%%%%%%%%        BRACKETS + PARENTHESIS Use inside italics %%%%%%%%%% 

\def\[{{\rm \char"005B\gl}}     % [  Use inside italics
\def\]{{\rm \gl \char"005D}}                      % ]  Use inside italics
\def\({{\rm  \char"0028\gl}}     % [  Use inside italics
\def\){{\rm \gl \char"0029}}        

%%%%%%%%%%%  QUOTATION MARKS + APOSTROPHE %%%%%%%%%% 
% eloquent quotations
\def\lq{\char"201C\kern -0.1pt} 
\def\rq{\char"201D} % NEEDS CLOSING

\def\"{\char"0022}  % plain quotation

% apostrophe is  0027, but it says that 2019 is preferred,
% this is true as 2019 has the nice curl on top
\def\'{\char"2019} 
\def\apos{\char"2019} 
\def\aps{\char"2019} 
\def\ap{\char"2019} 

%%%%%%%%%%%  SEPARATING LINES %%%%%%%%%% 
%        modify according to teste

 \def\linea{\nin\centerline{\vrule height 2.0pt width 1.5truein depth 0 pt}} 
 \def\lineb{\nin\centerline{\vrule height 1.0pt width 1.5truein depth 0 pt}} 

 \def\lineA{\nin\centerline{\vrule height 2.0pt width 2.5truein depth 0 pt}}          
 \def\lineAa{\nin\centerline{\vrule height 2.5pt width 4.3truein  depth 0pt}}  

\def\lineAA{\nin\centerline{\vrule height 3.2pt width 5.5truein  depth 0pt}}      
%
% next size up would be lineaaa etc	       

%%%%%%%%%%%%% SPECIALIZED DEFINITIONS, INTRODUCED AS NEEDED %%%%%
% I used many of these in my genealogical books to indicate various sources etc.
%  \msamA,  \msbmBBBB and  \cmsyAA  are defined in [my_fonts.mac] 

\def\dvd{\hglue 1.0pt$^{\hbox{\boldmedsmall DVD}}$\hglue 1.0pt} 
\def\DVD{\hglue 1.0pt$^{\hbox{\boldmedsmall DVD}}$\hglue 1.0pt} 
\def\html{\kern 1.0truept{\raise 3.0pt \hbox{\bfnine HTML}}}
\def\HTML{\kern 1.0truept{\raise 3.0pt \hbox{\bfnine HTML}}}
\def\copyright{\char"00A9} 
\def\pdf{\raise 4pt\hbox{\boldmedsmall  PDF}}  % can not put \} in case there is a period after.
\def\copyright{\char"00A9} 
\def\euro{{\char"20AC}}   
\def\pilcrow{{\char"00B6}}
\def\star{\raise 3.5pt \hbox{\gl\msamA \char70}} 
\def\web{\gl{\msbmBBBB\char121}\hfill}  
\def\square{\th\raise 3.7pt\hbox{\msamAaaa\char4}}  
\def\tilda{{\cmsyAA \char24}}
%  
%     a separating |    I  use \| as command, since \ and | are on same key 
%     used for identifying numbers in genealogy, e.g. {\tt 122\|1}
\def\|{\th\raise 1.5pt \hbox{\cmsyAa\char 15}\th}
%
%      I use \club to indicated a place in the text where changes are needed
\def\club{\raise 3.5pt \hbox{\gl$\clubsuit$}}

                                 %%%%%%%%%%%% ARROWS %%%%%%%%%%%%
%  n.b.  the names of the arrows are just: hackd etc, without a for arrow
%
% these are with hackbold 
\def\hackD{\hbox{\hackboldBB  \char"21A6}\hbox to 10truept{}}% |--->
\def\hackE{\hbox{\hackboldBB  \char"21E2}\hbox to 10truept{}} % --->
\def\hackF{\hbox{\hackboldBB  \char"2192}\hbox to 10truept{}} % ==>

%  these are regular hack for smaller, lighter arrows
%   21DA <-- triple line      21DB --> triple line
\def\hackd{\hbox{\hackseventeen  \char"21A6}\hbox to 10truept{}} %  |-->
\def\hacke{\hbox{\hackseventeen  \char"21E2}\hbox to 10truept{}}  %  -->
\def\hackf{\hbox{\hackseventeen  \char"2192}\hbox to 10truept{}}   %  ==>   

% libertine 21D0: <=                       no opposite of 21A6
% libertine 2190 <----  single line
%
\def\libertineEA{\lower 1pt \hbox{\rmfifteen  \char"21A6}\kern -1.5pt{}} % same as above |--->
\def\libertineEAA{\lower 1pt \hbox{\rmeighteen  \char"21A6}\kern -1.5pt{}} % same as above |--->
\def\libertineEAAA{\lower 1pt \hbox{\rmtwenty  \char"21A6}\kern -1.5pt{}} % same as above |--->

%    right facing
\def\libertineEBR{\lower 1pt \hbox{\rmfifteen  \char"21D2}\kern -1.5pt{}}   % ==>
\def\libertineEBBR{\lower 1pt \hbox{\rmeighteen  \char"21D2}\kern -1.5pt{}}   % ==>
\def\libertineEBBBR{\lower 1pt \hbox{\rmtwenty  \char"21D2}\kern -1.5pt{}}   % ==>
%    left facing
\def\libertineEBL{\lower 1pt \hbox{\rmfifteen  \char"21D0}\kern -1.5pt{}}   % <==
\def\libertineEBBL{\lower 1pt \hbox{\rmeighteen  \char"21D0}\kern -1.5pt{}}   % <==
\def\libertineEBBBL{\lower 1pt \hbox{\rmtwenty  \char"21D0}\kern -1.5pt{}}   % <==

%    These are long, double and slanted arrows set in \cmsy
%          long + double arrows
\def\LRA{$\Longrightarrow$}  % SEE REGULAR DOUBLE ARROWS BELOW
\def\LLA{$\Longleftarrow$}
\def\EWAA{\hbox{\cmsyAAAA  \char 44}\hbox to 10truept{}}  %         DOUBLE ARROW, BOTH WAYs

%   arrows in SE, SW, NW , NE
\def\SEA{\lower 5truept\hbox{\cmsyAAAA  \char38}}
\def\SWA{\lower 5truept\hbox{\cmsyAAAA    \char  46}\hbox to 10truept{}}
%
\def\NWA{\lower 5truept\hbox{\cmsyAAAA    \char  45\hbox to 10truept{}}}
%
\def\NEA{\lower 5truept\hbox{\cmsyAAAA     \char  37\hbox to 10truept{}}}
%
%   arrows in E, S, W , N                                    10 to big for EA
\def\EA{\hbox{\cmsyAAAA    \char  33}\hbox to 5truept{}}
% 
\def\SA{\hbox{\cmsyAAAA    \char  35}\hbox to 10truept{}}
%
\def\WA{\hbox{\cmsyAAAA   \char  32}\hbox to 10truept{}} 
%
\def\NA{\hbox{\cmsyAAAA    \char  34}\hbox to 10truept{}}

%   double arrows in E, S, W , N
%
\def\EAA{\hbox{\cmsyAAAA   \char  41}\hbox to 10truept{}}
% 
\def\SAA{\hbox{\cmsyAAAA    \char  43\hbox to 10truept{}}}
%
\def\WAA{\hbox{\cmsyAAAA   \char  40\hbox to 10truept{}}}
%
\def\NAA{\hbox{\cmsyAAAA   \char  42\hbox to 10truept{}}}
                 
%%%%%%%%%% TRIG DEFINITIONS %%%%%%%%%% 
% the following definition allows me to fix the R inside $ $; note \hbox{  }
\def\R{\hbox{\rm R}} % leave out  '' ( '' because I already have.
%
% I took out \sin because it interfered with \sin = \small\noindent
\def\cos{\hbox{\rm cos}}
\def\tan{\hbox{\rm tan}}
\def\csc{\hbox{\rm csc}}
\def\sec{\hbox{\rm sec}}
\def\cot{\hbox{\rm cot}}
\def\ln{\hbox{\rm ln}}
\def\log{\hbox{\rm log}}
\def\lim{\hbox{\rm lim}}

                       %%%%%%%%%%   END   %%%%%%%%%% 







