;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'helm) #@59 [INTERNAL] Used to pass MODE argument to `epg-list-keys'. (defvar helm-epa--list-only-secrets nil (#$ . 103)) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313!\"\210\310\314\315\313!\"\210\310\316\314\"\210\317\316\320\321#\210\322\313\323\314#\324\313\325\326\327$\207" [custom-declare-variable helm-epa-actions '(("Show key" . epa--show-key) ("encrypt file with key" . helm-epa-encrypt-file) ("Copy keys to kill ring" . helm-epa-kill-keys-armor) ("Delete keys" . helm-epa-delete-keys)) "Actions for `helm-epa-list-keys'." :type (alist :key-type string :value-type symbol) :group helm-misc defalias helm-epa-p eieio-make-class-predicate helm-epa helm-epa--eieio-childp eieio-make-child-predicate helm-epa-child-p make-obsolete "use (cl-typep ... \\='helm-epa) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-sync) ((init :initform (lambda nil (require 'epg) (require 'epa))) (candidates :initform 'helm-epa-get-key-list) (keymap :initform helm-comp-read-map) (mode-line :initform helm-comp-read-mode-line)) (:documentation "Allow building helm sources for GPG keys.")] 8) #@47 Create a new object of class type `helm-epa'. (defalias 'helm-epa #[(&rest slots) "\301\302\303#\207" [slots apply make-instance helm-epa] 4 (#$ . 1245)]) (byte-code "\300\301\302\303#\300\207" [function-put helm-epa compiler-macro helm-epa--anon-cmacro] 4) (defalias 'helm-epa--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5]) #@48 Build candidate list for `helm-epa-list-keys'. (defalias 'helm-epa-get-key-list #[(&optional keys) "\206 \306\307 !\310\n#\211\310\211 \310\211!\"\310\211#$\310%\311&\f:\203\352\f@\312 !'>\204=\313\314\315 D\"\210 \316H@ \312 !(>\204U\313\314\317 D\"\210 \320H!\312 !'>\204k\313\314\315 D\"\210 \321H\"\312\"@!)>\204\204\313\314\322\"@D\"\210\"@\316H#\312\"@!)>\204\237\313\314\322\"@D\"\210\"@\323H$\324\325\326$*\"\211+\203\274\327+@!\202\275\330)\331!\332$\333\267\202\321\334\202\322\335\202\322\336#\331#\332\337#$ B%B%\fA\310&\202%%\237.\n\207" [keys epa-protocol helm-epa--list-only-secrets all-keys #1=#:--cl-var-- key epg-list-keys epg-make-context nil t type-of signal wrong-type-argument epg-key 2 epg-sub-key 6 3 epg-user-id 1 format " %s %s %s" rassq string "?" propertize face #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (none 201 revoked 205 expired 205)) epa-validity-medium epa-validity-disabled epa-validity-high font-lock-warning-face sublist subkey-id uid-list uid validity #2=#:--cl-var-- #3=#:--cl-var-- cl-struct-epg-key-tags cl-struct-epg-sub-key-tags cl-struct-epg-user-id-tags epg-key-validity-alist it] 9 (#$ . 1718)]) #@44 A helm replacement for `epa--select-keys'. (defalias 'helm-epa--select-keys #[(prompt keys) "\302\303\304\305\306\307\310$\311\205\312!\313\314&\211\315\232?\205 )\207" [prompt result helm :sources helm-make-source "Epa select keys" helm-epa :candidates #[nil "\301!\207" [keys helm-epa-get-key-list] 2] :prompt helm-epa--format-prompt :buffer "*helm epa*" ""] 8 (#$ . 2967)]) (defalias 'helm-epa--format-prompt #[(prompt) "\302\303\"\211A\203\304\305\306\307\310 @#\306\307\310 A@##\202&\304\311\306\307\310 @#\")\207" [prompt split split-string "\n" format "%s\n(%s): " replace-regexp-in-string "\\.[ ]*\\'" "" "%s: "] 8]) #@52 A helm replacement for `epa--read-signature-type'. (defalias 'helm-epa--read-signature-type #[nil "\303\304\305\"\306 \n\232\204 \n<\203 \n\235\204 \n\307=\203$\310\202a\311  \n\232\204?\n<\2039 \n\235\204?\n\307=\203C\312\202`\313  \n\232\204^\n<\203X \n\235\204^\n\307=\205_\314**+\207" [answer it key helm-read-answer "Signature type:\n(n - Create a normal signature)\n(c - Create a cleartext signature)\n(d - Create a detached signature)" ("n" "c" "d") "n" t normal "c" clear "d" detached] 3 (#$ . 3613)]) (defalias 'helm-epa-collect-keys-from-candidates #[(candidates) "\306\211 :\203` @\307\211\n!\f>\204\310\311\312\nD\"\210\n\313H@! >\204A\310\311\314\307\n!\f>\204:\310\311\312\nD\"\210\n\313H@D\"\210\307\n!\f>\204P\310\311\312\nD\"\210\n\313H@\315H B A\211\202 \237+\207" [candidates #1=#:--cl-var-- c #2=#:--cl-var-- cl-struct-epg-key-tags cl-struct-epg-sub-key-tags nil type-of signal wrong-type-argument epg-key 2 epg-sub-key 6] 8]) (defalias 'helm-epa-collect-id-from-candidates #[(candidates) "\306\211 :\203` @\307\211\n!\f>\204\310\311\312\nD\"\210\n\313H@! >\204A\310\311\314\307\n!\f>\204:\310\311\312\nD\"\210\n\313H@D\"\210\307\n!\f>\204P\310\311\312\nD\"\210\n\313H@\315H B A\211\202 \237+\207" [candidates #1=#:--cl-var-- c #2=#:--cl-var-- cl-struct-epg-key-tags cl-struct-epg-user-id-tags nil type-of signal wrong-type-argument epg-key 3 epg-user-id 2] 8]) (defalias 'helm-epa-success-message #[(str keys ids) "\306\307\310 \311\f\311\211 \f\n:\2033\n@ :\2033 @  B\fB\f\nA A\202\f\237-\312#\"\207" [str keys #1=#:--cl-var-- k ids #2=#:--cl-var-- message mapconcat #[(pair) "@\301AQ\207" [pair " "] 3] nil "\n" i #3=#:--cl-var--] 7]) #@260 Non-nil if Helm-Epa mode is enabled. See the `helm-epa-mode' command for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `helm-epa-mode'. (custom-declare-variable 'helm-epa-mode nil '(#$ . 5352) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :type 'boolean :group 'helm-misc) #@601 Enable helm completion on gpg keys in epa functions. This is a minor mode. If called interactively, toggle the `Helm-Epa mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'helm-epa-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (defalias 'helm-epa-mode #[(&optional arg) "\305 \306\303 \307=\203\310\303!?\202\" \247\203! \311W\203!\312\202\"\313\"\210\314\302!\2039\315\303\n\"\310\303!\2039\303\nB\316\317!\210 \203P\320\321\322\323#\210\320\324\322\325#\210\202Z\326\327\323\"\210\326\324\325\"\210\330\331\310\303!\203f\332\202g\333\"\210\334\335!\203\222\336\303!\210\305 \203\305 \232\203\222\337\340\341\310\303!\203\215\342\202\216\343\f#\210))\344 \210\310\303!\207" [#1=#:last-message arg global-minor-modes helm-epa-mode local current-message set-default toggle default-value 1 nil t boundp delq require epa advice-add epa--select-keys :override helm-epa--select-keys epa--read-signature-type helm-epa--read-signature-type advice-remove epa-select-keys run-hooks helm-epa-mode-hook helm-epa-mode-on-hook helm-epa-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Helm-Epa mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 5776) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar helm-epa-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [helm-epa-mode-map helm-epa-mode-hook variable-documentation put "Hook run after entering or leaving `helm-epa-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode helm-epa-mode boundp] 6) #@39 Helm epa action transformer function. (defalias 'helm-epa-action-transformer #[(actions _candidate) "r\302!\203 \206p\211q\210\303\304\305\")\203\306 \307\310#\207 \207" [helm-current-buffer actions buffer-live-p derived-mode-p message-mode mail-mode helm-append-at-nth (("Sign mail with key" . helm-epa-mail-sign) ("Encrypt mail with key" . helm-epa-mail-encrypt)) 3] 4 (#$ . 7922)]) #@39 Delete gpg marked keys from helm-epa. (defalias 'helm-epa-delete-keys #[(_candidate) "\304!\305 \306\307!\210\3101\311\n \"0\210\202%\312\n!\210\313 @ A\")\210\306\314!*\207" [epa-protocol keys context error epg-make-context helm-marked-candidates message "Deleting gpg keys.." (error) epg-delete-keys epa-display-error signal "Deleting gpg keys done"] 3 (#$ . 8321)]) #@46 Select a file to encrypt with key CANDIDATE. (defalias 'helm-epa-encrypt-file #[(candidate) "\304\305!\306 \307 !\310 !\311 \"\210\312\313\n #,\207" [file cands keys ids helm-read-file-name "Encrypt file: " helm-marked-candidates helm-epa-collect-keys-from-candidates helm-epa-collect-id-from-candidates epa-encrypt-file helm-epa-success-message "File encrypted with key(s):\n %s"] 4 (#$ . 8703)]) #@32 Copy marked keys to kill ring. (defalias 'helm-epa-kill-keys-armor #[(_candidate) "\306 \307!\310 ! >\204\311\312\313 D\"\210 \211\314\315I)\210\3161,\317\320 \n\"!0\2028\321 !\210\311 @ A\")*\207" [epa-protocol context keys cl-struct-epg-context-tags #1=#:v error helm-marked-candidates epg-make-context type-of signal wrong-type-argument epg-context 4 t (error) kill-new epg-export-keys-to-string epa-display-error] 5 (#$ . 9112)]) #@32 Sign email with key CANDIDATE. (defalias 'helm-epa-mail-sign #[(candidate) "\306\211! >\204\307\310\311D\"\210\312H@!\n>\2043\307\310\313\306! >\204,\307\310\311D\"\210\312H@D\"\210\306! >\204B\307\310\311D\"\210\312H@\314H\306\211! >\204X\307\310\311D\"\210\315H@! >\204{\307\310\316\306! >\204t\307\310\311D\"\210\315H@D\"\210\306! >\204\212\307\310\311D\"\210\315H@\312H\317\211\211\212eb\210\320\317\321#\203\253\317y\210\206\264\322`d\"`d\203\311\323 \202\312\324*\325 \f$\210\326\327#-\207" [candidate cl-struct-epg-key-tags cl-struct-epg-sub-key-tags cl-struct-epg-user-id-tags mode end type-of signal wrong-type-argument epg-key 2 epg-sub-key 6 3 epg-user-id nil search-forward t select-safe-coding-system epa--read-signature-type clear epa-sign-region message "Mail signed with key `%s %s'" start id key mail-header-separator coding-system-for-write epa-last-coding-system-specified current-prefix-arg verbose] 8 (#$ . 9561)]) #@35 Encrypt email with key CANDIDATE. (defalias 'helm-epa-mail-encrypt #[(candidate) "\306 \307\211\212eb\210\310 \307\311#\203\307y\210`d\f\206\"\312 \")\311\313\n!\314\n!\315 \n\307\211%\210\316\317#.\207" [end start cands mail-header-separator coding-system-for-write epa-last-coding-system-specified helm-marked-candidates nil search-forward t select-safe-coding-system helm-epa-collect-keys-from-candidates helm-epa-collect-id-from-candidates epa-encrypt-region helm-epa-success-message "Mail encrypted with key(s):\n %s" ids keys inhibit-read-only] 6 (#$ . 10565)]) #@68 List all gpg keys. This is the helm interface for `epa-list-keys'. (defalias 'helm-epa-list-keys #[nil "\300\301\302\303\304\305\306\307\310&\311\312$\207" [helm :sources helm-make-source "Epg list keys" helm-epa :action-transformer helm-epa-action-transformer :action helm-epa-actions :buffer "*helm epg list keys*"] 9 (#$ . 11161) nil]) (provide 'helm-epa)