diff --git a/examples/common/default/default.css b/examples/common/default/default.css
index 1a2ba82..b548149 100644
--- a/examples/common/default/default.css
+++ b/examples/common/default/default.css
@@ -202,6 +202,33 @@
display: inline;}
div.foldtabs p {margin: 0;}
+/* ToDo List CheckBox inspired by https://cultureacademia.jp/webcreate/303/ */
+input.s4-checkbox {display: none;} /* Do not show real checkbox */
+input.s4-checkbox + label {
+ position: relative; padding-left: 0.8em; margin-right: 1em;
+}
+input.s4-checkbox + label:before,
+input.s4-checkbox + label:after {
+ content: ""; display: block; /* Mimic Checkbox by absolute box */
+ position: absolute; top: 0; left: 0; margin: 0;
+}
+input.s4-checkbox + label:before { /* checkbox frame */
+ width: 0.8em; height: 0.8em; border: 1px solid #aaa; border-radius: 20%;
+}
+input.s4-checkbox:checked + label:before { /* checked frame bg */
+ background: pink;
+}
+input.s4-checkbox:checked + label { /* checked text */
+ /* text-shadow: red 1px 1px; */
+}
+input.s4-checkbox:checked + label:after { /* checked mark */
+ width: 0.6em; height: 0.4em; top: 0.05em; left: 0.1em;
+ border-bottom: 3px solid navy;
+ border-left: 3px solid navy;
+ transform: rotate(-40deg);
+}
+/* ---------------------------------------------------- */
+
div.dumptable {max-height: 15em; overflow: auto;}
div.dumptable tr:hover {background-color: #fee;}
table.dumpblogs td,
diff --git a/s4-funcs.sh b/s4-funcs.sh
index bb5841f..72b5d8e 100755
--- a/s4-funcs.sh
+++ b/s4-funcs.sh
@@ -476,6 +476,9 @@
# **Word** - Word
# __Word__ - Word
# SPC+SPC+$ -
+ cb='#\1|g" \
@@ -497,7 +500,10 @@
-e 's, __\([^_ |][^_]*[^ ]\)__ ,\1,g' \
-e 's, \*\([^* |][^*|]*[^ |]\)\* ,\1,g' \
-e 's, _\([^_ ][^_]*[^ ]\)_ ,\1,g' \
- -e 's, $,
,'
+ -e 's, $,
,' \
+ -e "s,- \[ *\]\([^|-]*\),${checkboxOFF},g" \
+ -e "s,- \[[^ ]\]\([^|-]*\),${checkboxON},g" \
+
}
minitbl() {
sed -n '
@@ -1150,15 +1156,15 @@
if [ -z "$dbuser" ]; then
return 1
elif [ x"$pswd" = x"wasureta" ]; then
- wasureta $user
+ wasureta "$user"
return 1 # wasureta error
fi
# dbpswd="`sq $db \"select pswd from passwd where name='$user'\"`"
# putheader; echo; echo user=$user, db=$dbpswd, enc=$encpswd
if pwcheck "$pswd"; then
newsession=`genrandom 50`
- dbsetbyid user $user skey "$newsession"
- dbsetbyid user $user login "`date '+%F %T'`"
+ dbsetbyid user "$user" skey "$newsession"
+ dbsetbyid user "$user" login "`date '+%F %T'`"
gencookie "user=$user" "skey=$newsession"
return 0
fi
@@ -1367,8 +1373,8 @@
}
invite() {
email=`getpar email`
- case $email in
- *@*@*) repo="無効なアドレスです" ;;
+ case "$email" in
+ *@*@*|*\ *) repo="無効なアドレスです" ;;
*@*)
local=${email%@*} domain=${email#*@}
if ! repo=`emaildomaincheck $email`; then