Current File : //usr/local/share/emacs/27.2/lisp/org/org-attach-git.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\307DD\310\311\301\312\313\314\315\316\317& \210\303\320\305\306\321DD\322\311\301\314\323\312\324\316\325& \207" [require org-attach vc-git custom-declare-variable org-attach-git-annex-cutoff funcall function #[0 "\300\207" [32768] 1] "If non-nil, files larger than this will be annexed instead of stored." :group :version "24.4" :package-version (Org . "8.0") :type (choice (const :tag "None" nil) (integer :tag "Bytes")) org-attach-git-annex-auto-get #[0 "\300\207" [ask] 1] "Confirmation preference for automatically getting annex files.\nIf \\='ask, prompt using `y-or-n-p'. If t, always get. If nil, never get." (Org . "9.0") "26.1" (choice (const :tag "confirm with `y-or-n-p'" ask) (const :tag "always get from annex if necessary" t) (const :tag "never get from annex" nil))] 12)
#@42 Return non-nil if git annex can be used.
(defalias 'org-attach-git-use-annex #[0 "\302\303!! \205 \304\303\305\"!\206 \304\303\306\"!\207" [org-attach-id-dir org-attach-git-annex-cutoff vc-git-root expand-file-name file-exists-p "annex" ".git/annex"] 5 (#$ . 1252)])
#@148 Call git annex get PATH (via shell) if using git annex.
Signals an error if the file content is not available and it was not retrieved.
(fn PATH)
(defalias 'org-attach-git-annex-get-maybe #[257 "\303!\304!\305 \205E \306\307\310\311!\"!\312\230?\205E \n\313=\203) \314\307\315\"!\202* \n\211\2043 \316\317\"\210\320\321\"\210\322\323\324\211\211\325\326&\262)\207" [org-attach-id-dir default-directory org-attach-git-annex-auto-get expand-file-name file-relative-name org-attach-git-use-annex shell-command-to-string format "git annex find --format=found --in=here %s" shell-quote-argument "found" ask y-or-n-p "Run git annex get %s? " error "File %s stored in git annex but unavailable" message "Running git annex get \"%s\"." call-process "git" nil "annex" "get"] 11 (#$ . 1531)])
#@270 Commit changes to git if `org-attach-id-dir' is properly initialized.
This checks for the existence of a ".git" directory in that directory.
Takes an unused optional argument for the sake of being compatible
with hook `org-attach-after-change-hook'.
(fn &optional _)
(defalias 'org-attach-git-commit #[256 "\302!\303!\304 \305\205\236 \306\307!\205\236 \310\311!r\211q\210\312\305\313\314\315!\316\"\317$\216\320!\210\321\322\323!\324\325#\211\203m \211@\203W \326!\3278\262 Y\203W \330\307\331\211\211\332\333&\210\202b \330\307\331\211\211\333&\210T\262A\266\202\2021 \210\321\322\334!\324\325#\211\203\221 \211@\330\307\331\211\211\335&\210T\262A\266\202\202u \210\305V\205\233 \336\337!*\262\207" [org-attach-id-dir org-attach-git-annex-cutoff expand-file-name vc-git-root org-attach-git-use-annex 0 executable-find "git" generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 cd split-string shell-command-to-string "git ls-files -zmo --exclude-standard" " " t file-attributes 7 call-process nil "annex" "add" "git ls-files -z --deleted" "rm" shell-command "git commit -m 'Synchronized attachments'"] 16 (#$ . 2333)])
(byte-code "\300\301\302\"\210\300\303\304\"\210\305\306!\207" [add-hook org-attach-after-change-hook org-attach-git-commit org-attach-open-hook org-attach-git-annex-get-maybe provide org-attach-git] 3)
Mini Shell