annotate src/this.html.luan @ 5:ecc67abdde3f

more on mercurial hosting
author Franklin Schmidt <fschmidt@gmail.com>
date Sat, 09 Apr 2022 16:31:35 -0600
parents da780d885325
children a47430dc4b50
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
1 local Luan = require "luan:Luan.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
2 local error = Luan.error
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
3 local Io = require "luan:Io.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
4 local Http = require "luan:http/Http.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
5 local Shared = require "site:/lib/Shared.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
6 local head = Shared.head or error()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
7 local existing_header = Shared.existing_header or error()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
8
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
9
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
10 return function()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
11 Io.stdout = Http.response.text_writer()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
12 %>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
13 <!doctype html>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
14 <html>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
15 <head>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
16 <% head() %>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
17 <title>Reactionary Software - This Website</title>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
18 <head>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
19 <body>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
20 <% existing_header() %>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
21 <div content>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
22 <h1>This Website</h1>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
23
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
24 <p>This website is a tiny example of reactionary software. The UI is clean and simple, not fashionable. View the HTML source in the browser. Unlike all modern websites, the HTML here is readable. Now look at <a href="https://hg.luan.software/reactionary">the source</a> which is in <a href="/mercurial.html">Mercurial</a>. And the code is written in <a href="http://www.luan.software/">Luan</a> which makes it simple.</p>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
25 </div>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
26 </body>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
27 </html>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
28 <%
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
29 end