ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/dom.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'cl-lib)
#@22 Return the NODE tag.
(defalias 'dom-tag #[(node) "@:\203\n @@\207@\207" [node] 1 (#$ . 428)])
(put 'dom-tag 'byte-optimizer 'byte-compile-inline-expand)
#@29 Return the NODE attributes.
(defalias 'dom-attributes #[(node) "@:\203 @A@\207A@\207" [node] 1 (#$ . 590)])
(put 'dom-attributes 'byte-optimizer 'byte-compile-inline-expand)
#@27 Return the NODE children.
(defalias 'dom-children #[(node) "@:\203 @AA\207AA\207" [node] 1 (#$ . 774)])
(put 'dom-children 'byte-optimizer 'byte-compile-inline-expand)
#@44 Return all non-text-node children of NODE.
(defalias 'dom-non-text-children #[(node) "\211@:\203 @AA\202 AA)\304\211 :\2030 @\211;\204) \n B A\211\202 \237+\207" [node #1=#:--cl-var-- child #2=#:--cl-var-- nil] 3 (#$ . 952)])
#@43 Set the attributes of NODE to ATTRIBUTES.
(defalias 'dom-set-attributes #[(node attributes) "\302!\211A \240\207" [node attributes dom-ensure-node] 3 (#$ . 1199)])
#@33 Set ATTRIBUTE in NODE to VALUE.
(defalias 'dom-set-attribute #[(node attribute value) "\304!\305 A@\"\211\203 \n \241\202 AA@ BC\244\240)\207" [node attribute old value dom-ensure-node assoc] 5 (#$ . 1371)])
#@69 Return the attribute ATTR from NODE.
A typical attribute is `href'.
(defalias 'dom-attr '(macro . #[(node attr) "\302\303\304 DED\207" [attr node cdr assq dom-attributes] 5 (#$ . 1594)]))
#@60 Return all the text bits in the current node concatenated.
(defalias 'dom-text #[(node) "\301\302\303\304\211@:\203 @AA\202 AA)\"\305#\207" [node mapconcat identity cl-remove-if-not stringp " "] 6 (#$ . 1789)])
#@76 Return all textual data under NODE concatenated with SEPARATOR in-between.
(defalias 'dom-texts #[(node &optional separator) "\302\303\304\305\211@:\203 @AA\202 AA)\" \206 \306#\207" [node separator mapconcat identity mapcar #[(elem) ";\203 \207\302 \"\207" [elem separator dom-texts] 3] " "] 6 (#$ . 2012)])
#@52 Return the first child of DOM that is of type TAG.
(defalias 'dom-child-by-tag #[(dom tag) "\303 \211@:\203 \n@AA\202 \nAA)\"\207" [tag dom node assoc] 4 (#$ . 2338)])
#@75 Return elements in DOM that is of type TAG.
A name is a symbol like `td'.
(defalias 'dom-by-tag #[(dom tag) "\211@:\203 @AA\202 AA)\306\211 \306 \n:\203? \n@\211;?\205- \307 \"\211\2038 \310\f!
\244\nA\211\202
\237, \211@:\203Q @@\202S @) \232\203` \fB\202a \f)\207" [dom node #1=#:--cl-var-- child matches #2=#:--cl-var-- nil dom-by-tag reverse tag] 4 (#$ . 2516)])
#@42 Return elements in DOM that are strings.
(defalias 'dom-strings #[(dom) "\211@:\203 @AA\202 AA)\305\211 \n:\203; \n@\211;\203, \fB\2024 \306\307 !!\f\244\nA\211\202 \f\237+\207" [dom node #1=#:--cl-var-- child #2=#:--cl-var-- nil reverse dom-strings] 4 (#$ . 2911)])
#@74 Return elements in DOM that have a class name that matches regexp MATCH.
(defalias 'dom-by-class #[(dom match) "\302\303 #\207" [dom match dom-elements class] 4 (#$ . 3198)])
#@69 Return elements in DOM that have a style that matches regexp MATCH.
(defalias 'dom-by-style #[(dom match) "\302\303 #\207" [dom match dom-elements style] 4 (#$ . 3380)])
#@67 Return elements in DOM that have an ID that matches regexp MATCH.
(defalias 'dom-by-id #[(dom match) "\302\303 #\207" [dom match dom-elements id] 4 (#$ . 3557)])
#@111 Find elements matching MATCH (a regexp) in ATTRIBUTE.
ATTRIBUTE would typically be `class', `id' or the like.
(defalias 'dom-elements #[(dom attribute match) "\211@:\203 @AA\202 AA)\306\211 \306 \n:\203A \n@\211;?\205/ \307 \n #\211\203: \310\f!
\244\nA\211\202
\237,\n\211@:\203U @A@\202X A@)\236A \f \f\203r \311 \f\"\203r \fB\202s \f*\207" [dom node #1=#:--cl-var-- child matches #2=#:--cl-var-- nil dom-elements reverse string-match attribute match attr] 5 (#$ . 3727)])
#@35 Return the parent of NODE in DOM.
(defalias 'dom-parent #[(dom node) " \211@:\203 @AA\202 AA)>\203 \207\305 \211@:\203+ @AA\202. AA)\305\211 \203N \f@\n\204G ;\204G \306 \"\fA\211\2046 *\n)\207" [node dom result elem --dolist-tail-- nil dom-parent] 4 (#$ . 4233)])
(defalias 'dom-previous-sibling #[(dom node) "\305 \"\211\2058 \n\211@:\203 @AA\202 AA)\306 \f\2036 \fA@ =\203. \f@\f\211A\210\202 *)\207" [dom node parent previous siblings dom-parent nil] 4])
#@44 Return a DOM node with TAG and ATTRIBUTES.
(defalias 'dom-node #[(tag &optional attributes &rest children) "\203\n \nBB\207 \nD\207" [children tag attributes] 3 (#$ . 4728)])
#@45 Append CHILD to the end of NODE's children.
(defalias 'dom-append-child #[(node child) "\302!\211 C\244\207" [node child dom-ensure-node] 3 (#$ . 4912)])
#@100 Add CHILD to NODE's children before child BEFORE.
If BEFORE is nil, make CHILD NODE's first child.
(defalias 'dom-add-child-before #[(node child &optional before) "\305!\211\211@:\203 @AA\202 AA)\n\203' \n >\204' \306\307\n\"\210\n\2032 \310\n \"\2023 \311\211\311U\203F A\fAAB\241\210\202Q S \233\f \233B\241\210*\207" [node children before pos child dom-ensure-node error "%s does not exist as a child" cl-position 0] 5 (#$ . 5075)])
#@40 Ensure that NODE is a proper DOM node.
(defalias 'dom-ensure-node #[(node) "@:\203 @G\301U\203 \302C\241\210\207" [node 1 nil] 2 (#$ . 5531)])
#@97 Pretty-print DOM at point.
If REMOVE-EMPTY, ignore textual nodes that contain just
white-space.
(defalias 'dom-pp #[(dom &optional remove-empty) "i\306\307 \211@:\203 \n@@\202 \n@)\"c\210 \211@:\203' \n@A@\202* \nA@)\211G iT \204< \310c\210\202v \311c\210 \312 \211 \203u @\306\313
@
A#c\210\fS\211\314U\203d \315c\210\202l \316\317\320\"\261\210A\211\204H *+\203\225 \321\322 \211@:\203\215 \n@AA\202\220 \nAA)\"\202\250 \211@:\203\244 \n@AA\202\247 \nAA)\211 G \204\267 \315c\202\316\317T\320\"\261\210\312 \211 \205@\211;\203\354 \203\342 \323\324\"\204\363 \306\325\"c\210\202\363 \326\"\210\fS\211\314U\203\315c\210\202 \316\317T\320\"\261\210A\211\204\313 \312*+\207" [column dom node attr times elem format "(%S " "nil" "(" nil "(%S . %S)" 0 ")" "\n" make-string 32 cl-remove-if #[(child) ";\205 \301\302\"\207" [child string-match "\\`[\n
]*\\'"] 3] string-match "\\`[\n
]*\\'" "%S" dom-pp --dolist-tail-- remove-empty children child] 5 (#$ . 5688)])
(provide 'dom)
Kontol Shell Bypass