informative-0.1.0.27: informative-edit.htm

<h1 #header>#{page}
<div #leftnav>
  <ul .leftnav title="Suggested">
    $forall (Entity _ sugg) <- suggs
      <li>
        <a href=@{toParent $ ArticleR $ wikisuggPage sugg}>#{wikisuggCaption sugg}
  <ul .leftnav title="Actions">
    $if loggedIn
      <li>
        <a href=@{authR LogoutR}>Logout
    $else
      <li>
        <a href=@{authR LoginR}>Login
<div #content>
  $maybe msg <- mmsg
    <div .hint>
      #{msg}
  $maybe sect <- msect
    $case (sect, kind, fmt)
      $of (Left c, Article, Source lg ln)
        <div .sourceContent .source-#{toClassname lg}>
          <div .titlehead>
            <div .langhead>
              #{prettify $ toClassname lg}
          #{c}
      $of (Left c, Article, _)
        <div .content>
          #{c}
      $of (Left c, Hint, _)
        <div .hint>
          #{c}
      $of (Left c, _, _)
        <div .error>
          #{c}
      $of (Right [], _, _)
        <div .error>
          Empty table.
      $of (Right rows, Table, _)
        <div .table>
          <table>
            <thead>
              $forall h <- head rows
                <th>#{h}
            $forall cols <- tail rows
              <tr>
                $forall c <- cols
                  <td>#{c}
      $of (Right rows, Mapping, _)
        <div .mapping>
          <table>
            $forall cols <- rows
              <tr>
                $forall c <- cols
                  <td>#{c}
  <div .content>
    <p>
      <form method=post action=@{submitR}>
        ^{pageBody form}
        <button type="submit" name="action" value="save">Save
        <button type="submit" name="action" value="preview" default>Preview