1 files changed, 0 insertions, 75 deletions
diff --git a/lisp/acdw-ytel.el b/lisp/acdw-ytel.el
deleted file mode 100644
index 276323d..0000000
--- a/lisp/acdw-ytel.el
+++ /dev/null

@@ -1,75 +0,0 @@
-;;; acdw-ytel.el --- bespoke functions for ytel -*- lexical-binding: t -*-
-;;; Commentary:
-;; Extra code for the ytel package:
-;; https://github.com/gRastello/ytel
-;;; Code:
-(require 'ytel nil t)
-(defun acdw/ytel-current-video-link ()
-  "Get the link of the video at point."
-  (let* ((video (ytel-get-current-video))
-         (id (ytel-video-id video)))
-    (concat "https://www.youtube.com/watch?v=" id)))
-(defun acdw/ytel-watch ()                    ; This could possibly use `browse-url'.
-  "Stream video at point in mpv."
-  (interactive)
-  (start-process "ytel mpv" nil
-                 "mpv"
-                 (acdw/ytel-current-video-link)
-                 "--ytdl-format=bestvideo[height<=?720]+bestaudio/best")
-  (message "Starting streaming..."))
-(defun acdw/ytel-copy-link ()
-  "Copy link of the video at point."
-  (interactive)
-  (let ((link (acdw/ytel-current-video-link)))
-    (kill-new link)
-    (message "Copied %s to kill-ring" link)))
-;;; YTDIOUS: https://github.com/spiderbit/ytdious
-;; a fork of ytel that uses table-view or w/e. looks nicer
-(require 'ytdious nil t)
-(defun acdw/ytdious-current-video-link ()
-  "Get the link of the video at point."
-  (let* ((video (ytdious-get-current-video))
-         (id (ytdious-video-id-fun video)))
-    (concat "https://www.youtube.com/watch?v=" id)))
-(defun acdw/ytdious-watch ()                    ; This could possibly use `browse-url'.
-  "Stream video at point in mpv."
-  (interactive)
-  (let ((link (acdw/ytdious-current-video-link)))
-    (start-process "ytdious mpv" nil
-                   "mpv"
-                   link
-                   "--ytdl-format=bestvideo[height<=?720]+bestaudio/best")
-    (message "Streaming %s..." link)))
-(defun acdw/ytdious-copy-link ()
-  "Copy link of the video at point."
-  (interactive)
-  (let ((link (acdw/ytdious-current-video-link)))
-    (kill-new link)
-    (message "Copied %s to kill-ring" link)))
-(defun acdw/ytdious-quit ()
-  "Quit ytdious."
-  ;; This corrects an error with `ytdious-quit' where it doesn't have the right
-  ;; buffer setup.
-  (interactive)
-  (quit-window))
-;;; Ignore `ytdious-show-image-asyncron' because it's buggy.
-(defalias 'ytdious-show-image-asyncron #'ignore)
-(provide 'acdw-ytel)
-;;; acdw-ytel.el ends here

diff --git a/lisp/acdw-ytel.el b/lisp/acdw-ytel.el deleted file mode 100644 index 276323d..0000000 --- a/lisp/acdw-ytel.el +++ /dev/null
@@ -1,75 +0,0 @@
1	;;; acdw-ytel.el --- bespoke functions for ytel -- lexical-binding: t --
2
3	;;; Commentary:
4
5	;; Extra code for the ytel package:
6	;; https://github.com/gRastello/ytel
7
8	;;; Code:
9
10	(require 'ytel nil t)
11
12	(defun acdw/ytel-current-video-link ()
13	"Get the link of the video at point."
14	(let* ((video (ytel-get-current-video))
15	(id (ytel-video-id video)))
16	(concat "https://www.youtube.com/watch?v=" id)))
17
18	(defun acdw/ytel-watch () ; This could possibly use `browse-url'.
19	"Stream video at point in mpv."
20	(interactive)
21	(start-process "ytel mpv" nil
22	"mpv"
23	(acdw/ytel-current-video-link)
24	"--ytdl-format=bestvideo[height<=?720]+bestaudio/best")
25	(message "Starting streaming..."))
26
27	(defun acdw/ytel-copy-link ()
28	"Copy link of the video at point."
29	(interactive)
30	(let ((link (acdw/ytel-current-video-link)))
31	(kill-new link)
32	(message "Copied %s to kill-ring" link)))
33
34
35	;;; YTDIOUS: https://github.com/spiderbit/ytdious
36	;; a fork of ytel that uses table-view or w/e. looks nicer
37
38	(require 'ytdious nil t)
39
40	(defun acdw/ytdious-current-video-link ()
41	"Get the link of the video at point."
42	(let* ((video (ytdious-get-current-video))
43	(id (ytdious-video-id-fun video)))
44	(concat "https://www.youtube.com/watch?v=" id)))
45
46	(defun acdw/ytdious-watch () ; This could possibly use `browse-url'.
47	"Stream video at point in mpv."
48	(interactive)
49	(let ((link (acdw/ytdious-current-video-link)))
50	(start-process "ytdious mpv" nil
51	"mpv"
52	link
53	"--ytdl-format=bestvideo[height<=?720]+bestaudio/best")
54	(message "Streaming %s..." link)))
55
56	(defun acdw/ytdious-copy-link ()
57	"Copy link of the video at point."
58	(interactive)
59	(let ((link (acdw/ytdious-current-video-link)))
60	(kill-new link)
61	(message "Copied %s to kill-ring" link)))
62
63	(defun acdw/ytdious-quit ()
64	"Quit ytdious."
65	;; This corrects an error with `ytdious-quit' where it doesn't have the right
66	;; buffer setup.
67	(interactive)
68	(quit-window))
69
70	;;; Ignore `ytdious-show-image-asyncron' because it's buggy.
71
72	(defalias 'ytdious-show-image-asyncron #'ignore)
73
74	(provide 'acdw-ytel)
75	;;; acdw-ytel.el ends here