Refactoring to be more functional

[nimcoon.git] / src / lib.nim

diff --git a/src/lib.nim b/src/lib.nim
index 54259e2d9f7d08237c3bb73ec51e30fb9751167a..3d3f51589d26a7fb56034d2f7975569a0dc75796 100644 (file)
--- a/src/lib.nim
+++ b/src/lib.nim
@@ -19,6 +19,7 @@ import config
 type
   Options* = Table[string, bool]
   SearchResult* = tuple[title: string, url: string]
+  SearchResults* = seq[tuple[title: string, url: string]]
   CommandLineOptions* = tuple[searchQuery: string, options: Options]
   SelectionRange* = tuple[begin: int, until: int]
 
@@ -39,13 +40,13 @@ proc getYoutubePage*(searchQuery: string): string =
   let response = get(client, &"https://www.youtube.com/results?hl=en&search_query={queryParam}")
   return $response.body
 
-func extractTitlesAndUrls*(html: string): seq[SearchResult] =
+func extractTitlesAndUrls*(html: string): SearchResults =
   {.noSideEffect.}:
     parseHtml(html).findAll("a").
       filter(a => "watch" in a.attrs["href"] and a.attrs.hasKey "title").
       map(a => (a.attrs["title"], "https://www.youtube.com" & a.attrs["href"]))
 
-proc presentVideoOptions*(searchResults: seq[SearchResult]) =
+proc presentVideoOptions*(searchResults: SearchResults) =
   eraseScreen()
   for index, (title, url) in searchResults:
     styledEcho $index, ". ", styleBright, fgMagenta, title, "\n", resetStyle, fgCyan, url, "\n"
@@ -103,3 +104,55 @@ proc directDownload*(url: string, musicOnly: bool) =
     if musicOnly: buildMusicDownloadArgs(url)
     else: buildVideoDownloadArgs(url)
   discard execShellCmd(&"youtube-dl {args.join(\" \")}")
+
+proc offerSelection(searchResults: SearchResults, options: Table[string, bool], selectionRange: SelectionRange): string =
+  if options["feelingLucky"]: "0"
+  else:
+    presentVideoOptions(searchResults[selectionRange.begin .. selectionRange.until])
+    stdout.styledWrite(fgYellow, "Choose video number: ")
+    readLine(stdin)
+
+# This is a pure function with no side effects
+func buildPlayerArgs(searchResult: SearchResult, options: Table[string, bool]): seq[string] =
+  var args = @[searchResult.url]
+  if options["musicOnly"]: args.add("--no-video")
+  if options["fullScreen"]: args.add("--fullscreen")
+  return args
+
+proc handleUserInput(searchResult: SearchResult, options: Table[string, bool], player: string) =
+  if options["download"]:
+    if options["musicOnly"]:
+      download(buildMusicDownloadArgs(searchResult.url), searchResult.title)
+    else:
+      download(buildVideoDownloadArgs(searchResult.url), searchResult.title)
+  else:
+    play(player, buildPlayerArgs(searchResult, options), searchResult.title)
+
+proc present*(searchResults: SearchResults, options: Table[string, bool], selectionRange: SelectionRange, player: string) =
+  #[ Continuously present options till the user quits the application
+       selectionRange: Currently available range to choose from depending on pagination
+  ]#
+
+  let userInput = offerSelection(searchResults, options, selectionRange)
+
+  case userInput
+  of "all":
+    for selection in selectionRange.begin .. selectionRange.until:
+      handleUserInput(searchResults[selection], options, player)
+    quit(0)
+  of "n":
+    if selectionRange.until + 1 < len(searchResults):
+      let newSelectionRange = (selectionRange.until + 1, min(len(searchResults) - 1, selectionRange.until + limit))
+      present(searchResults, options, newSelectionRange, player)
+  of "p":
+    if selectionRange.begin > 0:
+      let newSelectionRange = (selectionRange.begin - limit, selectionRange.until - limit)
+      present(searchResults, options, newSelectionRange, player)
+  of "q":
+    quit(0)
+  else:
+    handleUserInput(searchResults[parseInt(userInput)], options, player)
+    if options["feelingLucky"]:
+      quit(0)
+    else:
+      present(searchResults, options, selectionRange, player)