chris/emacs
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

tweaks to jinx and empv

Browse source
This commit is contained in:
Chris Cochrun 2023-11-21 09:53:14 -06:00
parent a9cfaf3d21
commit ca17a42f63
2 changed files with 36 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
README.org
View file

@ -1937,7 +1937,10 @@ Jinx is an enchanted spell checker for emacs. I think I'll just turn it on globa
:init (flyspell-mode -1)
:config (flyspell-mode -1)
:bind (("M-c" . jinx-correct)
("C-M-$" . Jinx-Languages)))
("C-M-$" . Jinx-Languages))
:general
(general-def jinx-mode-map
"C-S-f" 'jinx-correct))
#+end_src
** Emoji
@ -4177,7 +4180,20 @@ With empv we can perhaps control mpv much more fine grainly and even search yout
(defun chris/empv-yt-dlp ()
"Download the current video and and play it"
(interactive)
(async-shell-command (concat "yt-dlp" " \"" (empv-youtube-results--current-video-url) "\"")))
(let* ((item (empv-youtube-results--current-item))
(video-id (alist-get 'videoId item))
(playlist-id (alist-get 'playlistId item))
(title (alist-get 'title item))
(url (format
"https://youtube.com/%s=%s"
(if video-id "watch?v" "playlist?list")
(or video-id playlist-id))))
(async-shell-command (concat
"yt-dlp" " -o '/home/chris/vids/%(title)s.%(ext)s'"
" \"" url "\""))
(let ((file (format "/home/chris/vids/%s.%s" title "webm")))
(empv-play file))
(message url)))
(defun chris/empv-org-play-link (&optional link)
"Play link in empv from either supplied link or link at point in org-mode"

20
init.el
View file

@ -1533,7 +1533,10 @@ Optional BACKEND must be `re-reveal' or a backend derived from it."
:init (flyspell-mode -1)
:config (flyspell-mode -1)
:bind (("M-c" . jinx-correct)
("C-M-$" . Jinx-Languages)))
("C-M-$" . Jinx-Languages))
:general
(general-def jinx-mode-map
"C-S-f" 'jinx-correct))
(use-package emojify
:ensure t
@ -3063,7 +3066,20 @@ targets."
(defun chris/empv-yt-dlp ()
"Download the current video and and play it"
(interactive)
(async-shell-command (concat "yt-dlp" " \"" (empv-youtube-results--current-video-url) "\"")))
(let* ((item (empv-youtube-results--current-item))
(video-id (alist-get 'videoId item))
(playlist-id (alist-get 'playlistId item))
(title (alist-get 'title item))
(url (format
"https://youtube.com/%s=%s"
(if video-id "watch?v" "playlist?list")
(or video-id playlist-id))))
(async-shell-command (concat
"yt-dlp" " -o '/home/chris/vids/%(title)s.%(ext)s'"
" \"" url "\""))
(let ((file (format "/home/chris/vids/%s.%s" title "webm")))
(empv-play file))
(message url)))
(defun chris/empv-org-play-link (&optional link)
"Play link in empv from either supplied link or link at point in org-mode"