49 lines
9.3 KiB
ReasonML
49 lines
9.3 KiB
ReasonML
|
let image1 = "https://media1.popsugar-assets.com/files/thumbor/PqBqxo_cWMRP99nvp73HN0lSqr0/fit-in/1024x1024/filters:format_auto-!!-:strip_icc-!!-/2016/01/11/797/n/1922153/940d7f6ffea5ccb7_grid-cell-30798-1452255774-1/i/Photos-People-Freckles.jpg";
|
||
|
|
let image2 = "https://www.w3schools.com/howto/img_avatar.png";
|
||
|
|
let image3 = "https://secure.gravatar.com/avatar/d9032fc9ac4a2f815ae8f88a0bdd97f2?s=96&d=mm&r=g";
|
||
|
|
let image4 = "https://avatars1.githubusercontent.com/u/377065?v=4";
|
||
|
|
let bot1image = "data:image/jpeg;base64,/9j/4AAQSkZJRgABAQAAAQABAAD/2wCEAAkGBxITEhUQEhAVFRUXGBUVFhUVFxAWFRUVFRcWFhUVFRUYHSggGBolHRUWIjEhJSkrLi4uFx8zODMtNygtLisBCgoKDg0OFhAQFysgFR0rKysrKysrLSsrKy0tLS0tKystLS0tKy0tKy0tKystKy0tKy0rNy03LS03Ky0rNystLf/AABEIAOEA4QMBIgACEQEDEQH/xAAcAAABBQEBAQAAAAAAAAAAAAAAAQQFBgcDAgj/xABFEAABAwIDBQUFBgQEAwkAAAABAAIDBBEFITEGEkFRYQcTInGBMkJSkcEUYnKhsfAjNILRc5LC8RUzUzVDVGOisrPh4v/EABkBAQEBAQEBAAAAAAAAAAAAAAABAgMEBf/EACQRAQACAgICAgIDAQAAAAAAAAABAgMRITEEEhNBMmEiUXEU/9oADAMBAAIRAxEAPwDQkIQtIEBCEAQhCE0BCEKAQhCAQEIQIhC5zztY0ve5rWjVziAB5kpodEKp1PaDRjvBE50xjaXncB3SAcwHHI+YVak7S6l5/hUoa3gXHMjz0XWuK0/TM2iGoEJAsuPaDXcIIv8AMSpHB+0OR8jYZqXdLvea7IAZ3O9wW58e8Qe8NAQoDB9sqKpIayYNeb+CTwEkG3hvkdOCn1wmsx21sIQhQCSyVCBEJUisBUiEIBCEIOqRKkQCEIQCEIQCEEIUAhCEAhdIIXPNmhOmYYfed8kGd7ZbdNpXmmhiMk9r3OTGX0vxJWZ47ik9QQ+rnyGjATbpZugU92wxOp8QeQ3KRrC0+QsbKgxxuebnMr6PjYItES52to+hxLuzeBu6R7xzPqpCPEXP9uBruZaXsv6BdMLwMu1Ct+FbMl1gG3X0ow0pHLxZPJ51CrOkaBdtI0HnvylNajGJwCwBrGnVoGbhyc7Wy1duxY3MyN7gOCqOMbPFpIIzVr8d51Dn89q9wpIMT/aHdu5jS6s+C7W1tJZpPfwjgSSbfddqPXJQNfh9jovUEcsQBtdh+S4ZvFrL1Uzbbhs7jcdZCJ4wQLlpa6281w1GWRUmonssow6iL3NtvPJGgOQtfJWl+Fj3XWXxckRW0w9UcwjEL3NGWndOq8LChIlQqEQlRZQCRKhB0QhCoRCChAJUJFAqRKkQCEIQSuDjw+pT1yZYSfD806kcsyrPe2jZp1VSCeIXkgJdugZujOTreWtljmz1OHOX1CXcFRdouzClneZoJH00pzJjsWOPVp09F7vE8v4uJccuL3hG7M4IHAHQcTkr7Q0DGCzRb6qhU2xOLw5Q4nGW8N5hB+qkY8Ex/wD8fTerP/yumbyIydS82Pxpp9J2h2gpKiSSCGdr5IsntAcLcDYkeIcLhMNoaEPaTbxAfNVih7OcUgmfUQ1dNG+S+8WtNszc2FrD0TifYvGH5PxNlugI+iziy1rO9t5MM3jWlIxtoBK97Mu797acML3GzQByJz3uQAuVaYeyGR5vU17nDUhjc/mVfNm9l6WhbuwR2PF7s3u9V3zefWa6r2mLxvXtMYbRthjbEwANaLZCwPM26p0CuHeL02RfJmdzt7Ubiw8Y8vqmKe4ocx5JkqBCEIgQhCAQhCDohCFQhQlSFAJUiE0FSFCVQIhCEDygmsCOqcPlUPFPZzh5fourqlZlUiJVFYjWPys7dBO60N9t51NufHTkurZ1G7bbJnEqeJsE/czROLmG5t4m7rmm2Y0GaaNHWA4yJi7ckLw1xY9rvaY4ZkEcD6kKwNlVP2D2N/4ZDI2SbvJpXBzyL7o3RYAX11OasokTTMRo9dKuE01gTyF1x71eHSI0q1Vj4Ermvc67RvOs5rWxtOhO84KyYdUiSJkrZBIx43mPHEKnbXdmMdfKJ46ruXENbI0gua4N0IF/NW2iooqOlioonFwjaG7xIJ1JJPC5N8lWYro7MyUTqLfULx9rTTR3VPuVxXCnm3nH0TlUeUL0QvKIEpCRKECISoQe0IQqBIlQgRCEIBCEIFQkQoIHFK3cmIvwBXhuI34qK2naftR5FjbdVFGVwWZWFzhreqdxVfVUuGuKkIa9RVrbUrq2dVuOtThtX1QThqF5M6qlPUV32p4e2IUue44E94dLAtvkL31ClTMtIfvqU1kqkyklKZTzFahDuorbcVHzYpbimVTKVFyyDi4fNXRtdNlqrvO8PK31U+qnsQ9gEnjbckWBc0HIHgc1bFJgCEIUCWShCECoSIQe0IQqApEqRAiEqEHlKlXKonaxpe9wa1oJcToANSrrY9SPDQXOIAAuSSAAOZJVKxjtIp2Esp2OqHD3m5Rg/iOvoqJtrtZLWvLGkspgcm/EB7z+ZVTfUn2WZDpqvXi8Xfbn7/0uuLbdVcti5tNHbTIlw/quFwpdr5TYSCF/4Tuk+QUfs7sTNVjvD/DiHtSHj91g949dApWXCaemNmNLiPU+ZOgXPNFKcNREzym8LxFk3/dPaeRaR8jxUrFTNOh/f0Vew+vde4s0fP5G6tGHVgkNpA0/eGTgvNMNukdMncUC6YrE2CIzNcS0buR+8bXuqMzbaffIETS2+QOtvMLMi/sh/dkohKqUG2Upy7gDzJTqh2gmfKA7da3PIXzNss1BPSxKtYvi7GHu2eN/IZgKX2rrxT0vfAkvfZrByJvc/ILIKnEHNuAfEdT565r1+Pgm7FrRCcxLGXNduuIcfhBvbzAXGLE5j7LVF4RSF7hfiVr+yOxrCwTzjdj1A0L/AD5NX070xYa7s8nva1tQzSLDJqiTw00kj+cQcSPUaeRsrtgWEY3TW3InSR/9KeSG4H3SX3BU5tLt9T0Q7mBguNGMA+buXmVnVf2rVm9lHujqXfRfMyeTF+q6h6q45juWu0NU94tJA+GTix9rebXtu1w9U7ssv2b7TXSuEcwsTpc3F+XQlaVSVAkbvD/Y8l53TTtZCVCIRCVCD0EFKhUIkSoQIgpUiAVO7QHyTdzQxZmV13dWiwAPS+Z8lcVT8dre7qKiUZvjp7MGV7vLvEB0BPyC6Yu3PLOqsm2qEbJXQxZsjuze4vcMnO8ib26WXvYTZ01tS2LSNtnSu5M5Dq4+EeqhK+clxPUrZ+yPDRDh5nIAdM5zr/cb4W/nde3LlmlOPtnFXhYK2AOApoR3cbBY24N4NA+IqFxHBWkbrW2H748fNWmkjszMZu8R9cwPQWXl1PvaL5b0M1qcELdB8tV7wou3i1u84jWzH7t/hDrWJWlxYKD7Sf0uDxsFgwD5K7RSZxNLF3BidunM6aWyHzCZUuxjibmEjz/3Wox0rRwThkQUkZ5BsMTwA9SnjNhLeLfAt+JXsNTeobfJQY92mxlrY2OflEwkZW33vNmgcrBt8+ayk5m9wtI7asRvOynAsGMDnfec7LP0Cy9js7r7Hi8Vh5rczLRuzbCO/qGMI8Au+Q/daRl6mw9VpG3eNOYwU8A/iP8ABGBoBxd5BRHZlh32Wi+0SAh82beYj93+6ltmqP7VUOq3Dwt8Md+Q1PqV4vMze9/06Yqesfsx2Z7NowO9qbyPOZvpfrfVT1dsLRSMLHU7LEcAAfO6twsBZcXheV1fMu3mx7sOqG7lzDIT3bje4I1Y7qNRzWnbAV/eQMJOZFj1LePyP5Kz7Z4Iyqp3xPYHG28y/B4B3SCqNsGx0TRG8WO/pytlb9UF/QkCVaQIQhB7QhCoEiVIgEIQgQlZb2mF0b5tWmRsJ1sS3xeHyWoslAO8dG6DmVnnaVTOqGOcM5BoOY1ItxsfqumK0Rblm0bhi87s19FYOzuMNghOThCwEfee0X/NyxzZfZd007XTNLIWkOkLhYut7gvrf9FouL40XvYGjJrmuI/DoPLIJnye06hqkaXdktzYfuy54pjkFI27yXPtfcYLu9eDR1KhG4o5jLxDelee7iHIu9/0uFV9uZRAPswfvSGzp5D7T5Dq2/wjkmHF7Ty55Mvqe4h2wOaf4VGwD/zJHE/JoA/NN6PtrkDv41Cwt493I8OHkHXB8rrMKh/FNHvXv/5sfWnOuS0vqfZnaenro+9p33t7TDk9h5OH1U01y+V9kMe
|
||
|
|
|
||
|
|
let links = () =>
|
||
|
|
<div>
|
||
|
|
<h3> {"Bot" |> ReasonReact.string} </h3>
|
||
|
|
<AgentLink
|
||
|
|
agent={AgentLink.Agent.makeBot(
|
||
|
|
~name="Stan Bot",
|
||
|
|
~owner=
|
||
|
|
AgentLink.Agent.makeUser(
|
||
|
|
~name="Samantha Grey",
|
||
|
|
~image=image3,
|
||
|
|
(),
|
||
|
|
),
|
||
|
|
(),
|
||
|
|
)}
|
||
|
|
/>
|
||
|
|
<h3> {"User Simple" |> ReasonReact.string} </h3>
|
||
|
|
<AgentLink
|
||
|
|
agent={AgentLink.Agent.makeUser(
|
||
|
|
~name="Stan Lee",
|
||
|
|
~image=image1,
|
||
|
|
(),
|
||
|
|
)}
|
||
|
|
/>
|
||
|
|
<h3> {"User Ozzie" |> ReasonReact.string} </h3>
|
||
|
|
<AgentLink
|
||
|
|
agent={AgentLink.Agent.makeUser(
|
||
|
|
~name="Ozzie Gooen",
|
||
|
|
~image=image4,
|
||
|
|
(),
|
||
|
|
)}
|
||
|
|
/>
|
||
|
|
<h3> {"User with long name" |> ReasonReact.string} </h3>
|
||
|
|
<AgentLink
|
||
|
|
agent={AgentLink.Agent.makeUser(
|
||
|
|
~name="Stan Ben Goldmemberfeinsteinwatkins",
|
||
|
|
~image=image2,
|
||
|
|
(),
|
||
|
|
)}
|
||
|
|
/>
|
||
|
|
</div>;
|
||
|
|
|
||
|
|
let entry = EntryTypes.(entry(~title="AgentLink", ~render=links));
|