ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-12 14:16:55 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs-yeetube: Update to 2.1.4.

Browse source 
* 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
1 changed files with 41 additions and 39 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

80
gnu/packages/emacs-xyz.scm
View file

@ -28694,49 +28694,51 @@ (define-public emacs-ytel-show
(license license:gpl3+)))) (license license:gpl3+))))
(define-public emacs-yeetube (define-public emacs-yeetube
(package (let ((commit "c74e4e77156297624d278a05bdd19c016a91ff9b")) ;version bump
(name "emacs-yeetube") (package
(version "2.1.2") (name "emacs-yeetube")
(source (version "2.1.4")
(origin (source
(method git-fetch) (origin
(uri (git-reference (method git-fetch)
(url "https://git.thanosapollo.org/yeetube") (uri (git-reference
(commit version))) (url "https://git.thanosapollo.org/yeetube")
(sha256 (commit commit)))
(base32 (sha256
"0c2iq6rb179zh9qbw7prxsjbiz77j060pj75s82wbbz5xjavzgp5")) (base32
(file-name (git-file-name name version)))) "1gpfm41d4wzk1i0hnmfn81xv05ida9ljibar7ji4d7nisjbd4vp9"))
(build-system emacs-build-system) (file-name (git-file-name name version))))
(arguments (build-system emacs-build-system)
(list (arguments
#:phases (list
#~(modify-phases %standard-phases #:phases
(add-after 'unpack 'locate-binaries #~(modify-phases %standard-phases
(lambda* (#:key inputs #:allow-other-keys) (add-after 'unpack 'locate-binaries
(emacs-substitute-variables "yeetube.el" (lambda* (#:key inputs #:allow-other-keys)
("yeetube-ytdlp" (substitute* (find-files "." "\\.el$")
(search-input-file inputs "/bin/yt-dlp"))) (("\\(executable-find \"mpv\"\\)")
(emacs-substitute-variables "yeetube-mpv.el" (format #f "~s"
("yeetube-mpv-path" (search-input-file inputs "/bin/mpv")))
(search-input-file inputs "/bin/mpv")) (("\\(executable-find \"torsocks\"\\)")
("yeetube-mpv-torsocks" (format #f "~s"
(search-input-file inputs "/bin/torsocks"))))) (search-input-file inputs "/bin/torsocks")))
(add-after 'unpack 'relax-check (("\\(executable-find \"wget\"\\)")
(lambda _ (format #f "~s"
(substitute* "yeetube-mpv.el" (search-input-file inputs "/bin/wget")))
(("\\(yeetube-mpv-check\\)") ""))))))) (("\\(executable-find \"yt-dlp\"\\)")
(inputs (list mpv torsocks yt-dlp)) (format #f "~s"
(propagated-inputs (list emacs-compat)) (search-input-file inputs "/bin/yt-dlp")))))))))
(home-page "https://thanosapollo.com/blog/yeetube/") (inputs (list mpv torsocks wget yt-dlp))
(synopsis "Youtube and Invidious front-end for Emacs") (propagated-inputs (list emacs-compat))
(description (home-page "https://thanosapollo.com/blog/yeetube/")
"This package offers an Emacs interface that allows you to search YouTube (synopsis "Youtube and Invidious front-end for Emacs")
(description
"This package offers an Emacs interface that allows you to search YouTube
or an Invidious instance for a specific query. The search results are shown 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