带突出显示背景的换行长逐字文本

Question

listings通过设置选项，可以很容易地解决多余空格被突出显示的问题keepspaces=true。文档中提到了此选项

keepspaces=true告诉包不要删除空格来修复列对齐，并始终将制表符转换为空格。

使用此选项时，当列表中有换行符时，缩进有时会发生一些变化，但结果几乎相同。因此，我认为对所有列表使用此选项并不是什么大问题。

拆分突出显示的行比较棘手。listings带有几个钩子，您可以使用它们在输入行、空行等的开头或结尾插入额外的代码。不幸的是，似乎没有一种方法可以可靠地检测每个输出行的开头和结尾，同时考虑到换行符。这是因为内部使用了标准的 TeX 机制来与换行符结合\discretionary使用。当 TeX 执行文本时全部自由选择的换行符，我们也不能使用它们让 TeX 找出最终选择的换行符来找到行的末尾和下一行的开头。

因此，这里选择的方法是打破每一个 \discretionary然后重新开始。这样会形成很多小的高光部分，粘合在一起形成一个明显连续的部分。

为了实现，我必须切换到突出显示方法使用 TikZ 的remember picture功能因为它不需要在突出显示的部分周围包裹一个框，这导致我的方法无法正确获得正确平衡的括号。只要您只需要简单的背景颜色，这种方法就可以了。如果您需要绘制框或类似的东西，那么实现将变得更加困难。

扩展是一个\hlstyle宏\hlstyleend，它只设置全局\hl@active开关来确定突出显示是否处于活动状态，以及实际的自由中断重新定义。它不需要重新定义\discrtionary自身，因为listings它有自己的版本\lst@discretionary，可以为此目的劫持。

编辑：我注意到，如果突出显示不仅跨越两行，而且跨越两页，那么早期的解决方案就会失效。修改后的版本通过定义命令来解决这个问题\hl@p@XXX，其中XXX是当前突出显示标记号，用于突出显示的每个开始。这些命令中的每一个都映射到标记所在的相应页码。由于在下一次编译运行中需要页码信息，因此.aux当该页面的 shipout 发生并且确切的页码已知时，所有命令都会写入文件，并在下一次运行中用于确定哪些突出显示段应该只打印在当前页面上。

完整示例代码如下：

\documentclass{scrbook}

\usepackage{atbegshi,ifthen,listings,tikz}
\usepackage{xcolor}

\definecolor{oposmy}{HTML}{C0F1FF}
\tikzstyle{highlighter} = [ oposmy, line width = \baselineskip ]

\makeatletter

\newcounter{highlight}
\newif\ifhl@active

\newcommand{\tikzhighlightanchor}[1]{%
    \ensuremath{\vcenter{\hbox{%
        \tikz[remember picture, overlay]{\coordinate (#1 highlight \arabic{highlight});}%
    }}}%
}
\newcommand{\bh}{%
    \stepcounter{highlight}%
    \edef\hl@temp{%
        \unexpanded{\noexpand\expandafter\gdef\noexpand\csname}%
        hl@p@\arabic{highlight}%
        \unexpanded{\noexpand\endcsname{\arabic{page}}}
    }%
    \expandafter\write\expandafter\@auxout\expandafter{\hl@temp}%
    \tikzhighlightanchor{begin}%
}
\newcommand{\eh}{%
    \tikzhighlightanchor{end}%
}
\newcommand{\hlstyle}{%
    \global\hl@activetrue
    \bh
    \aftergroup\hlstyleend
}
\newcommand{\hlstyleend}{%
    \eh
    \global\hl@activefalse
}

\AtBeginShipout{\AtBeginShipoutUpperLeft{%
    \ifthenelse{\value{highlight} > 0}{%
        \tikz[remember picture, overlay]{\foreach \stroke in {1,...,\arabic{highlight}} {%
            \ifcsname hl@p@\stroke\endcsname
                \ifthenelse{\csname hl@p@\stroke\endcsname=\arabic{page}}{\draw[highlighter]
                    (begin highlight \stroke) -- (end highlight \stroke);}{}%
            \fi
        }}%
    }{}%
}}

\usepackage{listings}
 \lstset{%
    language=[LaTeX]TeX,
    commentstyle=\color{gray},
    breaklines=true,
    frame=single,
    frameround=tttt,%
    framextopmargin=10pt,
    framexbottommargin=7pt,
    xleftmargin=22pt,
    framexleftmargin=10pt,
    framesep=10pt,
    keepspaces=true
}

\lstdefinestyle{SQL}{%
    moredelim=**[is][\hlstyle]{`}{`},%
%    moredelim=**[is][{\btHL[fill=green!30,draw=red,dashed,thin]}]{@}{@}%
}

\let\orig@lst@discretionary=\lst@discretionary
\gdef\lst@discretionary{%
    \ifhl@active \eh \fi
    \orig@lst@discretionary
    \ifhl@active \bh \fi
}

\makeatother

\begin{document}

\vspace*{12cm}

\begin{lstlisting}[style=SQL]
\documentclass{scrbook}

`\usepackage{fontspec`}% #1
\setmainfont{`Latin Modern Sans Demi Cond`}% #2

\usepackage{tikz}
\usetikzlibrary{shapes.misc}

\begin{document}

\begin{tikzpicture}
   `\node[draw,rounded rectangle, rounded rectangle arc length=180] {Text};`% #3
\end{tikzpicture}

Press the `F1` key for help. Press the `\tikz[baseline] \draw node[anchor=base,draw,double,rounded corners] {{\texttt{F11}}};` key for full screen.% #4
Press the `F1` key for help.

\end{document}
\end{lstlisting}

\end{document}

这种方法的一个缺点是必须处理大量 TikZ 标记，当使用许多/较长的高亮时，这会显著减慢编译速度。另请注意，您必须编译两次才能获得正确的高亮位置。

Answer 1