gnu: emacs-yeetube: Update to 2.1.4.

* gnu/packages/emacs-xyz.scm (emacs-yeetube): Update to 2.1.4.
[arguments]<#:phases>: Properly locate binaries.
[inputs]: Add WGET.

Change-Id: Ib72584b2ef1da5fe8b469bf3fb4c3a4efdfdb7a0
This commit is contained in:
Nicolas Goaziou 2024-03-17 23:49:11 +01:00
parent 08c5536499
commit bb274ab5aa
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D

View file

@ -28694,18 +28694,19 @@ and comments.")
(license license:gpl3+)))) (license license:gpl3+))))
(define-public emacs-yeetube (define-public emacs-yeetube
(let ((commit "c74e4e77156297624d278a05bdd19c016a91ff9b")) ;version bump
(package (package
(name "emacs-yeetube") (name "emacs-yeetube")
(version "2.1.2") (version "2.1.4")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://git.thanosapollo.org/yeetube") (url "https://git.thanosapollo.org/yeetube")
(commit version))) (commit commit)))
(sha256 (sha256
(base32 (base32
"0c2iq6rb179zh9qbw7prxsjbiz77j060pj75s82wbbz5xjavzgp5")) "1gpfm41d4wzk1i0hnmfn81xv05ida9ljibar7ji4d7nisjbd4vp9"))
(file-name (git-file-name name version)))) (file-name (git-file-name name version))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
@ -28714,19 +28715,20 @@ and comments.")
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'locate-binaries (add-after 'unpack 'locate-binaries
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(emacs-substitute-variables "yeetube.el" (substitute* (find-files "." "\\.el$")
("yeetube-ytdlp" (("\\(executable-find \"mpv\"\\)")
(search-input-file inputs "/bin/yt-dlp"))) (format #f "~s"
(emacs-substitute-variables "yeetube-mpv.el" (search-input-file inputs "/bin/mpv")))
("yeetube-mpv-path" (("\\(executable-find \"torsocks\"\\)")
(search-input-file inputs "/bin/mpv")) (format #f "~s"
("yeetube-mpv-torsocks" (search-input-file inputs "/bin/torsocks")))
(search-input-file inputs "/bin/torsocks"))))) (("\\(executable-find \"wget\"\\)")
(add-after 'unpack 'relax-check (format #f "~s"
(lambda _ (search-input-file inputs "/bin/wget")))
(substitute* "yeetube-mpv.el" (("\\(executable-find \"yt-dlp\"\\)")
(("\\(yeetube-mpv-check\\)") ""))))))) (format #f "~s"
(inputs (list mpv torsocks yt-dlp)) (search-input-file inputs "/bin/yt-dlp")))))))))
(inputs (list mpv torsocks wget yt-dlp))
(propagated-inputs (list emacs-compat)) (propagated-inputs (list emacs-compat))
(home-page "https://thanosapollo.com/blog/yeetube/") (home-page "https://thanosapollo.com/blog/yeetube/")
(synopsis "Youtube and Invidious front-end for Emacs") (synopsis "Youtube and Invidious front-end for Emacs")
@ -28736,7 +28738,7 @@ or an Invidious instance for a specific query. The search results are shown
as links in an Org mode buffer. The videos can be opened to a user-defined as links in an Org mode buffer. The videos can be opened to a user-defined
video player (by default @command{mpv}) or downloaded using @command{yt-dlp}. video player (by default @command{mpv}) or downloaded using @command{yt-dlp}.
This package also includes a @code{yt-dlp} front-end.") This package also includes a @code{yt-dlp} front-end.")
(license license:gpl3+))) (license license:gpl3+))))
(define-public emacs-org-web-tools (define-public emacs-org-web-tools
(package (package