amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs-ytdl: Small fixes.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-ytdl)[arguments]: End phases with #t.  Use
`make-file-writable' instead of `chmod'.
[license]: Use GPL3+.
This commit is contained in:
Nicolas Goaziou 2020-10-20 12:19:01 +02:00
parent 0da77d59b7
commit be48b0549d
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 13 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -18788,8 +18788,7 @@ can be queued at any time.")
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32 "1xv93ny942gha1ipic5r6z4icjsb7src7ssdck9983kks3zacjk7"))))
"1xv93ny942gha1ipic5r6z4icjsb7src7ssdck9983kks3zacjk7"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(inputs (inputs
`(("youtube-dl" ,youtube-dl))) `(("youtube-dl" ,youtube-dl)))
@ -18803,20 +18802,20 @@ can be queued at any time.")
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((youtube-dl (assoc-ref inputs "youtube-dl"))) (let ((youtube-dl (assoc-ref inputs "youtube-dl")))
;; .el is read-only in git. ;; .el is read-only in git.
(chmod "ytdl.el" #o644) (make-file-writable "ytdl.el")
;; Specify the absolute file names of the various ;; Specify the absolute file names of the various programs so
;; programs so that everything works out-of-the-box. ;; that everything works out-of-the-box.
(emacs-substitute-variables (emacs-substitute-variables "ytdl.el"
"ytdl.el" ("ytdl-command" (string-append youtube-dl "/bin/youtube-dl")))
("ytdl-command" #t))))))
(string-append youtube-dl "/bin/youtube-dl")))))))))
(home-page "https://gitlab.com/tuedachu/ytdl") (home-page "https://gitlab.com/tuedachu/ytdl")
(synopsis "Emacs interface for youtube-dl") (synopsis "Emacs interface for youtube-dl")
(description "This package manages a video download queue for (description
@command{youtube-dl}, which serves as the back end. New videos can be queued "This package manages a video download queue for @command{youtube-dl},
at any time. All youtube-dl backends are supported. It's possible to create which serves as the back end. New videos can be queued at any time. All
download profiles depending on the downloaded URL.") youtube-dl backends are supported. It is possible to create download profiles
(license license:gpl3))) depending on the downloaded URL.")
(license license:gpl3+)))
(define-public emacs-org-web-tools (define-public emacs-org-web-tools
(package (package