]> gitweb.factorcode.org Git - factor.git/blob - basis/sorting/title/title.factor
dbdbf8a8fbd89f7afe0d879b2913352344dcd703
[factor.git] / basis / sorting / title / title.factor
1 ! Copyright (C) 2009 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: sorting.functor regexp kernel accessors sequences
4 unicode.case ;
5 IN: sorting.title
6
7 << "title" [ >lower dup R/ ^(the|a|an|el|la|los|las|il) / first-match [ to>> tail-slice ] when* ] define-sorting >>