| Server IP : 217.160.0.212 / Your IP : 216.73.217.46 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/obsolete/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(defvar html2text-format-single-element-list '(("hr" . html2text-clean-hr)))
#@344 The map of entity to text.
This is an alist were each element is a dotted pair consisting of an
old string, and a replacement string. This replacement is done by the
function `html2text-substitute' which basically performs a
`replace-string' operation for every element in the list. This is
completely verbatim - without any use of REGEXP.
(defvar html2text-replace-list '(("´" . "`") ("&" . "&") ("'" . "'") ("¦" . "|") ("¢" . "c") ("ˆ" . "^") ("©" . "(C)") ("¤" . "(#)") ("°" . "degree") ("÷" . "/") ("€" . "e") ("½" . "1/2") (">" . ">") ("¿" . "?") ("«" . "<<") ("&ldquo" . "\"") ("‹" . "(") ("‘" . "`") ("<" . "<") ("—" . "--") (" " . " ") ("–" . "-") ("‰" . "%%") ("±" . "+-") ("£" . "£") (""" . "\"") ("»" . ">>") ("&rdquo" . "\"") ("®" . "(R)") ("›" . ")") ("’" . "'") ("§" . "§") ("¹" . "^1") ("²" . "^2") ("³" . "^3") ("˜" . "~")) (#$ . 162))
#@577 A list of removable tags.
This is a list of tags which should be removed, without any
formatting. Note that tags in the list are presented *without*
any "<" or ">". All occurrences of a tag appearing in this
list are removed, irrespective of whether it is a closing or
opening tag, or if the tag has additional attributes. The
deletion is done by the function `html2text-remove-tags'.
For instance the text:
"Here comes something <font size"+3" face="Helvetica"> big </font>."
will be reduced to:
"Here comes something big."
If this list contains the element "font".
(defvar html2text-remove-tag-list '("html" "body" "p" "img" "dir" "head" "div" "br" "font" "title" "meta") (#$ . 1216))
#@472 An alist of tags and processing functions.
This is an alist where each dotted pair consists of a tag, and then
the name of a function to be called when this tag is found. The
function is called with the arguments p1, p2, p3 and p4. These are
demonstrated below:
"<b> This is bold text </b>"
^ ^ ^ ^
| | | |
p1 p2 p3 p4
Then the called function will typically format the text somewhat and
remove the tags.
(defvar html2text-format-tag-list '(("b" . html2text-clean-bold) ("strong" . html2text-clean-bold) ("u" . html2text-clean-underline) ("i" . html2text-clean-italic) ("em" . html2text-clean-italic) ("blockquote" . html2text-clean-blockquote) ("a" . html2text-clean-anchor) ("ul" . html2text-clean-ul) ("ol" . html2text-clean-ol) ("dl" . html2text-clean-dl) ("center" . html2text-clean-center)) (#$ . 1919))
#@201 Another list of removable tags.
This is a list of tags which are removed similarly to the list
`html2text-remove-tag-list' - but these tags are retained for the
formatting, and then moved afterward.
(defvar html2text-remove-tag-list2 '("li" "dt" "dd" "meta") (#$ . 2802))
#@99 Replace FROM-STRING with TO-STRING in region from MIN to MAX.
(fn FROM-STRING TO-STRING MIN MAX)
(defalias 'html2text-replace-string #[1028 "b\210\300!\300!Z\301\302\303#\203 \304!\210\211\\\262\202 \207" [string-width 0 search-forward t replace-match] 10 (#$ . 3081)])
#@56 Get value of ATTRIBUTE from LIST.
(fn LIST ATTRIBUTE)
(defalias 'html2text-attr-value #[514 "\300\"A@\207" [assoc] 5 (#$ . 3369)])
#@14
(fn P1 P2)
(defalias 'html2text-get-attr #[514 "b\210\300\301\302#\210\303\300\304\302#\203> \305\306!\307\310!\2056 \306\225b\210\311\303w\210\307\312!\204/ \307\313!\2056 \306\225b\210\305\306!DB\262\202\n \207" [re-search-forward "\\s-+" t nil "[-a-z0-9._]+" match-string 0 looking-at "\\s-*=" "[:space:]" "\"[^\"]*\"\\|'[^']*'" "[-a-z0-9._:]+"] 7 (#$ . 3509)])
#@24
(fn P1 P2 LIST-TYPE)
(defalias 'html2text-clean-list-items #[771 "b\210\300\211\301\302\303#\203 \211T\262\202 b\210W\205H T\262\301\302d\303#\210\304\230\2033 \305c\210\202 \306\230\203B \307\310\"c\210\202 \311c\210\202 \207" [0 search-forward "<li>" t "ul" " o " "ol" format " %s: " " x "] 9 (#$ . 3887)])
#@14
(fn P1 P2)
(defalias 'html2text-clean-dtdd #[514 "b\210\300\211\301\302\303#\203 T\262\202 b\210\211W\205w \211T\262\304\305d\303#\210\306\307!\2037 ``\310\306\307!!Z|\210`\300\304\311d\303#\210\306\307!\203c \310\306\307!!\310\306\312!!\\`Zb\210``\\|\210`\266\204\202l `\310\306\312!!Z\262\313\314\315$\266\202 \207" [0 search-forward "<dt>" t re-search-forward "<dt>\\([ ]*\\)" match-string 1 string-width "\\([ ]*\\)\\(</dt>\\|<dd>\\)" 2 put-text-property face bold] 12 (#$ . 4220)])
#@20
(fn P1 P2 P3 P4)
(defalias 'html2text-delete-tags #[1028 "|\210ZZZZ|\207" [] 8 (#$ . 4733)])
#@14
(fn P1 P2)
(defalias 'html2text-delete-single-tag #[514 "|\207" [] 4 (#$ . 4843)])
#@14
(fn P1 P2)
(defalias 'html2text-clean-hr #[514 "\301\"\210b\210\302\303!\210\304\305\"c\207" [fill-column html2text-delete-single-tag newline 1 make-string 45] 5 (#$ . 4936)])
#@20
(fn P1 P2 P3 P4)
(defalias 'html2text-clean-ul #[1028 "\300$\210\301ZZ\302#\207" [html2text-delete-tags html2text-clean-list-items "ul"] 9 (#$ . 5124)])
#@20
(fn P1 P2 P3 P4)
(defalias 'html2text-clean-ol #[1028 "\300$\210\301ZZ\302#\207" [html2text-delete-tags html2text-clean-list-items "ol"] 9 (#$ . 5295)])
#@20
(fn P1 P2 P3 P4)
(defalias 'html2text-clean-dl #[1028 "\300$\210\301ZZ\"\207" [html2text-delete-tags html2text-clean-dtdd] 9 (#$ . 5466)])
#@20
(fn P1 P2 P3 P4)
(defalias 'html2text-clean-center #[1028 "\300$\210\301ZZ\"\207" [html2text-delete-tags center-region] 9 (#$ . 5623)])
#@20
(fn P1 P2 P3 P4)
(defalias 'html2text-clean-bold #[1028 "\300\301\302$\210\303$\207" [put-text-property face bold html2text-delete-tags] 9 (#$ . 5776)])
#@20
(fn P1 P2 P3 P4)
(defalias 'html2text-clean-title #[1028 "\300\301\302$\210\303$\207" [put-text-property face bold html2text-delete-tags] 9 (#$ . 5943)])
#@20
(fn P1 P2 P3 P4)
(defalias 'html2text-clean-underline #[1028 "\300\301\302$\210\303$\207" [put-text-property face underline html2text-delete-tags] 9 (#$ . 6111)])
#@20
(fn P1 P2 P3 P4)
(defalias 'html2text-clean-italic #[1028 "\300\301\302$\210\303$\207" [put-text-property face italic html2text-delete-tags] 9 (#$ . 6288)])
#@20
(fn P1 P2 P3 P4)
(defalias 'html2text-clean-font #[1028 "\300$\207" [html2text-delete-tags] 9 (#$ . 6459)])
#@20
(fn P1 P2 P3 P4)
(defalias 'html2text-clean-blockquote #[1028 "\300$\207" [html2text-delete-tags] 9 (#$ . 6579)])
#@20
(fn P1 P2 P3 P4)
(defalias 'html2text-clean-anchor #[1028 "\300\"\301\302\"|\210\211\205+ b\210\303\304\"\203! \211\305\306O\202\" \211c\210\307`\310\311$\207" [html2text-get-attr html2text-attr-value "href" string-match "\\`['\"].*['\"]\\'" 1 -1 put-text-property face bold] 11 (#$ . 6705)])
#@14
(fn P1 P2)
(defalias 'html2text-fix-paragraph #[514 "b\210\300\211\301\302\303#\203< b\210\301\304\303#\203< \305 \210`\262b\210\306\304\303#\210\307y\210\300\210`\310\311\312`$\\\262\313\"\210\266\310\311\312$\207" [nil re-search-forward "<br>$" t ".+[^<][^b][^r][^>]$" beginning-of-line re-search-backward 1 html2text-replace-string "<br>" "" fill-region] 10 (#$ . 7015)])
#@149 This _tries_ to fix up the paragraphs - this is done in quite a ad-hook
fashion, quite close to pure guess-work. It does work in some cases though.
(defalias 'html2text-fix-paragraphs #[0 "eb\210\300\301\302\303#\203 \304\224\304\225|\210\202 eb\210m?\2056 `\305\306!\210\307`S\"\210\211b\210m\2042 \305\306!\210\210\202 \207" [re-search-forward "^<br>$" nil t 0 forward-paragraph 1 html2text-fix-paragraph] 4 (#$ . 7414) nil])
#@122 Removes the tags listed in the list `html2text-remove-tag-list'.
See the documentation for that variable.
(fn TAG-LIST)
(defalias 'html2text-remove-tags #[257 "\211\211\205% \211@eb\210\300\301\302\"d\303#\203 \304\224\304\225|\210\202\n A\266\202\202 \207" [re-search-forward format "\\(</?%s[^>]*>\\)" t 0] 7 (#$ . 7853) nil])
#@65 See the variable `html2text-format-tag-list' for documentation.
(defalias 'html2text-format-tags #[0 "\211\205_ \211@\211@Aeb\210\301\302\303\"d\304#\203V \305`\305\211\306\307e\304#\210`\262\310\302\311\"d\304#\204< b\210\302\311\"c\210`\262\306\312e\304#\210`\262$\210b\266\202 \266A\266\202\202 \207" [html2text-format-tag-list re-search-forward format "\\(<%s\\( [^>]*\\)?>\\)" t nil search-backward "<" search-forward "</%s>" "</"] 13 (#$ . 8193) nil])
#@62 See the variable `html2text-replace-list' for documentation.
(defalias 'html2text-substitute #[0 "\211\205 \211@eb\210\211@A\301ed$\266A\266\202\202 \207" [html2text-replace-list html2text-replace-string] 9 (#$ . 8679) nil])
(defalias 'html2text-format-single-elements #[0 "\211\2056 \211@\211@Aeb\210\301\302\303\"d\304#\203- \305`\306\307e\304#\210`\262\"\266\202 \266A\266\202\202 \207" [html2text-format-single-element-list re-search-forward format "\\(<%s\\( [^>]*\\)?>\\)" t nil search-backward "<"] 10 nil nil])
#@51 Convert HTML to plain text in the current buffer.
(defalias 'html2text #[0 "\212\304\305\306\n!\210\307 \210\306 !\210\310 \210\311 \210\312 +\207" [buffer-read-only case-fold-search html2text-remove-tag-list html2text-remove-tag-list2 t nil html2text-remove-tags html2text-format-tags html2text-substitute html2text-format-single-elements html2text-fix-paragraphs] 2 (#$ . 9224) nil])
(provide 'html2text)