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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
| | ;;; file-dwim.el --- Do What I Mean for files.
;; Copyright (C) 2015 Free Software Foundation, Inc.
;; Author: Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
;; Keywords: extensions, files
;; URL: https://github.com/TaylanUB/file-dwim
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; Do any action on a file, according to a dispatch-table. E.g. specify that
;; media files should be played, directories opened in Dired, etc.. This could
;; be bound to RET in Dired, or used to replace `find-file'.
;;
;; Example configuration (using `shqq' from the shell-quasiquote package):
;;
;; (define-key dired-mode-map (kbd "RET") 'file-dwim-dired)
;;
;; (defun file-has-extension (file exts)
;; (string-match-p
;; (rx-to-string `(: "." (or ,@exts) eos))
;; file))
;;
;; (defun audio-file-p (file)
;; (file-has-extension file '("mp3" "flac" "aac" "wav")))
;;
;; (defun video-file-p (file)
;; (file-has-extension
;; file '("mkv" "mp4" "wmv" "webm" "avi" "mpg" "mov" "flv" "mts")))
;;
;; (defun guitarpro-file-p (file)
;; (file-has-extension file '("gp3" "gp4")))
;;
;; (defun play-audio-file (file)
;; (shell-command (shqq (my-audio-player ,file))))
;;
;; (defun play-video-file (file)
;; (shell-command (shqq (my-video-player ,file))))
;;
;; (defun open-guitarpro-file (file)
;; (async-shell-command (shqq (tuxguitar ,file))))
;;
;; (dolist (entry
;; '((audio-file-p . play-audio-file)
;; (video-file-p . play-video-file)
;; (guitarpro-file-p . open-guitarpro-file)
;; ))
;; (add-to-list 'file-dwim-action-list entry))
;;; Code:
(eval-when-compile
(require 'cl)
(declare-function dired-get-file-for-visit "dired.el" ()))
(defgroup file-dwim nil
"Do What I Mean for files.")
(defcustom file-dwim-action-list nil
"A list of action-specifiers for file-types.
Each entry must be either a cons cell or a unary function.
If it's a cons cell, the car must either be a regexp or a
predicate, and the cdr an unary function that will be called with
a FILE argument.
If it's a function, it will be called with a FILE argument and
should return t to indicate that it matched, and can do its
action at the same time.
A function-entry could act on a file but return nil anyway to
allow further actions."
:type '(repeat (or (cons (or string function)
function)
function)))
(defcustom file-dwim-default-action 'find-file
"The default action for when none of `file-dwim-action-list'
are applicable."
:type 'function)
;;;###autoload
(defun file-dwim (file)
"Act on a file according to `file-dwim-action-list'."
(interactive "FFile: ")
(cl-block actions
(dolist (action file-dwim-action-list)
(cond
((consp action)
(let ((test (car action))
(function (cdr action)))
(cond
((stringp test)
(when (string-match-p test file)
(return-from actions (funcall function file))))
((functionp test)
(when (funcall test file)
(return-from actions (funcall function file))))
(t
(error "Bad test in `file-dwim-action-list': %S" action)))))
((functionp action)
(if (funcall action file)
(return-from actions)))
(t
(error "Bad action in `file-dwim-action-list': %S" action))))
(funcall file-dwim-default-action file)))
;;;###autoload
(defun file-dwim-dired ()
"In Dired, use `file-dwim' on a file"
(interactive)
(file-dwim (dired-get-file-for-visit)))
(provide 'file-dwim)
;;; file-dwim.el ends here
|