Joshua Lucas
e2a0277635
- Replace ifthen dependency with wrappers for Latex3 conditionals. - Debug CrossRef and WrapBoxout.
149 lines
2.9 KiB
TeX
149 lines
2.9 KiB
TeX
\NeedsTeXFormat{LaTeX2e}
|
|
\ProvidesExplPackage{PrimeTeX/packages/DocProperties}{2025-07-09}{1.0}{
|
|
Commands for document and PDF properties.
|
|
}
|
|
|
|
\DTMnewdatestyle{longdate}{%
|
|
\renewcommand{\DTMdisplaydate}[4]{\number##3\ \DTMenglishmonthname{##2}\ \number##1}%
|
|
\renewcommand{\DTMDisplaydate}{\DTMdisplaydate}%
|
|
}
|
|
|
|
\NewDocumentCommand{\FormatDate}{m m}{%
|
|
\DTMsavedate{saveDate}{#1}%
|
|
\DTMsetdatestyle{#2}%
|
|
\DTMusedate{saveDate}
|
|
}
|
|
|
|
\readarraysepchar{,}
|
|
|
|
\NewDocumentCommand{\GetRevision}{m}{%
|
|
\readdef{#1}\@RevHistory%
|
|
\readarray*\@RevHistory\@RevHistoryArray[-,\ncols]%
|
|
\Version[\@RevHistoryArray[2,1]]%
|
|
\edef\eDate{\@RevHistoryArray[2,2]}%
|
|
\DTMsavedate{tempDate}{\eDate}%
|
|
\DTMsetdatestyle{default}%
|
|
\Date[\DTMusedate{tempDate}]%
|
|
\DTMsetdatestyle{longdate}%
|
|
\LongDate[\DTMusedate{tempDate}]%
|
|
\Author[\@RevHistoryArray[2,3]]%
|
|
}
|
|
|
|
\NewDocumentCommand{\SetPDFInfo}{}{
|
|
\hypersetup{
|
|
pdfauthor = {\@AuthorCompany},
|
|
pdfsubject = {\ProjectTitle},
|
|
pdftitle = {\@Title},
|
|
pdfkeywords = {
|
|
Customer:~\@CustomerFull~(\@Customer),
|
|
Last~Modified~By:~\@Author,
|
|
Modification~Date:~\@Date,
|
|
Revision~Number:~\@Version,
|
|
\@AuthorCompany{}~Project~Number:~\@InternalProjectNumber,
|
|
},
|
|
}
|
|
}
|
|
|
|
\NewExpandableDocumentCommand{\ProjectTitle}{}{%
|
|
Project \@CustomerProjectNumber{}: \@ProjectDescription%
|
|
}
|
|
|
|
% Custom document properties.
|
|
\edef\@Author{}
|
|
\NewDocumentCommand{\Author}{>{\TrimSpaces}o}{%
|
|
\IfNoValueTF{#1}{%
|
|
\@Author%
|
|
}{%
|
|
\xdef\@Author{#1}%
|
|
}%
|
|
}
|
|
|
|
\edef\@AuthorCompany{}
|
|
\NewDocumentCommand{\AuthorCompany}{>{\TrimSpaces}o}{%
|
|
\IfNoValueTF{#1}{%
|
|
\@AuthorCompany%
|
|
}{%
|
|
\xdef\@AuthorCompany{#1}%
|
|
}%
|
|
}
|
|
|
|
\edef\@Customer{}
|
|
\NewDocumentCommand{\Customer}{>{\TrimSpaces}o}{%
|
|
\IfNoValueTF{#1}{%
|
|
\@Customer%
|
|
}{%
|
|
\xdef\@Customer{#1}%
|
|
}%
|
|
}
|
|
|
|
\edef\@CustomerFull{}
|
|
\NewDocumentCommand{\CustomerFull}{>{\TrimSpaces}o}{%
|
|
\IfNoValueTF{#1}{%
|
|
\@CustomerFull%
|
|
}{%
|
|
\xdef\@CustomerFull{#1}%
|
|
}%
|
|
}
|
|
|
|
\edef\@CustomerProjectNumber{}
|
|
\NewDocumentCommand{\CustomerProjectNumber}{>{\TrimSpaces}o}{%
|
|
\IfNoValueTF{#1}{%
|
|
\@CustomerProjectNumber%
|
|
}{%
|
|
\xdef\@CustomerProjectNumber{#1}%
|
|
}%
|
|
}
|
|
|
|
\edef\@Date{}
|
|
\NewDocumentCommand{\Date}{>{\TrimSpaces}o}{%
|
|
\IfNoValueTF{#1}{%
|
|
\@Date%
|
|
}{%
|
|
\xdef\@Date{#1}%
|
|
}%
|
|
}
|
|
|
|
\edef\@LongDate{}
|
|
\NewDocumentCommand{\LongDate}{>{\TrimSpaces}o}{%
|
|
\IfNoValueTF{#1}{%
|
|
\@LongDate%
|
|
}{%
|
|
\xdef\@LongDate{#1}%
|
|
}%
|
|
}
|
|
|
|
\edef\@InternalProjectNumber{}
|
|
\NewDocumentCommand{\InternalProjectNumber}{>{\TrimSpaces}o}{%
|
|
\IfNoValueTF{#1}{%
|
|
\@InternalProjectNumber%
|
|
}{%
|
|
\xdef\@InternalProjectNumber{#1}%
|
|
}%
|
|
}
|
|
|
|
\edef\@ProjectDescription{}
|
|
\NewDocumentCommand{\ProjectDescription}{>{\TrimSpaces}o}{%
|
|
\IfNoValueTF{#1}{%
|
|
\@ProjectDescription%
|
|
}{%
|
|
\xdef\@ProjectDescription{#1}%
|
|
}%
|
|
}
|
|
|
|
\edef\@Title{}
|
|
\NewDocumentCommand{\Title}{>{\TrimSpaces}o}{%
|
|
\IfNoValueTF{#1}{%
|
|
\@Title%
|
|
}{%
|
|
\xdef\@Title{#1}%
|
|
}%
|
|
}
|
|
|
|
\edef\@Version{}
|
|
\NewDocumentCommand{\Version}{>{\TrimSpaces}o O{Revision: }}{%
|
|
\IfNoValueTF{#1}{%
|
|
\@Version%
|
|
}{%
|
|
\xdef\@Version{#1}%
|
|
}%
|
|
} |