emacs: Add dired-watch-video function

Create a function to watch videos through async-shell-command with mpv

1 files changed, 10 insertions, 0 deletions

diff --git a/emacs.org b/emacs.org
index 236dd76..6709cfb 100755
--- a/emacs.org
+++ b/emacs.org
@@ -216,6 +216,16 @@ Fonts and basic appearance settings for each device
   ([remap describe-key] . helpful-key))
 #+end_src
 * Dired
+** Functions
+#+begin_src emacs-lisp
+  (defun dired-watch-video ()
+    (interactive)
+    (async-shell-command (format "mpv \"%s\"" (dired-get-filename))))
+#+end_src
+** Keybindings
+#+begin_src emacs-lisp
+  (define-key dired-mode-map "b" 'dired-up-directory)
+#+end_src
 ** All-the-icons.el
 #+begin_src emacs-lisp
   (require 'cl-lib)