[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/03: gnu: Add emacs-youtube-dl.
From: |
Pierre Neidhardt |
Subject: |
01/03: gnu: Add emacs-youtube-dl. |
Date: |
Wed, 12 Sep 2018 13:34:22 -0400 (EDT) |
ambrevar pushed a commit to branch master
in repository guix.
commit 9c208f38f22cfc710bb7a56b97ee1b2c388df7b9
Author: Pierre Neidhardt <address@hidden>
Date: Wed Sep 12 15:44:07 2018 +0200
gnu: Add emacs-youtube-dl.
* gnu/packages/emacs.scm (emacs-youtube-dl): New variable.
---
gnu/packages/emacs.scm | 41 +++++++++++++++++++++++++++++++++++++++++
1 file changed, 41 insertions(+)
diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index a67acc7..f6da0e3 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -116,6 +116,7 @@
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages shells)
#:use-module (gnu packages gnupg)
+ #:use-module (gnu packages video)
#:use-module (guix utils)
#:use-module (srfi srfi-1)
#:use-module (ice-9 match))
@@ -11821,3 +11822,43 @@ from six different Hacker News feeds, namely top, new,
best, ask, show and job
stories. The default feed is top stories, which corresponds to the Hacker
News homepage.")
(license license:gpl3))))
+
+(define-public emacs-youtube-dl
+ (let ((commit "7c9d7a7d05b72a7d1b1257a36c5e2b2567b185dd"))
+ (package
+ (name "emacs-youtube-dl")
+ (version (git-version "1.0" "1" commit))
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/skeeto/youtube-dl-emacs/")
+ (commit commit)))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "0mh4s089a4x8s380agzb2306kdp1hl204px1n5rrrrdcls7imnh6"))))
+ (build-system emacs-build-system)
+ (inputs
+ `(("youtube-dl" ,youtube-dl)))
+ (arguments
+ `(#: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")))))))))
+ (home-page "https://github.com/skeeto/youtube-dl-emacs/")
+ (synopsis "Emacs youtube-dl download manager")
+ (description "This package manages a video download queue for
address@hidden, which serves as the back end. It manages a single
address@hidden subprocess, downloading one video at a time. New videos
+can be queued at any time.")
+ (license license:unlicense))))