Browse Source

hotfix: pre → span

Amélia Liao 2 years ago
parent
commit
b9e2fd2589
2 changed files with 4 additions and 4 deletions
  1. +2
    -2
      example/example.html
  2. +2
    -2
      src/Main.hs

+ 2
- 2
example/example.html View File

@ -1,9 +1,9 @@
<p>This is a literate Agda file.</p> <p>This is a literate Agda file.</p>
<p>Here’s some inline code:</p> <p>Here’s some inline code:</p>
<ul class="incremental"> <ul class="incremental">
<li>This is a link to the record below: <pre class="Agda"><a href="example.html#224" class="Record">Record</a></pre></li>
<li>This is a link to the record below: <span class="Agda"><a href="example.html#224" class="Record">Record</a></span></li>
<li>This is not: <code>Record</code></li> <li>This is not: <code>Record</code></li>
<li>This is a link with alternate text: <pre class="Agda"><a href="example.html#224" class="Record">also a link</a></pre></li>
<li>This is a link with alternate text: <span class="Agda"><a href="example.html#224" class="Record">also a link</a></span></li>
</ul> </ul>
<pre class="Agda"><a id="217" class="Keyword">record</a> <a id="Record"></a><a id="224" href="example.html#224" class="Record">Record</a> <a id="231" class="Symbol">:</a> <a id="233" class="PrimitiveType">Set</a> <a id="237" class="Keyword">where</a> <pre class="Agda"><a id="217" class="Keyword">record</a> <a id="Record"></a><a id="224" href="example.html#224" class="Record">Record</a> <a id="231" class="Symbol">:</a> <a id="233" class="PrimitiveType">Set</a> <a id="237" class="Keyword">where</a>
<a id="245" class="Keyword">constructor</a> <a id="hey-look"></a><a id="257" href="example.html#257" class="InductiveConstructor">hey-look</a> <a id="245" class="Keyword">constructor</a> <a id="hey-look"></a><a id="257" href="example.html#257" class="InductiveConstructor">hey-look</a>


+ 2
- 2
src/Main.hs View File

@ -45,11 +45,11 @@ link _ x = x
renderReference :: Reference -> Text -> Text renderReference :: Reference -> Text -> Text
renderReference (Reference href cls) t = renderReference (Reference href cls) t =
renderTags [ TagOpen "pre" [("class", "Agda")]
renderTags [ TagOpen "span" [("class", "Agda")]
, TagOpen "a" [("href", href), ("class", cls)] , TagOpen "a" [("href", href), ("class", cls)]
, TagText t , TagText t
, TagClose "a" , TagClose "a"
, TagClose "pre"
, TagClose "span"
] ]
data Reference = data Reference =


Loading…
Cancel
Save