From 13d96f5b959c3c2a6d64910a7b719999489661d1 Mon Sep 17 00:00:00 2001 From: bd Date: Sat, 2 Nov 2024 13:14:28 -0400 Subject: Scratch buffers categorized in switch-to-buffer --- .config/emacs/modules/bd--files.el | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to '.config/emacs/modules/bd--files.el') diff --git a/.config/emacs/modules/bd--files.el b/.config/emacs/modules/bd--files.el index f050132..ab6c56a 100644 --- a/.config/emacs/modules/bd--files.el +++ b/.config/emacs/modules/bd--files.el @@ -20,6 +20,15 @@ (defun bd/nsxiv (file) "Open FILE with nsxiv." (start-process "nsxiv" nil "nsxiv" (expand-file-name file))) +(defun bd/rom (file) + "Open FILE with an emulator." + (let ((command + (cdr (assoc (file-name-extension file) + '(("gba" . "mgba") + ("z64" . "mupen64plus") + ("n64" . "mupen64plus") + ("sfc" . "bsnes")))))) + (start-process command nil command (expand-file-name file)))) (defun bd/external-find-file-wrapper (f &rest args) "Wrapper around F (find-file), passing ARGS." @@ -37,6 +46,8 @@ ((string-match (regexp-opt '("jpg" "jpeg" "png" "webp" "ico" "gif" "JPG" "PNG")) ext) (runner #'bd/nsxiv)) + ((string-match (regexp-opt '("gba" "z64" "n64" "sfc")) ext) + (runner #'bd/rom)) (t (apply f args))))) (advice-add 'find-file :around #'bd/external-find-file-wrapper) -- cgit v1.2.3