Next | Trivial Utilities | 54 |
mark lorrie = `pick -from lorrie` # set "lorrie" group
mark lorrie + `pick -to lorrie` # add messages to group
mark group op message numbers # Other operations
mark lorrie # print out list of message numbers
mark # print list of group names
The operations are defined with a dispatch table:
my %canonical = ('' => 'show', # I AM THE DEFAULT
'+' => 'union',
'u' => 'union',
'o' => 'union',
'or' => 'union',
'union' => 'union',
'add' => 'union',
'*' => 'intersect',
'a' => 'intersect',
'and' => 'intersect',
...
'-' => 'diff',
...
's' => 'show',
...
'=' => 'copy',
...
'x' => 'delete',
...
'0' => 'delete',
);
The values here are merely names of Set::IntSpan methods
I omitted 18 more synonyms
Overengineering perhaps? But I don't think so.
I would have had the dispatch table anyway
Putting in extra synonyms is cheap
Next | Menu | Copyright © 2012 M. J. Dominus |