;ELC ;;; Compiled ;;; in Emacs version 26.1 ;;; 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\300\303!\207" [require cl-lib sgml-mode skewer-mode] 2) #@88 Evaluate BODY as if in `html-mode', using a temp buffer if necessary. (fn &rest BODY) (defalias 'skewer-html--with-html-mode '(macro . #[128 "\300\301!\300\302!\300\303!\304\305B\306B\307BE\310\311\312E\313\314\nD\315\316\nE\317BBBB BBB\313\320DEEE\207" [make-symbol "orig-buffer" "temp-buffer" "orig-point" let ((and (not (eq major-mode 'html-mode)) (generate-new-buffer " *skewer-html*"))) ((current-buffer)) ((point)) unwind-protect with-current-buffer or when insert-buffer-substring setf (point) ((html-mode)) kill-buffer] 15 (#$ . 503)])) (byte-code "\300\301\302\303#\300\207" [function-put skewer-html--with-html-mode lisp-indent-function 0] 4) #@44 Cleanup TAG name from sgml-mode. (fn TAG) (defalias 'skewer-html--cleanup #[257 "\302=?\205\n\303\304!p`\305\306\307\310\311!\312\"\313$\216r\206q\210\203/\314!\210\211b\210\302 \210\315\316\317\320! >\204C\321\322\323 D\"\210\324H#*\207" [major-mode cl-struct-sgml-tag-tags html-mode generate-new-buffer " *skewer-html*" make-byte-code 0 "\300\205\301\300!\207" vconcat vector [kill-buffer] 2 insert-buffer-substring replace-regexp-in-string "/$" "" type-of signal wrong-type-argument sgml-tag 4] 11 (#$ . 1179)]) #@64 Return the tag struct for the tag immediately following point. (defalias 'skewer-html--tag-after-point #[0 "\301=?\205\n\302\303!p`\304\305\306\307\310!\311\"\312$\216r\206q\210\203/\313!\210\211b\210\301 \210\212\314u\210\315 +\207" [major-mode html-mode generate-new-buffer " *skewer-html*" make-byte-code 0 "\300\205\301\300!\207" vconcat vector [kill-buffer] 2 insert-buffer-substring 1 sgml-parse-tag-backward] 9 (#$ . 1720)]) #@63 Like `sgml-get-context' but to the root, skipping close tags. (defalias 'skewer-html--get-context #[0 "\301=?\205\n\302\303!p`\304\305\306\307\310!\311\"\312$\216r\206q\210\203/\313!\210\211b\210\301 \210\212\314\211\315 \262\203C\211\237\244\262\2022\316\317\320\321$\266\202+\207" [major-mode html-mode generate-new-buffer " *skewer-html*" make-byte-code 0 "\300\205\301\300!\207" vconcat vector [kill-buffer] 2 insert-buffer-substring nil sgml-get-context cl-delete close :key sgml-tag-type] 10 (#$ . 2171)]) #@85 Compute the position of this tag within its parent. (fn &optional (POINT (point))) (defalias 'skewer-html-compute-tag-nth #[128 "\211\203 \211A\262\242\202`\203\301\302\303GTD\"\210\304=?\205%\305\306!p`\307\310\311\312\313!\314\"\315$\216r\206:q\210\203J\316!\210\211b\210\304 \210\212b\210\317 \211\205\231\320@!GS\310\321\211\211`\262\322\323!\210`U\204\224\317 G\262W\204\224\212\321u\210\324`\325\326!\210`\")\262\211\232\203_T\262\202_\266\204\266\202\262+\266\203\207" [major-mode signal wrong-number-of-arguments skewer-html-compute-tag-nth html-mode generate-new-buffer " *skewer-html*" make-byte-code 0 "\300\205\301\300!\207" vconcat vector [kill-buffer] 2 insert-buffer-substring skewer-html--get-context skewer-html--cleanup nil sgml-skip-tag-backward 1 buffer-substring-no-properties skip-syntax-forward "w_"] 16 (#$ . 2709)]) #@38 Compute the ancestry chain at point. (defalias 'skewer-html-compute-tag-ancestry #[0 "\302=?\205\n\303\304!p`\305\306\307\310\311!\312\"\313$\216r\206q\210\203/\314!\210\211b\210\302 \210\315 \316\211\211\211:\203o@\262\317\320! >\204O\321\322\323D\"\210\313HT!\262\324!\262\325\232\204hDB\262A\262\2025\211\237\266\205\237*\207" [major-mode cl-struct-sgml-tag-tags html-mode generate-new-buffer " *skewer-html*" make-byte-code 0 "\300\205\301\300!\207" vconcat vector [kill-buffer] 2 insert-buffer-substring skewer-html--get-context nil skewer-html-compute-tag-nth type-of signal wrong-type-argument sgml-tag skewer-html--cleanup "html"] 13 (#$ . 3598)]) #@56 Compute the selector for exactly the tag around point. (defalias 'skewer-html-compute-selector #[0 "\300 \301\302\303#\207" [skewer-html-compute-tag-ancestry mapconcat #[257 "\300\301@A@#\207" [format "%s:nth-of-type(%d)"] 5 "\n\n(fn TAG)"] " > "] 5 (#$ . 4294)]) #@51 Fetch the innerHTML of a selector. (fn SELECTOR) (defalias 'skewer-html-fetch-selector #[257 "\300\301\302#\303!\203\304\305\"A\202\306\207" [skewer-eval-synchronously :type "fetchselector" skewer-success-p assoc value ""] 5 (#$ . 4567)]) #@88 Fetch the innerHTML of a selector and insert it into the active buffer. (fn SELECTOR) (defalias 'skewer-html-fetch-selector-into-buffer #[257 "\300!c\207" [skewer-html-fetch-selector] 3 (#$ . 4820) "sSelector: "]) #@89 Load HTML into a selector, optionally appending. (fn STRING ANCESTRY &optional APPEND) (defalias 'skewer-html-eval #[770 "\300\301\"\302\303\304\305\306\307B\310 BD&\207" [cl-coerce vector skewer-eval nil :type "html" :extra ancestry append] 13 (#$ . 5042)]) #@49 Load HTML from the immediately surrounding tag. (defalias 'skewer-html-eval-tag #[0 "\301 \212\302=?\205 \303\304!p`\305\306\307\310\311!\312\"\313$\216r\206\"q\210\2032\314!\210\211b\210\302 \210\315\316!\210`*\266\203\302=?\205D\303\304!p`\305\306\307\310\311!\317\"\313$\216r\206Yq\210\203i\314!\210\211b\210\302 \210\320\316!\210`*\266\203\321\"\322\"\210G\316U\203\207\323\324!\202\214\325\326#\266\203)\207" [major-mode skewer-html-compute-tag-ancestry html-mode generate-new-buffer " *skewer-html*" make-byte-code 0 "\300\205\301\300!\207" vconcat vector [kill-buffer] 2 insert-buffer-substring sgml-skip-tag-forward 1 [kill-buffer] sgml-skip-tag-backward buffer-substring-no-properties skewer-flash-region error "Error: cannot eval body and head tags." skewer-html-eval nil] 11 (#$ . 5314) nil]) #@29 Keymap for skewer-html-mode (defvar skewer-html-mode-map (byte-code "\300 \211\301\302\303#\210\207" [make-sparse-keymap define-key [134217752] skewer-html-eval-tag] 6) (#$ . 6155)) #@101 Non-nil if Skewer-Html mode is enabled. Use the command `skewer-html-mode' to change this variable. (defvar skewer-html-mode nil (#$ . 6345)) (make-variable-buffer-local 'skewer-html-mode) #@68 Minor mode for interactively loading new HTML. (fn &optional ARG) (defalias 'skewer-html-mode #[256 "\301 \302=\203 ?\202\303!\304V\305\306\203\307\202\310\"\210\311\312!\203B\301 \2032\211\301 \232\203B\313\314\315\203=\316\202>\317#\266\210\320 \210\207" [skewer-html-mode current-message toggle prefix-numeric-value 0 run-hooks skewer-html-mode-hook skewer-html-mode-on-hook skewer-html-mode-off-hook called-interactively-p any " in current buffer" message "Skewer-Html mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 6540) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar skewer-html-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\211%\210\311\312!\207" [skewer-html-mode-map skewer-html-mode-hook variable-documentation put "Hook run after entering or leaving `skewer-html-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode skewer-html-mode " skewer-html" nil provide skewer-html] 6)