$newline never
<section .profile>
  <dl .deflist.profile-dl>
      <dt .deflist__dt>
        _{MsgIdent}
      <dd .deflist__dd .email>
        #{userIdent}
      <dt .deflist__dt>
        _{MsgName}
      <dd .deflist__dd>
        ^{nameWidget userDisplayName userSurname}
      $maybe matnr <- userMatrikelnummer
        <dt .deflist__dt>
          _{MsgMatrikelNr}
        <dd .deflist__dd>
          #{matnr}
      <dt .deflist__dt>
        _{MsgEMail}
      <dd .deflist__dd>
        #{mailtoHtml userEmail}
      $if showAdminInfo
        <dt .deflist__dt>
          _{MsgLastLogin}
        <dd .deflist__dd>
          $maybe llogin <- lastLogin
            #{llogin}
          $nothing
            _{MsgNever}
        <dt .deflist__dt>
          _{MsgProfileLastLdapSynchronisation}
        <dd .deflist__dd>
          $maybe lsync <- lastLdapSync
            #{lsync}
          $nothing
            _{MsgNever}
        $maybe pKey <- userLdapPrimaryKey
          <dt .deflist__dt>
            _{MsgProfileLdapPrimaryKey}
          <dd .deflist__dd .ldap-primary-key>
            #{pKey}
    $forall (function, schools) <- Map.toList functions
      <dt .deflist__dt>_{function}
      <dd .deflist__dd>
        <ul .list--inline .list--iconless .list--comma-separated>
          $forall ssh <- schools
            <li>
              #{ssh}
    $if not $ null lecture_corrector
      <dt .deflist__dt>_{MsgProfileCorrector}
      <dd .deflist__dd>
        <ul .list-ul>
          $forall (E.Value tid, E.Value ssh, E.Value csh) <- lecture_corrector
            <li .list-ul__item>
              <a href=@{CourseR tid ssh csh CShowR}>#{tid}-#{ssh}-#{csh}
    $if not $ null studies
      <dt .deflist__dt>_{MsgAdminFeaturesHeading}
      <dd .deflist__dd>
        <div .scrolltable>
          <table .table.table--striped.table--hover.table--condensed>
            <tr .table__row>
              <th .table__th>_{MsgStudyTerm}
              <th .table__th>_{MsgStudyFeatureDegree}
              <th .table__th>_{MsgStudyFeatureType}
              <th .table__th>_{MsgStudyFeatureAge}
              <th .table__th>_{MsgStudyFeatureValid}
              <th .table__th>_{MsgStudyFeatureUpdate}

            $forall ((Entity _ StudyFeatures{studyFeaturesType, studyFeaturesSemester, studyFeaturesValid, studyFeaturesFirstObserved, studyFeaturesLastObserved}), (Entity _ degree), (Entity _ field)) <- studies
              <tr.table__row>
                <td .table__td>_{field}
                <td .table__td>_{degree}
                <td .table__td>_{studyFeaturesType}
                <td .table__td>#{studyFeaturesSemester}
                <td .table__td>#{hasTickmark studyFeaturesValid}
                <td .table__td>
                  $maybe fObs <- studyFeaturesFirstObserved
                    ^{formatTimeRangeW SelFormatDateTime fObs $ Just studyFeaturesLastObserved}
                  $nothing
                    ^{formatTimeW SelFormatDateTime studyFeaturesLastObserved}
<section>
  <div .container>
    $if hasRows
      <div .container>
        <h2>_{MsgProfileCourses}
        <div .container>
          ^{ownedCoursesTable}

  <div .container>
    <h2>_{MsgProfileCourseParticipations}
    <div .container>
      ^{enrolledCoursesTable}

  <div .container>
    <h2>_{MsgProfileCourseExamResults}
    <div .container>
      ^{examTable}

  <div .container>
    <h2>_{MsgProfileTutorials}
    <div .container>
      ^{ownTutorialTable}

  <div .container>
    <h2>_{MsgProfileTutorialParticipations}
    <div .container>
      ^{tutorialTable}

  <div .container>
    <h2>_{MsgProfileSubmissionGroups}
    <div .container>
      ^{submissionGroupTable}

  <div .container>
    <h2>_{MsgProfileSubmissions}
    <div .container>
      ^{submissionTable}
      <em>_{MsgProfileRemark}
      _{MsgProfileGroupSubmissionDates}

  <div .container>
    <h2> _{MsgCorrector}
    <div .container>
      ^{correctionsTable}

    <em>_{MsgProfileRemark}
    _{MsgProfileCorrectorRemark}
    <a href=@{CorrectionsR}>_{MsgProfileCorrections}

^{profileRemarks}