Current File : //usr/local/share/emacs/27.2/lisp/org/org-crypt.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\210\313\314\315\316\317DD\320\321\322\311\304&\210\313\323\315\316\324DD\325\311\304\321\326&\210\313\327\315\316\330DD\331\311\304\332\333\321\334& \207" [require org-macs org-compat custom-declare-group org-crypt nil "Org Crypt." :tag "Org Crypt" :group org custom-declare-variable org-crypt-tag-matcher funcall function #[0 "\300\207" [#1="crypt"] 1 #1#] "The tag matcher used to find headings whose contents should be encrypted.\n\nSee the \"Match syntax\" section of the org manual for more details." :type string org-crypt-key #[0 "\300\207" [#2=""] 1 #2#] "The default key to use when encrypting the contents of a heading.\n\nIf this variable is nil, always use symmetric encryption, unconditionally.\n\nOtherwise, The string is matched against all keys in the key ring.\nIn particular, the empty string matches no key. If no key is found,\nlook for the `epa-file-encrypt-to' local variable. Ultimately fall back\nto symmetric encryption.\n\nThis setting can be overridden in the CRYPTKEY property." (choice (string :tag "Public key(s) matching") (const :tag "Symmetric encryption" nil)) org-crypt-disable-auto-save #[0 "\300\207" [ask] 1] "What org-decrypt should do if `auto-save-mode' is enabled.\n\nt : Disable auto-save-mode for the current buffer\n prior to decrypting an entry.\n\nnil : Leave auto-save-mode enabled.\n This may cause data to be written to disk unencrypted!\n\n`ask' : Ask user whether or not to disable auto-save-mode\n for the current buffer.\n\n`encrypt': Leave auto-save-mode enabled for the current buffer,\n but automatically re-encrypt all decrypted entries\n *before* auto-saving.\n NOTE: This only works for entries which have a tag\n that matches `org-crypt-tag-matcher'." :version "24.1" (choice (const :tag "Always" t) (const :tag "Never" nil) (const :tag "Ask" ask) (const :tag "Encrypt" encrypt))] 10)
#@61 Return encrypted text in between BEG and END.
(fn BEG END)
(defalias 'org-crypt--encrypted-text #[514 "\300\301\302\303\"#\207" [replace-regexp-in-string "^[ ]*" "" buffer-substring-no-properties] 8 (#$ . 2416)])
#@158 Is the current entry encrypted?
When the entry is encrypted, return a pair (BEG . END) where BEG
and END are buffer positions delimiting the encrypted area.
(defalias 'org-at-encrypted-entry-p #[0 "\212\214~\210\301 ?\2056 \302\303!\210\304\305!\210\306\307\310!\2053 `\311\312\306\303#\2051 \313\314!\2051 \315\316!B\266\202)\266\202*\207" [case-fold-search org-before-first-heading-p org-back-to-heading t org-end-of-meta-data standard nil "^[ ]*-----BEGIN PGP MESSAGE-----$" looking-at "^\\(?:\\([ ]*-----END PGP MESSAGE-----$\\)\\|\\*+ \\)" re-search-forward match-string 1 line-beginning-position 2] 8 (#$ . 2640)])
#@225 Check whether auto-save-mode is enabled for the current buffer.
`auto-save-mode' may cause leakage when decrypting entries, so
check whether it's enabled, and decide what to do about it.
See `org-crypt-disable-auto-save'.
(defalias 'org-crypt-check-auto-save #[0 "\205: \302=\204 \303=\203$ \304\305!\203$ \306\307\310 \206 p\"\210\311\312!\207 \313\267\2029 \306\314!\207\306\315!\210\316\317\320\321\302$\207\321\207" [buffer-auto-save-file-name org-crypt-disable-auto-save t ask y-or-n-p "org-decrypt: auto-save-mode may cause leakage. Disable it for current buffer? " message "org-decrypt: Disabling auto-save-mode for %s" buffer-file-name auto-save-mode -1 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 42 encrypt 46)) "org-decrypt: Decrypting entry with auto-save-mode enabled. This may cause leakage." "org-decrypt: Enabling re-encryption on auto-save." add-hook auto-save-hook #[0 "\300\301!\210\302 \207" [message "org-crypt: Re-encrypting all decrypted entries due to auto-save." org-encrypt-entries] 2] nil] 5 (#$ . 3275)])
#@84 Return the encryption key(s) for the current heading.
Assume `epg-context' is set.
(defalias 'org-crypt-key-for-heading #[0 "\205\" \303 \304\305\306\307#\206 \"\206\" \310\302!\203 \n\206\" \311\312!\210\305\207" [org-crypt-key epg-context epa-file-encrypt-to epg-list-keys org-entry-get nil "CRYPTKEY" selective boundp message "No crypt key set, using symmetric encryption."] 6 (#$ . 4369)])
#@46 Encrypt the content of the current headline.
(defalias 'org-encrypt-entry #[0 "\301 ?\205\217 \302\303!\210\304\300!\210\305\306\307\211#\212\214~\210\310\307!\210`\311 \312\313 !\314\315!\210`\2053 \212\316\317!\210`)b\210\320\307\211\"\210\321 \210\322`\"\323\324\325#\323\324\326#\3271r \232\203g \211\330!\230\203g \323\324\331#\202m \332 #c0\202| c\210\333\334!!\262\266\211\203\211 \211b\210\335\307!\210\306\266\202\266\203*\207" [epg-context org-at-encrypted-entry-p require epg make-local-variable epg-make-context nil t org-back-to-heading org-crypt-key-for-heading org-invisible-p line-beginning-position org-end-of-meta-data standard org-previous-visible-heading 1 org-end-of-subtree org-back-over-empty-lines delete-and-extract-region get-text-property 0 org-crypt-key org-crypt-checksum (error) sha1 org-crypt-text epg-encrypt-string error error-message-string org-flag-subtree] 12 (#$ . 4773) nil])
#@46 Decrypt the content of the current headline.
(defalias 'org-decrypt-entry #[0 "\301 \211:\205z \211@A\211\302\303!\210\304\300!\210\305\306\307\211#\211\212\310!\203( \311!q\210\212\214~\210\211\2061 `b\210\312 \210\313 \205B \212\314\315!\210`)\316\"\317\320\"\321\"`S|\210\322\323\324\325!\326\327 \330 &\261\210\203p b\210\331\307!\210\306\266\203+\262\266\202\266\202\207" [epg-context org-at-encrypted-entry-p require epg make-local-variable epg-make-context nil t markerp marker-buffer org-crypt-check-auto-save org-invisible-p org-previous-visible-heading 1 org-crypt--encrypted-text decode-coding-string epg-decrypt-string utf-8 "\n" propertize org-crypt-checksum sha1 org-crypt-key org-crypt-key-for-heading org-crypt-text org-flag-subtree] 18 (#$ . 5711) nil])
#@54 Encrypt all top-level entries in the current buffer.
(defalias 'org-encrypt-entries #[0 "\301\302\303\304!A#\207" [org-crypt-tag-matcher nil org-scan-tags org-encrypt-entry org-make-tags-matcher] 5 (#$ . 6507) nil])
#@44 Decrypt all entries in the current buffer.
(defalias 'org-decrypt-entries #[0 "\301\302\303\304!A#\207" [org-crypt-tag-matcher nil org-scan-tags org-decrypt-entry org-make-tags-matcher] 5 (#$ . 6731) nil])
#@77 Add a hook to automatically encrypt entries before a file is saved to disk.
(defalias 'org-crypt-use-before-save-magic #[0 "\300\301\302\"\207" [add-hook org-mode-hook #[0 "\300\301\302\303\304$\207" [add-hook before-save-hook org-encrypt-entries nil t] 5]] 3 (#$ . 6945)])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook org-reveal-start-hook org-decrypt-entry provide org-crypt] 3)
Mini Shell