Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
org /
[ HOME SHELL ]
Name
Size
Permission
Action
org-agenda.elc
214.7
KB
-rw-r--r--
org-archive.elc
11.75
KB
-rw-r--r--
org-attach.elc
14.21
KB
-rw-r--r--
org-bbdb.elc
7.37
KB
-rw-r--r--
org-bibtex.elc
4.13
KB
-rw-r--r--
org-clock.elc
35.05
KB
-rw-r--r--
org-colview.elc
41.45
KB
-rw-r--r--
org-compat.elc
7.48
KB
-rw-r--r--
org-exp.elc
149.66
KB
-rw-r--r--
org-export-latex.elc
44.23
KB
-rw-r--r--
org-faces.elc
20.18
KB
-rw-r--r--
org-footnote.elc
13.77
KB
-rw-r--r--
org-gnus.elc
5.74
KB
-rw-r--r--
org-id.elc
16.92
KB
-rw-r--r--
org-info.elc
1.68
KB
-rw-r--r--
org-install.elc
635
B
-rw-r--r--
org-irc.elc
5.89
KB
-rw-r--r--
org-jsinfo.elc
5.39
KB
-rw-r--r--
org-list.elc
32.5
KB
-rw-r--r--
org-mac-message.elc
2.27
KB
-rw-r--r--
org-macs.elc
7.83
KB
-rw-r--r--
org-mew.elc
2.92
KB
-rw-r--r--
org-mhe.elc
5.16
KB
-rw-r--r--
org-mouse.elc
32.83
KB
-rw-r--r--
org-plot.elc
10.28
KB
-rw-r--r--
org-publish.elc
20.43
KB
-rw-r--r--
org-remember.elc
31.7
KB
-rw-r--r--
org-rmail.elc
2.82
KB
-rw-r--r--
org-table.elc
136.62
KB
-rw-r--r--
org-timer.elc
7.61
KB
-rw-r--r--
org-vm.elc
2.91
KB
-rw-r--r--
org-w3m.elc
3.88
KB
-rw-r--r--
org-wl.elc
2.82
KB
-rw-r--r--
org.elc
505.8
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : org-attach.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:41 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/org/org-attach.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`org-attach.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\302&\207" [require org-id org custom-declare-group org-attach nil "Options concerning entry attachments in Org-mode." :tag "Org Attach" :group] 8) #@148 The directory where attachments are stored. If this is a relative path, it will be interpreted relative to the directory where the Org file lives. (custom-declare-variable 'org-attach-directory '"data/" '(#$ . 831) :group 'org-attach :type 'directory) #@75 Tag that will be triggered automatically when an entry has an attachment. (custom-declare-variable 'org-attach-auto-tag '"ATTACH" '(#$ . 1089) :group 'org-attach :type '(choice (const :tag "None" nil) (string :tag "Tag"))) #@259 The property used to keep a list of attachment belonging to this entry. This is not really needed, so you may set this to nil if you don't want it. Also, for entries where children inherit the directory, the list of attachments is not kept in this property. (custom-declare-variable 'org-attach-file-list-property '"Attachments" '(#$ . 1319) :group 'org-attach :type '(choice (const :tag "None" nil) (string :tag "Tag"))) #@261 The preferred method to attach a file. Allowed values are: mv rename the file to move it into the attachment directory cp copy the file ln create a hard link. Note that this is not supported on all systems, and then the result is not defined. (custom-declare-variable 'org-attach-method ''cp '(#$ . 1748) :group 'org-attach :type '(choice (const :tag "Copy" cp) (const :tag "Move/Rename" mv) (const :tag "Link" ln))) #@73 Non-nil means do not show the splash buffer with the attach dispatcher. (custom-declare-variable 'org-attach-expert 'nil '(#$ . 2188) :group 'org-attach :type 'boolean) #@59 Non-nil means, allow attachment directories be inherited. (custom-declare-variable 'org-attach-allow-inheritance 't '(#$ . 2363) :group 'org-attach :type 'boolean) #@73 Indicates if the last access to the attachment directory was inherited. (defvar org-attach-inherited nil (#$ . 2533)) #@116 The dispatcher for attachment commands. Shows a list of commands and prompts for another key to execute a command. (defalias 'org-attach #[nil "\304\211\n\305=\203 \306`\307\"\206 \306`\310\"\211\204 \311\312!\210\212\203+ \313!q\210b\210\314\315!\210\212\316\213\210) \317>\203@ \320\321!\202\365 \322>\203O \323\320\321!)\202\365 \324>\203^ \325\320\321!)\202\365 \326>\203m \327\320\321!)\202\365 \330>\203y \320\331!\202\365 \332>\203\205 \320\333!\202\365 \334>\203\221 \320\335!\202\365 \336=\203\235 \320\337!\202\365 \340>\203\251 \320\341!\202\365 \342>\203\265 \320\343!\202\365 \344>\203\301 \320\345!\202\365 \346=\203\315 \320\347!\202\365 \350=\203\331 \351\352!\202\365 \353>\203\345 \320\354!\202\365 \355>\203\361 \320\356!\202\365 \311\357 \"+\207" [marker c major-mode org-attach-method nil org-agenda-mode get-text-property org-hd-marker org-marker error "No task in current line" marker-buffer org-back-to-heading t ((byte-code "\204 \302\220\303\304!\221\210\305\306\302!!\210\307\310!\210\311 \312\302!\203\" \313\302!\210\303\207" [org-attach-expert c "*Org Attach*" princ "Select an Attachment Command:\n\na Select a file and attach it to the task, using `org-attach-method'.\nc/m/l Attach a file using copy/move/link method.\nn Create a new attachment, as an Emacs buffer.\nz Synchronize the current task with its attachment\n directory, in case you added attachments yourself.\n\no Open current task's attachments.\nO Like \"o\", but force opening in Emacs.\nf Open current task's attachment directory.\nF Like \"f\", but force using dired in Emacs.\n\nd Delete one attachment, you will be prompted for a file name.\nD Delete all of a task's attachments. A safer way is\n to open the directory in dired and delete from there.\n\ns Set a specific attachment directory for this entry.\ni Make children of the current entry inherit its attachment directory." org-fit-window-to-buffer get-buffer-window message "Select command: [acmlzoOfFdD]" read-char-exclusive get-buffer kill-buffer] 3)) (97 1) call-interactively org-attach-attach (99 3) cp (109 13) mv (108 12) ln (110 14) org-attach-new (122 26) org-attach-sync (111 15) org-attach-open 79 org-attach-open-in-emacs (102 6) org-attach-reveal (70) org-attach-reveal-in-emacs (100 4) org-attach-delete-one 68 org-attach-delete-all 113 message "Abort" (115 19) org-attach-set-directory (105 9) org-attach-set-inherit "No such attachment command %c"] 4 (#$ . 2658) nil]) #@436 Return the directory associated with the current entry. This first checks for a local property ATTACH_DIR, and then for an inherited property ATTACH_DIR_INHERIT. If neither exists, the default mechanism using the entry ID will be invoked to access the unique directory for the current entry. If the directory does not exist and CREATE-IF-NOT-EXISTS-P is non-nil, the directory and (if necessary) the corresponding ID will be created. (defalias 'org-attach-dir #[(&optional create-if-not-exists-p) "\306\211\211\307\306\310\"\307\306\311\"\211\203 \312\n!\210\202n \f\203A \307\306\310\313#\211\203A \212\214~\210 b\210\306 \314!+\312\n!\210\313\202n \312\306!\210\315`\"\211\204T \203n \204\\ \316\317!\210\320\321\322 \323\324O \324\306O#\320!\"\n\205\211 \203\202 \325\n!\204\202 \326\n\313\"\210\327\n!\205\211 \n+\207" [inherit uuid attach-dir org-attach-inherited org-attach-allow-inheritance org-entry-property-inherited-from nil org-entry-get "ATTACH_DIR_INHERIT" "ATTACH_DIR" org-attach-check-absolute-path t org-attach-dir org-id-get error "ID retrieval/creation failed" expand-file-name format "%s/%s" 0 2 file-directory-p make-directory file-exists-p create-if-not-exists-p org-attach-directory] 8 (#$ . 5222)]) #@320 Check if we have enough information to root the atachment directory. When DIR is given, check also if it is already absolute. Otherwise, assume that it will be relative, and check if `org-attach-directory' is absolute, or if at least the current buffer has a file name. Throw an error if we cannot root the directory. (defalias 'org-attach-check-absolute-path #[(dir) "\203\n \302!\206 \302 !\206 \303\304 !\206 \305\306!\207" [dir org-attach-directory file-name-absolute-p buffer-file-name buffer-base-buffer error "Need absolute `org-attach-directory' to attach in buffers without filename."] 2 (#$ . 6475)]) #@129 Set the ATTACH_DIR property of the current entry. The property defines the directory that is used for attachments of the entry. (defalias 'org-attach-set-directory #[nil "\301\302\303\"\304\305\"\306\302\303#)\207" [dir org-entry-get nil "ATTACH_DIR" read-directory-name "Attachment directory: " org-entry-put] 4 (#$ . 7099) nil]) #@252 Set the ATTACH_DIR_INHERIT property of the current entry. The property defines the directory that is used for attachments of the entry and any children that do not explicitly define (by setting the ATTACH_DIR property) their own attachment directory. (defalias 'org-attach-set-inherit #[nil "\300\301\302\303#\210\304\305!\207" [org-entry-put nil "ATTACH_DIR_INHERIT" "t" message "Children will inherit attachment directory"] 4 (#$ . 7441) nil]) #@145 Commit changes to git if `org-attach-directory' is properly initialized. This checks for the existence of a ".git" directory in that directory. (defalias 'org-attach-commit #[nil "\302!\303\302\304 \"!\205 \305\306 \307\310\311\312\260!)\207" [org-attach-directory dir expand-file-name file-exists-p ".git" shell-command "(cd " "; " " git add .; " " git ls-files --deleted -z | xargs -0 git rm; " " git commit -m 'Synchronized attachments')"] 7 (#$ . 7894)]) #@45 Turn the autotag on or (if OFF is set) off. (defalias 'org-attach-tag #[(&optional off) "\205 \212\302\303!\210\304 \203 \301\202 \305\")\207" [org-attach-auto-tag off org-back-to-heading t org-toggle-tag on] 3 (#$ . 8363)]) #@23 Turn the autotag off. (defalias 'org-attach-untag #[nil "\300\301!\207" [org-attach-tag off] 2 (#$ . 8599)]) #@204 Move/copy/link FILE into the attachment directory of the current task. If VISIT-DIR is non-nil, visit the directory with dired. METHOD may be `cp', `mv', or `ln', default taken from `org-attach-method'. (defalias 'org-attach-attach #[(file &optional visit-dir method) "\206 \306\n!\f\203 \204 \307`\f #\210\310\311! \312 \" \313=\2033 \314\n\"\210\202N \315=\203B \316\n\"\210\202N \317=\203N \320\n\"\210\321 \210\322 \210\203` \323!\202d \324\325 \"+\207" [method org-attach-method file basename org-attach-file-list-property org-attach-inherited file-name-nondirectory org-entry-add-to-multivalued-property org-attach-dir t expand-file-name mv rename-file cp copy-file ln add-name-to-file org-attach-commit org-attach-tag dired message "File \"%s\" is now a task attachment." attach-dir fname visit-dir] 4 (#$ . 8715) "fFile to keep as an attachment: \nP"]) #@30 Attach a file by copying it. (defalias 'org-attach-attach-cp #[nil "\301\302\303!)\207" [org-attach-method cp call-interactively org-attach-attach] 2 (#$ . 9607) nil]) #@40 Attach a file by moving (renaming) it. (defalias 'org-attach-attach-mv #[nil "\301\302\303!)\207" [org-attach-method mv call-interactively org-attach-attach] 2 (#$ . 9782) nil]) #@181 Attach a file by creating a hard link to it. Beware that this does not work on systems that do not support hard links. On some systems, this apparently does copy the file instead. (defalias 'org-attach-attach-ln #[nil "\301\302\303!)\207" [org-attach-method ln call-interactively org-attach-attach] 2 (#$ . 9968) nil]) #@98 Create a new attachment FILE for the current task. The attachment is created as an Emacs buffer. (defalias 'org-attach-new #[(file) "\203 \204 \304`\n#\210\305\306!\307 \210\310\311\n \"!\210\312\313\n\")\207" [org-attach-file-list-property org-attach-inherited file attach-dir org-entry-add-to-multivalued-property org-attach-dir t org-attach-tag find-file expand-file-name message "New attachment %s"] 4 (#$ . 10294) "sCreate attachment named: "]) #@29 Delete a single attachment. (defalias 'org-attach-delete-one #[(&optional file) "\303\304!\305!\n\206 \306\307\310\311 \"\"\312\n\"\313\n!\204$ \314\315\n\"\210\316\n!+\207" [attach-dir files file org-attach-dir t org-attach-file-list org-ido-completing-read "Delete attachment: " mapcar #[(f) "\301!C\207" [f file-name-nondirectory] 2] expand-file-name file-exists-p error "No such attachment: %s" delete-file] 5 (#$ . 10756) nil]) #@171 Delete all attachments from the current task. This actually deletes the entire attachment directory. A safer way is to open the directory in dired and delete from there. (defalias 'org-attach-delete-all #[(&optional force) "\203 \204 \304`\"\210\305 \211\205. \204 \306\307!\205. \310\311\312\n\"!\210\313\314!\210\315 \210\316 )\207" [org-attach-file-list-property org-attach-inherited attach-dir force org-entry-delete org-attach-dir y-or-n-p "Are you sure you want to remove all attachments of this entry? " shell-command format "rm -fr %s" message "Attachment directory removed" org-attach-commit org-attach-untag] 5 (#$ . 11204) "P"]) #@110 Synchronize the current tasks with its attachments. This can be used after files have been added externally. (defalias 'org-attach-sync #[nil "\306 \210\203 \204 \307`\"\210\310 \211\205H \311\n!\211\203\" \312 \210\205G \313 \211 \203E @\314\315\f\"\204> \316`\f#\210 A\211\204. *\313))\207" [org-attach-file-list-property org-attach-inherited attach-dir files file #1=#:--cl-dolist-temp-- org-attach-commit org-entry-delete org-attach-dir org-attach-file-list org-attach-tag nil string-match "^\\." org-entry-add-to-multivalued-property] 6 (#$ . 11859) nil]) #@118 Return a list of files in the attachment directory. This ignores files starting with a ".", and files ending in "~". (defalias 'org-attach-file-list #[(dir) "\301\302\303\304\305\302\306#\"\"\207" [dir delq nil mapcar #[(x) "\301\302\"?\205 \207" [x string-match "^\\."] 3] directory-files "[^~]\\'"] 8 (#$ . 12440)]) #@61 Show the attachment directory of the current task in dired. (defalias 'org-attach-reveal #[nil "\301\302!\303!)\207" [attach-dir org-attach-dir t org-open-file] 2 (#$ . 12768) nil]) #@120 Show the attachment directory of the current task. This will attempt to use an external program to show the directory. (defalias 'org-attach-reveal-in-emacs #[nil "\301\302!\303!)\207" [attach-dir org-attach-dir t dired] 2 (#$ . 12959) nil]) #@292 Open an attachment of the current task. If there are more than one attachment, you will be prompted for the file name. This command will open the file using the settings in `org-file-apps' and in the system-specific variants of this variable. If IN-EMACS is non-nil, force opening in Emacs. (defalias 'org-attach-open #[(&optional in-emacs) "\304\305!\306!\211G\307U\203 @\202 \310\311\312\313 \"\314\305$\315\316\n\" \"+\207" [attach-dir files file in-emacs org-attach-dir t org-attach-file-list 1 org-ido-completing-read "Open attachment: " mapcar list nil org-open-file expand-file-name] 6 (#$ . 13210) "P"]) #@65 Open attachment, force opening in Emacs. See `org-attach-open'. (defalias 'org-attach-open-in-emacs #[nil "\300\301!\207" [org-attach-open in-emacs] 2 (#$ . 13836) nil]) #@126 Return the full path to the current entry's attachment file FILE. Basically, this adds the path to the attachment directory. (defalias 'org-attach-expand #[(file) "\301\302 \"\207" [file expand-file-name org-attach-dir] 3 (#$ . 14013)]) #@155 Return a file link pointing to the current entry's attachment file FILE. Basically, this adds the path to the attachment directory, and a "file:" prefix. (defalias 'org-attach-expand-link #[(file) "\301\302!P\207" [file "file:" org-attach-expand] 3 (#$ . 14258)]) (provide 'org-attach)
Close
