Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
calc	[ DIR ]	drwxr-xr-x
calendar	[ DIR ]	drwxr-xr-x
cedet	[ DIR ]	drwxr-xr-x
emacs-lisp	[ DIR ]	drwxr-xr-x
emulation	[ DIR ]	drwxr-xr-x
erc	[ DIR ]	drwxr-xr-x
eshell	[ DIR ]	drwxr-xr-x
gnus	[ DIR ]	drwxr-xr-x
image	[ DIR ]	drwxr-xr-x
international	[ DIR ]	drwxr-xr-x
language	[ DIR ]	drwxr-xr-x
leim	[ DIR ]	drwxr-xr-x
mail	[ DIR ]	drwxr-xr-x
mh-e	[ DIR ]	drwxr-xr-x
net	[ DIR ]	drwxr-xr-x
nxml	[ DIR ]	drwxr-xr-x
obsolete	[ DIR ]	drwxr-xr-x
org	[ DIR ]	drwxr-xr-x
play	[ DIR ]	drwxr-xr-x
progmodes	[ DIR ]	drwxr-xr-x
term	[ DIR ]	drwxr-xr-x
textmodes	[ DIR ]	drwxr-xr-x
url	[ DIR ]	drwxr-xr-x
vc	[ DIR ]	drwxr-xr-x
COPYING	34.32 KB	-rw-r--r--
README	537 B	-rw-r--r--
abbrev.elc	34.55 KB	-rw-r--r--
align.elc	39.88 KB	-rw-r--r--
allout-widgets.elc	62.37 KB	-rw-r--r--
allout.elc	203.33 KB	-rw-r--r--
ansi-color.elc	17.12 KB	-rw-r--r--
apropos.elc	37.42 KB	-rw-r--r--
arc-mode.elc	58.06 KB	-rw-r--r--
array.elc	27.07 KB	-rw-r--r--
auth-source-pass.elc	11.68 KB	-rw-r--r--
auth-source.elc	64.32 KB	-rw-r--r--
autoarg.elc	6.63 KB	-rw-r--r--
autoinsert.elc	13.41 KB	-rw-r--r--
autorevert.elc	30.71 KB	-rw-r--r--
avoid.elc	11.62 KB	-rw-r--r--
battery.elc	24.42 KB	-rw-r--r--
bindings.elc	42.76 KB	-rw-r--r--
bookmark.elc	77.09 KB	-rw-r--r--
bs.elc	49.32 KB	-rw-r--r--
buff-menu.elc	27.02 KB	-rw-r--r--
button.elc	14.97 KB	-rw-r--r--
calculator.elc	53.9 KB	-rw-r--r--
case-table.elc	4.99 KB	-rw-r--r--
cdl.elc	1.07 KB	-rw-r--r--
char-fold.elc	311.81 KB	-rw-r--r--
chistory.elc	8.16 KB	-rw-r--r--
cmuscheme.elc	18.07 KB	-rw-r--r--
color.elc	12.83 KB	-rw-r--r--
comint.elc	114.46 KB	-rw-r--r--
completion.elc	41.12 KB	-rw-r--r--
composite.elc	27.94 KB	-rw-r--r--
cus-dep.elc	6.42 KB	-rw-r--r--
cus-edit.elc	139.04 KB	-rw-r--r--
cus-face.elc	10.54 KB	-rw-r--r--
cus-load.el	85.19 KB	-rw-r--r--
cus-start.elc	21.92 KB	-rw-r--r--
cus-theme.elc	25.05 KB	-rw-r--r--
custom.elc	47.41 KB	-rw-r--r--
dabbrev.elc	22.28 KB	-rw-r--r--
delim-col.elc	8.95 KB	-rw-r--r--
delsel.elc	9.2 KB	-rw-r--r--
descr-text.elc	26.87 KB	-rw-r--r--
desktop.elc	47.64 KB	-rw-r--r--
dframe.elc	19.92 KB	-rw-r--r--
dired-aux.elc	85.75 KB	-rw-r--r--
dired-loaddefs.el	22.29 KB	-rw-r--r--
dired-x.elc	44.53 KB	-rw-r--r--
dired.elc	127.27 KB	-rw-r--r--
dirtrack.elc	7.75 KB	-rw-r--r--
disp-table.elc	8.76 KB	-rw-r--r--
display-fill-column-indicator....	8.32 KB	-rw-r--r--
display-line-numbers.elc	8.67 KB	-rw-r--r--
dnd.elc	7.13 KB	-rw-r--r--
doc-view.elc	65.25 KB	-rw-r--r--
dom.elc	7.36 KB	-rw-r--r--
dos-fns.elc	6.14 KB	-rw-r--r--
dos-vars.elc	1.1 KB	-rw-r--r--
dos-w32.elc	11.67 KB	-rw-r--r--
double.elc	4.34 KB	-rw-r--r--
dynamic-setting.elc	2.2 KB	-rw-r--r--
ebuff-menu.elc	10.46 KB	-rw-r--r--
echistory.elc	4.75 KB	-rw-r--r--
ecomplete.elc	7.1 KB	-rw-r--r--
edmacro.elc	19.94 KB	-rw-r--r--
ehelp.elc	11.32 KB	-rw-r--r--
elec-pair.elc	21.41 KB	-rw-r--r--
electric.elc	23.69 KB	-rw-r--r--
elide-head.elc	2.65 KB	-rw-r--r--
emacs-lock.elc	9.29 KB	-rw-r--r--
env.elc	6.12 KB	-rw-r--r--
epa-dired.elc	1.62 KB	-rw-r--r--
epa-file.elc	8.65 KB	-rw-r--r--
epa-hook.elc	4.63 KB	-rw-r--r--
epa-mail.elc	9.43 KB	-rw-r--r--
epa.elc	45.25 KB	-rw-r--r--
epg-config.elc	8.97 KB	-rw-r--r--
epg.elc	166.06 KB	-rw-r--r--
expand.elc	9.07 KB	-rw-r--r--
ezimage.elc	9.65 KB	-rw-r--r--
face-remap.elc	16.58 KB	-rw-r--r--
facemenu.elc	27.89 KB	-rw-r--r--
faces.elc	90.21 KB	-rw-r--r--
ffap.elc	50.3 KB	-rw-r--r--
filecache.elc	16.69 KB	-rw-r--r--
fileloop.elc	6.62 KB	-rw-r--r--
filenotify.elc	28.49 KB	-rw-r--r--
files-x.elc	21.9 KB	-rw-r--r--
files.elc	236.95 KB	-rw-r--r--
filesets.elc	72.57 KB	-rw-r--r--
find-cmd.elc	4.9 KB	-rw-r--r--
find-dired.elc	10.41 KB	-rw-r--r--
find-file.elc	18.33 KB	-rw-r--r--
find-lisp.elc	7.66 KB	-rw-r--r--
finder-inf.el	41.27 KB	-rw-r--r--
finder.elc	14.73 KB	-rw-r--r--
flow-ctrl.elc	2.26 KB	-rw-r--r--
foldout.elc	7.25 KB	-rw-r--r--
follow.elc	40.63 KB	-rw-r--r--
font-core.elc	12.41 KB	-rw-r--r--
font-lock.elc	61.63 KB	-rw-r--r--
format-spec.elc	3.93 KB	-rw-r--r--
format.elc	27.56 KB	-rw-r--r--
forms.elc	35.1 KB	-rw-r--r--
frame.elc	85.94 KB	-rw-r--r--
frameset.elc	48.02 KB	-rw-r--r--
fringe.elc	10.23 KB	-rw-r--r--
generic-x.elc	40.27 KB	-rw-r--r--
help-at-pt.elc	11.15 KB	-rw-r--r--
help-fns.elc	45.35 KB	-rw-r--r--
help-macro.elc	4.25 KB	-rw-r--r--
help-mode.elc	23.89 KB	-rw-r--r--
help.elc	52.22 KB	-rw-r--r--
hex-util.elc	1.3 KB	-rw-r--r--
hexl.elc	35.39 KB	-rw-r--r--
hfy-cmap.elc	25.45 KB	-rw-r--r--
hi-lock.elc	29.38 KB	-rw-r--r--
hilit-chg.elc	28.77 KB	-rw-r--r--
hippie-exp.elc	21.52 KB	-rw-r--r--
hl-line.elc	11.23 KB	-rw-r--r--
htmlfontify-loaddefs.el	808 B	-rw-r--r--
htmlfontify.elc	67.51 KB	-rw-r--r--
ibuf-ext.elc	77.15 KB	-rw-r--r--
ibuf-macs.elc	12.47 KB	-rw-r--r--
ibuffer-loaddefs.el	12.68 KB	-rw-r--r--
ibuffer.elc	98.62 KB	-rw-r--r--
icomplete.elc	22.83 KB	-rw-r--r--
ido.elc	127.92 KB	-rw-r--r--
ielm.elc	19.2 KB	-rw-r--r--
iimage.elc	4.92 KB	-rw-r--r--
image-dired.elc	92.97 KB	-rw-r--r--
image-file.elc	6.53 KB	-rw-r--r--
image-mode.elc	42.56 KB	-rw-r--r--
image.elc	34.45 KB	-rw-r--r--
imenu.elc	24.94 KB	-rw-r--r--
indent.elc	23.63 KB	-rw-r--r--
info-look.elc	28.18 KB	-rw-r--r--
info-xref.elc	16.59 KB	-rw-r--r--
info.elc	144.48 KB	-rw-r--r--
informat.elc	9.73 KB	-rw-r--r--
isearch.elc	147.85 KB	-rw-r--r--
isearchb.elc	4.73 KB	-rw-r--r--
jit-lock.elc	23.49 KB	-rw-r--r--
jka-cmpr-hook.elc	13.07 KB	-rw-r--r--
jka-compr.elc	12.09 KB	-rw-r--r--
json.elc	22.76 KB	-rw-r--r--
jsonrpc.elc	31.65 KB	-rw-r--r--
kermit.elc	2.92 KB	-rw-r--r--
kmacro.elc	35.15 KB	-rw-r--r--
ldefs-boot.el	1.41 MB	-rw-r--r--
linum.elc	10.77 KB	-rw-r--r--
loaddefs.el	1.41 MB	-rw-r--r--
loadhist.elc	9.77 KB	-rw-r--r--
loadup.el	20.08 KB	-rw-r--r--
locate.elc	19.57 KB	-rw-r--r--
lpr.elc	9.44 KB	-rw-r--r--
ls-lisp.elc	22.7 KB	-rw-r--r--
macros.elc	7.23 KB	-rw-r--r--
makesum.elc	2.47 KB	-rw-r--r--
man.elc	53.85 KB	-rw-r--r--
master.elc	4.58 KB	-rw-r--r--
mb-depth.elc	3.56 KB	-rw-r--r--
md4.elc	8.12 KB	-rw-r--r--
menu-bar.elc	86.61 KB	-rw-r--r--
midnight.elc	10.22 KB	-rw-r--r--
minibuf-eldef.elc	6.43 KB	-rw-r--r--
minibuffer.elc	104.08 KB	-rw-r--r--
misc.elc	5.4 KB	-rw-r--r--
misearch.elc	12.37 KB	-rw-r--r--
mouse-copy.elc	3.61 KB	-rw-r--r--
mouse-drag.elc	6.43 KB	-rw-r--r--
mouse.elc	71.3 KB	-rw-r--r--
mpc.elc	79.29 KB	-rw-r--r--
msb.elc	26.76 KB	-rw-r--r--
mwheel.elc	12.83 KB	-rw-r--r--
newcomment.elc	39.43 KB	-rw-r--r--
notifications.elc	13.78 KB	-rw-r--r--
novice.elc	4.43 KB	-rw-r--r--
obarray.elc	1.71 KB	-rw-r--r--
outline.elc	37.04 KB	-rw-r--r--
paren.elc	8.69 KB	-rw-r--r--
password-cache.elc	3.57 KB	-rw-r--r--
pcmpl-cvs.elc	6.17 KB	-rw-r--r--
pcmpl-gnu.elc	12.96 KB	-rw-r--r--
pcmpl-linux.elc	3.09 KB	-rw-r--r--
pcmpl-rpm.elc	11.17 KB	-rw-r--r--
pcmpl-unix.elc	7.52 KB	-rw-r--r--
pcmpl-x.elc	8.95 KB	-rw-r--r--
pcomplete.elc	36.16 KB	-rw-r--r--
pixel-scroll.elc	10.82 KB	-rw-r--r--
plstore.elc	14.75 KB	-rw-r--r--
printing.elc	157.7 KB	-rw-r--r--
proced.elc	62.85 KB	-rw-r--r--
profiler.elc	42.81 KB	-rw-r--r--
ps-bdf.elc	12.69 KB	-rw-r--r--
ps-def.elc	2.23 KB	-rw-r--r--
ps-mule.elc	34.89 KB	-rw-r--r--
ps-print-loaddefs.el	2.6 KB	-rw-r--r--
ps-print.elc	141.17 KB	-rw-r--r--
ps-samp.elc	5.26 KB	-rw-r--r--
recentf.elc	48.73 KB	-rw-r--r--
rect.elc	26.88 KB	-rw-r--r--
register.elc	27.63 KB	-rw-r--r--
registry.elc	10.41 KB	-rw-r--r--
repeat.elc	5.14 KB	-rw-r--r--
replace.elc	84.62 KB	-rw-r--r--
reposition.elc	2.66 KB	-rw-r--r--
reveal.elc	7.16 KB	-rw-r--r--
rfn-eshadow.elc	7.23 KB	-rw-r--r--
rot13.elc	2.56 KB	-rw-r--r--
rtree.elc	4.09 KB	-rw-r--r--
ruler-mode.elc	21.87 KB	-rw-r--r--
savehist.elc	10.83 KB	-rw-r--r--
saveplace.elc	11.87 KB	-rw-r--r--
sb-image.elc	2.75 KB	-rw-r--r--
scroll-all.elc	4.41 KB	-rw-r--r--
scroll-bar.elc	16.68 KB	-rw-r--r--
scroll-lock.elc	5.41 KB	-rw-r--r--
select.elc	18.75 KB	-rw-r--r--
server.elc	47.56 KB	-rw-r--r--
ses.elc	131.12 KB	-rw-r--r--
shadowfile.elc	31.16 KB	-rw-r--r--
shell.elc	41.53 KB	-rw-r--r--
simple.elc	301.78 KB	-rw-r--r--
skeleton.elc	15.76 KB	-rw-r--r--
so-long.elc	47.15 KB	-rw-r--r--
sort.elc	15.49 KB	-rw-r--r--
soundex.elc	1.14 KB	-rw-r--r--
speedbar.elc	115.02 KB	-rw-r--r--
startup.elc	68.51 KB	-rw-r--r--
strokes.elc	44.03 KB	-rw-r--r--
subdirs.el	450 B	-rw-r--r--
subr.elc	186.63 KB	-rw-r--r--
svg.elc	12.71 KB	-rw-r--r--
t-mouse.elc	3.8 KB	-rw-r--r--
tab-bar.elc	52.48 KB	-rw-r--r--
tab-line.elc	29.85 KB	-rw-r--r--
tabify.elc	2.17 KB	-rw-r--r--
talk.elc	2.99 KB	-rw-r--r--
tar-mode.elc	57.2 KB	-rw-r--r--
tempo.elc	19.18 KB	-rw-r--r--
term.elc	107.99 KB	-rw-r--r--
thingatpt.elc	16.88 KB	-rw-r--r--
thread.elc	8.08 KB	-rw-r--r--
thumbs.elc	25.74 KB	-rw-r--r--
time-stamp.elc	18.69 KB	-rw-r--r--
time.elc	20.87 KB	-rw-r--r--
timezone.elc	10.94 KB	-rw-r--r--
tmm.elc	13.39 KB	-rw-r--r--
tool-bar.elc	9.76 KB	-rw-r--r--
tooltip.elc	13.19 KB	-rw-r--r--
tree-widget.elc	19.84 KB	-rw-r--r--
tutorial.elc	22.28 KB	-rw-r--r--
type-break.elc	37.35 KB	-rw-r--r--
uniquify.elc	17.68 KB	-rw-r--r--
userlock.elc	6.33 KB	-rw-r--r--
vcursor.elc	23.92 KB	-rw-r--r--
version.elc	6.01 KB	-rw-r--r--
view.elc	34.69 KB	-rw-r--r--
vt-control.elc	1.99 KB	-rw-r--r--
vt100-led.elc	1.33 KB	-rw-r--r--
w32-fns.elc	11.01 KB	-rw-r--r--
w32-vars.elc	5.16 KB	-rw-r--r--
wdired.elc	23.52 KB	-rw-r--r--
whitespace.elc	69.06 KB	-rw-r--r--
wid-browse.elc	8.48 KB	-rw-r--r--
wid-edit.elc	99.52 KB	-rw-r--r--
widget.elc	1.4 KB	-rw-r--r--
windmove.elc	19.82 KB	-rw-r--r--
window.elc	294.5 KB	-rw-r--r--
winner.elc	12.04 KB	-rw-r--r--
woman.elc	109.43 KB	-rw-r--r--
x-dnd.elc	19.56 KB	-rw-r--r--
xdg.elc	10.14 KB	-rw-r--r--
xml.elc	25.31 KB	-rw-r--r--
xt-mouse.elc	14.1 KB	-rw-r--r--
xwidget.elc	18.9 KB	-rw-r--r--

