1 ;;; epa-dired.el --- the EasyPG Assistant, dired extension
2 ;; Copyright (C) 2006, 2007, 2008 Free Software Foundation, Inc.
4 ;; Author: Daiki Ueno <ueno@unixuser.org>
5 ;; Keywords: PGP, GnuPG
7 ;; This file is part of GNU Emacs.
9 ;; GNU Emacs is free software; you can redistribute it and/or modify
10 ;; it under the terms of the GNU General Public License as published by
11 ;; the Free Software Foundation; either version 3, or (at your option)
14 ;; GNU Emacs is distributed in the hope that it will be useful,
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 ;; GNU General Public License for more details.
19 ;; You should have received a copy of the GNU General Public License
20 ;; along with GNU Emacs; see the file COPYING. If not, write to the
21 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
22 ;; Boston, MA 02110-1301, USA.
30 (defun epa-dired-do-decrypt ()
31 "Decrypt marked files."
33 (let ((file-list (dired-get-marked-files)))
35 (epa-decrypt-file (expand-file-name (car file-list
)))
36 (setq file-list
(cdr file-list
)))
40 (defun epa-dired-do-verify ()
41 "Verify marked files."
43 (let ((file-list (dired-get-marked-files)))
45 (epa-verify-file (expand-file-name (car file-list
)))
46 (setq file-list
(cdr file-list
)))))
49 (defun epa-dired-do-sign ()
52 (let ((file-list (dired-get-marked-files)))
55 (expand-file-name (car file-list
))
56 (epa-select-keys (epg-make-context) "Select keys for signing.
57 If no one is selected, default secret key is used. "
59 (y-or-n-p "Make a detached signature? "))
60 (setq file-list
(cdr file-list
)))
64 (defun epa-dired-do-encrypt ()
65 "Encrypt marked files."
67 (let ((file-list (dired-get-marked-files)))
70 (expand-file-name (car file-list
))
71 (epa-select-keys (epg-make-context) "Select recipents for encryption.
72 If no one is selected, symmetric encryption will be performed. "))
73 (setq file-list
(cdr file-list
)))
78 ;; arch-tag: 2025700b-48d0-4684-bc94-228ad1f8e9ff
79 ;;; epa-dired.el ends here