blob: 1131e288c54765f9acb102cbcb22cf3ec04ff315 (
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
|
* Emacs Open Work
** TODO [#A] Emacs should open specific file extensions outside emacs
*** Reference Ideas
**** https://www.reddit.com/r/emacs/comments/1cdhum7/how_to_make_emacs_open_certain_files_using/
(defun my/dired-open()
(interactive)
(let ((filext '("mp4" "rar" "zip" "gz" "epub" "xz" "sig" "pdf" "jpg" "png" "7z")))
(cond
((file-directory-p (dired-get-file-for-visit))
(dired-find-file))
((member (f-ext (dired-get-file-for-visit)) filext)
(call-process "xdg-open" nil nil nil (dired-get-file-for-visit)))
(t (dired-find-file)))))
**** https://www.reddit.com/r/emacs/comments/1cdhum7/how_to_make_emacs_open_certain_files_using/
(defun xdg-open (&optional filename)
(interactive)
(let ((process-connection-type))
(start-process
"" nil (cond ((eq system-type 'gnu/linux) "xdg-open")
((eq system-type 'darwin) "open")
((eq system-type 'windows-nt) "start")
(t "")) (expand-file-name
(or filename (dired-file-name-at-point))))))
(defun find-file-auto (orig-fun &rest args)
(let ((filename (car args)))
(if (cl-find-if
(lambda (regexp) (string-match regexp filename))
'("\\.pdf\\'" "\\.mp4\\'" "\\.wav\\'" "\\.avi\\'" "\\.gif\\'" "\\.docx?\\'"))
(xdg-open filename)
(apply orig-fun args))))
(advice-add 'find-file :around 'find-file-auto)
**** https://pastebin.com/HShdkFrY
;; Dired "native open": Use the OS-native program for opening the file
;; type from Dired
(defvar dired-native-open-program nil "The OS-native program for opening files.")
(cond ((eq system-type 'darwin)
(setq dired-native-open-program "/usr/bin/open"))
((eq system-type 'gnu/linux)
(setq dired-native-open-program "xdg-open"))
((eq system-type 'windows-nt)
(setq dired-native-open-program "explorer.exe")))
(defun dired-open-with-native-open-program ()
"Open the marked files with the program associated with those file types."
(interactive)
(let ((file-list (dired-get-marked-files)))
(dired-run-shell-command
(dired-shell-stuff-it dired-native-open-program file-list t))))
(define-key dired-mode-map (kbd "M-o") #'dired-open-with-native-open-program)
(define-key locate-mode-map (kbd "M-o") #'dired-open-with-native-open-program)
** TODO [#B] Mu4e Working with Proton and Gmail
** TODO [#B] Dirvish should open not showing hidden files by default
*** 2025-06-07 Sat @ 12:25:28 -0500 It isn't omitting the h switch on directory listings
No. Didn't help
** TODO [#B] Fix Emacs Alarm for Scheduled Events
*** 2025-06-03 Tue @ 15:12:51 -0500 Problem
Emacs Alarm seems to sound off periodically after the
** TODO [#B] Add Past Due to F8 Agenda Summary in Emacs
** TODO [#B] Separate B and C in F8 Agenda Summary in Emacs
** TODO [#B] Adjust Eshell Colors
the prompt is pink?
** TODO [#B] Fix Emacs Org Roam Recipe Error
C-c n i then type a recipe name.
org-element--get-category: Invalid function: org-element-with-disabled-cache
The file was created, but does not come to the front
The category value seems unaligned
** TODO [#B] Emacs Eshell Doesn't Inherit Environment Variables
** TODO [#C] Rename 'sync-dir' Variable in Init File to 'org-dir'
|
