-
Notifications
You must be signed in to change notification settings - Fork 0
/
htmlize.elc
263 lines (246 loc) · 55.9 KB
/
htmlize.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
;ELC
;;; Compiled by shant@ultraio on Sat Sep 27 19:36:32 2014
;;; from file /home/shant/.emacs.d/htmlize.el
;;; in Emacs version 24.3.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'cl)
(defconst htmlize-version "1.37")
(byte-code "\300\301\302\217\210\303\304!\203 \305\306!\204& \307\310\311\312B\"\210\307\313\311\314B\"\210\307\315\311\316B\"\210\317\320\300\321\322\323%\210\306\324\325\326\327\330\322\320&\210\306\331\332\333\327\334\322\320&\210\306\335\336\337\327\340\322\320&\210\306\341\342\343\327\330\322\320&\210\306\344\336\345\327\340\322\320&\210\306\346\300\347\327\350\322\320&\210\306\351\352\353\327\354\322\320&\210\306\355\356\357\327\360\322\320&\210\306\361\325\362\327\330\322\320&\210\306\363\336\364\327\340\322\320&\210\306\365\300\366\327\367\322\320&\207" [nil (byte-code "\300\301!\207" [require custom] 2) ((error)) featurep custom fboundp custom-declare-variable defalias defgroup macro #[(&rest ignored) "\300\207" [nil] 1] defcustom #[(var value doc &rest ignored) "\303 \nF\207" [var value doc defvar] 4] defface #[(face value doc &rest stuff) "\301D\207" [face make-face] 2] custom-declare-group htmlize "Convert buffer text and faces to HTML." :group hypermedia htmlize-head-tags "" "*Additional tags to insert within HEAD of the generated document." :type string htmlize-output-type 'css "*Output type of generated HTML, one of `css', `inline-css', or `font'.\nWhen set to `css' (the default), htmlize will generate a style sheet\nwith description of faces, and use it in the HTML document, specifying\nthe faces in the actual text with <span class=\"FACE\">.\n\nWhen set to `inline-css', the style will be generated as above, but\nplaced directly in the STYLE attribute of the span ELEMENT: <span\nstyle=\"STYLE\">. This makes it easier to paste the resulting HTML to\nother documents.\n\nWhen set to `font', the properties will be set using layout tags\n<font>, <b>, <i>, <u>, and <strike>.\n\n`css' output is normally preferred, but `font' is still useful for\nsupporting old, pre-CSS browsers, and both `inline-css' and `font' for\neasier embedding of colorized text in foreign HTML documents (no style\nsheet to carry around)." (choice (const css) (const inline-css) (const font)) htmlize-generate-hyperlinks t "*Non-nil means generate the hyperlinks for URLs and mail addresses.\nThis is on by default; set it to nil if you don't want htmlize to\ninsert hyperlinks in the resulting HTML. (In which case you can still\ndo your own hyperlinkification from htmlize-after-hook.)" boolean htmlize-hyperlink-style "\n a {\n color: inherit;\n background-color: inherit;\n font: inherit;\n text-decoration: inherit;\n }\n a:hover {\n text-decoration: underline;\n }\n" "*The CSS style used for hyperlinks when in CSS mode." htmlize-replace-form-feeds "*Non-nil means replace form feeds in source code with HTML separators.\nForm feeds are the ^L characters at line beginnings that are sometimes\nused to separate sections of source code. If this variable is set to\n`t', form feed characters are replaced with the <hr> separator. If this\nis a string, it specifies the replacement to use. Note that <pre> is\ntemporarily closed before the separator is inserted, so the default\nreplacement is effectively \"</pre><hr /><pre>\". If you specify\nanother replacement, don't forget to close and reopen the <pre> if you\nwant the output to remain valid HTML.\n\nIf you need more elaborate processing, set this to nil and use\nhtmlize-after-hook." htmlize-html-charset "*The charset declared by the resulting HTML documents.\nWhen non-nil, causes htmlize to insert the following in the HEAD section\nof the generated HTML:\n\n <meta http-equiv=\"Content-Type\" content=\"text/html; charset=CHARSET\">\n\nwhere CHARSET is the value you've set for htmlize-html-charset. Valid\ncharsets are defined by MIME and include strings like \"iso-8859-1\",\n\"iso-8859-15\", \"utf-8\", etc.\n\nIf you are using non-Latin-1 charsets, you might need to set this for\nyour documents to render correctly. Also, the W3C validator requires\nsubmitted HTML documents to declare a charset. So if you care about\nvalidation, you can use this to prevent the validator from bitching.\n\nNeedless to say, if you set this, you should actually make sure that\nthe buffer is in the encoding you're claiming it is in. (Under Mule\nthat is done by ensuring the correct \"file coding system\" for the\nbuffer.) If you don't understand what that means, this option is\nprobably not for you." (choice (const :tag "Unset" nil) string) htmlize-convert-nonascii-to-entities (featurep 'mule) "*Whether non-ASCII characters should be converted to HTML entities.\n\nWhen this is non-nil, characters with codes in the 128-255 range will be\nconsidered Latin 1 and rewritten as \"&#CODE;\". Characters with codes\nabove 255 will be converted to \"&#UCS;\", where UCS denotes the Unicode\ncode point of the character. If the code point cannot be determined,\nthe character will be copied unchanged, as would be the case if the\noption were nil.\n\nWhen the option is nil, the non-ASCII characters are copied to HTML\nwithout modification. In that case, the web server and/or the browser\nmust be set to understand the encoding that was used when saving the\nbuffer. (You might also want to specify it by setting\n`htmlize-html-charset'.)\n\nNote that in an HTML entity \"&#CODE;\", CODE is always a UCS code point,\nwhich has nothing to do with the charset the page is in. For example,\n\"©\" *always* refers to the copyright symbol, regardless of charset\nspecified by the META tag or the charset sent by the HTTP server. In\nother words, \"©\" is exactly equivalent to \"©\".\n\nBy default, entity conversion is turned on for Mule-enabled Emacsen and\nturned off otherwise. This is because Mule knows the charset of\nnon-ASCII characters in the buffer. A non-Mule Emacs cannot tell\nwhether a character with code 0xA9 represents Latin 1 copyright symbol,\nLatin 2 \"S with caron\", or something else altogether. Setting this to\nt without Mule means asserting that 128-255 characters always mean Latin\n1.\n\nFor most people htmlize will work fine with this option left at the\ndefault setting; don't change it unless you know what you're doing." sexp htmlize-ignore-face-size 'absolute "*Whether face size should be ignored when generating HTML.\nIf this is nil, face sizes are used. If set to t, sizes are ignored\nIf set to `absolute', only absolute size specifications are ignored.\nPlease note that font sizes only work with CSS-based output types." (choice (const :tag "Don't ignore" nil) (const :tag "Ignore all" t) (const :tag "Ignore absolute" absolute)) htmlize-css-name-prefix "*The prefix used for CSS names.\nThe CSS names that htmlize generates from face names are often too\ngeneric for CSS files; for example, `font-lock-type-face' is transformed\nto `type'. Use this variable to add a prefix to the generated names.\nThe string \"htmlize-\" is an example of a reasonable prefix." htmlize-use-rgb-txt "*Whether `rgb.txt' should be used to convert color names to RGB.\n\nThis conversion means determining, for instance, that the color\n\"IndianRed\" corresponds to the (205, 92, 92) RGB triple. `rgb.txt'\nis the X color database that maps hundreds of color names to such RGB\ntriples. When this variable is non-nil, `htmlize' uses `rgb.txt' to\nlook up color names.\n\nIf this variable is nil, htmlize queries Emacs for RGB components of\ncolors using `color-instance-rgb-components' and `x-color-values'.\nThis can yield incorrect results on non-true-color displays.\n\nIf the `rgb.txt' file is not found (which will be the case if you're\nrunning Emacs on non-X11 systems), this option is ignored." htmlize-html-major-mode "The mode the newly created HTML buffer will be put in.\nSet this to nil if you prefer the default (fundamental) mode." (radio (const :tag "No mode (fundamental)" nil) (function-item html-mode) (function :tag "User-defined major mode"))] 8)
#@118 Hook run before htmlizing a buffer.
The hook functions are run in the source buffer (not the resulting HTML
buffer).
(defvar htmlize-before-hook nil (#$ . 8415))
#@186 Hook run after htmlizing a buffer.
Unlike `htmlize-before-hook', these functions are run in the generated
HTML buffer. You may use them to modify the outlook of the final HTML
output.
(defvar htmlize-after-hook nil (#$ . 8584))
#@74 Hook run by `htmlize-file' after htmlizing a file, but before saving it.
(defvar htmlize-file-hook nil (#$ . 8819))
(defconst htmlize-running-xemacs (string-match "XEmacs" emacs-version))
(byte-code "\301\302!\204 \303\302\304\305B\"\210\301\306!\204 \303\306\304\307B\"\210\301\310!\204' \303\310\304\311B\"\210\2033 \303\312\313\"\210\202T \301\314!\203A \303\312\315\"\210\202T \301\316!\203O \303\312\317\"\210\202T \303\312\320\"\210\301\207" [htmlize-running-xemacs fboundp save-current-buffer defalias macro #[(&rest forms) "\301\302\303\304B\305BBE\207" [forms let ((__scb_current (current-buffer))) unwind-protect progn ((set-buffer __scb_current))] 5] with-current-buffer #[(buffer &rest forms) "\302\303D BB\207" [buffer forms save-current-buffer set-buffer] 3] with-temp-buffer #[(&rest forms) "\302\303!\304\305BC\306\307 BB\310\311D\312DEEE)\207" [temp-buffer forms gensym "tb-" let ((get-buffer-create (generate-new-buffer-name " *temp*"))) unwind-protect with-current-buffer and buffer-live-p kill-buffer] 8] htmlize-next-change #[(pos prop &optional limit) "\303 \304\n\206 d$\207" [pos prop limit next-single-property-change nil] 5] next-single-char-property-change #[(pos prop &optional limit) "\303 \304\n$\207" [pos prop limit next-single-char-property-change nil] 5] next-char-property-change #[(pos prop &optional limit) "\306\307 \"\306\211 \2042 \310\n\"\307 \" =\203% \311\202- \n\f=\204- \311 \202 ,\207" [pos prop next-value newpos current-value done nil get-char-property next-char-property-change t limit] 4] #[(pos prop &optional limit) "\204 d\304 \n\"\211\203 V\203 \202 )\207" [limit pos prop res next-single-property-change] 4]] 4)
(defvar htmlize-basic-character-table (byte-code "\306\307\310\"\307\310 \nW\2035 \f \311Y\203' \312X\203' \313 !\202+ \314\315 \"I\210* T\211\202\n *\211 \316\317I\210)\211 \320\321I\210)\211 \322\323I\210)\211 \324\325I\210)\211 \326\327I\210)\211 \330\331I\210))\207" [table i --dotimes-limit-- #:v #:v #:v make-vector 128 0 32 126 char-to-string format "&#%d;" 10 "\n" 13 "" 9 " " 38 "&" 60 "<" 62 ">" #:v #:v #:v #:v #:v] 6))
(defvar htmlize-extended-character-cache (make-hash-table :test 'eq))
#@67 HTML-protect string, escaping HTML metacharacters and I18N chars.
(defalias 'htmlize-protect-string #[(string) "\301\302\"\204 \207\303\304\305#\207" [string string-match "[^\n -%'-;=?-~]" mapconcat #[(char) "\306W\203\n H\207\307\n\"\206l \204\" \n \310\f\311!#*\207\312W\203: \n \310\313\314\"#*\207\315\316!\203\\ \316\317\"\203\\ \n \310\313\314\316\317\"\"#*\207 \n \310\311!#*\207" [char htmlize-basic-character-table htmlize-extended-character-cache htmlize-convert-nonascii-to-entities #1=#:v #2=#:v 128 gethash puthash char-to-string 256 format "&#%d;" fboundp encode-char ucs #3=#:v #4=#:v #5=#:v #6=#:v #7=#:v #8=#:v] 7] ""] 4 (#$ . 11066)])
(defconst htmlize-ellipsis "...")
(byte-code "\301\302G\300\303%\207" [htmlize-ellipsis put-text-property 0 t] 6)
(defalias 'htmlize-buffer-substring-no-invisible #[(beg end) "\306\211\211\211 \211 W\203\202 \307\303\"\310\303#<\204) ?\202c \306 9\203= \311 \312\313$\202D \314\315\215\210\306\204M \316\202a @\243\203` \n=\204` \202a \306)\n\316=\203s \317 \"\fB\202| \n;\203| \n\fB \211\202 \fG\320U\203\216 \f@\202\223 \321\322\f\237\"-\207" [beg next-change show invisible visible-list pos nil get-char-property htmlize-next-change member* :key #[(i) "9\203 \207@\207" [i] 1] --cl-block-nil-- (byte-code "\305\211\203# \n@\306 \307\310$\211 \203 \311\312\f\"\210)\nA\211\204 *\305\207" [invisible elem --dolist-tail-- buffer-invisibility-spec m nil member* :key #[(i) "9\203 \207@\207" [i] 1] throw --cl-block-nil--] 6) t buffer-substring-no-properties 1 apply concat end buffer-invisibility-spec match htmlize-ellipsis] 6])
(defalias 'htmlize-trim-ellipsis #[(text) "\302\303\301#\203 G\304O\207\207" [text htmlize-ellipsis get-text-property 0 nil] 4])
(defconst htmlize-tab-spaces (byte-code "\305\306\307\"\211G\310 \nW\203$ \f\311 \306\"I\210* T\211\202 *)\207" [v i --dotimes-limit-- #:v #:v make-vector 32 nil 0 make-string] 6))
#@52 Untabify TEXT, assuming it starts at START-COLUMN.
(defalias 'htmlize-untabify #[(text start-column) "\306\211\307\211\211 \310\311#\203W \306\224\nH\312=\203N \f\nO B\nZ\\\246Z H B \\\nT\202Q \306\nT\202 \204` \202u \fGW\203p \f\307O B\313\314 \237\".\207" [start-column tab-size match-pos chunks chunk-start last-match 0 nil string-match "[ \n]" 9 apply concat column text tab-width htmlize-tab-spaces] 6 (#$ . 13079)])
#@153 Replace every occurrence of '@' in STRING with @.
`htmlize-make-hyperlinks' uses this to spam-protect mailto links
without modifying their meaning.
(defalias 'htmlize-despam-address #[(string) "\301\302\"\203 \303\304\305\306$\202 \207" [string string-match "@" replace-match "@" nil t] 5 (#$ . 13557)])
#@26 Make hyperlinks in HTML.
(defalias 'htmlize-make-hyperlinks #[nil "eb\210\303\304\305\306#\203) \307\310!\307\311!\312\224\312\225|\210\313\314 !\315\314!\316\261\210*\202 eb\210\303\317\305\306#\205N \307\310!\307\311!\312\224\312\225|\210\320\n\315\316\261\210*\202, \207" [link-text address url re-search-forward "<\\(\\(mailto:\\)?\\([-=+_.a-zA-Z0-9]+@[-_.a-zA-Z0-9]+\\)\\)>" nil t match-string 3 1 0 "<<a href=\"mailto:" htmlize-despam-address "\">" "</a>>" "<\\(\\(URL:\\)?\\([a-zA-Z]+://[^;]+\\)\\)>" "<<a href=\""] 5 (#$ . 13881)])
(defalias 'htmlize-defang-local-variables #[nil "eb\210\300\301\302\303#\205 \304\305\302\303#\210\202 \207" [search-forward "Local Variables:" nil t replace-match "Local Variables:"] 4])
(byte-code "\300\301!\203 \302\303\301\"\210\202 \302\303\304\"\210\300\207" [fboundp locate-file defalias htmlize-locate-file #[(file path) "\300\301\215\207" [--cl-block-nil-- (byte-code "\304\211\203# \n@\305\306 \"!\203 \307\310\306 \"\"\210\nA\211\204 \304*\304\207" [path dir --dolist-tail-- file nil file-exists-p expand-file-name throw --cl-block-nil--] 6)] 2]] 3)
(defvar htmlize-x-library-search-path '("/usr/X11R6/lib/X11/" "/usr/X11R5/lib/X11/" "/usr/lib/X11R6/X11/" "/usr/lib/X11R5/X11/" "/usr/local/X11R6/lib/X11/" "/usr/local/X11R5/lib/X11/" "/usr/local/lib/X11R6/X11/" "/usr/local/lib/X11R5/X11/" "/usr/X11/lib/X11/" "/usr/lib/X11/" "/usr/local/lib/X11/" "/usr/X386/lib/X11/" "/usr/x386/lib/X11/" "/usr/XFree86/lib/X11/" "/usr/unsupported/lib/X11/" "/usr/athena/lib/X11/" "/usr/local/x11r5/lib/X11/" "/usr/lpp/Xamples/lib/X11/" "/usr/openwin/lib/X11/" "/usr/openwin/share/lib/X11/"))
#@324 Return a hash table mapping X color names to RGB values.
The keys in the hash table are X11 color names, and the values are the
#rrggbb RGB specifications, extracted from `rgb.txt'.
If RGB-FILE is nil, the function will try hard to find a suitable file
in the system directories.
If no rgb.txt file is found, return nil.
(defalias 'htmlize-get-color-rgb-hash #[(&optional rgb-file) "\206 \306\307 \"\310\211\203f \311\312!r q\210\313\216\314!\210\315\316\317\"m\204e \320\321!\204_ \320\322!\203T \323\324!\227 \n \325\f\326\327\330\323\331!!\330\323\332!!\330\323\333!!$#\210*\202_ \334\335`\310\210`{#\210\331y\210\202\" +\n*\207" [rgb-file htmlize-x-library-search-path hash #1=#:temp-buffer #2=#:v #3=#:v htmlize-locate-file "rgb.txt" nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents make-hash-table :test equal looking-at "^\\s-*\\([!#]\\|$\\)" "[ ]*\\([0-9]+\\)[ ]+\\([0-9]+\\)[ ]+\\([0-9]+\\)[ ]+\\(.*\\)" match-string 4 puthash format "#%02x%02x%02x" string-to-number 1 2 3 error "Unrecognized line in %s: %s"] 10 (#$ . 15564)])
(defvar htmlize-color-rgb-hash (htmlize-get-color-rgb-hash))
(defalias 'htmlize-face-specifies-property #[(face prop) "\302=\206 \303\304\305 \"!\236\207" [face prop default global specifier-spec-list face-property] 5])
(defalias 'htmlize-face-color-internal #[(face fg) "\203 \305\202 \306\307 \310Y\203 \f\307\311#\202A \f!\211\204A \312\313!\203A \313\f\314\"\203A \313\f\314\"\315=\204A \316\313\f\314\"\"\f\317=\203Y \n\204Y \203S \320\202T \321\322 \236A\n\315=\204k \n\323\232\204k \n\324\232\203m \307\f\317=\203\201 \n\204\201 \203 \325\202\200 \326\n*\207" [fg function color emacs-major-version face face-foreground face-background nil 22 t fboundp face-attribute :inherit unspecified htmlize-face-color-internal default foreground-color background-color frame-parameters "unspecified-fg" "unspecified-bg" "black" "white"] 5])
(defalias 'htmlize-face-foreground #[(face) "\203 \302 \303\"\205 \304\305 !!\207\306 \307\"\207" [htmlize-running-xemacs face htmlize-face-specifies-property foreground color-instance-name face-foreground-instance htmlize-face-color-internal t] 3])
(defalias 'htmlize-face-background #[(face) "\203 \302 \303\"\205 \304\305 !!\207\306 \307\"\207" [htmlize-running-xemacs face htmlize-face-specifies-property background color-instance-name face-background-instance htmlize-face-color-internal nil] 3])
(defalias 'htmlize-color-to-rgb #[(color) "\306 \203D \307\310 \"\203 \202D \n\203# \203# \311 \227 \"\202D \f\2032 \312\313\314\315 !!\"\2028 \312\316\317 !\"\211 \203C \320\321\322#)\206I )\207" [rgb-string color htmlize-use-rgb-txt htmlize-color-rgb-hash htmlize-running-xemacs rgb nil string-match "\\`#" gethash mapcar #[(arg) "\301\245\207" [arg 256] 2] color-instance-rgb-components make-color-instance #[(arg) "\301\245\207" [arg 256] 2] x-color-values apply format "#%02x%02x%02x"] 6])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put htmlize-fstruct-foreground compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block htmlize-fstruct-foreground (or (and (vectorp cl-x) (>= (length cl-x) 10) (memq (aref cl-x 0) cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" 'htmlize-fstruct-foreground 'htmlize-fstruct)) (aref cl-x 1)) nil] 7] "/home/shant/.emacs.d/htmlize.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'htmlize-fstruct-foreground #[(cl-x) "\302!\203 G\303Y\203 \304H >\204 \305\306\307\310#\210\311H\207" [cl-x cl-struct-htmlize-fstruct-tags vectorp 10 0 error "%s accessing a non-%s" htmlize-fstruct-foreground htmlize-fstruct 1] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put htmlize-fstruct-background compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block htmlize-fstruct-background (or (and (vectorp cl-x) (>= (length cl-x) 10) (memq (aref cl-x 0) cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" 'htmlize-fstruct-background 'htmlize-fstruct)) (aref cl-x 2)) nil] 7] "/home/shant/.emacs.d/htmlize.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'htmlize-fstruct-background #[(cl-x) "\302!\203 G\303Y\203 \304H >\204 \305\306\307\310#\210\311H\207" [cl-x cl-struct-htmlize-fstruct-tags vectorp 10 0 error "%s accessing a non-%s" htmlize-fstruct-background htmlize-fstruct 2] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put htmlize-fstruct-size compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block htmlize-fstruct-size (or (and (vectorp cl-x) (>= (length cl-x) 10) (memq (aref cl-x 0) cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" 'htmlize-fstruct-size 'htmlize-fstruct)) (aref cl-x 3)) nil] 7] "/home/shant/.emacs.d/htmlize.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'htmlize-fstruct-size #[(cl-x) "\302!\203 G\303Y\203 \304H >\204 \305\306\307\310#\210\311H\207" [cl-x cl-struct-htmlize-fstruct-tags vectorp 10 0 error "%s accessing a non-%s" htmlize-fstruct-size htmlize-fstruct 3] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put htmlize-fstruct-boldp compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block htmlize-fstruct-boldp (or (and (vectorp cl-x) (>= (length cl-x) 10) (memq (aref cl-x 0) cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" 'htmlize-fstruct-boldp 'htmlize-fstruct)) (aref cl-x 4)) nil] 7] "/home/shant/.emacs.d/htmlize.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'htmlize-fstruct-boldp #[(cl-x) "\302!\203 G\303Y\203 \304H >\204 \305\306\307\310#\210\311H\207" [cl-x cl-struct-htmlize-fstruct-tags vectorp 10 0 error "%s accessing a non-%s" htmlize-fstruct-boldp htmlize-fstruct 4] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put htmlize-fstruct-italicp compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block htmlize-fstruct-italicp (or (and (vectorp cl-x) (>= (length cl-x) 10) (memq (aref cl-x 0) cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" 'htmlize-fstruct-italicp 'htmlize-fstruct)) (aref cl-x 5)) nil] 7] "/home/shant/.emacs.d/htmlize.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'htmlize-fstruct-italicp #[(cl-x) "\302!\203 G\303Y\203 \304H >\204 \305\306\307\310#\210\311H\207" [cl-x cl-struct-htmlize-fstruct-tags vectorp 10 0 error "%s accessing a non-%s" htmlize-fstruct-italicp htmlize-fstruct 5] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put htmlize-fstruct-underlinep compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block htmlize-fstruct-underlinep (or (and (vectorp cl-x) (>= (length cl-x) 10) (memq (aref cl-x 0) cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" 'htmlize-fstruct-underlinep 'htmlize-fstruct)) (aref cl-x 6)) nil] 7] "/home/shant/.emacs.d/htmlize.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'htmlize-fstruct-underlinep #[(cl-x) "\302!\203 G\303Y\203 \304H >\204 \305\306\307\310#\210\311H\207" [cl-x cl-struct-htmlize-fstruct-tags vectorp 10 0 error "%s accessing a non-%s" htmlize-fstruct-underlinep htmlize-fstruct 6] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put htmlize-fstruct-overlinep compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block htmlize-fstruct-overlinep (or (and (vectorp cl-x) (>= (length cl-x) 10) (memq (aref cl-x 0) cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" 'htmlize-fstruct-overlinep 'htmlize-fstruct)) (aref cl-x 7)) nil] 7] "/home/shant/.emacs.d/htmlize.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'htmlize-fstruct-overlinep #[(cl-x) "\302!\203 G\303Y\203 \304H >\204 \305\306\307\310#\210\311H\207" [cl-x cl-struct-htmlize-fstruct-tags vectorp 10 0 error "%s accessing a non-%s" htmlize-fstruct-overlinep htmlize-fstruct 7] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put htmlize-fstruct-strikep compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block htmlize-fstruct-strikep (or (and (vectorp cl-x) (>= (length cl-x) 10) (memq (aref cl-x 0) cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" 'htmlize-fstruct-strikep 'htmlize-fstruct)) (aref cl-x 8)) nil] 7] "/home/shant/.emacs.d/htmlize.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'htmlize-fstruct-strikep #[(cl-x) "\302!\203 G\303Y\203 \304H >\204 \305\306\307\310#\210\311H\207" [cl-x cl-struct-htmlize-fstruct-tags vectorp 10 0 error "%s accessing a non-%s" htmlize-fstruct-strikep htmlize-fstruct 8] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put htmlize-fstruct-css-name compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block htmlize-fstruct-css-name (or (and (vectorp cl-x) (>= (length cl-x) 10) (memq (aref cl-x 0) cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" 'htmlize-fstruct-css-name 'htmlize-fstruct)) (aref cl-x 9)) nil] 7] "/home/shant/.emacs.d/htmlize.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'htmlize-fstruct-css-name #[(cl-x) "\302!\203 G\303Y\203 \304H >\204 \305\306\307\310#\210\311H\207" [cl-x cl-struct-htmlize-fstruct-tags vectorp 10 0 error "%s accessing a non-%s" htmlize-fstruct-css-name htmlize-fstruct 9] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put htmlize-fstruct-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block htmlize-fstruct-p (and (vectorp cl-x) (>= (length cl-x) 10) (memq (aref cl-x 0) cl-struct-htmlize-fstruct-tags) t)) nil] 7] "/home/shant/.emacs.d/htmlize.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'htmlize-fstruct-p #[(cl-x) "\302!\205 G\303Y\205 \304H >\205 \305\207" [cl-x cl-struct-htmlize-fstruct-tags vectorp 10 0 t] 2])
(defalias 'copy-htmlize-fstruct #[(x) "\301!\207" [x copy-sequence] 2])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put make-htmlize-fstruct compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \312>A@ \313>A@ \314>A@ \315>A@ \316>A@ \203m @\317>\203T AA\211\202? \320>A@\203c \321\211\202? \322\323@\"\210\202= )\324\325\326\321 \321 \n \f&. \207" [#1# foreground background size boldp italicp :foreground :background :size :boldp :italicp :underlinep :overlinep :strikep :css-name (:foreground :background :size :boldp :italicp :underlinep :overlinep :strikep :css-name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:foreground :background :size :boldp :italicp :underlinep :overlinep :strikep :css-name)" cl--defsubst-expand (foreground background size boldp italicp underlinep overlinep strikep css-name) (cl-block make-htmlize-fstruct (vector 'cl-struct-htmlize-fstruct foreground background size boldp italicp underlinep overlinep strikep css-name)) underlinep overlinep strikep css-name #:--cl-keys-- cl-whole] 16 "\n\n(fn CL-WHOLE &cl-quote &key FOREGROUND BACKGROUND SIZE BOLDP ITALICP UNDERLINEP OVERLINEP STRIKEP CSS-NAME)"] "/home/shant/.emacs.d/htmlize.el" compiler-macro-file purecopy file-name-nondirectory] 6)
#@92
(fn &key FOREGROUND BACKGROUND SIZE BOLDP ITALICP UNDERLINEP OVERLINEP STRIKEP CSS-NAME)
(defalias 'make-htmlize-fstruct #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \312>A@ \313>A@ \314>A@ \315>A@ \316>A@ \203m @\317>\203T AA\211\202? \320>A@\203c \321\211\202? \322\323@\"\210\202= )\324\325 \n \f&\n. \207" [#1# foreground background size boldp italicp :foreground :background :size :boldp :italicp :underlinep :overlinep :strikep :css-name (:foreground :background :size :boldp :italicp :underlinep :overlinep :strikep :css-name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:foreground :background :size :boldp :italicp :underlinep :overlinep :strikep :css-name)" vector cl-struct-htmlize-fstruct underlinep overlinep strikep css-name #2=#:--cl-keys--] 12 (#$ . 27597)])
(byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\313#\210\302\314\315\313#\210\302\316\315\313#\210\302\317\315\320#\210\302\321\315\313#\210\302\322\315\313#\210\302\323\315\313#\210\302\324\315\313#\210\302\325\315\313#\210\302\326\315\313#\210\302\327\315\313#\210\302\330\315\313#\210\302\331\315\313#\207" [cl-struct-htmlize-fstruct-tags cl-struct-htmlize-fstruct put htmlize-fstruct cl-struct-slots ((cl-tag-slot) (foreground) (background) (size) (boldp) (italicp) (underlinep) (overlinep) (strikep) (css-name)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t make-htmlize-fstruct side-effect-free copy-htmlize-fstruct htmlize-fstruct-p error-free htmlize-fstruct-css-name htmlize-fstruct-strikep htmlize-fstruct-overlinep htmlize-fstruct-underlinep htmlize-fstruct-italicp htmlize-fstruct-boldp htmlize-fstruct-size htmlize-fstruct-background htmlize-fstruct-foreground] 4)
(defalias 'htmlize-face-emacs21-attr #[(fstruct attr value) "\306\307\"\203, \310 !\203 G\311Y\203 \312H\n>\204\" \313\314\315\316#\210 \211\317\320\f!I)\207\306\321\"\203X \310 !\203H G\311Y\203H \312H\n>\204N \313\314\322\316#\210 \211 \323\320\f!I)\207\306\324\"\203\203 \310 !\203t G\311Y\203t \312H\n>\204z \313\314\325\316#\210 \211 .\326\fI)\207\306\327\"\203\267 \330\331\f!\332\"\205\300\310 !\203\250 G\311Y\203\250 \312H\n>\204\256 \313\314\333\316#\210 \211 /\334\335I)\207\306\336\"\203\352 \310 !\203\323 G\311Y\203\323 \312H\n>\204\331 \313\314\337\316#\210 \211 0\340\f\341=\206\347 \f\342=I)\207\306\343\"\203\310 !\203 G\311Y\203 \312H\n>\204\f\313\314\333\316#\210 \211 1\334\fI)\207\306\344\"\203@\310 !\2031 G\311Y\2031 \312H\n>\2047\313\314\337\316#\210 \211 2\340\fI)\207\306\345\"\203k\310 !\203\\ G\311Y\203\\ \312H\n>\204b\313\314\346\316#\210 \211 3\347\fI)\207\306\350\"\203\226\310 !\203\207 G\311Y\203\207 \312H\n>\204\215\313\314\351\316#\210 \211 4\352\fI)\207\306\353\"\205\300\310 !\203\262 G\311Y\203\262 \312H\n>\204\270\313\314\354\316#\210 \211 5\355\fI)\207" [attr fstruct cl-struct-htmlize-fstruct-tags #1=#:v value #2=#:v eql :foreground vectorp 10 0 error "%s accessing a non-%s" htmlize-fstruct-foreground htmlize-fstruct 1 htmlize-color-to-rgb :background htmlize-fstruct-background 2 :height htmlize-fstruct-size 3 :weight string-match symbol-name "bold" htmlize-fstruct-boldp 4 t :slant htmlize-fstruct-italicp 5 italic oblique :bold :italic :underline htmlize-fstruct-underlinep 6 :overline htmlize-fstruct-overlinep 7 :strike-through htmlize-fstruct-strikep 8 #3=#:v #4=#:v #5=#:v #6=#:v #7=#:v #8=#:v #9=#:v #10=#:v] 5])
(defalias 'htmlize-face-size #[(face) "\306\211\306\307\211\203 \f\202 \310\311\"\211\2035 \312=\2045 \310\313\"\211\312=?\205, \nB\306\211\202 \n\237, \314\315\306B\")\207" [f h #1=#:--cl-var-- #2=#:--cl-var-- face size-list nil t face-attribute :inherit unspecified :height reduce htmlize-merge-size] 5])
#@37 Convert Emacs face FACE to fstruct.
(defalias 'htmlize-face-to-fstruct #[(face) "\306\307\310\311!!\312\310\313!!$\n\203\320 \314!\315 ! \316\317\f\236A\320\"\203I \321 !\203: G\322Y\203: \323H>\204@ \324\325\326\327#\210 \211 @\330\331I\210)\316\332\f\236A\333\"\204] \316\332\f\236A\334\"\203\201 \321 !\203r G\322Y\203r \323H>\204x \324\325\335\327#\210 \211 A\336\331I\210)\321 !\203\226 G\322Y\203\226 \323H>\204\234 \324\325\337\327#\210 \211 B\340\341!I\210)\321 !\203\274 G\322Y\203\274 \323H>\204\302 \324\325\342\327#\210 \211 C\343\344!I\210+\202\355\345\346!\203o\347\350 D\211 E\2038E@DF\351Y\203\366 \346D\350\331$\202\346D\"\352=\203\346\353\"\352=\204\346\353\"\202\370 \346D\")\211 G\203.G\352=\204.\354 DG#\210)EA\211E\204\340 *\355! H\356H\357\"\204k\321 !\203[ G\322Y\203[ \323H>\204a\324\325\360\327#\210 \211 I\361HI\210))\202\355\345\362!\203\233\321 !\203\212 G\322Y\203\212 \323H>\204\220\324\325\326\327#\210 \211 J\330\362!I\210)\345\363!\203\307\321 !\203\266 G\322Y\203\266 \323H>\204\274\324\325\335\327#\210 \211 K\336\363!I\210)\321 !\203\334 G\322Y\203\334 \323H>\204\342\324\325\342\327#\210 \211 L\343\344!I\210)\321 !\203 G\322Y\203 \323H>\204\324\325\364\327#\210 \211 M\365\366!\227 N\367\370N\"\203$\371\372\331\211N$N\367\373N\"\2035\371\372\331\211N$N\367\374N\"\203I\371\375\331\211N$N\2025\367\376N\"\203W\375NPNN\372\232\203a\377NONP\211N)I\210) )\207" [face fstruct htmlize-running-xemacs font-instance props cl-struct-htmlize-fstruct-tags make-htmlize-fstruct :foreground htmlize-color-to-rgb htmlize-face-foreground :background htmlize-face-background face-font-instance font-instance-properties equalp WEIGHT_NAME "bold" vectorp 10 0 error "%s accessing a non-%s" htmlize-fstruct-boldp htmlize-fstruct 4 t SLANT "i" "o" htmlize-fstruct-italicp 5 htmlize-fstruct-strikep 8 face-strikethru-p htmlize-fstruct-underlinep 6 face-underline-p fboundp face-attribute (:weight :slant :underline :overline :strike-through) nil 22 unspecified :inherit htmlize-face-emacs21-attr htmlize-face-size eql 1.0 htmlize-fstruct-size 3 face-bold-p face-italic-p htmlize-fstruct-css-name 9 symbol-name string-match "\\`font-lock-" replace-match "" "-face\\'" "[^-a-zA-Z0-9]" "X" "\\`[-0-9]" "face" #1=#:v #2=#:v #3=#:v #4=#:v attr --dolist-tail-- emacs-major-version value size #5=#:v #6=#:v #7=#:v #8=#:v #9=#:v name htmlize-css-name-prefix] 8 (#$ . 31454)])
(defalias 'htmlize-copy-attr-if-set '(macro . #[(attr-list dest source) "\306\307\211\307 :\2030 @\310\311\312\n\"!\313 D\314 D DEE\fB A\211\202\n \f\237,B\207" [attr-list #1=#:--cl-var-- attr attr-sym #2=#:--cl-var-- source progn nil intern format "htmlize-fstruct-%s" and setf dest] 8]))
(defalias 'htmlize-merge-size #[(merged next) "\204 \207 \250\203 \207 \204 \207\302!\203 _\207\250\205' \303 _!\207" [merged next floatp round] 3])
(defalias 'htmlize-merge-two-faces #[(merged next) "\306!\203 G\307Y\203 \310H >\204 \311\312\313\314#\210\315H\203a \306\n!\2036 \nG\307Y\2036 \n\310H >\204< \311\312\313\314#\210\n\211\315\306!\203U G\307Y\203U \310H >\204[ \311\312\313\314#\210\315HI\210)\306!\203v G\307Y\203v \310H >\204| \311\312\316\314#\210\317H\203\302 \306\n!\203\227 \nG\307Y\203\227 \n\310H >\204\235 \311\312\316\314#\210\n\211 \317\306!\203\266 G\307Y\203\266 \310H >\204\274 \311\312\316\314#\210\317HI\210)\306!\203\327 G\307Y\203\327 \310H >\204\335 \311\312\320\314#\210\321H\203#\306\n!\203\370 \nG\307Y\203\370 \n\310H >\204\376 \311\312\320\314#\210\n\211 \321\306!\203G\307Y\203\310H >\204 \311\312\320\314#\210\321HI\210)\306!\2038G\307Y\2038\310H >\204>\311\312\322\314#\210\323H\203\205\306\n!\203Y\nG\307Y\203Y\n\310H >\204_\311\312\322\314#\210\n\211 \323\306!\203yG\307Y\203y\310H >\204\311\312\322\314#\210\323HI\210)\306!\203\232G\307Y\203\232\310H >\204\240\311\312\324\314#\210\325H\203\347\306\n!\203\273\nG\307Y\203\273\n\310H >\204\301\311\312\324\314#\210\n\211 \325\306!\203\333G\307Y\203\333\310H >\204\341\311\312\324\314#\210\325HI\210)\306!\203\374G\307Y\203\374\310H >\204\311\312\326\314#\210\327H\203I\306\n!\203 \nG\307Y\203 \n\310H >\204#\311\312\326\314#\210\n\211 \327\306!\203=G\307Y\203=\310H >\204C\311\312\326\314#\210\327HI\210)\306!\203^G\307Y\203^\310H >\204d\311\312\330\314#\210\331H\203\253\306\n!\203\nG\307Y\203\n\310H >\204\205\311\312\330\314#\210\n\211 \331\306!\203\237G\307Y\203\237\310H >\204\245\311\312\330\314#\210\331HI\210)\306\n!\203\300\nG\307Y\203\300\n\310H >\204\306\311\312\332\314#\210\n\211 !\333\334\306\n!\203\341\nG\307Y\203\341\n\310H >\204\347\311\312\332\314#\210\n\333H\306!\203\377G\307Y\203\377\310H >\204\311\312\332\314#\210\333H\"I\210)\n\207" [next cl-struct-htmlize-fstruct-tags merged #1=#:v #2=#:v #3=#:v vectorp 10 0 error "%s accessing a non-%s" htmlize-fstruct-foreground htmlize-fstruct 1 htmlize-fstruct-background 2 htmlize-fstruct-boldp 4 htmlize-fstruct-italicp 5 htmlize-fstruct-underlinep 6 htmlize-fstruct-overlinep 7 htmlize-fstruct-strikep 8 htmlize-fstruct-size 3 htmlize-merge-size #4=#:v #5=#:v #6=#:v #7=#:v #8=#:v] 9])
(defalias 'htmlize-merge-faces #[(fstruct-list) "\204 \301\302\303\211\211\211\211\211\211\211\211&\n\207A\204 @\207\304\305\301\302\303\211\211\211\211\211\211\211\211&\nB\"\207" [fstruct-list vector cl-struct-htmlize-fstruct nil reduce htmlize-merge-two-faces] 13])
(defalias 'htmlize-attrlist-to-fstruct #[(attrlist) "\306\307\310\211\211\211\211\211\211\211\211&\n @\311=\203> \312!\203* G\313Y\203* \314H\n>\2040 \315\316\317\320#\210\211\321\322 A!I\210)\202\224 @\323=\203n \312!\203Z G\313Y\203Z \314H\n>\204` \315\316\324\320#\210\211 \325\322 A!I\210)\202\224 \203\224 \211A@ \211A@ \203\220 \326=\204\220 \327#\210*\202n \312!\203\251 G\313Y\203\251 \314H\n>\204\257 \315\316\330\320#\210\211 \331\332I\210))\207" [fstruct attrlist cl-struct-htmlize-fstruct-tags #1=#:v #2=#:v value vector cl-struct-htmlize-fstruct nil foreground-color vectorp 10 0 error "%s accessing a non-%s" htmlize-fstruct-foreground htmlize-fstruct 1 htmlize-color-to-rgb background-color htmlize-fstruct-background 2 unspecified htmlize-face-emacs21-attr htmlize-fstruct-css-name 9 "ATTRLIST" attr #3=#:v] 12])
#@64 Return non-nil if FACE-PROP is a list of faces, nil otherwise.
(defalias 'htmlize-face-list-p #[(face-prop) "\302=\203 \303\2079\203 \302\207:\204 \302\207@\2119\2051 \304=\2061 \305=\2061 \306 !\307H\310=)?\207" [face-prop car nil t foreground-color background-color symbol-name 0 58] 3 (#$ . 37878)])
(defalias 'htmlize-make-face-map #[(faces) "\306\307\310\"\311\n\311\211 \203\261 \f@\312 \"\204\252 9\203$ \313 !\202' \314 ! \315#\210*\316!\203M G\317Y\203M \320H>\204S \321\322\323\324#\210\325H\211 \320 \235\203v \326\327 T\211 #\211 \202` \232\204\244 \316!\203\224 G\317Y\203\224 \320H>\204\232 \321\322\323\324#\210\211 \325 I\210) B,\fA\211\204 * *\207" [css-names face-map faces face --dolist-tail-- fstruct make-hash-table :test equal nil gethash htmlize-face-to-fstruct htmlize-attrlist-to-fstruct puthash vectorp 10 0 error "%s accessing a non-%s" htmlize-fstruct-css-name htmlize-fstruct 9 format "%s-%s" #1=#:v #2=#:v cl-struct-htmlize-fstruct-tags css-name new-name i #3=#:v] 6])
#@73 If FACE is a string, return it interned, otherwise return it unchanged.
(defalias 'htmlize-unstringify-face #[(face) ";\203 \301!\207\207" [face intern] 2 (#$ . 38945)])
#@315 Return a list of faces used in the current buffer.
Under XEmacs, this returns the set of faces specified by the extents
with the `face' property. (This covers text properties as well.) Under
GNU Emacs, it returns the set of faces specified by the `face' text
property and by buffer overlays that specify `face'.
(defalias 'htmlize-faces-in-buffer #[nil "\306 \203 \306\307\310\306ed\306\211\311&\210)\202\216 e\306\211\211 dW\203R \312\f\311\"\313\f\311\"\2060 d\314\n!\203C \315\316\317\n\"\320\321$\202K \322\317\n!\320\321$ \211\202 +\323ed\"\306 \211 \203\215 @\324\311\"\314\n!\203z \315\316\317\n\"\320\321$\202\202 \322\317\n!\320\321$)A\211\204_ *)\207" [faces htmlize-running-xemacs face-prop next pos overlay nil map-extents #[(extent ignored) "\303!\211<\203 \304 \n\"\202 \305 \n\"\203 \n\202 \nB\306\207" [extent face-prop faces extent-face union memql nil] 4] face get-text-property next-single-property-change htmlize-face-list-p nunion mapcar htmlize-unstringify-face :test equal adjoin overlays-in overlay-get --dolist-tail--] 9 (#$ . 39126)])
(byte-code "\203\f \301\302\303\"\210\202 \301\302\304\"\210\301\207" [htmlize-running-xemacs defalias htmlize-faces-at-point #[nil "\305\211\211\211\306`\305\307 $\211\203 \nB\202 \310\n\311\312\313$\211\305\211 \203G \f@\314 !\211<\203< \315 \"\202? B\fA\211\204) * \237,\207" [face-prop face-list extent-list extent --dolist-tail-- nil extent-at face stable-sort < :key extent-priority extent-face append] 6] #[nil "\306\307`\310\"\311 !\203 \312\313 \"\237\202 \313 !C)\314\315\316`!\"\306\211\317 \320\321\322$\323 \320\321\324$\211\306 \211 \203a @\325\f\310\"\311 !\203T \312\313 \"\237\n\244\202Y \313 !\nBA\211\204< *\n\244+)\207" [all-faces face-prop list overlays overlay --dolist-tail-- nil get-text-property face htmlize-face-list-p mapcar htmlize-unstringify-face delete-if-not #[(o) "\301\302\"\207" [o overlay-get face] 3] overlays-at sort* < :key #[(o) "\301!\302!Z\207" [o overlay-end overlay-start] 3] stable-sort #[(o) "\301\302\"\206 \303\207" [o overlay-get priority 0] 3] overlay-get] 6]] 3)
(defalias 'htmlize-method '(macro . #[(method &rest args) "\302\303\304DD BB\207" [method args funcall htmlize-method-function quote] 4]))
(defalias 'htmlize-method-function #[(method) "\304\305\306 #!\307\310\n!\203 \n\202' \304\311\312 !P!\310 !\203% \202& \313)!)\207" [htmlize-output-type method sym default intern format "htmlize-%s-%s" indirect-function fboundp "htmlize-default-" symbol-name ignore] 5])
(defvar htmlize-memoization-table (make-hash-table :test 'equal))
#@225 Return the value of GENERATOR, memoized as KEY.
That means that GENERATOR will be evaluated and returned the first time
it's called with the same value of KEY. All other times, the cached
(memoized) value will be returned.
(defalias 'htmlize-memoize '(macro . #[(key generator) "\303 \304\305 \306BBDC\307\310\nE\311\305 \312BBEFF)\207" [value key generator gensym let gethash (htmlize-memoization-table) unless setq setf (htmlize-memoization-table)] 9 (#$ . 41773)]))
#@52 <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
(defalias 'htmlize-default-doctype #[nil "\300\207" ["<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01//EN\">"] 1 (#$ . 42255)])
#@8 <body>
(defalias 'htmlize-default-body-tag #[(face-map) "\300\207" ["<body>"] 1 (#$ . 42437)])
(defalias 'htmlize-css-specs #[(fstruct) "\305\306 !\203 G\307Y\203 \310H\n>\204 \311\312\313\314#\210 \315H\203G \316\317\306 !\203: G\307Y\203: \310H\n>\204@ \311\312\313\314#\210 \315H\"B\306 !\203\\ G\307Y\203\\ \310H\n>\204b \311\312\320\314#\210 \321H\203\214 \316\322\306 !\203 G\307Y\203 \310H\n>\204\205 \311\312\320\314#\210 \321H\"B\306 !\203\241 G\307Y\203\241 \310H\n>\204\247 \311\312\323\314#\210 \324H\211\203\326 \f\325=\204\326 \326 !\203\307 \316\327 \330_\"B\202\326 \f\331=\204\326 \316\332 \333\245\"B)\306 !\203\354 G\307Y\203\354 \310H\n>\204\362 \311\312\334\314#\210 \335H\203\374 \336B\306 !\203 G\307Y\203 \310H\n>\204\311\312\337\314#\210 \340H\203!\341B\306 !\2036 G\307Y\2036 \310H\n>\204<\311\312\342\314#\210 \343H\203F\344B\306 !\203[ G\307Y\203[ \310H\n>\204a\311\312\345\314#\210 \346H\203k\347B\306 !\203\200 G\307Y\203\200 \310H\n>\204\206\311\312\350\314#\210 \351H\203\220\352B\237)\207" [result fstruct cl-struct-htmlize-fstruct-tags size htmlize-ignore-face-size nil vectorp 10 0 error "%s accessing a non-%s" htmlize-fstruct-foreground htmlize-fstruct 1 format "color: %s;" htmlize-fstruct-background 2 "background-color: %s;" htmlize-fstruct-size 3 t floatp "font-size: %d%%;" 100 absolute "font-size: %spt;" 10.0 htmlize-fstruct-boldp 4 "font-weight: bold;" htmlize-fstruct-italicp 5 "font-style: italic;" htmlize-fstruct-underlinep 6 "text-decoration: underline;" htmlize-fstruct-overlinep 7 "text-decoration: overline;" htmlize-fstruct-strikep 8 "text-decoration: line-through;"] 7])
(defalias 'htmlize-css-insert-head #[(buffer-faces face-map) "\306c\210\307\310\311\312\313\314\"!\315#\316\261\210\317\320 !\321\322\323$\324\211\203\236 @\313\n\" \325\n! \326\327\"\203> \330\331\332\211$\202- \326\333\"\203O \330\334\332\211$\202> ) *\312\f! +\335\336\f!\203o \fG\337Y\203o \f\340H,>\204u \341\342\343\344#\210\f\345H\261\210+\204\206 \346c\210\202\223 \347*\350\310\311+\315#\261\210\316c\210+ A\211\204! *-\351\261\207" [face-map buffer-faces face --dolist-tail-- fstruct s " <style type=\"text/css\">\n <!--\n" " body {\n " mapconcat identity htmlize-css-specs gethash default "\n " "\n }\n" sort* copy-list string-lessp :key #[(f) "\303\304 \"!\203 \304 \"G\305Y\203 \304 \"\306H\n>\204$ \307\310\311\312#\210\304 \"\313H\207" [f face-map cl-struct-htmlize-fstruct-tags vectorp gethash 10 0 error #1="%s accessing a non-%s" htmlize-fstruct-css-name htmlize-fstruct 9] 4] nil prin1-to-string string-match "--" replace-match "-" t "\\*/" "XX" " ." vectorp 10 0 error #1# htmlize-fstruct-css-name htmlize-fstruct 9 " {" " {\n /* " " */\n " " -->\n </style>\n" cleaned-up-face-name specs cl-struct-htmlize-fstruct-tags htmlize-hyperlink-style] 8])
(defalias 'htmlize-css-insert-text #[(text fstruct-list buffer) "\306\211\203> \n@\307\310 \"\210\307\311 !\203& G\312Y\203& \313H\f>\204, \314\315\316\317#\210 \320H \"\210\307\321 \"\210\nA\211\204 *\307 \"\210\306\211\205\\ \n@\307\322 \"\210\nA\211\204L \306*\207" [fstruct-list fstruct --dolist-tail-- buffer cl-struct-htmlize-fstruct-tags text nil princ "<span class=\"" vectorp 10 0 error "%s accessing a non-%s" htmlize-fstruct-css-name htmlize-fstruct 9 "\">" "</span>"] 6])
(defalias 'htmlize-inline-css-body-tag #[(face-map) "\301\302\303\304\305\306\307\"!\310#\"\207" [face-map format "<body style=\"%s\">" mapconcat identity htmlize-css-specs gethash default " "] 8])
(defalias 'htmlize-inline-css-insert-text #[(text fstruct-list buffer) "\306!\307 \n\"\211\204+ \310 !\211 \205 \311\312\310 !\313#) \n \314 #\210* )\211 \203F \315\316\"\210\315\"\210\315\317\"\210\315\"\210\205W \315\320\"*\207" [fstruct-list merged htmlize-memoization-table #1=#:G79336 specs #2=#:v htmlize-merge-faces gethash htmlize-css-specs mapconcat identity " " puthash princ "<span style=\"" "\">" "</span>" #3=#:v style buffer text] 5])
(defalias 'htmlize-font-body-tag #[(face-map) "\303\304\"\305\306\307 !\203 G\310Y\203 \311H\n>\204\" \312\313\314\315#\210 \316H\307 !\203: G\310Y\203: \311H\n>\204@ \312\313\317\315#\210 \320H#)\207" [face-map fstruct cl-struct-htmlize-fstruct-tags gethash default format "<body text=\"%s\" bgcolor=\"%s\">" vectorp 10 0 error "%s accessing a non-%s" htmlize-fstruct-foreground htmlize-fstruct 1 htmlize-fstruct-background 2] 7])
(defalias 'htmlize-font-insert-text #[(text fstruct-list buffer) "\306!\307 \n\"\211\204\224\310 !\203\" G\311Y\203\" \312H\f>\204( \313\314\315\316#\210 \317H\205O \320\321\310 !\203E G\311Y\203E \312H\f>\204K \313\314\315\316#\210 \317H\"\310 !\203d G\311Y\203d \312H\f>\204j \313\314\322\316#\210 \323H\205q \324\310 !\203\206 G\311Y\203\206 \312H\f>\204\214 \313\314\325\316#\210 \326H\205\223 \327\310 !\203\250 G\311Y\203\250 \312H\f>\204\256 \313\314\330\316#\210 \331H\205\265 \332\310 !\203\312 G\311Y\203\312 \312H\f>\204\320 \313\314\333\316#\210 \334H\205\327 \335\260\310 !\203\356 G\311Y\203\356 \312H\f>\204\364 \313\314\333\316#\210 \334H\205\373 \336\310 !\203 G\311Y\203 \312H\f>\204\313\314\330\316#\210 \331H\205 \337\310 !\2032 G\311Y\2032 \312H\f>\2048\313\314\325\316#\210 \326H\205?\340\310 !\203T G\311Y\203T \312H\f>\204Z\313\314\322\316#\210 \323H\205a\341\310 !\203v G\311Y\203v \312H\f>\204|\313\314\315\316#\210 \317H\205\203\342\260B \n %\343 %#\210* ) &\344&@'\"\210\344('\"\210\344&A'\"*\207" [fstruct-list merged htmlize-memoization-table #1=#:G79337 cl-struct-htmlize-fstruct-tags #2=#:v htmlize-merge-faces gethash vectorp 10 0 error "%s accessing a non-%s" htmlize-fstruct-foreground htmlize-fstruct 1 format "<font color=\"%s\">" htmlize-fstruct-boldp 4 "<b>" htmlize-fstruct-italicp 5 "<i>" htmlize-fstruct-underlinep 6 "<u>" htmlize-fstruct-strikep 8 "<strike>" "</strike>" "</u>" "</i>" "</b>" "</font>" puthash princ #3=#:v markup buffer text] 10])
(defalias 'htmlize-buffer-1 #[nil "\212\212\306\307!\210)\310 \210\311!\210\311 !\210\312 \313\314\315\n\"\203! \n\202$ \315\nB!\316\317 \2035 \320\321\317 !!\2026 \322! \323 \317 \203F \321\317 !\202H \324 @r\fq\210\325 \210\326\327! \330\331\332AB#\333\261\210\334\335\336 #\210\337\340\341@!\342C\203| \331\343C\"\202} \344D\261\210\326\345!\n \"\210\346c\210\334\347\336 #\210\350c\210\334\351\336 #\210\326\352! !\353\261\210\334\354\336 #\210\355c\210)\326\356!\357\211\211\211\211 E F G H I Jeb\210m\204)\360`\361\"I\362 G\363\357\364\365G\"\"F\366`I\"HE\203\362 \367H!HHG\370V\203\371HGS\372H#E\373Hi\"H\341H!\211HG\370V\203\"JHF\f#\210Ib\210\202\310 .r\fq\210\374c\210\334\375\336 #\210\376c\210\334\377\336 #\210\201Q c\210K\203R\201R \210\201S \210L\203\222eb\210\341\201T !L;\203oL\202r\201U M N\201V N\357\201W #\203\221\201X M\201W \211#\210\202v*eb\210O\203\236O \210\201Y \201P !\210P\306\201Z !\210\201[ \210)\f.\207" [htmlize-extended-character-cache htmlize-memoization-table buffer-faces face-map htmlbuf places run-hooks htmlize-before-hook htmlize-ensure-fontified clrhash htmlize-faces-in-buffer htmlize-make-face-map memql default generate-new-buffer buffer-file-name htmlize-make-file-name file-name-nondirectory "*html*" (nil nil) buffer-name buffer-disable-undo htmlize-method-function doctype 10 format "<!-- Created by htmlize-%s in %s mode. -->\n" "<html>\n " plist-put head-start point-marker "<head>\n" " <title>" htmlize-protect-string "</title>\n" " <meta http-equiv=\"Content-Type\" content=\"text/html; charset=%s\">\n" "" insert-head " </head>" head-end "\n " body-start body-tag "\n " content-start "<pre>\n" insert-text nil htmlize-next-change face htmlize-faces-at-point delq mapcar #[(f) "\302 \"\207" [f face-map gethash] 3] htmlize-buffer-substring-no-invisible htmlize-trim-ellipsis 0 get-text-property htmlize-ellipsis htmlize-untabify "</pre>" content-end "\n </body>" body-end title htmlize-version htmlize-output-type htmlize-html-charset htmlize-head-tags trailing-ellipsis fstruct-list face-list text next-change insert-text-method htmlize-generate-hyperlinks htmlize-replace-form-feeds replacement source htmlize-html-major-mode htmlize-buffer-places "\n</html>\n" htmlize-make-hyperlinks htmlize-defang-local-variables "\n\f" "</pre><hr /><pre>" search-forward t replace-match make-local-variable htmlize-after-hook buffer-enable-undo] 8])
(defalias 'htmlize-with-fontify-message '(macro . #[(&rest body) "\301\302\303\304\"BB\207" [body progn (if (> (buffer-size) 65536) (message "Forcing fontification of %s..." (buffer-name (current-buffer)))) append ((if (> (buffer-size) 65536) (message "Forcing fontification of %s...done" (buffer-name (current-buffer)))))] 5]))
(defalias 'htmlize-ensure-fontified #[nil "\301\300!\205\215 \205\215 \301\302!\2036 \302J\2036 \303 \304V\203# \305\306\307p!\"\210\310ed\"\210\303 \304V\205\215 \305\311\307p!\"\207\301\312!\203b \312J\203b \303 \304V\203O \305\306\307p!\"\210\313ed\"\210\303 \304V\205\215 \305\311\307p!\"\207\301\314!\205\215 \314J\205\215 \303 \304V\203{ \305\306\307p!\"\210\315ed\"\210\303 \304V\205\215 \305\311\307p!\"\207" [font-lock-mode boundp jit-lock-mode buffer-size 65536 message "Forcing fontification of %s..." buffer-name jit-lock-fontify-now "Forcing fontification of %s...done" lazy-lock-mode lazy-lock-fontify-region lazy-shot-mode lazy-shot-fontify-region] 4])
#@663 Convert BUFFER to HTML, preserving colors and decorations.
The generated HTML is available in a new buffer, which is returned.
When invoked interactively, the new buffer is selected in the current
window. The title of the generated document will be set to the buffer's
file name or, if that's not available, to the buffer's name.
Note that htmlize doesn't fontify your buffers, it only uses the
decorations that are already present. If you don't set up font-lock or
something else to fontify your buffers, the resulting HTML will be
plain. Likewise, if you don't like the choice of colors, fix the mode
that created them, or simply alter the faces it uses.
(defalias 'htmlize-buffer #[(&optional buffer) "r\206 pq\210\302 )\303 \203 \304 !\210 )\207" [buffer htmlbuf htmlize-buffer-1 interactive-p switch-to-buffer] 2 (#$ . 52004) nil])
#@98 Convert the region to HTML, preserving colors and decorations.
See `htmlize-buffer' for details.
(defalias 'htmlize-region #[(beg end) "\303\304!\203 \304 \210\214 }\210\305 )\306 \203 \307\n!\210\n)\207" [beg end htmlbuf fboundp zmacs-deactivate-region htmlize-buffer-1 interactive-p switch-to-buffer] 2 (#$ . 52856) "r"])
#@226 Htmlize the region and return just the HTML as a string.
This forces the `inline-css' style and only returns the HTML body,
but without the BODY tag. This should make it useful for inserting
the text to another HTML buffer.
(defalias 'htmlize-region-for-paste #[(beg end) "\305\306 \n\"\307\216r q\210\310\f\311\"\310\f\312\"{,\207" [htmlize-output-type beg end htmlbuf htmlize-buffer-places inline-css htmlize-region ((kill-buffer htmlbuf)) plist-get content-start content-end] 4 (#$ . 53191)])
#@422 Make an HTML file name from FILE.
In its default implementation, this simply appends `.html' to FILE.
This function is called by htmlize to create the buffer file name, and
by `htmlize-file' to create the target file name.
More elaborate transformations are conceivable, such as changing FILE's
extension to `.html' ("file.c" -> "file.html"). If you want them,
overload this function to do it and htmlize will comply.
(defalias 'htmlize-make-file-name #[(file) "\301P\207" [file ".html"] 2 (#$ . 53697)])
#@822 Load FILE, fontify it, convert it to HTML, and save the result.
Contents of FILE are inserted into a temporary buffer, whose major mode
is set with `normal-mode' as appropriate for the file type. The buffer
is subsequently fontified with `font-lock' and converted to HTML. Note
that, unlike `htmlize-buffer', this function explicitly turns on
font-lock. If a form of highlighting other than font-lock is desired,
please use `htmlize-buffer' directly on buffers so highlighted.
Buffers currently visiting FILE are unaffected by this function. The
function does not change current buffer or move the point.
If TARGET is specified and names a directory, the resulting file will be
saved there instead of to FILE's directory. If TARGET is specified and
does not name a directory, it will be used as output file name.
(defalias 'htmlize-file #[(file &optional target) "\203 \306!\204 \202 \307\310\311 !!\206 \312 !\"\313\211\211\211\211 \314\315! rq\210\316\216\317 !\210 \320 \210\321\322!\210\204K \323 \210r\324 q\210\325\216\326\327!\210\330ed#\210.\f\313\207" [target file font-lock-support-mode font-lock-maximum-size global-font-lock-mode font-lock-auto-fontify file-directory-p expand-file-name htmlize-make-file-name file-name-nondirectory file-name-directory nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents normal-mode font-lock-mode 1 font-lock-fontify-buffer htmlize-buffer-1 ((byte-code "\300p!\207" [kill-buffer] 2)) run-hooks htmlize-file-hook write-region output-file #1# buffer-file-name] 6 (#$ . 54213) (list (read-file-name "HTML-ize file: " nil nil nil (and (buffer-file-name) (file-name-nondirectory (buffer-file-name)))))])
#@464 Convert FILES to HTML and save the corresponding HTML versions.
FILES should be a list of file names to convert. This function calls
`htmlize-file' on each file; see that function for details. When
invoked interactively, you are prompted for a list of files to convert,
terminated with RET.
If TARGET-DIRECTORY is specified, the HTML files will be saved to that
directory. Normally, each HTML file is saved to the directory of the
corresponding source file.
(defalias 'htmlize-many-files #[(files &optional target-directory) "\203 \304!\204 \305\306\"\210 \307\211\205' @\310\n\"\210 A\211\204 \307*\207" [target-directory files file --dolist-tail-- file-directory-p error "target-directory must name a directory: %s" nil htmlize-file] 4 (#$ . 55994) (list (let (list file) (while (not (equal (setq file (read-file-name "HTML-ize file (RET to finish): " (and list (file-name-directory (car list))) #1="" t)) #1#)) (setq list (cons file list))) (nreverse list)))])
#@29 HTMLize dired-marked files.
(defalias 'htmlize-many-files-dired #[(arg &optional target-directory) "\302\303\304\" \"\207" [arg target-directory htmlize-many-files dired-get-marked-files nil] 4 (#$ . 56981) "P"])
(provide 'htmlize)