diff options
| -rw-r--r-- | gnus.org | 22 | ||||
| -rw-r--r-- | lib/media/jao-mpc.el | 5 |
2 files changed, 16 insertions, 11 deletions
@@ -683,17 +683,17 @@ (defun jao-gnus-open-enclosure (&optional playp) (interactive "P") - (gnus-summary-select-article-buffer) - (save-excursion - (goto-char (point-min)) - (when (search-forward "Enclosure:") - (forward-char 2) - (when-let ((url (thing-at-point-url-at-point))) - (message "%s %s ..." (if playp "Playing" "Adding") url) - (if playp (emms-play-url url) (emms-add-url url)) - (when playp - (sit-for 1) - (jao-emms-echo)))))) + (save-window-excursion + (gnus-summary-select-article-buffer) + (save-excursion + (goto-char (point-min)) + (when (search-forward "Enclosure:") + (forward-char 2) + (when-let ((url (thing-at-point-url-at-point))) + (message "%s %s ..." (if playp "Playing" "Adding") url) + (when playp (jao-mpc-clear)) + (jao-mpc-add-url url) + (when playp (jao-mpc-play))))))) #+end_src * Keyboard shortcuts #+BEGIN_SRC emacs-lisp diff --git a/lib/media/jao-mpc.el b/lib/media/jao-mpc.el index 669883c..5f70f15 100644 --- a/lib/media/jao-mpc.el +++ b/lib/media/jao-mpc.el @@ -203,6 +203,11 @@ (jao-notify (jao-mpc--current-str))) ;;;###autoload +(defun jao-mpc-add-url (url) + (interactive "sURL: ") + (jao-mpc--cmd (format "add %s" url))) + +;;;###autoload (defun jao-mpc-show-albums () "Show album list." (interactive) |