ybbond-reason

My old site written in ReasonReact
Log | Files | Refs | README | LICENSE | CC-LICENSE

Link.re (460B)

      1 let handleClick = (internal, event) =>
      2   if (!ReactEvent.Mouse.defaultPrevented(event) && internal !== "") {
      3     ReactEvent.Mouse.preventDefault(event);
      4     ReasonReact.Router.push(internal);
      5   };
      6 
      7 [@react.component]
      8 let make = (~href="", ~text: string, ~internal="") =>
      9   <mark>
     10     <a
     11       href
     12       target="_blank"
     13       rel="noopener noreferrer"
     14       onClick={event => handleClick(internal, event)}>
     15       {ReasonReact.string(text)}
     16     </a>
     17   </mark>;