informative-0.1.0.4: 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)
      $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} enctype=#{enctype}>
        ^{pageBody form}
        <button type="submit" name="action" value="save">Save
        <button type="submit" name="action" value="preview" default>Preview