package Ġworld . ph ant asm al . web . core . dom Ċ Ċ import Ġkotlinx . browser . window Ċ import Ġorg . w 3 c . dom . HTML Anchor Element Ċ import Ġorg . w 3 c . dom . HTMLElement Ċ import Ġorg . w 3 c . dom . Node Ċ import Ġworld . ph ant asm al . web . shared . dto . Section Id Ċ import Ġworld . ph ant asm al . we bui . dom . append Html El Ċ import Ġworld . ph ant asm al . we bui . dom . span Ċ Ċ private Ġval ĠAS SET _ BASE _ PATH : ĠString Ġ= Ġwindow . location . pathname . remove Suffix ("/") Ġ+ Ġ"/ assets " Ċ Ċ fun ĠNode . external Link ( href : ĠString , Ġblock : ĠHTML Anchor Element . () Ġ-> ĠUnit ) Ġ= ĊĠĠĠ Ġappend Html El < HTML Anchor Element >(" A ") Ġ{ ĊĠĠĠĠĠĠĠ Ġtarget Ġ= Ġ"_ blank " ĊĠĠĠĠĠĠĠ Ġrel Ġ= Ġ" noopener Ġnoreferrer " ĊĠĠĠĠĠĠĠ Ġthis . href Ġ= Ġhref ĊĠĠĠĠĠĠĠ Ġblock () ĊĠĠĠ Ġ} Ċ Ċ fun ĠNode . section Id Icon ( section Id : ĠSection Id , Ġsize : ĠInt ): ĠHTMLElement Ġ= ĊĠĠĠ Ġspan Ġ{ ĊĠĠĠĠĠĠĠ Ġstyle . display Ġ= Ġ" inline - block " ĊĠĠĠĠĠĠĠ Ġstyle . width Ġ= Ġ"${ size } px " ĊĠĠĠĠĠĠĠ Ġstyle . height Ġ= Ġ"${ size } px " ĊĠĠĠĠĠĠĠ Ġstyle . background Image Ġ= Ġ" url ($ AS SET _ BASE _ PATH / images / section ids /${ section Id }. png )" ĊĠĠĠĠĠĠĠ Ġstyle . background Size Ġ= Ġ"${ size } px " ĊĠĠĠĠĠĠĠ Ġtitle Ġ= Ġsection Id . name ĊĠĠĠ Ġ} Ċ