From 1cac09ccf318a071dbb58769d9814255322ffff9 Mon Sep 17 00:00:00 2001
From: Hauke D <haukex@zero-g.net>
Date: Wed, 5 Sep 2018 11:42:36 +0200
Subject: [PATCH] Added loading state indicator

---
 web/regex_tester.html | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/web/regex_tester.html b/web/regex_tester.html
index ebc3449..68f7b58 100644
--- a/web/regex_tester.html
+++ b/web/regex_tester.html
@@ -521,6 +521,7 @@ sub run_code_callback {
 	$sample->children('.re_warns')->text( join "\n", $rv->{warns}->@* );
 	$errs = "### Errors ###\n$errs" if $errs=~/\S/;
 	$sample->children('.re_errors')->text($errs);
+	state $loading = 1; if ($loading) { $jq->('#loading')->remove; $loading=0 }
 }
 
 sub escape_html { # apparently no built-in JS function for this (?), so do it manually
@@ -562,6 +563,8 @@ sub hashchange {
 <div style="margin-bottom:1em;font-size:1.2em"><b>Perl Regex Tester</b>
 - powered by <a href="http://webperl.zero-g.net" target="_blank">WebPerl</a> (beta)</div>
 
+<div id="loading" style="position:absolute;left:40%;font-size:1.2em;font-weight:bold;color:red;"><tt>Loading...</tt></div>
+
 <div style="margin-bottom:1em">
 <div><button id="precodebtn">Add Preamble Code</button></div>
 <textarea id="precode" rows="3" cols="80" style="display:none">