65.7 slidesec.sty

<..slidesec.4ht..>
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % slidesec.4ht                          2014-07-12-22:36 %
 % Copyright (C) 1999--2009       Eitan M. Gurari         %
 <.TeX4ht copyright.>
 
 \def\listofslides{\begingroup
   \section*{List of Slides}%
   \def\l@slide##1##2##3{%
     \slide@undottedcline{\slidenumberline{##3}{##2}}{}}%
   \let\l@subslide\l@slide   \a:listofslides
   \:tableofcontents[slidesection,subslidesection]\b:listofslides
   \endgroup}
 \NewConfigure{listofslides}{2}
 \def\slide@heading[#1]#2{%
   \stepcounter{slidesection}%
   \:los{slidesection}{#1}%
   \gdef\theslideheading{#1}%
   \def\@tempa{#2}%
   \ifx\@tempa\@empty\else
     {\edef\@currentlabel{\csname
         p@slidesection\endcsname\theslidesection}%
       \makeslideheading{#2}}%
   \fi}
 
 \def\slide@subheading[#1]#2{%
   \stepcounter{slidesection}%
   \:los{subheading}{#1}%
   \gdef\theslidesubheading{#1}%
   \def\@tempa{#2}%
   \ifx\@tempa\@empty\else
     {\edef\@currentlabel{\csname p@slidesubsection\endcsname
       \theslidesubsection}\makeslideheading{#2}}%
   \fi}
 
 \def\:los#1#2{{\Link{#1-\expandafter\the\csname
      c@#1\endcsname}{#1\expandafter\the\csname
      c@#1\endcsname}\EndLink
 \protect:wrtoc
    \edef\:temp{\the\:tokwrite{\string\doTocEntry
        \string\toc#1{\expandafter\the\csname c@#1\endcsname}{\string
       \csname\space a:TocLink\string\endcsname
    {\FileNumber}{#1\expandafter\the
     \csname c@#1\endcsname}{#1-\expandafter\the
     \csname c@#1\endcsname}{\ignorespaces #2}}{\the
     \c@slide}\relax}}\:temp
  }}
 
 
 \Hinput{slidesec}
 \endinput
 -_-_-