anchor.diff: +;; TODO: Deprecate for 2.0 since it will be replaced by an improved download-mode.
   (uiop:define-package :next/video        ; TODO: Rename file to video.lisp since there is no mode?
       (:use :common-lisp :next)
  -  (:export :download
  +  (:export :download-and-notify
              :download-arguments
              :*download-program*
              :*download-args*
  
positive.code:                   url)
              (download-arguments url target-dir))))
  
  (defun download (url &optional target-dir)
    "Download asynchronously and notify on success or failure."
    (handler-case
        (progn
  
negative.code:            :*preferred-download-directories*)
    (:documentation "Download videos on the Web.
  
  Command defined in this package: `download-and-notify'.
  
  It tries by default to use the program `youtube-dl', that you must
  have in your path.
  
  You can also write a new function that takes a URL as parameter, and
  bind it to `next/video:*download-function*'.  In doing so, you can
  rely on the `next/video:download-and-notify' function, that does error handling
  and process management.
  
  ***********************************************************************
  