mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 02:30:42 -08:00
133 lines
7.9 KiB
Common Lisp
133 lines
7.9 KiB
Common Lisp
(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")
|