(in-package :clog-tools)

(defparameter img-clog-icon "data:image/png;base64,
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAMAAABF0y+mAAABf2lDQ1BzUkdCIElFQzYxOTY2LTIu
MQAAKJF1kc8rRFEUxz8zgxEjioVkMQkbM2LUxEYZCSVNY5TBZuaZH2p+vN4bSbbKdooSG78W/AVs
lbVSREqWsiY26DnXqJHMvd17Pvd7zzmdey7Yw2ktY1b0QCabN0KjAfdMZNbtfKSKFhxAV1Qz9aFg
cIKy4+0Gm7JXXpWrvN+/o3YhbmpgqxYe1HQjLzwmPLGc1xVvCjdpqeiC8LGwx5ACha+VHivyk+Jk
kT8UG+HQMNgbhN3JXxz7xVrKyAjLy2nPpJe0n3rUS1zx7PSU2DZZrZiEGCWAm3FGGMZPLwOy+/Hi
o1tOlInv+Y6fJCexmuw6KxgskiRFHo+oS5I9LjYhelxmmhXV/799NRN9vmJ2VwAqHyzrpQOcG/BZ
sKz3fcv6PADHPZxlS/G5Peh/Fb1Q0tp3oX4NTs5LWmwLTteh+U6PGtFvSf28PZGA5yOoi0DjJdTM
FXv2c8/hLYRX5asuYHsHOsW/fv4LI2xnxwFcS14AAADkUExURQcFAEEwASwgAD4uAU05AVZAAiEY
AKuABJJuBOeuB/2+CAwIADYoAayBBP6/CGBIA1A8AfS4CFA7AR4WAGtPAigeATUnAfm7COCpB6p/
BOWsB3VYBA8LAD0uAtWgByQbARkTAcmXBpJtBAgFAN6nB6B4BZBsBYFhBHJWBGNLA1U/Av/ACAQD
AF9IA8KSBu+0B553BRsUAVE9A86bBrKGBgkHAKZ9BZ12Bfe6CNahBxMOAQMCAHdaBOatB5t1BQAA
ANymBwsIAMWUBsqYBr+QBl5HAzcpAvK2CNKeB8+cBumvByZFyZjjEKMAAABMdFJOU///////////
////////////////////////////////////////////////////////////////////////////
/////////////wCejeTMAAAACXBIWXMAAC4jAAAuIwF4pT92AAAA40lEQVQokYWSyQ6CMBCG56Sh
hxoORoJ7oqJWFEXcoe4aef/3scViZavfhdIv07T/DIQKQC41EqHlSEy+4JTUSQL9VyKSAkmZccJC
9kx5Mpc/WzXju/xIeU+z3qBNU94ZZGHLBsrodHFcCqHW6w+s4WhcpQJw4jQgbE1oGns6i0ohdDKO
M1+4XC5zJaXejMlugaQrJo0iuWZyUyS3/Ck78bNPuoPPQwhK/DHtsn60vNicKmci4kP+5bphgWHz
FpXfgwcW8cngMUKPp+u+2BeTbMui7UTLlM1Wj4l6wNSj+Weo83gDWkirJ693IE0AAAAASUVORK5C
YII=")

(defparameter img-btn-copy  "data:image/png;base64,
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAAAmklEQVRYw+3UMRKAMAgEQPilvlB/
GTsnQcIBVkauZWYLuIQbETFNc2xkhwEABQggAQNAuIGmTc8dCjbgEACABQRAAQJIwAAQHIAteABT
UIHI24gCDyEMSCEOCGEKaEtlRcgAg5ACeiEMHKITYaCJVsUB0csEMAoZYBByV+hu8Qag9j1AW2gB
BRRQwIoAKR/mn4DZsIACPFkEuAC6TOkBlDGd7QAAAABJRU5ErkJggg==")

(defparameter img-btn-paste "data:image/png;base64,
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAAAsUlEQVRYw2P8z4Ad3OvZdZdB2a1E
iQE/YMRhQHUblFHVSpYBpmfgTJPTZBgAt5+wG7AacE8ZSLh36jNcLN8JZN1VItWArOlwl4P8kjmN
VANU7jIwLI8AM1dEMjAo3yHVAEaEu8G++U/IAEYsEv+RDMMlN9wMQKYZcAQsNjXD0QB8YCQYQAwY
aQYQFagjwACCmWvUgFEDRg0YNWDUgFEDhqkB+CrQkWAAvgYVUQ2MoW0AAHFG7gFDTC63AAAAAElF
TkSuQmCC")

(defparameter img-btn-cut   "data:image/png;base64,
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAABmklEQVRYw63XS7WDMBRA0WMBDVjA
AxKehliIA5SgAAUYqAEcxANvkJamJPdDKSN6B6ebT7Ja9psHreFja03X5A7E0JqOszvQ0yCs/HkD
D2gQRkjOQISasAKzMzDQIIzQvIZWYKImrFwQpK4mjEDvfgo1QQS0AzVBBLQDFUEGCIHUAfH9OYgA
IbBPQHe8N5sMkAKpAyYHQAp8EDSAGCgJGkAMFAQVIAfeBBUgBw6CDlACL4IOUAJPggHQAplgALRA
JhgANZA6wACogbwodYAeyIR+/zqQCfONQKBclNcDG3zsC5cDId/E6dtABhgEDEDfGQQMwDwZBAzA
aXe8EngtQ4OAAdgtAhbAImABLAImwCBgAgwCNkAnYAN0Ag6ASsABUAl4ABoBD0Aj4AIohCqwhb61
FT836LAZgRSfuxAxeebnQBo4jiEJcy0QKY5oz8+BDWBY9n0ZPn5pPoR5FQiHPA3lV53mQQz0wJJP
l/JJSPMqAHDl/PeB25cg3Sz3TZQe4+Z9jLdfpPyPr/XKel/l4ruiby4s58ayleb/LPFOTlmptyoA
AAAASUVORK5CYII=")

(defparameter img-btn-del   "data:image/png;base64,
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAAArElEQVRYw+2X0QmEMBBEJ8c1YC/p
JdXYR8pKIUkN64+Cibtkj4MTvJmfQJh56CyIC9FUEjqlIpag5hcMWspHgISLkgUIcjUjKHeaDwDe
xn0XCLD1wpe6HxBk8o6zjp7SwTFr8QQG3wM6IMD4HhyzHk+WSAABBBBAAAH/+38gxskSfwFoc38z
ARHAOiW0dbeeZr4r+586q6tvjd58rPru7CX0+fPyXbMDEXOflw0jXPyICXO3dgAAAABJRU5ErkJg
gg==")

(defparameter img-btn-undo  "data:image/png;base64,
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAABaklEQVRYw9WVXZmDMBBFY6EaYgEP
kYCGWMBBHeAABVWAgRjAQTzMdkn3+2iZO3PDU/e+JufATP6CvBKekY+UOac0pJSmuQhIgIKSb+GQ
OG1dgpLCKXmjBXUKaqbKCcrQ5t/Ged1zH/8KKYxgbcXH5TCvLrE5F1+w6DPlpVg8QePHc7VSs2I4
CRo/64u+D96KJWhTHmjb7MOxYoHyCcUwQYHLi+x92ICg1W/yUn/XIgOBtkx6ERsWeLxIfOvCp8Dn
91+IRgmHgC68NeqCQMbjTrsiuB+bcEWwPofSSdCR7xAM/7sEfRk7om8kPmAr8wGHic+gH2c6D3Ch
0B1AVxobeKl2dFC/1jt4/WHhefC00Tx6XC/yPQKV7xDoPC8APC1APCuAPCnAPCcweEpg8YzA5AmB
zfsCh3cFHu8JXN4R+LwtIHhTwPCWgOINAcdjAclDAcsjAc0DAc/rgpXnwR9kmkc9yCwPV2Flr/sf
kDutVKnBxucAAAAASUVORK5CYII=")

(defparameter img-btn-redo  "data:image/png;base64,
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAABY0lEQVRYw8XWXXWEMBCG4dcCGrCA
BySsBizEwTrAAQqqIAZiAAd4+HrBdstZSGa6057OFScwDyF/A6pEmdM4DuM4TnN5vQfwvL7MXlPP
Ibqp/AhYJ04xFjewJS4jbT6gfHX+ds8555znW7c3DMUDLPvT/bIdG3e0yzawPNJ17S4WsOdP23lg
t9tBqAKlO7zmNeZvoQZsfSNf+njyNSA18w8drAArwCTZQgWYgH5TU9jH4RpYjQ84TNM1kIBe8gpn
oHd04CCcgAJQGYGrvXUCZuCmAJCAewQYgfxXQCt+Dxj+vQdhoDWNLqC1kFxAaym7AO9mqgMJGCLA
CvARADxHWhuwD1UDMI91EzAKiw20S5sHeJyYy/vAGwIKCigooKCAggIKCigooKCAggIKCigooKCA
ggIKCigooKCAggIKChZgCiZgCTZgCA6gLXiApuACHkJ+H9BSrbtOQEutbnsB1X4BPwGfFq1UtMYX
2wAAAABJRU5ErkJggg==")

(defparameter img-btn-test  "data:image/png;base64,
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAAA1UlEQVRYw+3X0RHCIBCE4b8XW6Ap
O6ID27EBOrCH9QHGjJGYg/XJ4Qr4ZjYhywWZwwL+Ani4QE65WEABHAMlcAyUaTNnoMI2EwZqGWYN
tGWYMtBbhnED7TMMGqiTYcRA/QxhAx1miBnoW4aAgU4ynBm1DxLMGhXIBOfTqEAhPjujVVqCSaMB
mcF5GaFSLbfr5cgIt3IXSbm4wP1XEeyH6L5G+yDZR9n9mOzP2S4Ut9LsUrVr3b1Y7KvNvlzd691e
MOwVx12y7DXPXjTtVXf9LyxgAZKkJ4F6zhMpFSjAAAAAAElFTkSuQmCC")

(defparameter img-btn-rndr  "data:image/png;base64,
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAAAgklEQVRYw+3VMQ6AMAxD0X//E/QG
PmYYQMCAYtouqMRDNz8pQ1IiIhhIHGEhIDpSQAEFFFDA+sDf/8aZLA9Ic4BAM4DAC5i+FXB9J2D7
RsD3c4EX/VQg6et8EoGkv18eIzwC7ajsayuA1j2Crtun7hEimu7Hs2lwF95c6wIKKOArwAZYB98h
JND6pAAAAABJRU5ErkJggg==")

(defparameter img-btn-save  "data:image/png;base64,
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAAAgUlEQVRYw+3XsQ3AIAwEwF+B6Twi
63ijpEmIiRQS3k1k/A0NXGEh0GNzBlEAFUxH9AK0gEjRBgioSANApgPsOhzabW8CCSSQQGTg82Ma
FJj6VBMIDbxdoFWA0dBWAp4O/BioXuAUKKAagQKswAFGIIFDYAsHK/S1r3oBQghVfR3ZAfx4mpHp
xQL+AAAAAElFTkSuQmCC")

(defparameter img-btn-load  "data:image/png;base64,
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAAAvElEQVRYw+3XSxKEMAgE0FyXk/Ux
caOJMZChMxs/sM8rpQy0RVW1/C6oUyUIuEIY8IQ44AgV0EnNBAYwBQqwhDAARwgD6ghxwBEIwBYY
wBQowBI4wBBIYBRYYBC4L9G4WatAeRgwa2oCCXwZoGfiDQHgPwDsTBzPN2EBQDeXeQD9ZKcBXHYD
C+C6XUgAw37igH0xnjMTBdRDp8xEAXI8dstMwr2C7I2rmUnYJgq6zCQ5ExNIYOHHswXMlwEbA/cn
p86hgYMAAAAASUVORK5CYII=")

(defparameter img-btn-sim   "data:image/png;base64,
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAACDElEQVRYw72XXbGEMAyFj4VqwEI9
IAENWMABDuogClCAAQzgoB64D/QXkm66O3P7xHTIN6Q9yQm4muuYB2CYD/kNtML9grAW/w3AW6Rl
/ReABcVa+gEHANjtujYLAEc3YE5f7i2AuRswANjuxw3A0A0AAO75/wA/p/DzIT6u8ewBeJoG1KtH
SH41eC2nBrDhAEgHkMJFAvhws1bSdzKhAlAKfxYviYQKYITwFgFP8bLhDcILIPYuKs7TOi8C8nEa
kgm5xfGA+zbMpSCwgHAb5pWFeUuTBYR4yoF1OucMwDYAz9swz/P3+bREgH/UdUXQAF5CLghek0Kx
PbK15fQANr55jTVgB2BIiNcAVgDTtZkOKdeAsdHQVICGswrV6CvAzolaAFgAsy9vOaqAdADHdfET
TULdVNNMY1X9kOnKkbCXNUg9vuBuRF2DpPaFaOXjI3dS+kIS3pIbGPX4QhLeVgx51OELSU1neSOk
94XYfkwEuc8EcP4xBQUPVRSxnRrcZLQGVc7Xm/ARYIOMpqDnkqABpEocYhEXBA1gD4VQlHTOXQNY
w0QY9VjlrgGM4XPXcrLrAZiQ+pjn3C5AkpEpZ9MOAIXUj2q67gBEGUU9dgNsSD2CugHR2KMevwX4
ekJg/UJO4eUMwi4LYJ1B2OWFxDpD/gd+/wFD+F+u3+R3+X7gnQXsc2C+dx0zB/8ByzzjO/698fwA
AAAASUVORK5CYII=")

(defparameter img-btn-exp   "data:image/png;base64,
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAAAk0lEQVRYw+3WyQ2AMAxE0WmBqtIi
HbgQGqAQeoAbJBYX+yMkkH3PUxYv0Q5DBRRQwGeB1QFN0hJYbzIEmDQKQWCb5IToDlYvhO/AC2HA
C3HACQlgFDLAIKSAXsgBnZAELuEEmjJhFJBRYH7uCPgS331Gmkg0lWkx0XKmDYW2NNpUeVung+Vm
tOHhWj+UAgoo4D/AAbZ5MUzjJov0AAAAAElFTkSuQmCC")

(defparameter img-btn-cons  "data:image/png;base64,
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAAAAACPAi4CAAACf0lEQVRYw92XUcG0KhCGnwpmsAId
iLAZrGCDr4ENSGACCljABnSYcyHCgODq/neHK91lHofhnRlA/nHwPwds0wjjtP0ICDNxzOEXQDCk
YcIPgBk15j7ADYNrrh/ArCKrAejGgQFoEabkeTDAdAtoEUZgPR5XYOwvgTYBoPV8DeKFsC2f4Qjd
M0BByMY8XYIkQmnM0yBKIjTGk20UEXHFl4fPsr0QkojIUBvXUh6/SPliXCVTP4QKsGy9dAbYvwP6
37B5Qx8AwjqbSpgz8PcMEOYYuEFPWQH7DGDTZugp++0KC0DSz3ZJzO0VoMrND7C8AlSEv6+5oAFF
bn6mTUT8t2wUgCASgKI+jNEw/t8HGGAKYTo8yYRTgwbwd4BF5Z0owllU7qREnXiiCGciuxspUaeu
KALRcKu1de1MYTFgsuRc6dLQlxKdUp4Je9S4ewfIBHcvpS4gFco5Ssm8Bch2EIycEnsLEH+4EH4G
yB9kjb5ZwnlmCLpf5IRe/TfAAEPILqRQnFXWfgNwaj+7oE5JvsisLqB0wYaizNsHgMoFV+6NbwJc
Aaii4HSfUS5Q2Q+5Nh4u1HUyisNfAaqUoVyo62TsHfYC0JNQLlR10p8O+Qqg7Z3uT1WdtIC1ygU6
9oMOaJ5wbIHeCDrfdxUg/jwe31YuICKyDxd7qQG5wvhCC6SDeWl/BZwEe+6FzYAxJVvZVJp10pdy
bLnppA0Qk5eeXEiT9oYWKoAOfnpOJxOzxw7npAfQ259eLkddpzKzrIZlGp5vSHE4yklnLtXQlh0y
vsbeGAnq+rTU1dC3TuM+54KFcdpbt75YzWwLYB/cG6O9b18I/N3NdTFgliB9B8D+ByJz09HLAsms
AAAAAElFTkSuQmCC")