63 lines
7.4 KiB
Plaintext
63 lines
7.4 KiB
Plaintext
|
;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\206 q\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\206 q\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\206 q\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\206 q\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\204h DB\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\206Y q\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)
|