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 ;
   5 IN: sorting.title
   6
   7 << "title" [
   8     >lower dup R/ ^(the|a|an|el|la|los|las|il) / first-match
   9     [ to>> tail-slice ] when*
  10 ] define-sorting >>