Comma-separated list

Question

I would like to produce comma-separated lists, like "a, b, c, d" or "a, b, c, and d".

Requirements:

• In the Latex source code, each line of the source code should contain one list element, and as little additional markup as possible.

• It should be easy to re-order the entries by changing the order of source code lines.

For example, I could simply write the list elements like this:

a,
b,
c, and
d.

This would (almost) satisfy the first requirement, but it would fail on the second requirement. I would have to remember to fix the punctuation whenever I re-order the entries (or simply add a new entry). It sounds trivial, but it is surprisingly easy to forget to replace the full stop with a comma, and not that easy to spot the mistake. And I have a longish Latex document that mixes other content and such lists, so it would not be convenient to use an external script to generate the appropriate Latex code – I am really looking for something that is as easy as possible to maintain in the long term.

I do not really know what would be an appropriate interface; hence this can also be seen as an interface-design challenge. Perhaps something like this:

xxx\begin{commasep}[and]
    \item a
    \item b
    \item c
    \item d
\end{commasep}yyy

would produce:

xxxa, b, c, and dyyy

(Note: no whitespace after "d", so that I can add appropriate punctuation right after the list.)

I wonder if, e.g., paralist can be tweaked to produce what I want?

Answer 1

Here some macro which reads the lines as macro arguments. It got inspired by this question. It would be possible to change the "interface" to LaTeX environments instead, but the TeX syntax (without \begin and \end) is easier.

\documentclass{article}

\makeatletter
\newcommand*\commasep[2][, ]{%
   \begingroup
   \def\commasepsep{#1\space}%  store separator e.g. ','
   \def\commasependsep{#2\space}%  store last separator e.g. 'and'
   \@commasep
}
\newcommand*\@commasep[1][.]{%
   \def\commasepend{#1}%  store end marker e.g. '.'
   \@ifnextchar\endcommasep{}{%  check for empty list
     \catcode\endlinechar\active%  make end-of-line active
     \commasepfirstelement%  read first element
   }%
}%
\begingroup
\catcode\endlinechar\active%
% The `~` character represents the end-of-line character in the
% code below:
\lccode`\~=\endlinechar%
\lowercase{%
% Read first element
\gdef\commasepfirstelement#1~}{%
    #1%
    \@ifnextchar\endcommasep{%
      \commasepend% remove this if you don't want one with only one element
    }{%
      \commasepelement% no comma here!
    }%
}%
\lowercase{%
\endgroup%
% Read all other elements
\gdef\commasepelement#1~}{%
    \@ifnextchar\endcommasep{% Stop at `\endcommasep`
      \commasependsep#1\commasepend%
    }{%
      \commasepsep#1\commasepelement%
    }%
}%
\def\endcommasep{%
  \@gobble{endcommasep}% be unique (for `\@ifnextchar`) 
  \endgroup
}%
\makeatother

\begin{document}

% Usage: \commasep[<separator>]{<last separator>}[<end marker>]
xxx\commasep[,]{and}[.]
a
b
c
d
\endcommasep yyy

xxx\commasep{and}
a
\endcommasep yyy

xxx\commasep{and}
\endcommasep yyy

xxx\commasep{or}
a
b
\endcommasep yyy

\end{document}

Please also note that there is a parselines package which might be used. However, it doesn't support handling the last entry different. Nevertheless, its code might be a good read for people interested in this kind of parsing.

Answer 2

Items are delimited by ,,, and the list is ended with ... In fact, each ,, should be followed by a space or the end of a line (without %). For very long lists (a few paragraphs?), this might get slow, since we grab the whole list as an argument at every step.

(Note that I "declare" each command with \newcommand\command{} to make sure they don't exist before I define them using \def.)

The whole construction relies on a generic macro to insert the desired separators between list elements, with some configuration possible. See e.g., \commasepitem below, which writes the list in an itemize environment.

\documentclass{article}    

\makeatletter
% #1 at the beginning
% #2 between each element
% #3 between the last two
% #4 after the last
% #5 is the first item
\newcommand*\commasep@generic{}
\def\commasep@generic#1#2#3#4 #5,, {#1#5\commasep@next{#2}{#3}{#4}}

\newcommand*\commasep@next{}
\def\commasep@next#1#2#3#4,, #5..{%
  % #1 is the list separator,
  % #2 is the last list separator,
  % #3 is the end text
  % #4 the item, 
  % #5 the rest.
  \expandafter\ifx\expandafter a\detokenize{#5}a% test if #3 is empty.
  \expandafter\@firstoftwo
  \else
  \expandafter\@secondoftwo
  \fi
  {#2#4#3}%
  {#1#4\commasep@next{#1}{#2}{#3}#5..}%
}%

\newcommand*\commasep[1]{\commasep@generic{}{, }{, #1 }{\ignorespaces}}
\newcommand*\commasepitem{%
  \commasep@generic{\begin{itemize}\item}{\item}{\item[(last)]}{\end{itemize}} }
\makeatother



\begin{document}

xx\commasep{and}
    a,,
    b,,
    c,,
    d,,
    ..
yyyy

xxx\commasepitem
    ``London bridge is falling down'' is much more frightening!,,
    c,,
    ``Mary had a little lamb, little lamb, little lamb'' is a nice
    little song that my mom used to sing,,
    d,,
    ..
yyyy

\end{document}

Answer 3

With the help of enumitem it is possible.

\usepackage[inline]{enumitem}

\begin{itemize*}[label={}, itemjoin={,}, itemjoin*={, and}]
  \item one
  \item two
  \item three
\end{itemize*}

Output:

Answer 4

With a flexible interface for setting the separators:

\documentclass{article}
\usepackage{xparse}

\ExplSyntaxOn

\NewDocumentCommand{\commasep}{O{}m}
 {
  \group_begin:
  \jukka_commasep:nn { #1 } { #2 }
  \group_end:
  \ignorespaces
 }

\NewDocumentCommand{\commasepsetup}{m}
 {
  \keys_set:nn { jukka/commasep } { #1 }
 }

\cs_new_protected:Nn \jukka_commasep:nn
 {
  \keys_set:nn { jukka/commasep } { #1 }
  \seq_set_split:Nnn \l__jukka_commasep_seq { \\ } { #2 }
  \str_if_eq_x:nnT { } { \seq_item:Nn \l__jukka_commasep_seq { -1 } }
   {
    \seq_pop_right:NN \l__jukka_commasep_seq \l_tmpa_tl
   }
  \seq_use:NVVV \l__jukka_commasep_seq
   \l__jukka_commasep_two_tl
   \l__jukka_commasep_more_tl
   \l__jukka_commasep_last_tl
 }

\cs_generate_variant:Nn \seq_use:Nnnn { NVVV }

\keys_define:nn { jukka/commasep }
 {
  two  .tl_set:N = \l__jukka_commasep_two_tl,
  more .tl_set:N = \l__jukka_commasep_more_tl,
  last .tl_set:N = \l__jukka_commasep_last_tl,
  two  .initial:n = { ~and~ },
  more .initial:n = { ,~ },
  last .initial:n = { ,~and~ },
 }

\ExplSyntaxOff

\begin{document}

xxx\commasep{
 a \\
}yyy

xxx\commasep{
 a \\
 b \\
}yyy

xxx\commasep{
 a \\
 b \\
 c \\
 d \\
}yyy

\commasepsetup{
  two=+,
  more=-,
  last=-,
}

xxx\commasep{
 a \\
}yyy

xxx\commasep{
 a \\
 b \\
}yyy

xxx\commasep{
 a \\
 b \\
 c \\
 d \\
}yyy

\end{document}