403Webshell
Server IP : 217.160.0.212  /  Your IP : 216.73.217.98
Web Server : Apache
System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64
User : sws1073854427 ( 1073854427)
PHP Version : 8.4.23
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/share/emacs/28.2/lisp/org/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/org/org-attach-git.elc
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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&\210\303\326\305\306\327DD\330\311\301\314\331\316\332&	\207" [require org-attach vc-git custom-declare-variable org-attach-git-annex-cutoff funcall function #[0 "\300\207" [32768] 1 #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 #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)) org-attach-git-dir #[0 "\300\207" [default] 1 #1#] "Attachment directory with the Git repository to use.\nThe default value is to use `org-attach-id-dir'.  When set to\n`individual-repository', then the directory attached to the\ncurrent node, if correctly initialized as a Git repository, will\nbe used instead." (Org . "9.5") (choice (const :tag "Default" default) (const :tag "Individual repository" individual-repository))] 12)
#@42 Return non-nil if git annex can be used.
(defalias 'org-attach-git-use-annex #[0 "\303\304\267\202\305	!\202\306 \202\307!\n\205'\310\305\311\"!\206'\310\305\312\"!\207" [org-attach-git-dir org-attach-id-dir org-attach-git-annex-cutoff vc-git-root #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (default 7 individual-repository 13)) expand-file-name org-attach-dir nil file-exists-p "annex" ".git/annex"] 5 (#$ . 1421)])
#@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 "\304\267\202\305	!\202\306 \202\307\310!\311 \205T\312\313\314\315!\"!\316\230?\205T\317=\2038\320\313\321\"!\2029\211\204B\322\323\"\210\324\325\"\210\326\327\307\211\211\330\331&\262)\207" [org-attach-git-dir org-attach-id-dir default-directory org-attach-git-annex-auto-get #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (default 6 individual-repository 12)) expand-file-name org-attach-dir nil 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" "annex" "get"] 11 (#$ . 1898)])
#@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 "\303\267\202\304	!\202\305 \202\306\307!\310 \311\205\247\312\313!\205\247\314\315\316\"r\211q\210\317\320\"\216\321!\210\322\323\324!\325\316#\211\203v\211@\203`\326!\3278\262\nY\203`\330\313\306\211\211\331\332&\210\202k\330\313\306\211\211\332&\210T\262A\266\202\202:\210\322\323\333!\325\316#\211\203\232\211@\330\313\306\211\211\334&\210T\262A\266\202\202~\210\311V\205\244\335\336!*\262\207" [org-attach-git-dir org-attach-id-dir org-attach-git-annex-cutoff #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (default 6 individual-repository 12)) expand-file-name org-attach-dir nil vc-git-root org-attach-git-use-annex 0 executable-find "git" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] cd split-string shell-command-to-string "git ls-files -zmo --exclude-standard" "" file-attributes 7 call-process "annex" "add" "git ls-files -z --deleted" "rm" shell-command "git commit -m 'Synchronized attachments'"] 16 (#$ . 2891)])
(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)

Youez - 2016 - github.com/yon3zu
LinuXploit