From b1ba34471a2881e0243ec7b9b27f259dfb2f3bfd Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.com>
Date: Sat, 3 Jun 2023 06:55:25 +0300
Subject: emacs: Add dired-watch-video function

Create a function to watch videos through async-shell-command with mpv
---
 emacs.org | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'emacs.org')

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)
-- 
cgit v1.2.3