lisp/epa-dired.el

   1 ;;; epa-dired.el --- the EasyPG Assistant, dired extension
   2 ;; Copyright (C) 2006, 2007, 2008 Free Software Foundation, Inc.
   3
   4 ;; Author: Daiki Ueno <ueno@unixuser.org>
   5 ;; Keywords: PGP, GnuPG
   6
   7 ;; This file is part of GNU Emacs.
   8
   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 of the License, or
  12 ;; (at your option) any later version.
  13
  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.
  18
  19 ;; You should have received a copy of the GNU General Public License
  20 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  21
  22 ;;; Code:
  23
  24 (require 'epa)
  25 (require 'dired)
  26
  27 ;;;###autoload
  28 (defun epa-dired-do-decrypt ()
  29   "Decrypt marked files."
  30   (interactive)
  31   (let ((file-list (dired-get-marked-files)))
  32     (while file-list
  33       (epa-decrypt-file (expand-file-name (car file-list)))
  34       (setq file-list (cdr file-list)))
  35     (revert-buffer)))
  36
  37 ;;;###autoload
  38 (defun epa-dired-do-verify ()
  39   "Verify marked files."
  40   (interactive)
  41   (let ((file-list (dired-get-marked-files)))
  42     (while file-list
  43       (epa-verify-file (expand-file-name (car file-list)))
  44       (setq file-list (cdr file-list)))))
  45
  46 ;;;###autoload
  47 (defun epa-dired-do-sign ()
  48   "Sign marked files."
  49   (interactive)
  50   (let ((file-list (dired-get-marked-files)))
  51     (while file-list
  52       (epa-sign-file
  53        (expand-file-name (car file-list))
  54        (epa-select-keys (epg-make-context) "Select keys for signing.
  55 If no one is selected, default secret key is used.  "
  56                         nil t)
  57        (y-or-n-p "Make a detached signature? "))
  58       (setq file-list (cdr file-list)))
  59     (revert-buffer)))
  60
  61 ;;;###autoload
  62 (defun epa-dired-do-encrypt ()
  63   "Encrypt marked files."
  64   (interactive)
  65   (let ((file-list (dired-get-marked-files)))
  66     (while file-list
  67       (epa-encrypt-file
  68        (expand-file-name (car file-list))
  69        (epa-select-keys (epg-make-context) "Select recipents for encryption.
  70 If no one is selected, symmetric encryption will be performed.  "))
  71       (setq file-list (cdr file-list)))
  72     (revert-buffer)))
  73
  74 (provide 'epa-dired)
  75
  76 ;; arch-tag: 2025700b-48d0-4684-bc94-228ad1f8e9ff
  77 ;;; epa-dired.el ends here