Next: Youtube-dl current page

.config/next/init.lisp

@@ -40,3 +40,15 @@
                                      url title)))))))
 
 (define-key *global-map* (key "C-M-o") #'org-capture)
+
+(define-command youtube-dl-current-page ()
+  "Download a video in the currently open buffer."
+  (with-result (url (buffer-get-url))
+    (uiop:run-program
+     (list "emacsclient" "--eval"
+           (format nil
+                   (if (search "youtu" url)
+                       "(progn (youtube-dl \"~a\") (youtube-dl-list))"
+                       "(ambrevar/youtube-dl-at-point \"~a\")")
+                   url)))))
+(define-key *global-map* (key "C-M-c d") 'youtube-dl-current-page)