blob: 5cf4e86ec1917d89e023c853024d199bcae7e2dc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
;;; -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(use-package recentf
:demand t
:bind
(("C-x g" . recentf-open))
:init
(recentf-mode 1)
:config
(setopt recentf-max-saved-items 3500
recentf-auto-cleanup 300))
(defun bd/zathura (file)
"Open FILE with zathura."
(start-process "zathura" nil "zathura" (expand-file-name file)))
(defun bd/mpv (file)
"Open FILE with mpv."
(start-process "mpv" nil "mpv" "--force-window=yes" (expand-file-name file)))
(defun bd/nsxiv (file)
"Open FILE with nsxiv."
(start-process "nsxiv" nil "nsxiv" (expand-file-name file)))
(defun bd/qemu (file)
"Open FILE with QEMU."
(start-process "qemu-system" nil "qemu-system-x86_64" (expand-file-name file)
"-nographic" "-net" "nic" "-net"
"user,hostfwd=tcp:127.0.0.1:2222-:22" "--accel" "kvm" "-m" "4G")
"Running headless.")
(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."
(defun bd/open-with-function (f)
(funcall f (car args))
(recentf-add-file (car args)))
(let ((ext (or (file-name-extension (car args)) "")))
(cond
((string-match (regexp-opt '("epub" "pdf")) ext)
(bd/open-with-function #'bd/zathura))
((string-match (regexp-opt '("mkv" "mov" "mp4" "webm" "m4v"
"wav" "mp3" "opus" "ogv" "flac"
"m4a")) ext)
(bd/open-with-function #'bd/mpv))
((string-match (regexp-opt '("jpg" "jpeg" "png" "webp"
"ico" "gif" "JPG" "PNG")) ext)
(bd/open-with-function #'bd/nsxiv))
((string-match (regexp-opt '("qcow2")) ext)
(bd/open-with-function #'bd/qemu))
((string-match (regexp-opt '("gba" "z64" "n64" "sfc")) ext)
(bd/open-with-function #'bd/rom))
(t (apply f args)))))
(advice-add #'find-file :around #'bd/external-find-file-wrapper)
(use-package dired
:demand t
:bind
(("C-c d" . dired-jump))
:config
(setopt dired-listing-switches "-alhLG --time-style=long-iso --group-directories-first"
dired-recursive-copies 'always
dired-recursive-deletes 'always
dired-auto-revert-buffer t
dired-dwim-target t
dired-guess-shell-alist-user
`((,(regexp-opt '(".pdf")) "pdftotext -nopgbrk -enc UTF-8 -eol unix -layout")
(,(regexp-opt '(".html")) "icecat &"))))
(provide 'bd--files)
;;; bd--files.el ends here
|
