backslashify

# Remove blank lines and comment lines, add space-backslash to all lines but the last.
# Useful for making big lists in code without all the unpleasant backslashes.
#
proc backslashify {blob} { return [join [lmap l [split $blob \n] { if {[regexp {^[[:space:]]*(#.*)?$} $l]} { continue } else { set l } }] " \\\n"] }


set l [eval list [backslashify {
    val

    $var
   # comment
   [dict create a b c d]
   ...
}]