ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/org-crypt.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; 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\302\303\304\305\306\307\310\301&\210\311\312\313\314\315\316\310\303&\210\311\317\320\321\315\316\310\303&\210\311\322\323\324\310\303\325\326\315\327& \207" [require org custom-declare-group org-crypt nil "Org Crypt." :tag "Org Crypt" :group custom-declare-variable org-crypt-tag-matcher "crypt" "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 "" "The default key to use when encrypting the contents of a heading.\n\nThis setting can also be overridden in the CRYPTKEY property." org-crypt-disable-auto-save 'ask "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)
#@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 #[nil "\205@ \302=\204 \303=\203$ \304\305!\203$ \306\307\310 \206 p\"\210\311\312!\207 \313=\203. \306\314!\207 \315=\203? \306\316!\210\317\320\321\313\302$\207\313\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 nil "org-decrypt: Decrypting entry with auto-save-mode enabled. This may cause leakage." encrypt "org-decrypt: Enabling re-encryption on auto-save." org-add-hook auto-save-hook #[nil "\300\301!\210\302 \207" [message "org-crypt: Re-encrypting all decrypted entries due to auto-save." org-encrypt-entries] 2]] 5 (#$ . 1865)])
#@52 Return the encryption key for the current heading.
(defalias 'org-crypt-key-for-heading #[nil "\212\302\303!\210\304\305\306\307#\206 \206 \310\301!\203 \206 \311\312!)\207" [org-crypt-key epa-file-encrypt-to org-back-to-heading t org-entry-get nil "CRYPTKEY" selective boundp message "No crypt key set, using symmetric encryption."] 4 (#$ . 2878)])
#@38 Return STR encrypted with CRYPT-KEY.
(defalias 'org-encrypt-string #[(str crypt-key) "\303\304\305 #\230\203 \306 !\303\304\307 #\230\203 \303\304\310 #\207\311\302!\210\312\313\314\211#\315\n \316\n\"#\207" [crypt-key str epg-context get-text-property 0 org-crypt-key sha1 org-crypt-checksum org-crypt-text make-local-variable epg-make-context nil t epg-encrypt-string epg-list-keys] 6 (#$ . 3240)])
#@46 Encrypt the content of the current headline.
(defalias 'org-encrypt-entry #[nil "\306\307!\210\212\310\311!\210\312\300!\210\313\314\311\211#`\314y\210\315\316!?\205_ \314\317\n\206' `\320\")\321 `\314\211 b\210\322\311\211\"\210\323 \210`\324
\f{\"
\f|\210 c\210\203] b\210\325 \210-\314*\207" [epg-context start-heading pos encrypted-text end beg require epg org-back-to-heading t make-local-variable epg-make-context nil looking-at "-----BEGIN PGP MESSAGE-----" get-char-property invisible org-crypt-key-for-heading org-end-of-subtree org-back-over-empty-lines org-encrypt-string hide-subtree crypt-key folded] 5 (#$ . 3652) nil])
#@46 Decrypt the content of the current headline.
(defalias 'org-decrypt-entry #[nil "\306\307!\210\310 ?\205v \212\311\312!\210`\212\313 \210\314\315\206 `\316\"*\314y\210\317\320!\205u \321 \210\322\303!\210\323\314\312\211#\212\324\325!\210\314y\210`) \326`\f\" \327\330
\"\331\" \"`S\f|\210\332\333\"\334\335\"!\336\337 \340
&\261\210 \203s \nb\210\341\312!\210+\314+\207" [pos heading-was-invisible-p heading-point epg-context end encrypted-text require epg org-before-first-heading-p org-back-to-heading t outline-end-of-heading nil get-char-property invisible looking-at "-----BEGIN PGP MESSAGE-----" org-crypt-check-auto-save make-local-variable epg-make-context search-forward "-----END PGP MESSAGE-----" buffer-substring-no-properties 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 decrypted-text] 9 (#$ . 4309) nil])
#@54 Encrypt all top-level entries in the current buffer.
(defalias 'org-encrypt-entries #[nil "\302\303\304\305 !A#)\207" [todo-only org-crypt-tag-matcher nil org-scan-tags org-encrypt-entry org-make-tags-matcher] 4 (#$ . 5260) nil])
#@44 Decrypt all entries in the current buffer.
(defalias 'org-decrypt-entries #[nil "\302\303\304\305 !A#)\207" [todo-only org-crypt-tag-matcher nil org-scan-tags org-decrypt-entry org-make-tags-matcher] 4 (#$ . 5498) nil])
#@33 Is the current entry encrypted?
(defalias 'org-at-encrypted-entry-p #[nil "\300 ?\205 \212\301\302!\210\303\304\212\305 )\302#)\207" [org-before-first-heading-p org-back-to-heading t search-forward "-----BEGIN PGP MESSAGE-----" outline-next-heading] 4 (#$ . 5726)])
#@77 Add a hook to automatically encrypt entries before a file is saved to disk.
(defalias 'org-crypt-use-before-save-magic #[nil "\300\301\302\"\207" [add-hook org-mode-hook #[nil "\300\301\302\303\304$\207" [org-add-hook before-save-hook org-encrypt-entries nil t] 5]] 3 (#$ . 5999)])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook org-reveal-start-hook org-decrypt-entry provide org-crypt] 3)
Kontol Shell Bypass