如何修改lstnewenvironment配置自动在代码块前换行加右对齐标签

解决方案 #

问题根源是\lstnewenvironment的前置执行逻辑默认处于上一段落的水平排版模式，直接插入换行、对齐命令无法正确触发独立行的排版逻辑。通过在环境定义的开头强制结束当前段落，再输出右对齐标签即可实现需求，无需手动在环境前添加空行。

完整环境定义代码

\documentclass{article}
\usepackage{listings}
\usepackage{xcolor} % 用于代码高亮，不需要可移除

% 自定义Pascal代码块环境
\lstnewenvironment{pascalcode}[1][]
{%
  % 强制结束前置文本所在段落，自动完成换行，无需手动加空行
  \par
  % 新开无缩进行，将小字号语言标签推至行尾
  \noindent\small\hfill pascal
  % Pascal语言基础排版配置，可按需调整样式
  \lstset{
    language=Pascal,
    basicstyle=\ttfamily\footnotesize,
    keywordstyle=\color{blue}\bfseries,
    stringstyle=\color{orange},
    commentstyle=\color{teal},
    frame=single,
    breaklines=true,
    columns=flexible,
    #1 % 支持传入额外配置参数
  }%
}
{%
  % 代码块结束后强制断行，添加和后续正文的间距
  \par\smallskip
}

原方案失效原因说明

• 直接使用\hfill放置标签时，环境启动时TeX还在处理上一段的行内内容，标签会被识别为当前行的内联元素，和前置文本挤在同一行
• 标签前加\\属于段落内强制折行，不会终止当前段落，折出的新行依然属于上一段落的内部行，此时\hfill、\hspace{\textwidth}等水平填充命令的计算基准是段落行宽，会出现对齐失效、标签跑到行首的问题
• 先调用\par会让TeX正确结束上一段落的排版，回到垂直模式，后续通过\noindent开启独立的无缩进新行，此时\hfill可以正常将标签推至行尾，全程不需要手动在环境前添加空行。

调用示例

\begin{document}
% 前置正文后直接跟环境，不需要手动敲空行
普通正文内容可以直接接代码块环境，不需要额外空行：
\begin{pascalcode}
program Demo;
var
  num: Integer;
begin
  num := 1024;
  Writeln('Value: ', num);
end.
\end{pascalcode}
后续正文内容也可以直接接在环境后，排版间距自动适配。
\end{document}

内容的提问来源于stack exchange，提问作者Kumar