标题中的章节标题太长

Question

在生成的文档的第 9 页上，您可以看到章节标题太长，以至于占了两行并覆盖了章节标题。在某些编程语言中，我会考虑在标题定义中包含某种“截断”版本。我还读过有关章节/节标题的较短版本（例如 \sectionmark）的内容，但我的编译器无法识别它。

有什么方法可以让标题变得更短一些呢？

代码： 主文本

    %Preamble
    \documentclass[a4paper,french,oneside,openright]{book}

    \usepackage{afterpage}
    \newcommand{\blankpage}{
        \null
        \thispagestyle{empty}
        \addtocounter{page}{-1}
        \newpage
        }
        
    \usepackage[french]{babel}
    \usepackage{fancyhdr}
    \usepackage{lipsum}

    \usepackage{tocloft,calc}
    \renewcommand{\cftchappresnum}{Chapter }
    \AtBeginDocument{\addtolength\cftchapnumwidth{\widthof{\bfseries Chapter }}}


    \title{Title}
    \author{Name}
    \date{2020}

    \begin{document}
        \input{Pages/TitlePage.tex}
        \input{Pages/Thanks.tex}


        \tableofcontents

\pagestyle{fancy}
\lfoot{Title}
\rfoot{Page \thepage/\pageref{LastPage}}
\renewcommand{\headrulewidth}{0.0pt}
\renewcommand{\footrulewidth}{0.1pt}

\fancypagestyle{plain}{%
  \fancyhf{}%
  \fancyfoot[L]{Title}%
  \fancyfoot[R]{Page \thepage/\pageref{LastPage}}%
  \renewcommand{\headrulewidth}{0pt}% Line at the header invisible
  \renewcommand{\footrulewidth}{0.1pt}% Line at the footer visible
}

        \chapter{Introduction}
            \section{Introduction}
            \lipsum
        \chapter{Chapter title}
            \section{This section title is toooooooooooooooooooooooooooo long}
            \lipsum
        \chapter{Chapter title}
            \section{SectionTitle}
            \lipsum
        \chapter{Chapter title}
            \section{SectionTitle}
            \lipsum
        \chapter{Chapter title}
            \section{SectionTitle}
            \lipsum
        \chapter{Chapter title}
            \section{SectionTitle}
            \lipsum
        \chapter{Chapter title}
            %\section{SectionTitle}  %Testing what happens in table of contents when there is a chapter without section.
            \lipsum
        \chapter{Chapter title}
            \section{SectionTitle}
            \lipsum
    \end{document}

页面\标题页.tex

\begin{titlepage}
\newcommand{\HRule}{\rule{\linewidth}{0.5mm}}

\HRule \\[0.9cm]
\begin{center}
    \textsc{\Huge Title}\\[1cm]
    \textsc{\LARGE Subtitle}\\[1.5cm]
\end{center}
\HRule \\[1.5cm]

\begin{center} \Large
    \begin{tabular}{ l r }  
        \emph{Text} & Text\\ 
        \emph{Text} & Text
    \end{tabular}
\end{center}

\vfill

\begin{center} \large
    \begin{tabular*}{\textwidth}{@{\extracolsep{\fill}} l r @{}}
        \ Text & Text\\
        \ Text & Text\\
        \ Text & Text\\
        \ Text & Text\\
        \ Text & Text
    \end{tabular*}
\end{center}
\afterpage{\blankpage}
\end{titlepage}

页面\感谢.tex

\pagestyle{empty}
\part*{Thanks}
\blankpage