Reimplement streaming of playlists

[nimcoon.git] / src / lib.nim

diff --git a/src/lib.nim b/src/lib.nim
index 1fa21685006241c3e2bd81aea15cab7b0fd64eb8..4305b2cbb1c0387cee28ce38887608d744009608 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,19 +40,37 @@ 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"
 
-proc play*(player: string, args: openArray[string], title: string) =
-  styledEcho "\n", fgGreen, "Playing ", styleBright, fgMagenta, title
+func isPlaylist(url: string): bool =
+  # Identifies if video is part of a playlist
+  # Only YouTube playlists are supported for now
+  "www.youtube.com" in url and "&list=" in url
+
+# This is a pure function with no side effects
+func buildPlayerArgs(url: string, options: Table[string, bool], player: string): seq[string] =
+  var args = @[url]
+  if options["musicOnly"]: args.add("--no-video")
+  if options["fullScreen"]: args.add("--fullscreen")
+  # Playlists are only supported for MPV player
+  if isPlaylist(url) and player == "mpv":
+    let list_arg = url.split('&')[1]
+    args[0] = "https://www.youtube.com/playlist?" & list_arg
+  return args
+
+proc play*(player: string, options: Table[string, bool], url: string, title: string = "") =
+  let args = buildPlayerArgs(url, options, player)
+  if title != "":
+    styledEcho "\n", fgGreen, "Playing ", styleBright, fgMagenta, title
   if "--no-video" in args:
     discard execShellCmd(&"{player} {args.join(\" \")}")
   else:
@@ -85,20 +105,67 @@ func stripZshEscaping(url: string): string =
 func sanitizeURL*(url: string): string =
   urlLongen(stripZshEscaping(url))
 
-proc directPlay*(url: string, player: string, musicOnly: bool) =
+proc directPlay*(url: string, player: string, options: Table[string, bool]) =
   if url.startswith("magnet:"):
-    if musicOnly:
+    if options["musicOnly"]:
       discard execShellCmd(&"peerflix '{url}' -a --{player} -- --no-video")
     else:
       discard execProcess("peerflix", args=[url, &"--{player}"], options=processOptions)
   else:
-    if musicOnly:
-      discard execShellCmd(&"{player} --no-video {url}")
-    else:
-      discard execProcess(player, args=[url], options=processOptions)
+    play(player, options, url)
 
 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)
+
+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, options, searchResult.url, 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)
+    else:
+      present(searchResults, options, selectionRange, player)
+  of "p":
+    if selectionRange.begin > 0:
+      let newSelectionRange = (selectionRange.begin - limit, selectionRange.until - limit)
+      present(searchResults, options, newSelectionRange, player)
+    else:
+      present(searchResults, options, selectionRange, player)
+  of "q":
+    quit(0)
+  else:
+    let searchResult = searchResults[selectionRange.begin .. selectionRange.until][parseInt(userInput)]
+    handleUserInput(searchResult, options, player)
+    if options["feelingLucky"]:
+      quit(0)
+    else:
+      present(searchResults, options, selectionRange, player)