Re: update of the EasyPG integration patch (Re: minor fixes for EasyPG

[Daiki Ueno]

Dan Nicolaescu <address@hidden> writes:

> Can you please also add menus to the new modes added by EasyPG?
> (epa-key-list-mode surely could use one)

Sure, here it is.  BTW, I found a couple of typos when testing the menu.
The patch also includes a fix for them.

2008-04-28  Daiki Ueno  <address@hidden>

        * epa.el (epa-key-list-mode-map): Add menu.
        (epa-delete-keys): Fix typo.
        (epa-import-keys): Fix typo.

Index: lisp/epa.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/epa.el,v
retrieving revision 1.8
diff -c -r1.8 epa.el
*** lisp/epa.el 27 Apr 2008 19:49:15 -0000      1.8
--- lisp/epa.el 28 Apr 2008 01:28:14 -0000
***************
*** 201,207 ****
  (defvar epa-last-coding-system-specified nil)
  
  (defvar epa-key-list-mode-map
!   (let ((keymap (make-sparse-keymap)))
      (define-key keymap "m" 'epa-mark-key)
      (define-key keymap "u" 'epa-unmark-key)
      (define-key keymap "d" 'epa-decrypt-file)
--- 201,208 ----
  (defvar epa-last-coding-system-specified nil)
  
  (defvar epa-key-list-mode-map
!   (let ((keymap (make-sparse-keymap))
!       (menu-map (make-sparse-keymap)))
      (define-key keymap "m" 'epa-mark-key)
      (define-key keymap "u" 'epa-unmark-key)
      (define-key keymap "d" 'epa-decrypt-file)
***************
*** 217,222 ****
--- 218,241 ----
      (define-key keymap " " 'scroll-up)
      (define-key keymap [delete] 'scroll-down)
      (define-key keymap "q" 'epa-exit-buffer)
+     (define-key keymap [menu-bar epa-key-list-mode] (cons "Keys" menu-map))
+     (define-key menu-map [epa-key-list-delete-keys]
+       '(menu-item "Delete keys" epa-delete-keys
+                 :help "Delete marked keys"))
+     (define-key menu-map [epa-key-list-import-keys]
+       '(menu-item "Import keys" epa-import-keys
+                 :help "Import keys from a file"))
+     (define-key menu-map [epa-key-list-export-keys]
+       '(menu-item "Export keys" epa-export-keys
+                 :help "Export marked keys to a file"))
+     (define-key menu-map [separator-epa-key-list]
+       '(menu-item "--"))
+     (define-key menu-map [epa-key-list-unmark-key]
+       '(menu-item "Unmark key" epa-unmark-key
+                 :help "Unmark a key"))
+     (define-key menu-map [epa-key-list-mark-key]
+       '(menu-item "Mark key" epa-mark-key
+                 :help "Mark a key"))
      keymap))
  
  (defvar epa-key-mode-map
***************
*** 1094,1100 ****
      (message "Deleting...")
      (epg-delete-keys context keys allow-secret)
      (message "Deleting...done")
!     (apply #'epa-list-keys epa-list-keys-arguments)))
  
  ;;;###autoload
  (defun epa-import-keys (file)
--- 1113,1119 ----
      (message "Deleting...")
      (epg-delete-keys context keys allow-secret)
      (message "Deleting...done")
!     (apply #'epa--list-keys epa-list-keys-arguments)))
  
  ;;;###autoload
  (defun epa-import-keys (file)
***************
*** 1113,1119 ****
        (epa-display-info (epg-import-result-to-string
                           (epg-context-result-for context 'import))))
      (if (eq major-mode 'epa-key-list-mode)
!       (apply #'epa-list-keys epa-list-keys-arguments))))
  
  ;;;###autoload
  (defun epa-import-keys-region (start end)
--- 1132,1138 ----
        (epa-display-info (epg-import-result-to-string
                           (epg-context-result-for context 'import))))
      (if (eq major-mode 'epa-key-list-mode)
!       (apply #'epa--list-keys epa-list-keys-arguments))))
  
  ;;;###autoload
  (defun epa-import-keys-region (start end)

Regards,
-- 
Daiki Ueno