~ruther/guix-local

5403d63b47be3df2388710fc1588594cc607755c — Nicolas Graves 10 months ago 7535886 
gnu: emacs-youtube-dl: Replace youtube-dl input by yt-dlp.

I haven't tested it, but it should work according to
https://github.com/skeeto/youtube-dl-emacs/issues/5

* gnu/packages/emacs-xyz.scm (emacs-youtube-dl)
[arguments]: Rewrite using gexps.
<#:phases>: Use search-input-file in phase 'configure.
[inputs]: Replace youtube-dl by yt-dlp.

Change-Id: I602ff221e7093aa8ff820d4e904f7510eea0ecbb
Signed-off-by: Sharlatan Hellseher <sharlatanus@gmail.com>
patch browse .tar.gz 
1 files changed, 19 insertions(+), 21 deletions(-)

M gnu/packages/emacs-xyz.scm

M gnu/packages/emacs-xyz.scm => gnu/packages/emacs-xyz.scm +19 -21
@@ 32782,32 32782,30 @@ statistics with the help of @code{tokei}.")
               (commit commit)))
         (file-name (git-file-name name version))
         (sha256
          (base32
           "0zkl9jkjbx0lmp9ylv4rqg1zwqibk053s4rp7s1h0i18nzk7vn8j"))))
          (base32 "0zkl9jkjbx0lmp9ylv4rqg1zwqibk053s4rp7s1h0i18nzk7vn8j"))))
      (build-system emacs-build-system)
      (inputs
       (list youtube-dl))
      (arguments
       `(#:tests? #f  ; Error : standard input is not a tty
         #:test-command (list "make" "simulate")
         #:phases
         (modify-phases %standard-phases
           (add-after 'unpack 'configure
             (lambda* (#:key inputs #:allow-other-keys)
               (let ((youtube-dl (assoc-ref inputs "youtube-dl")))
                 ;; .el is read-only in git.
                 (chmod "youtube-dl.el" #o644)
                 ;; Specify the absolute file names of the various
                 ;; programs so that everything works out-of-the-box.
                 (emacs-substitute-variables
                     "youtube-dl.el"
                   ("youtube-dl-program"
                    (string-append youtube-dl "/bin/youtube-dl")))))))))
       (list
        #:tests? #f  ; Error : standard input is not a tty
        #:test-command #~(list "make" "simulate")
        #:phases
        #~(modify-phases %standard-phases
            (add-after 'unpack 'configure
              (lambda* (#:key inputs #:allow-other-keys)
                ;; .el is read-only in git.
                (chmod "youtube-dl.el" #o644)
                ;; Specify the absolute file names of the various
                ;; programs so that everything works out-of-the-box.
                (emacs-substitute-variables
                    "youtube-dl.el"
                  ("youtube-dl-program"
                   (search-input-file inputs "bin/yt-dlp"))))))))
      (inputs (list yt-dlp))
      (home-page "https://github.com/skeeto/youtube-dl-emacs/")
      (synopsis "Emacs youtube-dl download manager")
      (description "This package manages a video download queue for
@command{youtube-dl}, which serves as the back end.  It manages a single
@command{youtube-dl} subprocess, downloading one video at a time.  New videos
@command{yt-dlp}, which serves as the back end.  It manages a single
@command{yt-dlp} subprocess, downloading one video at a time.  New videos
can be queued at any time.")
      (license license:unlicense))))