Commit 5a8d03e9 authored by Michael Olson's avatar Michael Olson
Browse files

EasyPG: Update manual, menu label, epa-menu-mode->epa-mode, dired minor mode.

parent d218b4e5
2008-02-11 Daiki Ueno <>
* epa.texi (Quick start): Remove the .emacs setting.
2008-02-10 Daiki Ueno <>
* epa.texi (Quick start): Use the command `epa-enable' instead of
......@@ -77,36 +77,23 @@ EasyPG Assistant provides the following features.
@node Quick start
@chapter Quick start
@c To install, just follow the standard CMMI installation instructions.
@c @cartouche
@c @example
@c $ ./configure
@c $ sudo make install
@c @end example
@c @end cartouche
@c @noindent
@c Then, add the following line to your @file{~/.emacs}
Add the following line to your @file{~/.emacs}.
(epa-mode 1)
@end lisp
@end cartouche
Restart emacs and type @kbd{M-x epa- @key{TAB}}, and you will see a
lot of commands available. For example,
EasyPG Assistant commands are prefixed by @samp{epa-}. For example,
@itemize @bullet
@item To browse your keyring, type @kbd{M-x epa-list-keys}
@item To create a cleartext signature of the region, type @kbd{M-x epa-sign-region}
@item To encrypt a file, type @kbd{M-x epa-encrypt-file}
@end itemize
EasyPG Assistant provides several cryptographic features which can be
integrated into other Emacs functionalities. For example, automatic
encryption/decryption of @samp{*.gpg} files.
To install these features, do @kbd{C-u 1 M-x epa-mode}. It can also
be turned on by customize. Try @kbd{M-x customize-variable epa-mode}.
@node Commands
@chapter Commands
2008-02-11 Daiki Ueno <>
* epa.el (epa-menu-mode): Merge into epa-mode.
(epa-menu-items): Rename the label "EasyPG Assistant" to
* epa-dired.el: Define a new minor-mode epa-dired-mode for dired.
(epa-dired-mode-map): Renamed from epa-dired-map.
(epa-global-dired-mode): Renamed the global minor mode.
2008-02-11 Drew Adams <>
* isearch.el (isearch-fail): New face.
......@@ -26,18 +26,22 @@
(require 'epa)
(require 'dired)
(defvar epa-dired-map
(defvar epa-dired-mode-map
(let ((keymap (make-sparse-keymap)))
(define-key keymap "d" 'epa-dired-do-decrypt)
(define-key keymap "v" 'epa-dired-do-verify)
(define-key keymap "s" 'epa-dired-do-sign)
(define-key keymap "e" 'epa-dired-do-encrypt)
(define-key keymap ":d" 'epa-dired-do-decrypt)
(define-key keymap ":v" 'epa-dired-do-verify)
(define-key keymap ":s" 'epa-dired-do-sign)
(define-key keymap ":e" 'epa-dired-do-encrypt)
(fset 'epa-dired-prefix epa-dired-map)
(defvar epa-dired-mode-hook nil)
(defvar epa-dired-mode-on-hook nil)
(defvar epa-dired-mode-off-hook nil)
(defun epa-dired-mode-hook ()
(define-key dired-mode-map ":" 'epa-dired-prefix))
(define-minor-mode epa-dired-mode
"A minor-mode for encrypt/decrypt files with Dired."
nil " epa-dired" epa-dired-mode-map)
(defun epa-dired-do-decrypt ()
"Decrypt marked files."
......@@ -83,12 +87,12 @@ If no one is selected, symmetric encryption will be performed. "))
(define-minor-mode epa-dired-mode
(define-minor-mode epa-global-dired-mode
"Minor mode to hook EasyPG into Dired."
:global t :init-value nil :group 'epa-dired :version "23.1"
(remove-hook 'dired-mode-hook 'epa-dired-mode-hook)
(if epa-dired-mode
(add-hook 'dired-mode-hook 'epa-dired-mode-hook)))
(remove-hook 'dired-mode-hook 'epa-dired-mode)
(if epa-global-dired-mode
(add-hook 'dired-mode-hook 'epa-dired-mode)))
(provide 'epa-dired)
......@@ -45,10 +45,9 @@ the separate window."
:type 'integer
:group 'epa)
(defcustom epa-global-minor-modes '(epa-dired-mode
(defcustom epa-global-minor-modes '(epa-global-dired-mode
"Globally defined minor modes to hook into other modes."
:type '(repeat symbol)
:group 'epa)
......@@ -240,7 +239,7 @@ You should bind this variable with `let', but do not set it globally.")
(defvar epa-menu nil)
(defconst epa-menu-items
'("EasyPG Assistant"
["File" epa-decrypt-file
:help "Decrypt a file"]
......@@ -1219,29 +1218,24 @@ Don't use this command in Lisp programs!"
;; (message "Signing keys...done")))
;; (make-obsolete 'epa-sign-keys "Do not use.")
(define-minor-mode epa-menu-mode
"Minor mode to hook EasyPG into the menu-bar."
:global t :init-value nil :group 'epa :version "23.1"
(unless epa-menu
(easy-menu-define epa-menu nil "EasyPG Assistant global menu"
(easy-menu-remove-item nil '("Tools") "EasyPG Assistant")
(if epa-menu-mode
(easy-menu-add-item nil '("Tools") epa-menu)))
(define-minor-mode epa-mode
"Minor mode to hook EasyPG into various modes.
See `epa-global-minor-modes'."
:global t :init-value nil :group 'epa :version "23.1"
(unless epa-menu
(easy-menu-define epa-menu nil "EasyPG Assistant global menu"
(easy-menu-remove-item nil '("Tools") "Encryption/Decryption")
(if epa-mode
(easy-menu-add-item nil '("Tools") epa-menu))
(let ((modes epa-global-minor-modes)
(while modes
(setq symbol (car modes))
(if (and symbol
(fboundp symbol))
(funcall symbol (if epa-mode 1 0))
(funcall symbol epa-mode)
(message "`%S' not found" (car modes)))
(setq modes (cdr modes)))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment