From 7537b0ef2a84fc0c3890f5a6afc8dec8c93eba58 Mon Sep 17 00:00:00 2001
From: milky <milky@tfwno.gf>
Date: Tue, 19 Apr 2022 22:23:12 +0200
Subject: [PATCH] Add 'app.rc'

---
 app.rc | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 app.rc

diff --git a/app.rc b/app.rc
new file mode 100644
index 0000000..722416e
--- /dev/null
+++ b/app.rc
@@ -0,0 +1,38 @@
+fn conf_enable_watatsuki {
+       enable_watatsuki=yes
+       conf_enable_app watatsuki
+       pageTitle='Watatsuki'
+   }
+
+fn watatsuki_init {
+       get_post_args q
+       if (! ~ $#q 0) {
+           handler_body_main='watatsuki_display'
+       }
+       if not {
+           handler_body_main='watatsuki_body'
+       }
+   }
+
+fn watatsuki_body {
+       echo '
+<h1>Watatsuki</h1>
+<form action="/watatsuki/" method="POST">
+<label for="address">Enter a Gemini address:</label>
+<input type="text" id="address" name="q" placeholder="gemini://">
+<input type="submit" value="Submit">
+</form>'
+   }
+
+fn watatsuki_display {
+       echo '
+<h1>Watatsuki</h1>
+<form action="/watatsuki/" method="POST">
+<label for="address">Enter a Gemini address:</label>
+<input type="text" id="address" name="q" placeholder="gemini://">
+<input type="submit" value="Submit">
+</form>'
+       gem_src=`{echo $q | perl -pe 's/\//\\\//g' | perl -pe 's/\:/\\\:/g' | perl -pe 's/\./\\\./g'}
+       site=`{gcat $q | gmi2mkd | perl -pse 's/(?<=\()[^http].*(?=\))/'$gem_src'\/$&/g' | cmark}
+       echo $site
+   }
\ No newline at end of file