View/Edit #29:title_list*c list_title*c

Switch to edit mode.

1:  "wr_utils:title_list/title_listc(<obj-list>[, @<args>)"
2:  "Creates an english list out of the titles of the objects in <obj-list>.  Optional <args> are passed on to $string_utils:english_list."
3:  "title_listc uses :titlec() for the first item."
4:  titles = $list_utils:map_verb(args[1], "title")
5:  if (verb[$] == "c")
6:    if (titles)
7:      titles[1] = args[1][1]:titlec()
8:    elseif (length(args) > 1)
9:      args[2] = $string_utils:capitalize(args[2])
10:   else
11:     args = listappend(args, "Nothing")
12:   endif
13: endif
14: return $string_utils:english_list(titles, @args[2..$])
15: "Last modified by Dax (#789) on Mon Apr 19 09:33:56 1999 MDT."

[home | help | who | search | setup | code]