diff options
| author | jao <jao@gnu.org> | 2021-11-12 02:53:53 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-11-12 02:54:28 +0000 |
| commit | 0f755cffbd470508e4e8aea70e3253aaa5a61a5f (patch) | |
| tree | 089b6d70f59ebe88286fae3581834e84dc16b180 /gnus.org | |
| parent | 37ba723bc171ed3dd3c1986b593b74c622a1293f (diff) | |
| download | elibs-0f755cffbd470508e4e8aea70e3253aaa5a61a5f.tar.gz elibs-0f755cffbd470508e4e8aea70e3253aaa5a61a5f.tar.bz2 | |
browse-url handler for sound urls (mpc)
Diffstat (limited to 'gnus.org')
| -rw-r--r-- | gnus.org | 9 |
1 files changed, 3 insertions, 6 deletions
@@ -749,8 +749,8 @@ (jao-browse-with-external-browser) (browse-url (jao-url-around-point)))))) - (defun jao-gnus-open-enclosure (&optional playp) - (interactive "P") + (defun jao-gnus-open-enclosure () + (interactive) (save-window-excursion (gnus-summary-select-article-buffer) (save-excursion @@ -758,10 +758,7 @@ (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))))))) + (jao-browse-add-url-to-mpc url)))))) #+end_src * Keyboard shortcuts #+begin_src emacs-lisp |