X-Git-Url: https://njoseph.me/gitweb/nimcoon.git/blobdiff_plain/13a4017d99baaf7919263edaf05b13063e91cb8d..c12cc641fe659e7e584a589bde9444904018b3b5:/src/lib.nim

diff --git a/src/lib.nim b/src/lib.nim
index 3d3f515..26df762 100644
--- a/src/lib.nim
+++ b/src/lib.nim
@@ -1,15 +1,17 @@
 import
   htmlparser,
   httpClient,
+  json,
   os,
   osproc,
+  re,
   sequtils,
-  sugar,
-  strformat,
   std/[terminal],
   strformat,
+  strformat,
   strtabs,
   strutils,
+  sugar,
   tables,
   uri,
   xmltree
@@ -25,9 +27,13 @@ type
 
 # poEchoCmd can be added to options for debugging
 let processOptions = {poStdErrToStdOut, poUsePath}
+let PEERTUBE_REGEX = re"videos\/watch\/[0-9a-f]{8}\b-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-\b[0-9a-f]{12}"
+
+proc isInstalled(program: string): bool =
+  execProcess("which " & program).len != 0
 
 proc selectMediaPlayer*(): string =
-  let availablePlayers = filterIt(supportedPlayers, execProcess("which " & it).len != 0)
+  let availablePlayers = supportedPlayers.filter(isInstalled)
   if len(availablePlayers) == 0:
     stderr.writeLine &"Please install one of the supported media players: {supportedPlayers}"
     raise newException(OSError, "No supported media player found")
@@ -40,6 +46,16 @@ proc getYoutubePage*(searchQuery: string): string =
   let response = get(client, &"https://www.youtube.com/results?hl=en&search_query={queryParam}")
   return $response.body
 
+proc getPeerTubeMagnetLink(url: string): string =
+  # Gets the magnet link of the best possible resolutino from PeerTube
+  let uuid = url.substr(find(url, PEERTUBE_REGEX) + "videos/watch/".len)
+  let domainName = url.substr(8, find(url, '/', start=8) - 1)
+  let apiURL = &"https://{domainName}/api/v1/videos/{uuid}"
+  let client = newHttpClient()
+  let response = get(client, apiURL)
+  let jsonNode = parseJson($response.body)
+  jsonNode["files"][0]["magnetUri"].getStr()
+
 func extractTitlesAndUrls*(html: string): SearchResults =
   {.noSideEffect.}:
     parseHtml(html).findAll("a").
@@ -51,8 +67,26 @@ proc presentVideoOptions*(searchResults: SearchResults) =
   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] =
+  let url =
+    # Playlists are only supported for MPV player
+    if isPlaylist(url) and player == "mpv":
+      "https://www.youtube.com/playlist?" & url.split('&')[1]
+    else: url
+  let musicOnly = if options["musicOnly"]: "--no-video" else: ""
+  let fullScreen = if options["fullScreen"]: "--fullscreen" else: ""
+  return filterIt([url, musicOnly, fullScreen], it != "")
+
+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:
@@ -60,19 +94,13 @@ proc play*(player: string, args: openArray[string], title: string) =
 
 func buildMusicDownloadArgs*(url: string): seq[string] =
   {.noSideEffect.}:
-    var args = @["--ignore-errors", "-f", "bestaudio", "--extract-audio", "--audio-format", "mp3", "--audio-quality", "0", "-o"]
     let downloadLocation = &"'{expandTilde(musicDownloadDirectory)}/%(title)s.%(ext)s'"
-    args.add(downloadLocation)
-    args.add(url)
-    return args
+    return @["--ignore-errors", "-f", "bestaudio", "--extract-audio", "--audio-format", "mp3", "--audio-quality", "0", "-o", downloadLocation, url]
 
 func buildVideoDownloadArgs*(url: string): seq[string] =
   {.noSideEffect.}:
-    var args = @["-f", "best", "-o"]
     let downloadLocation = &"'{expandTilde(videoDownloadDirectory)}/%(title)s.%(ext)s'"
-    args.add(downloadLocation)
-    args.add(url)
-    return args
+    return @["-f", "best", "-o", downloadLocation, url]
 
 proc download*(args: openArray[string], title: string) =
   styledEcho "\n", fgGreen, "Downloading ", styleBright, fgMagenta, title
@@ -87,17 +115,20 @@ func stripZshEscaping(url: string): string =
 func sanitizeURL*(url: string): string =
   urlLongen(stripZshEscaping(url))
 
-proc directPlay*(url: string, player: string, musicOnly: bool) =
-  if url.startswith("magnet:"):
-    if musicOnly:
+proc directPlay*(url: string, player: string, options: Table[string, bool]) =
+  let url =
+    if find(url, PEERTUBE_REGEX) != -1 and isInstalled("webtorrent"):
+      getPeerTubeMagnetLink(url)
+    else: url
+  if url.startswith("magnet:") or url.endswith(".torrent"):
+    if options["musicOnly"]:
+      # TODO Replace with WebTorrent once it supports media player options
       discard execShellCmd(&"peerflix '{url}' -a --{player} -- --no-video")
     else:
-      discard execProcess("peerflix", args=[url, &"--{player}"], options=processOptions)
+      # WebTorrent is so much faster!
+      discard execProcess("webtorrent", 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 =
@@ -112,13 +143,6 @@ proc offerSelection(searchResults: SearchResults, options: Table[string, bool],
     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"]:
@@ -126,7 +150,7 @@ proc handleUserInput(searchResult: SearchResult, options: Table[string, bool], p
     else:
       download(buildVideoDownloadArgs(searchResult.url), searchResult.title)
   else:
-    play(player, buildPlayerArgs(searchResult, options), searchResult.title)
+    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
@@ -144,14 +168,19 @@ proc present*(searchResults: SearchResults, options: Table[string, bool], select
     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:
-    handleUserInput(searchResults[parseInt(userInput)], options, player)
+    let searchResult = searchResults[selectionRange.begin .. selectionRange.until][parseInt(userInput)]
+    handleUserInput(searchResult, options, player)
     if options["feelingLucky"]:
       quit(0)
     else: