[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/dired-preview fa7bc94496: Update the code samples about ready-player,
ELPA Syncer <=