Search.hs

   1 module Search (
   2     search,
   3     usageSearch
   4 ) where
   5
   6 import Util
   7
   8 search :: [String] -> IO ()
   9 search argv = putStrLn $ usageSearch
  10
  11 usageSearch :: String
  12 usageSearch = "usage: " ++ progName ++ " search <filters>\n\
  13               \or:\n\
  14               \       " ++ progName ++ " search [id]\n\
  15               \filters:\n\
  16               \    -f <file>\n\
  17               \    -t <title>\n\
  18               \    -a <author1 [author2] ...>\n\
  19               \    -k <keyword1 [keyword2] ...>\n\
  20               \    -j <journal>\n\
  21               \    -v <volume>\n\
  22               \    -i <issue>\n\
  23               \    -d <date-from> <date-to>\n\
  24               \    -p <page-from> <page-to>\n\
  25               \    -b : bookmarks"