Refactoring to be more functional

[nimcoon.git] / src / lib.nim

diff --git a/src/lib.nim b/src/lib.nim
index ffa4a4a3847a8e55cd3145acf2bc9c3f3233b085..3d3f51589d26a7fb56034d2f7975569a0dc75796 100644 (file)
--- a/src/lib.nim
+++ b/src/lib.nim
@@ -19,10 +19,12 @@ 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]
 
 # poEchoCmd can be added to options for debugging
-let processOptions = {poStdErrToStdOut, poUsePath, poEchoCmd}
+let processOptions = {poStdErrToStdOut, poUsePath}
 
 proc selectMediaPlayer*(): string =
   let availablePlayers = filterIt(supportedPlayers, execProcess("which " & it).len != 0)
@@ -38,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"
@@ -85,12 +87,72 @@ func stripZshEscaping(url: string): string =
 func sanitizeURL*(url: string): string =
   urlLongen(stripZshEscaping(url))
 
-proc directPlay*(url: string, player: string) =
+proc directPlay*(url: string, player: string, musicOnly: bool) =
   if url.startswith("magnet:"):
-    discard execProcess("peerflix", args=[url, &"--{player}"], options=processOptions)
+    if musicOnly:
+      discard execShellCmd(&"peerflix '{url}' -a --{player} -- --no-video")
+    else:
+      discard execProcess("peerflix", args=[url, &"--{player}"], options=processOptions)
   else:
-    discard execProcess(player, args=[url], options=processOptions)
-
-proc directDownload*(url: string) =
-  let args = buildVideoDownloadArgs(url)
+    if musicOnly:
+      discard execShellCmd(&"{player} --no-video {url}")
+    else:
+      discard execProcess(player, args=[url], options=processOptions)
+
+proc directDownload*(url: string, musicOnly: bool) =
+  let args =
+    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)