Code Editor : svg.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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 xml dom] 2)
#@191 Create a new, empty SVG image with dimensions WIDTH x HEIGHT.
ARGS can be used to provide `stroke' and `stroke-width' parameters to
any further elements added.

(fn WIDTH HEIGHT &rest ARGS)
(defalias 'svg-create #[642 "\300\301\302B\303B\304\305\306\307\310\"?\205�\311\312\313\n\"\"BBBB\"\207" [dom-node svg width height (version . "1.1") (xmlns . "http://www.w3.org/2000/svg") append plist-get :xmlns:xlink ((xmlns:xlink . "http://www.w3.org/1999/xlink")) svg--arguments nil] 14 (#$ . 490)])
#@129 Add a gradient with ID to SVG.
TYPE is `linear' or `radial'.
STOPS is a list of percentage/color pairs.

(fn SVG ID TYPE STOPS)
(defalias 'svg-gradient #[1028 "\300\301\302\303=\203�\304\202�\305\306B\307B\310\311\"$\"\207" [svg--def apply dom-node linear linearGradient radialGradient id ((x1 . 0) (x2 . 0) (y1 . 0) (y2 . 1)) mapcar #[257 "\300\301\302\303\304@\"B\305ABD\"\207" [dom-node stop offset format "%s%%" stop-color] 7 "\n\n(fn STOP)"]] 13 (#$ . 997)])
#@286 Create a rectangle on SVG, starting at position X/Y, of WIDTH/HEIGHT.
ARGS is a plist of modifiers.  Possible values are

:stroke-width PIXELS   The line width.
:stroke-color COLOR    The line color.
:gradient ID           The gradient ID to use.

(fn SVG X Y WIDTH HEIGHT &rest ARGS)
(defalias 'svg-rectangle #[1413 "\300\301\302\303B\304B\305B\306B\307\n\"BBBB\"\"\207" [svg--append dom-node rect width height x y svg--arguments] 17 (#$ . 1478)])
#@104 Create a circle of RADIUS on SVG.
X/Y denote the center of the circle.

(fn SVG X Y RADIUS &rest ARGS)
(defalias 'svg-circle #[1156 "\300\301\302\303B\304B\305B\306\f	\"BBB\"\"\207" [svg--append dom-node circle cx cy r svg--arguments] 15 (#$ . 1947)])
#@129 Create an ellipse of X-RADIUS/Y-RADIUS on SVG.
X/Y denote the center of the ellipse.

(fn SVG X Y X-RADIUS Y-RADIUS &rest ARGS)
(defalias 'svg-ellipse #[1413 "\300\301\302\303	B\304	B\305	B\306	B\307\n\"BBBB\"\"\207" [svg--append dom-node ellipse cx cy rx ry svg--arguments] 17 (#$ . 2215)])
#@91 Create a line starting in X1/Y1, ending at X2/Y2 on SVG.

(fn SVG X1 Y1 X2 Y2 &rest ARGS)
(defalias 'svg-line #[1413 "\300\301\302\303	B\304B\305\nB\306	B\307\n\"BBBB\"\"\207" [svg--append dom-node line x1 x2 y1 y2 svg--arguments] 17 (#$ . 2522)])
#@107 Create a polyline going through POINTS on SVG.
POINTS is a list of x/y pairs.

(fn SVG POINTS &rest ARGS)
(defalias 'svg-polyline #[642 "\300\301\302\303\304\305\306#B\307\"B\"\"\207" [svg--append dom-node polyline points mapconcat #[257 "\300\301@A#\207" [format "%s %s"] 5 "\n\n(fn PAIR)"] ", " svg--arguments] 12 (#$ . 2787)])
#@106 Create a polygon going through POINTS on SVG.
POINTS is a list of x/y pairs.

(fn SVG POINTS &rest ARGS)
(defalias 'svg-polygon #[642 "\300\301\302\303\304\305\306#B\307\"B\"\"\207" [svg--append dom-node polygon points mapconcat #[257 "\300\301@A#\207" [format "%s %s"] 5 "\n\n(fn PAIR)"] ", " svg--arguments] 12 (#$ . 3133)])
#@230 Insert IMAGE into the SVG structure.
IMAGE should be a file name if DATAP is nil, and a binary string
otherwise.  IMAGE-TYPE should be a MIME image type, like
"image/jpeg" or the like.

(fn SVG IMAGE IMAGE-TYPE DATAP &rest ARGS)
(defalias 'svg-embed #[1156 "\300\301\302\303\304			#B\305\n\"B\"\"\207" [svg--append dom-node image xlink:href svg--image-data svg--arguments] 14 (#$ . 3476)])
#@44 Add TEXT to SVG.

(fn SVG TEXT &rest ARGS)
(defalias 'svg-text #[642 "\300\301\302\303\"\304!#\"\207" [svg--append dom-node text svg--arguments svg--encode-text] 10 (#$ . 3879)])
#@13

(fn TEXT)
(defalias 'svg--encode-text #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216c\210\311\211\203;�\211@eb\210\312@\313\314#\2034�\315A\314\211\313$\210\202 �A\266\202\202�\210eb\210m\204a�g\211\316W\203P�\317u\210\202]�\320\317!\210\321\322\323\"\324\261\210\210\202?�\325 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 (("&" . "&amp;") ("<" . "&lt;") (">" . "&gt;")) search-forward nil t replace-match 128 1 delete-char "&#" format "%d" ";" buffer-string] 9 (#$ . 4071)])
#@17

(fn SVG NODE)
(defalias 'svg--append #[514 "\300\211@:\203�\211@A@\262\202�\211A@\262\236A\205;�\301\302\303\300\211@:\2030�\211@A@\262\2025�\211A@\262\236A!\304Q\"\211\203H�\211@A\241\210\202M�\305\"\210\210\306!\207" [id dom-by-id "\\`" regexp-quote "\\'" dom-append-child svg-possibly-update-image] 9 (#$ . 4663)])
#@31

(fn IMAGE IMAGE-TYPE DATAP)
(defalias 'svg--image-data #[771 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312!\210\203!�c\210\202%�\313!\210\314ed\315#\210eb\210\316\317\261\210\320 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 set-buffer-multibyte nil insert-file-contents base64-encode-region t "data:" ";base64," buffer-string] 10 (#$ . 5002)])
#@17

(fn SVG ARGS)
(defalias 'svg--arguments #[514 "\301\302\"\206�\303\211@:\203�\211@A@\262\202�\211A@\262\236A\301\304\"\206>�\305\211@:\2037�\211@A@\262\202<�\211A@\262\236A\301\306\"\307\203N�\303BB\262\203Y�\310BB\262\203d�\311BB\262\301\312\"\203\200�\313\314\315\316\317\311\320\321\301
\312\"\"B\257\"\262\307\211\211:\203\265�\262\211A\262\242\262\211@\262\322>\204\255�\323\324\325!\326\"\"BB\262AA\262\202\204�\266\207" [obarray plist-get :stroke-width stroke-width :stroke-color stroke-color :fill-color nil stroke fill :gradient append (x1 . 0) (x2 . 0) (y1 . 0) (y2 . 1) format "url(#%s)" (:stroke-color :stroke-width :gradient :fill-color) intern substring symbol-name 1] 17 (#$ . 5463)])
#@16

(fn SVG DEF)
(defalias 'svg--def #[514 "\300\301\302\"\206�\303\302!\304\"\210\211\262\"\210\207" [dom-append-child dom-by-tag defs dom-node dom-add-child-before] 7 (#$ . 6217)])
#@112 Return an image object from SVG.
PROPS is passed on to `create-image' as its PROPS list.

(fn SVG &rest PROPS)
(defalias 'svg-image #[385 "\300\301\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313!\210\314 *\262\315\316%\207" [apply create-image generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 svg-print buffer-string svg t] 11 (#$ . 6412)])
#@105 Insert SVG as an image at point.
If the SVG is later changed, the image will also be updated.

(fn SVG)
(defalias 'svg-insert-image #[257 "\300!\301 \302!\210\303\304#\207" [svg-image point-marker insert-image dom-set-attribute :image] 7 (#$ . 6848)])
#@12

(fn SVG)
(defalias 'svg-possibly-update-image #[257 "\300\211@:\203�\211@A@\262\202�\211A@\262\236A\211\2055�\301\302!!\2055�r\302!q\210\303\211T\304\305!$)\207" [:image buffer-live-p marker-buffer put-text-property display svg-image] 8 (#$ . 7110)])
#@72 Convert DOM into a string containing the xml representation.

(fn DOM)
(defalias 'svg-print #[257 "\211;\203�\211c\207\300\301@\"c\210\211A@\211\2034�\211@\300\302@\"\303H\304U\204-�\300\305@A#c\210A\266\202\202�\210\306c\210\211AA\211\203O�\211@\307c\210\310!\210A\266\202\202;�\210\300\311@\"c\207" [format "<%s" "%s" 0 58 " %s=\"%s\"" ">" " " svg-print "</%s>"] 7 (#$ . 7379)])
#@60 Remove the element identified by ID from SVG.

(fn SVG ID)
(defalias 'svg-remove #[514 "\300\301\302!\303Q\"@\211\205�\304\"\207" [dom-by-id "\\`" regexp-quote "\\'" dom-remove-node] 7 (#$ . 7776)])
#@97 Delete PROPERTY from PLIST.
This is in contrast to merely setting it to 0.

(fn PLIST PROPERTY)
(defalias 'svg--plist-delete #[514 "\300\203�@=\204�\301@A@#\262AA\262\202�\211\207" [nil plist-put] 7 (#$ . 7986)])
#@36

(fn COMMAND-SYMBOL COMMAND-ARGS)
(defalias 'svg--path-command-symbol #[514 "\300!\301\302\"\203�\303\302\"\202�\303\304\"\305\203�\227\202!�\226!\207" [symbol-name plist-member :relative plist-get :default-relative intern] 6 (#$ . 8217)])
#@29

(fn RX RY X Y &rest ARGS)
(defalias 'svg--elliptical-arc-coordinates #[1156 "\300\301\"\206\n�\302\300\303\"\203�\304\202�\302\300\305\"\203!�\304\202\"�\302\257\207" [plist-get :x-axis-rotation 0 :large-arc 1 :sweep] 12 (#$ . 8474)])
#@36

(fn COORDINATES-LIST &rest ARGS)
(defalias 'svg--elliptical-arc-command #[385 "\300\301\"\302\303\304\305\"\"B\207" [svg--path-command-symbol a apply append mapcar #[257 "\300\301\"\207" [apply svg--elliptical-arc-coordinates] 4 "\n\n(fn COORDINATES)"]] 8 (#$ . 8729)])
#@36

(fn COORDINATES-LIST &rest ARGS)
(defalias 'svg--moveto-command #[385 "\300\301\"\302\303\304\305\"\"B\207" [svg--path-command-symbol m apply append mapcar #[257 "\211@AD\207" [] 3 "\n\n(fn COORDINATES)"]] 8 (#$ . 9011)])
#@19

(fn &rest ARGS)
(defalias 'svg--closepath-command #[128 "\300\301\"C\207" [svg--path-command-symbol z] 4 (#$ . 9245)])
#@36

(fn COORDINATES-LIST &rest ARGS)
(defalias 'svg--lineto-command #[385 "\300\301\"\302\303\304\305\"\"B\207" [svg--path-command-symbol l apply append mapcar #[257 "\211@AD\207" [] 3 "\n\n(fn COORDINATES)"]] 8 (#$ . 9373)])
#@35

(fn COORDINATE-LIST &rest ARGS)
(defalias 'svg--horizontal-lineto-command #[385 "\300\301\"B\207" [svg--path-command-symbol h] 5 (#$ . 9607)])
#@35

(fn COORDINATE-LIST &rest ARGS)
(defalias 'svg--vertical-lineto-command #[385 "\300\301\"B\207" [svg--path-command-symbol v] 5 (#$ . 9760)])
#@36

(fn COORDINATES-LIST &rest ARGS)
(defalias 'svg--curveto-command #[385 "\300\301\"\302\303\"B\207" [svg--path-command-symbol c apply append] 6 (#$ . 9911)])
#@36

(fn COORDINATES-LIST &rest ARGS)
(defalias 'svg--smooth-curveto-command #[385 "\300\301\"\302\303\"B\207" [svg--path-command-symbol s apply append] 6 (#$ . 10078)])
#@36

(fn COORDINATES-LIST &rest ARGS)
(defalias 'svg--quadratic-bezier-curveto-command #[385 "\300\301\"\302\303\"B\207" [svg--path-command-symbol q apply append] 6 (#$ . 10253)])
#@36

(fn COORDINATES-LIST &rest ARGS)
(defalias 'svg--smooth-quadratic-bezier-curveto-command #[385 "\300\301\"\302\303\"B\207" [svg--path-command-symbol t apply append] 6 (#$ . 10438)])
#@33

(fn COMMAND DEFAULT-RELATIVE)
(defalias 'svg--eval-path-command #[514 "\300\301D\"\302K\303K\304K\305K\306K\307K\310K\311K\312K\313K\n\314\315\316\317\320&\n\321\"\322$\216\302\323M\210\303\324M\210\304\325M\210\305\326M\210\306\327M\210\307\330M\210\310\331M\210\311\332M\210\312\333M\210\313\334M\210\335\336\337!\340#)\207" [append :default-relative elliptical-arc smooth-quadratic-bezier-curveto quadratic-bezier-curveto smooth-curveto curveto vertical-lineto horizontal-lineto lineto closepath moveto make-byte-code 0 "\312\300M\210\313\301M\210\314\302M\210\315\303M\210\316\304M\210\317\305M\210\320\306M\210\321\307M\210\322\310M\210\323\311M\207" vconcat vector [elliptical-arc smooth-quadratic-bezier-curveto quadratic-bezier-curveto smooth-curveto curveto vertical-lineto horizontal-lineto lineto closepath moveto] 2 svg--elliptical-arc-command svg--smooth-quadratic-bezier-curveto-command svg--quadratic-bezier-curveto-command svg--smooth-curveto-command svg--curveto-command svg--vertical-lineto-command svg--horizontal-lineto-command svg--lineto-command svg--closepath-command svg--moveto-command mapconcat prin1-to-string apply " "] 29 (#$ . 10630)])
#@262 Add the outline of a shape to SVG according to COMMANDS.
Coordinates by default are absolute.  ARGS is a plist of
modifiers.  If :relative is t, then coordinates are relative to
the last position, or -- initially -- to the origin.

(fn SVG COMMANDS &rest ARGS)
(defalias 'svg-path #[642 "\300\301\"\302\301\"\303\304\305\306\307\310\311\312	!\313\"\314\315%\"\316#\317\320\321\322B\323\"B\"\"\207" [plist-get :relative svg--plist-delete mapconcat identity mapcar make-byte-code 257 "\301\300\"\207" vconcat vector [svg--eval-path-command] 4 "\n\n(fn COMMAND)" " " svg--append dom-node path d svg--arguments] 14 (#$ . 11829)])
#@211 Add a clipping path to SVG, where ARGS is a plist of modifiers.
If applied to a shape via the :clip-path property, parts of that
shape which lie outside of the clipping path are not drawn.

(fn SVG &rest ARGS)
(defalias 'svg-clip-path #[385 "\300\301\302\"\"\303\"\210\211\207" [dom-node clipPath svg--arguments svg--append] 7 (#$ . 12475)])
#@58 Add the custom node TAG to SVG.

(fn SVG TAG &rest ARGS)
(defalias 'svg-node #[642 "\300\301\"\"\302\"\210\211\207" [dom-node svg--arguments svg--append] 8 (#$ . 12827)])
(provide 'svg)

${this.title}

Code Editor : svg.elc