emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/dired-preview fa7bc94496: Update the code samples about


From: ELPA Syncer
Subject: [elpa] externals/dired-preview fa7bc94496: Update the code samples about ready-player
Date: Mon, 29 Jul 2024 06:57:53 -0400 (EDT)

branch: externals/dired-preview
commit fa7bc94496d2e16bcc13a3737d2522b161f5b623
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Update the code samples about ready-player
---
 README.org | 26 ++++++++++++++++++++------
 1 file changed, 20 insertions(+), 6 deletions(-)

diff --git a/README.org b/README.org
index 10fc51749f..ad4b94a7fa 100644
--- a/README.org
+++ b/README.org
@@ -264,16 +264,30 @@ buffer ([[#h:f5a5f8ed-4b03-4afc-96e2-83904be19739][The 
~dired-preview-with-windo
 (defun prot/ready-player-dired-preview-play-toggle ()
   "Call `ready-player-toggle-play-stop' on the currently previewed media file."
   (interactive)
-  (if-let ((file (dired-file-name-at-point))
-           (media (concat "\\." (regexp-opt ready-player-supported-media t) 
"\\'"))
-           (_ (string-match-p media file)))
-      (dired-preview-with-window
-       (call-interactively #'ready-player-toggle-play-stop))
-    (user-error "Cannot do something useful with `ready-player' here")))
+  (dired-preview-with-window
+   (if-let ((file buffer-file-name)
+            (media (concat "\\." (regexp-opt ready-player-supported-media t) 
"\\'"))
+            (_ (string-match-p media file)))
+       (call-interactively #'ready-player-toggle-play-stop)
+     (user-error "Cannot do something useful with `ready-player' here"))))
 
 (define-key dired-preview-mode-map (kbd "C-c C-p") 
#'prot/ready-player-dired-preview-play-toggle)
 #+end_src
 
+Same idea, but open the file externally no matter what:
+
+#+begin_src emacs-lisp
+(defun prot/ready-player-dired-preview-open-externally ()
+  "Call `ready-player-open-externally' on the currently previewed media file."
+  (interactive)
+  (dired-preview-with-window
+   (if-let ((file buffer-file-name)
+            (media (concat "\\." (regexp-opt ready-player-supported-media t) 
"\\'"))
+            (_ (string-match-p media file)))
+       (call-interactively #'ready-player-open-externally)
+     (user-error "Cannot do something useful with `ready-player' here"))))
+#+end_src
+
 * Acknowledgements
 :PROPERTIES:
 :CUSTOM_ID: h:72a35028-5b0c-4835-9e3a-8869b9241f1a



reply via email to

[Prev in Thread] Current Thread [Next in Thread]