;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'cl-lib)
#@33 Return the NODE tag.

(fn NODE)
(defalias 'dom-tag #[257 "\211@:\203\n\211@@\207\211@\207" [] 2 (#$ . 102)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put dom-tag speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@40 Return the NODE attributes.

(fn NODE)
(defalias 'dom-attributes #[257 "\211@:\203\211@A@\207\211A@\207" [] 2 (#$ . 351)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put dom-attributes speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@38 Return the NODE children.

(fn NODE)
(defalias 'dom-children #[257 "\211@:\203\211@AA\207\211AA\207" [] 2 (#$ . 622)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put dom-children speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@55 Return all non-text-node children of NODE.

(fn NODE)
(defalias 'dom-non-text-children #[257 "\211\211@:\203\211@AA\262
\202\211AA\262
\300\211:\2031@\262
;\204*

B\262
A\262\202\211\237\207" [nil] 6 (#$ . 887)])
#@65 Set the attributes of NODE to ATTRIBUTES.

(fn NODE ATTRIBUTES)
(defalias 'dom-set-attributes #[514 "\300!\262
A
\240\207" [dom-ensure-node] 4 (#$ . 1119)])
#@60 Set ATTRIBUTE in NODE to VALUE.

(fn NODE ATTRIBUTE VALUE)
(defalias 'dom-set-attribute #[771 "\300!\262\301A@\"\211\203\211\241\207AA@BC\244\240\207" [dom-ensure-node assoc] 8 (#$ . 1284)])
#@50 Remove ATTRIBUTE from NODE.

(fn NODE ATTRIBUTE)
(defalias 'dom-remove-attribute #[514 "\300!\262\301
A@\"\211\205A\302A@\"\240\207" [dom-ensure-node assoc delq] 7 (#$ . 1492)])
#@85 Return the attribute ATTR from NODE.
A typical attribute is `href'.

(fn NODE ATTR)
(defalias 'dom-attr '(macro . #[514 "\300\301\302DED\207" [cdr assq dom-attributes] 7 (#$ . 1684)]))
#@71 Return all the text bits in the current node concatenated.

(fn NODE)
(defalias 'dom-text #[257 "\300\301\302\303\211@:\203\211@AA\262
\202\211AA\262
\"\304#\207" [mapconcat identity cl-remove-if-not stringp " "] 7 (#$ . 1877)])
#@107 Return all textual data under NODE concatenated with SEPARATOR in-between.

(fn NODE &optional SEPARATOR)
(defalias 'dom-texts #[513 "
\211@:\203\211@@\262
\202\211@\262
\300=\203\301\207\302\303\304\"\211@:\203/\211@AA\262
\2024\211AA\262
\2069\305#\207" [script #1="" mapconcat make-closure #[257 "\211;\203\207\211\211@:\203\211@@\262
\202\211@\262
\301=\203 \302\207\303
\300\"\207" [V0 script #1# dom-texts] 4 "\n\n(fn ELEM)"] " "] 6 (#$ . 2118)])
#@66 Return the first child of DOM that is of type TAG.

(fn DOM TAG)
(defalias 'dom-child-by-tag #[514 "\300
\211@:\203\211@AA\262
\202\211AA\262
\"\207" [assoc] 6 (#$ . 2596)])
#@89 Return elements in DOM that is of type TAG.
A name is a symbol like `td'.

(fn DOM TAG)
(defalias 'dom-by-tag #[514 "
\211@:\203\211@AA\262
\202\211AA\262
\300\211\211\211:\203D@\262;?\205-\301\"\262\203:\302!\244\262A\262\300\262
\202
\237\266\205\211@:\203W\211@@\262
\202[\211@\262
\232\203d
B\207\207" [nil dom-by-tag reverse] 10 (#$ . 2781)])
#@129 Return elements in DOM where PREDICATE is non-nil.
PREDICATE is called with the node as its only parameter.

(fn DOM PREDICATE)
(defalias 'dom-search #[514 "
\211@:\203\211@AA\262
\202\211AA\262
\300\211\211\211:\203D@\262;?\205-\301\"\262\203:\302!\244\262A\262\300\262
\202
\237\266\205
!\203R
B\207\207" [nil dom-search reverse] 10 (#$ . 3165)])
#@52 Return elements in DOM that are strings.

(fn DOM)
(defalias 'dom-strings #[257 "\211\211@:\203\211@AA\262
\202\211AA\262
\300\211:\203=@\262
;\203-

B\262
\2026\301\302!!
\244\262
A\262\202\211\237\207" [nil reverse dom-strings] 7 (#$ . 3546)])
#@90 Return elements in DOM that have a class name that matches regexp MATCH.

(fn DOM MATCH)
(defalias 'dom-by-class #[514 "\300\301#\207" [dom-elements class] 6 (#$ . 3813)])
#@85 Return elements in DOM that have a style that matches regexp MATCH.

(fn DOM MATCH)
(defalias 'dom-by-style #[514 "\300\301#\207" [dom-elements style] 6 (#$ . 3993)])
#@83 Return elements in DOM that have an ID that matches regexp MATCH.

(fn DOM MATCH)
(defalias 'dom-by-id #[514 "\300\301#\207" [dom-elements id] 6 (#$ . 4168)])
#@137 Find elements matching MATCH (a regexp) in ATTRIBUTE.
ATTRIBUTE would typically be `class', `id' or the like.

(fn DOM ATTRIBUTE MATCH)
(defalias 'dom-elements #[771 "\211@:\203\211@AA\262
\202\211AA\262
\300\211\211\211:\203F@\262;?\205/\301#\262\203<\302!\244\262A\262\300\262
\202
\237\266\205\211@:\203[\211@A@\262
\202`\211A@\262
\236A\211\203q\303\"\203qB\207
\207" [nil dom-elements reverse string-match] 12 (#$ . 4336)])
#@38 Remove NODE from DOM.

(fn DOM NODE)
(defalias 'dom-remove-node #[514 "
\211@:\203\211@AA\262
\202\211AA\262
\211\205:\211@
=\203)\300\"\210\2023\211;\2043\301
\"\210
A\266\202\202\207" [delq dom-remove-node] 7 (#$ . 4807)])
#@50 Return the parent of NODE in DOM.

(fn DOM NODE)
(defalias 'dom-parent #[514 "\211\211@:\203\211@AA\262
\202\211AA\262
>\203
\207\300\211@:\203-\211@AA\262
\2022\211AA\262
\211\203N\211@\204G\211;\204G\301
\"\262
A\266\202\2022\210\207" [nil dom-parent] 8 (#$ . 5052)])
#@60 Return the previous sibling of NODE in DOM.

(fn DOM NODE)
(defalias 'dom-previous-sibling #[514 "\300\"\211\2057\211\211@:\203\211@AA\262
\202\211AA\262
\301
\2035
A@=\203.
@\262

A\262\202\262
\207" [dom-parent nil] 7 (#$ . 5345)])
#@90 Return a DOM node with TAG and ATTRIBUTES.

(fn TAG &optional ATTRIBUTES &rest CHILDREN)
(defalias 'dom-node #[641 "\211\203\nBB\207D\207" [] 6 (#$ . 5598)])
#@62 Append CHILD to the end of NODE's children.

(fn NODE CHILD)
(defalias 'dom-append-child #[514 "\300!\262

C\244\207" [dom-ensure-node] 4 (#$ . 5768)])
#@134 Add CHILD to NODE's children before child BEFORE.
If BEFORE is nil, make CHILD NODE's first child.

(fn NODE CHILD &optional BEFORE)
(defalias 'dom-add-child-before #[770 "\300!\262\211@:\203\211@AA\262
\202\211AA\262

\203)

>\204)\301\302\"\210
\2034\303\"\2025\304\211\304U\203IAAAB\241\266\202U\211S\233\233B\241\266\207" [dom-ensure-node error "%s does not exist as a child" cl-position 0] 9 (#$ . 5929)])
#@51 Ensure that NODE is a proper DOM node.

(fn NODE)
(defalias 'dom-ensure-node #[257 "\211@:\203\n\211@\262
\211G\300U\203\211\301C\241\210\207" [1 nil] 3 (#$ . 6373)])
#@130 Pretty-print DOM at point.
If REMOVE-EMPTY, ignore textual nodes that contain just
white-space.

(fn DOM &optional REMOVE-EMPTY)
(defalias 'dom-pp #[513 "i\300\301\211@:\203\211@@\262
\202\211@\262
\"c\210\211@:\203)\211@A@\262
\202.\211A@\262
\211GiT\204=\302c\266\202q\303c\210\211\203o\211@\300\304@A#c\210S\211\262\305U\203`\306c\210\202h\307\310\311\"\261\210
A\266\202\202A\266
\203\220\312\313\211@:\203\207\211@AA\262
\202\214\211AA\262
\"\202\245\211@:\203\240\211@AA\262
\202\245\211AA\262
\211G
\204\256\306c\207\307\310T\311\"\261\210
\211\205\376\211@\211;\203\327\203\316\314\315\"\204\335\300\316\"c\210\202\335\317
\"\210S\211\262\305U\203\355\306c\210\202\367\307\310T\311\"\261\210
A\266\202\202\270\207" [format "(%S " "nil" "(" "(%S . %S)" 0 ")" "\n" make-string 32 cl-remove-if #[257 "\211;\205	\300\301\"\207" [string-match "\\`[\n
	  ]*\\'"] 4 "\n\n(fn CHILD)"] string-match "\\`[\n
	  ]*\\'" "%S" dom-pp] 12 (#$ . 6550)])
#@144 Print DOM at point as HTML/XML.
If PRETTY, indent the HTML/XML logically.
If XML, generate XML instead of HTML.

(fn DOM &optional PRETTY XML)
(defalias 'dom-print #[769 "i\300\301\211@:\203\211@@\262
\202\211@\262
\"c\210\211@:\203)\211@A@\262
\202.\211A@\262
\211\211\203_\211@\211@\302>\203O\211A\203O\204O\300\303@\"c\210\202X\300\304@A#c\210
A\266\202\202/\266\211@:\203q\211@AA\262
\202v\211AA\262
\305
\204~\306c\207\307c\210
\211\203\265\211@\211;\203\223\211c\210\202\256\310\262\203\246\311\312\313\\\314\"\261\210\315
#\210
A\266\202\202\202\210\203\317n\204\302\211\203\317n\204\311\311c\210\312\314\"c\210\300\316\211@:\203\341\211@@\262
\202\345\211@\262
\"c\207" [format "<%s" (async autofocus autoplay checked contenteditable controls default defer disabled formNoValidate frameborder hidden ismap itemscope loop multiple muted nomodule novalidate open readonly required reversed scoped selected typemustmatch) " %s" " %s=%S" nil " />" ">" t "\n" make-string 2 32 dom-print "</%s>"] 12 (#$ . 7560)])
(provide 'dom)