feat(CLI): use --count when --info is passed

Author: head-gardener

src/Action/CmdLine.hs

@@ -134,7 +134,7 @@ search_ = Search
     ,jsonl = def &= name "jsonl" &= help "Get result as JSONL (JSON Lines)"
     ,link = def &= help "Give URL's for each result"
     ,numbers = def &= help "Give counter for each result"
-    ,info = def &= help "Give extended information about the first result"
+    ,info = def &= help "Give extended information about the first n results (set n with --count, default is 1)"
     ,database = def &= typFile &= help "Name of database to use (use .hoo extension)"
     ,count = Nothing &= name "n" &= help "Maximum number of results to return (defaults to 10)"
     ,query = def &= args &= typ "QUERY"

src/Action/Search.hs

@@ -53,7 +53,10 @@ actionSearch Search{..} = replicateM_ repeat_ $ -- deliberately reopen the datab
             if null res then
                 putStrLn "No results found"
              else if info then do
-                 putStr $ targetInfo $ headErr res
+                 mapM_ (putStr . targetInfo)
+                  $ (case count of
+                    Just c -> take c
+                    Nothing -> singleton . headErr) res
              else do
                 let toShow = if numbers && not info then addCounter shown else shown
                 if | json -> LBS.putStrLn $ JSON.encode $ maybe id take count $ map unHTMLtargetItem res