documentclass[10pt,a4paper]{article}
makeatletter
%</driver>
% Let's abolish CM! We use Charter and Letter Gothic
% (for the pre-built documentation on CTAN):
 usepackage[charter]{mathdesign}
 defrmdefault{bch} % not scaled
 defsfdefault{SourceSansPro-TLF}
 newcommand*{SourceSansPro@scale}{1.02}
 defttdefault{blg}
 {ttfamilyselectfont
  DeclareFontShape{T1}{blg}{k}{n}{<-> ssub * blg/b/n}{}}
usepackage{ifpdf,ifluatex,ifxetex}
%<*!docsty>
usepackage[latin1]{ifluatex luafi inputenc}
%</!docsty>
usepackage[T1]{fontenc}
usepackage{textcomp}
%dpcGetFileInfo{jobname.dtx}
usepackage[expansion=false,kerning=true]{microtype}%dpc[filedate]
 DeclareMicrotypeSet*[protrusion]
      { doc }
      { encoding = {*, TS1, OMS},
        family   = {rm*, tt*},
        size     = {footnotesize, small, normalsize} }
 SetProtrusion
      { encoding = OMS,
        family   = mdbch }
      { "68 = {400, },  % langle
        "69 = { ,400} } % rangle
 DeclareMicrotypeSet*[kerning]
      { doc }
      { encoding = T1,
        family   = blg, % typewriter font and ...
        font     = * }  % French sample in section ref{sub:kerning}
 SetExtraKerning
      { encoding = T1,
        family   = blg }
      { _ = {100,100} } % underscores shouldn't touch
 ifxetexelse
 % disable ?` and !` ligatures (sample in section ref{sec:disable-ligatures})
 DisableLigatures[?,!]{encoding = *, family = rm* }
 fi
 % Fraktur sample in section ref{sec:lettersp}
 IfFileExists{t1mwr.fd}
   {deftextfrak##1{{fontfamily{mwr}selectfont ##1}}
    ifpdf
      SetTracking[no ligatures={f,s,c}]{encoding=T1,family=mwr}{100}
    fi}
   {IfFileExists{yfonts.sty}
     {usepackage{yfonts}
      ifpdf
        SetTracking[no ligatures={f,s,c}]{encoding=LY,family=yfrak}{100}
      fi}
     {deftextfrak{rule{.5em}{1.5ex}@gobble}}}
tolerance=700
ifpdf
  ifnumpdftexversion<140 else % pdftex 1.40, including textmatrix patch,
    microtypesetup{expansion=alltext,step=1} % hence we can activate expansion ...
    tolerance=300         % ... and make TeX almost as intolerant as it normally is
%dpc    g@addto@macromacrocode{microtypesetup{expansion=false}}
    pdfminorversion=5 % for the OCGs
  fi
  % bonus material
  InputIfFileExists{microtype-logo.dtx}relaxrelax
  InputIfFileExists{microtype-lssample.dtx}relaxrelax
  usepackage{pdfpages}
else
  letlsstylerelax
fi
ifluatex % microtype.dtx finally compiles with 0.35!
  microtypesetup{kerning=false}
fi
ifxetex
  microtypesetup{kerning=false}
fi
usepackage{booktabs}
usepackage{array}
 newcolumntype{L}[1]{p{#1}<{raggedright}}
usepackage{color}
 definecolor{thered}    {rgb} {0.65,0.04,0.07}
 definecolor{thegreen}  {rgb} {0.06,0.44,0.08}
 definecolor{theblue}   {rgb} {0.02,0.04,0.48}
 definecolor{sectioning}{gray}{0.44}
 definecolor{thegrey}   {gray}{0.5}
 definecolor{theframe}  {gray}{0.75}
 definecolor{theshade}  {gray}{0.94}
usepackage{graphicx}
% general layout
frenchspacing
DeclareRobustCommandtextoractual[2]{ifpdf
  pdfliteral direct{/Span<</ActualText(#2)>>BDC}#1pdfliteral direct{EMC}%
  else #1fi}
expandafternewifcsname ifcmrendcsname
longdef@tempa{cmr}
ifxrmdefault@tempa
  cmrtrue
  defPackageFont{sffamily}
  defmatch{textbullet}
  usepackage{amssymb} % varnothing
  letOrigTeXTeX
  defTeX{textoractual{OrigTeX}{TeX}}
  setlengthtextheight{49baselineskip}
else
  defbfdefault{b}
  defModule#1{{color{theblue}textoractual{$langle$}{<}textit{#1}textoractual{$rangle$}{>}}}
  defTeX{textoractual{Tkern-.1667emlower.4exhbox{E}kern-.125emX@}{TeX}}
  DeclareRobustCommandLaTeX{textoractual{Lkern-.26em{sboxz@ Tvbox tohtz@{%
     hbox{check@mathfontsfontsizesf@sizez@math@fontsfalseselectfont A}%
    vss}}}{La}kern-.1emTeX}
  defPackageFont{ttfamily}
  defmatch{{largeraisebox{-.15em}{textbullet}}}
  {catcode``=active % indiscernible from ' in Bitstream Letter Gothic
%dpc   g@addto@macromacro@code{let`textasciigrave}
}
  linespread{1.07}normalfont
  setlengthtextheight{48baselineskip}
fi
addtolengthtextheight{topskip}
setlengthtopmargin{5pt}
% sections
%def@seccntformat#1{setbox0hbox to0pt{hsscolorbox{theshade}{spacecolor{sectioning}csname the#1endcsnamestrutspace}hskipmarginparsep}ht0=0pt dp0=0pt box0}
def@seccntformat#1{llap{csname the#1endcsnamehskipmarginparsep}}
defsection{@startsection {section}{1}{z@}%
  {-3.5ex @plus -1ex @minus -.2ex}%
  {2.3ex @plus.2ex}%
  {normalfontLargefontseries{k}sffamilycolor{sectioning}}}
defsubsection{@startsection{subsection}{2}{z@}%
  {-3.25ex@plus -1ex @minus -.2ex}%
  {1.5ex @plus .2ex}%
  {normalfontlargefontseries{k}sffamilycolor{sectioning}}}
defsubsubsection{@startsection{subsubsection}{3}{z@}%
  {-3.25ex@plus -1ex @minus -.2ex}%
  {1.5ex @plus .2ex}%
  {normalfontnormalsizefontseries{k}sffamilycolor{sectioning}}}
defparagraph{@startsection{paragraph}{4}%
  {0pt}{8pt plus 2pt minus 1pt}{-1em}%
  {normalfontnormalsizeitshape}}
% title
def@maketitle{%
  newpagenullvskip 2em
  begin{center}letfootnotethankssffamily
    {huge @titlepar}vskip 1.5em
    {large parbox{.33textwidth}{centering@author}%
            parbox{.33textwidth}{centering@date}}%
  vskip2.5emrule{textwidth}{.4pt}%
  end{center}parvskip1.5em}
defabstractname{}
% headers
headheight=15pt
defps@MTheadings{%
  def@oddhead{%
    hbox totextwidth{vbox{hbox totextwidth{%
      footnotesizesffamily{leftmarkrightmarkstrut}hfillthepagestrut}%
      hrule height 0.4pt widthtextwidth vskip-0.4pt
    }}hss}
  let@oddfoot@empty
  let@mkbothmarkboth
  defsectionmark##1{markboth{textls*[70]{MakeUppercase{##1}}}{}}
  defsubsectionmark##1{markright{: ##1}}}
pagestyle{MTheadings}
% toc
letl@section@l@section
defl@section{vskip -1.25exl@section@}
defl@subsection{vskip.35ex penalty@secpenalty @dottedtocline{2}{1.5em}{2.7em}}
defl@subsubsection#1#2{%
  leftskip 4.2em
  rightskip 2em plus 2em
  parindent 0pt
  {letnumberline@gobble{small #1~[#2]}}}
defl@table{@dottedtocline{1}{0pt}{1.5em}}
def@pnumwidth{1.7em}
ifpdf
  letORIGpdfoutlinepdfoutline
  defspecial@outlines{attr{/F 01}}
  defnormaloutline {protected@write@outlinefile{}{letpdfoutline ORIGpdfoutline}}
  defspecialoutline{protected@write@outlinefile{}{defpdfoutline{ORIGpdfoutlinespecial@outlines}}}
  g@addto@macroappendix{specialoutline}
fi
defdefspecial@toc#1#2#3{longdef#1{%
  ifpdfphantomsectionspecialoutlinepdfbookmark[1]{#2}{#3}normaloutlinefi
  section*{#2}@mkboth{textls*[60]{MakeUppercase{#2}}}{}%
  @starttoc{#3}}}
defspecial@toctableofcontentscontentsname{toc}
defspecial@toclistoftableslisttablename{lot}
% bibliography
def@cite#1#2{#1if@tempswa, #2fi}
defthebibliography#1{%
  section{refname}%
  list{}{leftmargin 0pt}%
  sloppy
  clubpenalty 4000
  @clubpenalty clubpenalty
  widowpenalty 4000}
def@biblabel#1{}
% footnotes
longdef@makefntext#1{%
  leftskip 0pt
  parindent 0pt
  everypar{parindent 0pt}%
  leavevmodellap{@thefnmarkhskipmarginparsep}#1}
renewcommandfootnoterule{%
  kern-3p@
  hrule@width columnwidth
  kern2.6p@}
skip@mpfootins=4pt
% lists
setlengthleftmargini{15pt}
setlengthleftmarginii{12.5pt}
setlengthleftmarginiii{10pt}
def@listi{leftmargin leftmargini
            parsep 4.5pt plus 1pt minus 1pt
            topsep 4.5pt plus 1pt minus 1pt
            itemsep 0pt}
let@listI@listi
defdescriptionlabel#1{hspacelabelsepnormalfont#1:}
renewenvironment{itemize}
  {ifnum @itemdepth >thr@@@toodeepelse
    advance@itemdepth@ne
    edef@itemitem{labelitemromannumeralthe@itemdepth}%
    expandafterlist
      csname@itemitemendcsname
      {ifnum@itemdepth=@neleftmargin 0ptfi
       defmakelabel##1{hssllap{##1}}}%
   fi}
  {endlist}
newenvironment{enum}[1][0]
  {listlabelenumi
    {usecounter{enumi}setcounter{enumi}{#1}addtocounter{enumi}{-1}%
     renewcommandlabelenumi{texttt{theenumi}:}%
     leftmargin 30pt
     itemindent-15pt
     labelwidth 15pt
     labelsep 0pt
     defmakelabel##1{##1hss}}}
  {endlist}
newenvironment{options}
  {list{}
    {leftmargin 0pt
     labelwidth 0pt
     labelsep 1em
     itemindent labelsep
     lstset{belowskip=0pt}}}
  {endlist}
% boxes (for some reason, mathdesign changes these values) % still?
setlengthfboxrule{0.4pt}
setlengthfboxsep{3pt}
setlengtharrayrulewidth{0.4pt}
% tables
setlengthtabcolsep{2pt}
longdef@makecaption#1#2{%
  setboxmt@boxvbox{llap{vbox{% fboxsep = 4pt
          vskipdimexprfloatsep-4pt+fboxrulerelax
          hsizedimexprmarginparwidth-marginparsep-4pt-fboxrulerelax
          rightskipdimexprmarginparsep+4pt+fboxrulerelax plus 2.5em
          footnotesize {sffamily#1:}\[-dimexpraboverulesep+cmidrulewidth+3.5fboxrule]
          textcolor{theframe}{vrule width hsize heightfboxrule}\[.3baselineskip]sffamily#2}}}
  mt@unvdimendimexprhtmt@box+dpmt@boxrelax
  unvboxmt@box
  vskip-mt@unvdimen}
% index and change log
%dpcIndexPrologue{section{Index}%
%dpc  Links (in blue) refer to the page where the corresponding entry is described
%dpc  (bold face) resp. occurs. Plain numbers (in black) refer to the code line
%dpc  where the corresponding entry is defined (underlined) resp. used.}
%dpcGlossaryPrologue{section{Change history}label{sec:changes}vspace*{-multicolsep}}
%dpc %setcounter{finalcolumnbadness}{100}
 %raggedcolumns
%dpcsetcounter{IndexColumns}{2}
%dpcdefIndexMin{12baselineskip}
%dpcg@addto@macroIndexParms{%
%dpc...}
% macro code
%dpcMacroTopsep=0pt
%dpcMacrocodeTopsep=3pt
%dpcsetlengthMacroIndent{0pt}
deftheCodelineNo{reset@fontsffamilycolor{thegrey}scriptsize
  textoractual{arabic{CodelineNo} }{}}% don't copy line numbers
defMacroFont{ttfamilysmall}
defAltMacroFont{ttfamilyfootnotesize}
defPrintMacroName#1{strutMacroFontstring #1hskip15pt}
defImplementationSettings{%
  linespread{1}%
  hfuzz=10pt
  defMacroFont{ttfamilyfootnotesize}%
  letmacro@fontMacroFont}
% additional bells ...
defDescribe#1#2#3{noindentcsname Describe#1endcsname{#2}%
  DescribeValues{#1}{#3}}
defDescribeOption{leavevmode@bsphack
  begingroupMakePrivateLettersDescribe@Option}
defDescribe@Option#1{endgroup
  marginpar{raggedleftPrintDescribeOption{#1}}%
  SpecialOptionIndex{#1}@esphackignorespaces}
defDescribePackage{leavevmode@bsphack
  begingroupMakePrivateLettersDescribe@Package}
defDescribe@Package#1{endgroup
  marginpar{raggedleftPrintDescribeOption{#1.sty}}%
  CatIndex{#1}{package}@esphackignorespaces}
defDescribeValues#1#2{%
  let@tempa@empty letOption@default@empty
  @for@tempb:=#2do{%
    csname Special#1Valueexpandafterendcsname@tempb@nil
    expandafterg@addto@macroexpandafter@tempa
      expandafter{csname #1Sependcsname}%
    expandafterg@addto@macroexpandafter@tempa
      expandafter{@tempb}}%
  @ifnextchar[PrintValues{PrintValues[Option@default]}}
defSpecialOptionValue#1#2@nil{%
  if#1:def@tempb{Variable{#2}}else %                      : = variable
  if#1!def@tempb{#2}defOption@default{#2}else %          ! = default
  if#1*def@tempb{#2}defOption@default{MaybeDefault{#2}}% * = default (maybe)
  fififi}
defSpecialMacroValue#1#2@nil{%
  if#1?def@tempb{normalsize[Variable{#2}]}%  % ? = optional
   elsedef@tempb{normalsize{Variable{#1#2}}}fi}
letSpecialEnvValueSpecialMacroValue
DeclareRobustCommandlanglechar{<} % for makeindex
DeclareRobustCommandranglechar{>}
defVariable#1{%
  textoractual{$langle$}{langlechar}%
    {rmfamilyitshapesmall#1}%
  textoractual{$rangle$}{ranglechar}}
letm@ameta defmeta#1{textoractual{m@a{#1}}{langlechar#1ranglechar}}
defMaybeDefault#1{textrm{*},#1}
defOptionSep{{rmfamily, }} defMacroSep{,} defEnvironmentSep{,}
defPrintValues[#1]{{MacroFontexpandafter@gobble@tempahfill #1}\*[.25baselineskip]}
defCatIndex#1#2{index{#1actualchar{protectttfamily #1} (#2)encapchar hyperpage}}
defSpecialOptionIndex#1{@bsphackCatIndex{#1}{option}%
  index{quotechar!Options % the `!' will be sorted first
    actualchar{protectbfseries Options:}%
    levelchar{protectttfamily#1}encapchar usage}@esphack}
defSpecialUsageIndex#1{@bsphack{index{quotechar!User Commands
    actualchar{protectbfseries User Commands:}%
    levelcharexpandafter@gobblestring#1actualcharstringverb
      quotechar*verbatimcharstring#1verbatimcharencapchar usage}%
   letspecial@indexindexSpecialIndex@{#1}{encapchar usage}}@esphack}
defSpecialEnvIndex#1{CatIndex{#1}{environment}}
defPrintDescribeMacro#1{strutMacroFontcolor{thegreen}string #1}
defPrintDescribeEnv#1{strutMacroFontbslash begin{{color{thegreen}#1}}%
  \*[.25baselineskip]strutbslash end{{color{thegreen}#1}}}
defPrintDescribeOption#1{strutMacroFontcolor{thered}#1}
defIndexing{letspecial@indexcodeline@wrindex}
defNoIndexing{letspecial@index@gobble}
defGeneralChanges#1{edefgeneralname{if*#1 Generalelse#1fi}}% mind the space!
DeclareRobustCommandkey[1]{textcolor{thered}{ttfamily#1}}
DeclareRobustCommandpkg[1]{{PackageFont#1}@bsphackCatIndex{#1}{package}@esphack}
DeclareRobustCommandopt[1]{{ttfamily#1}@bsphackCatIndex{#1}{option}@esphack}
DeclareRobustCommandfile[1]{{ttfamily#1}}
defRequiresSep{ textbar }
defrequires#1{let@tempa@empty
  @for@tempb:=#1do{%
    g@addto@macro@tempaRequiresSep
    expandafterg@addto@macroexpandafter@tempaexpandafter{@tempb}}%
  hfill{setlengthfboxsep{2pt}%
    fcolorbox{theframe}{white}{mdseriessmallstrutcolor{sectioning}%
      ,expandafter@gobble@tempa,}}}
% ... and whistles
{catcode`"active
 gdefverbatim#1
   {catcode`"active def"##1"{colorbox{theshade}{%
      textrm{Text lost! Please install the pkg{listings} package.}}}%
    @beginparpenaltypredisplaypenalty@verbatimMacroFont
    frenchspacing@vobeyspacesexpandafter@xverbatim@gobble}}
IfFileExists{listings.sty}{
 usepackage{listings}
 lstset{
   gobble=1,columns=flexible,keepspaces,upquote,escapechar=",
   basicstyle=MacroFont,
   keywords=[0]{microtypesetup,DeclareMicrotypeSet,UseMicrotypeSet,
     DeclareMicrotypeSetDefault,SetProtrusion,SetExpansion,SetTracking,
     SetExtraKerning,SetExtraSpacing,DisableLigatures,DeclareCharacterInheritance,
     DeclareMicrotypeVariants,DeclareMicrotypeAlias,DeclareMicrotypeBabelHook,
     LoadMicrotypeFile,microtypecontext,textmicrotypecontext,
     textls,lsstyle,lslig,Microtype@Hook},
   keywordstyle=[0]color{thegreen},
   keywords=[1]{protrusion,expansion,activate,DVIoutput,draft,final,verbose,
     config,factor,auto,stretch,shrink,step,selected,unit,tracking,kerning,
     spacing,letterspace,babel,context,%defersetup,copyfonts, % undocumented
     no ligatures,outer spacing,outer kerning}, % there are three nobreakspace in this line
   keywordstyle=[1]color{thered},
   comment=[l]%,
   commentstyle=color{thegrey}itshape,
   alsoother={0123456789_},
   frame=single,backgroundcolor=color{theshade},rulecolor=color{theframe},
   framerule=fboxrule,xleftmargin=3.4pt,xrightmargin=3.4pt,belowskip=smallskipamount
 }
 letverbatimrelax
 lstnewenvironment{verbatim}[1][]{lstset{##1}}{}
 ifpdf IfFileExists{dummy-space.pfb}{%
   pdfmapline{+dummy-space <dummy-space.pfb}
   fontdummyspace=dummy-space
   deflst@outputspace{% copy spaces (from a font that really has a space at x20)
     setbox0hbox{ }@tempdimawd0
     setbox0hbox{dummyspacechar"20}advance@tempdima-wd0
     unhbox0 kern@tempdima}
  }relax fi
}{
 letlstset@gobble
}
%deftodo{changes{zTo Do}{0000/00/00}}
lettodo@gobble
newcommandmicrotypesample[1]{begin{quote}#1end{quote}}
letemptypdfpageresourcesrelax
% fancy PDF document
ifpdf
  ifxeTeXversion@undefined else % errors when not using etex (conflict with multicol)
    ifxpdfcolorstack@undefined   % no longer required with pdftex 1.40
      usepackage{pdfcolmk}
  fifi
  usepackage[bookmarks,bookmarksopen,pdfdisplaydoctitle,
              colorlinks,linkcolor=theblue,citecolor=theblue,urlcolor=thered,
              hyperindex=false,hyperfootnotes=false]
             {hyperref}
  usepackage{hyperxmp}
  usepackage{attachfile}
  %usepackage{pdfpages}
  hypersetup{
    pdftitle={The microtype package},
    pdfauthor={R Schlicht <w.m.l@gmx.net>},
    pdfsubject={Subliminal refinements towards typographical perfection},
    pdfkeywords={TeX, LaTeX, pdfTeX, LuaTeX, XeTeX, typography, micro-typography,
      character protrusion, margin kerning, optical alignment, font expansion,
      font scaling, hz, kerning, spacing, glue, letterspacing, tracking, ligatures}
    pdfcopyright={textcopyright 2004--2013 R Schlicht12%
      This work may be distributed and/or modified under the conditions
      of the LaTeX Project Public License, either version 1.3c of this
      license or (at your option) any later version.&#xA;%
      This work has the LPPL maintenance status `author-maintained'.},
    pdflicenseurl={http://www.latex-project.org/lppl/}
  }
  pdfcatalog{/Lang(en-GB)}
  ifnumpdftexversion < 130 else
    IfFileExists{hypdestopt.sty}{usepackage{hypdestopt}}relaxfi
  defusage#1{textbf{hyperpage{#1}}}% for indexing of DescribeMacro ...
  defchanges@#1#2#3{% ... the changes ...
    protected@edef@tempa{noexpandglossary{#1levelchar
      ifxsaved@macroname@empty spaceactualchargeneralname
      elseexpandafter@gobblesaved@macronameactualchar
        stringverbquotechar*verbatimcharsaved@macronameverbatimcharfi
      :levelchar #3encapchar hyperpage}}%
    @tempaendgroup@esphack}
  %deftheCodelineNo{% % ... and everything else (would double the pdf file size)
  %  reset@fontcolor{thegrey}scriptsize
  %  @tempcntaarabic{CodelineNo}advance@tempcnta by@ne
  %  hypertarget{L:number@tempcnta}{arabic{CodelineNo}}}
  %defmain#1{underline{hyperlink{L:#1}{#1}}}
  %defcodeline#1{link@sanitize#1-@nil{#1}}
  %deflink@sanitize#1-#2@nil{link@@sanitize#1,@nil}
  %deflink@@sanitize#1,#2@nil{hyperlink{L:#1}}
  %defSpecialIndex#1{@bsphackspecial@index{expandafter@gobble
  %    string#1actualchar
  %    stringverbquotechar*verbatimcharstring#1verbatimchar
  %    encapchar codeline}%
  %  @esphack}
  defctanurl#1{Available from acronym{CTAN} at
                 href{http://mirror.ctan.org/#1}{nolinkurl{/#1}}}
  DeclareRobustCommandmailto[1]{href{mailto:#1}{nolinkurl{#1}}}
  defmailtoRS{href % some PDF viewers don't like spaces:
    {mailto:<w.m.l@gmx.net>%20Robert%20Schlicht?subject=[microtype%20fileversion]}
    {texttt{w.m.l@gmx.net}}}
  % the samples in the introduction, utilising nested optional content groups (aka. layers):
  ifnumpdftexversion<140 else
    defmt@layer#1#2{pdfliteral direct{/OC/#1 BDC}#2pdfliteral direct{EMC}}
    ifxmt@objects@undefinedletmt@objects@emptyfi
    ifxmt@order  @undefinedletmt@order  @emptyfi
    letmt@resources@empty
    defmt@register#1#2{%
      immediatepdfobj{<< /Type/OCG /Name(#1:#2) >>}
      expandafterxdefcsname mt@#1@#2endcsname{thepdflastobjspace 0 R }
      xdefmt@objects  {mt@objects        csname mt@#1@#2endcsname}
      xdefmt@order    {mt@order          csname mt@#1@#2endcsname}
      xdefmt@resources{mt@resources/#1#2 csname mt@#1@#2endcsname}}
    xdefmt@order{mt@order[(Sample)}
     mt@register{Protrusion}{true} mt@register{Protrusion}{false}
     mt@register{Expansion} {true} mt@register{Expansion} {false}
     mt@register{_compatibility}{}
    xdefmt@order{mt@order]}
    pdfcatalog{/OCProperties <<
                   /OCGs [mt@objects]
                   /D << /Order [mt@order]
                         /BaseState/OFF
                         /ON [mt@Protrusion@false mt@Expansion@false
                              ifxmtl@objects@undefinedelsemtl@objectsfi] >> >> }
    newboxmt@box
    newdimenmt@unvdimen
    defmt@place#1{%
      vskip-mt@unvdimen
      setboxmt@boxvbox{#1}%
      mt@unvdimendimexprhtmt@box+dpmt@boxrelax
      unvboxmt@box}
    defmt@pseudo@marg#1{%
      mt@place{llap{vbox{%
        hsizemarginparwidth
        rightskip marginparsep plus 1em
        leavevmodeitshapefootnotesize #1}}}}
    defmt@show@sample#1#2{%
      mt@layer{Protrusion#1}{%
        mt@layer{Expansion#2}{%
          mt@place{microtypesetup{protrusion=#1,expansion=#2}%
            mt@sample@text}}}}
    defmt@toggle@sample#1{%
      pdfstartlink user{/Subtype/Link
        /BS << /Type/Border/W 1 /S/D /D[4 1] >>
        /H/O /C[0.65 0.04 0.07] /Contents(Click to Toggle #1!)
        %/OC << /Type/OCMD /VE[/Not csname mt@_compatibility@endcsname] >> % not honoured by older viewers anyway
        /A << /S/SetOCGState /State[/Toggle csname mt@#1@trueendcsname
                                            csname mt@#1@falseendcsname] >>}
      #1 hfillpdfendlink & mt@layer{#1true}{rlap{on}}mt@layer{#1false}{off}}
    renewcommandmicrotypesample[1]{%
      begingroup
      leftskip 15pt rightskip 15pt
      parskip   4pt parindent  0pt
      vskip 8pt % = topsep without vertical stretchability
      longdefmt@sample@text{#1}
      mt@pseudo@marg{color{theblue}%
        After you have read the text on the right, you can view the effect of
        the features it describes by clicking on the links:strut\
        colorbox{theshade}{%
          begin{tabular}{@{}>{upshape}l@{quad}l}
            mt@toggle@sample{Protrusion}\addlinespace
            mt@toggle@sample{Expansion}
          end{tabular}}\[0.3baselineskip]
        Both features are enabled throughout this document.}
      mt@show@sample{false}{false}
      mt@show@sample{false}{true}
      mt@show@sample{true} {false}
      mt@layer{_compatibility}{%
        % for compatibility with older PDF viewers that don't support OCGs, we
        % add a layer that contains a white box, which will hide the underlying
        % layers for older viewers, and will be ignored by PDF 1.5 capable viewers.
        mt@place{rlap{hskip-marginparwidth color{white}%
          vrule widthdimexprhsize+marginparwidthrelax heightmt@unvdimen}}
        mt@pseudo@marg{color{thered}%
          If you had a acronym{PDF} viewer that understands
          acronym{PDF},{smaller1.5}, you could view the effect of the
          micro-typographic features by clicking on the links.strut
          \vphantom{colorbox{white}{tabular l\addlinespace\endtabular}}%
          \[0.3baselineskip] Both features are enabled throughout this document.}}
      mt@show@sample{true}{true}
      vskip 4pt
      endgroup
      edefx{pdfpageresources{/Properties <<mt@resources>>}}x}
    defemptypdfpageresources{pdfpageresources{}}
  fi
else
  usepackage{url}
  newcommandhyperref[2][]{#2}
  lethyperpage@firstofone
  lettexorpdfstring@firstoftwo
  defctanurl{Available from acronym{CTAN} at url}
  letnolinkurlurl
  letmailtotexttt
  defmailtoRS{mailto{w.m.l@gmx.net}}
fi
ifxl@ukenglish@undefined
  hyphenation{let-ter-spac-ing let-ter-spaced let-ter-space}
else
  language=l@ukenglish
fi
hyphenation{An-dre-as Ber-nard Ha-rald Mi-cha-el Pe-ter Ste-phan Wolf-ram
             Har-ders Hop-pe Jac-kow-ski Ku-char-czyk Mei-er Mu-the-si-us Zed-ler
             Die-te-rich
             Sveinung % ?
             Marcin % ?
             RazorXsr
             with-out
             Pa-la-ti-no}
deffallbacktext#1{{centeringitshape[#1]par}}
% abbreviations
DeclareRobustCommandthanh{H`an Th^e%
     ifxeTeXversionundefined llap{raisebox{0.5ex}{'{}}}
     else llap{raisebox{0.45ex}{'{}kerndimexpr.05em-2fontdimen1fontrelax}}
     fi Th`anh}
defpdftex{texorpdfstring{pdfkern.05emTeX}{pdfTeX}}
defluatex{texorpdfstring{Luakern-.05emTeX}{LuaTeX}}
defetex{mbox{e-TeX}}
defnonetex{mbox{rlap{kern.05em/}e-TeX}} % aka. TeX
def@reflect#1{ifdimfontdimen1font=0pt reflectbox{#1}%
  else rotatebox[origin=c]{180}{#1}fi}
DeclareRobustCommandxetex{% also reflect the initial `X'?
  textoractual{@reflect{X}lower.4exhbox{kern-.12em@reflect{E}}}{Xe}%
  kern-.16emTeX}
deftexlive{TeX~Live}
defmicrotype{{PackageFont microtype}}
defletterspace{pkg{letterspace}}
deffontdim{cmdfontdimen,}
defeg{e.g.}
defie{i.e.}
defEM#1{#1kern.1emem}
DeclareRobustCommandsmaller{setboxz@hbox{@tempcnta=f@size
  edefx{@tempcnta=the@tempcnta}expandafter}x
  advance@tempcnta-7  ifcase@tempcntatinyorscriptsizeor
    footnotesizeorsmallorornormalsizeororlargeorororLargefi}
DeclareRobustCommandacronym[1]{texorpdfstring{{smallertextls[60]{#1}}}{#1}}
letless=<
{catcode`<=active
 AtBeginDocument{catcode`<=active
   def<#1>{acronym{#1}}
   defcontributor#1 <#2at#3>{@contributor{#1}{#2@#3}}
   DeclareRobustCommand@contributor[2]{textit{#1}}
   %DeclareRobustCommand@contributor[2]{href{mailto:#2}{textit{#1}}}
   }}
%<*driver>
%dpcCodelineIndex
%dpcEnableCrossrefs
%dpcRecordChanges
%OnlyDescription
begin{document}

title{Just a test}
author{me}
maketitle

tableofcontents

section{Something}
some text

end{document}