define search function as macro

[shellwiki] / themes / default.sh

diff --git a/themes/default.sh b/themes/default.sh
index 033dd7f7a270d14d8f88774fde0ad9737a8a40cf..5ebbd0ef6964180a146ea96b10ddf5a2ee5658ec 100755 (executable)
--- a/themes/default.sh
+++ b/themes/default.sh
@@ -19,6 +19,7 @@
 theme_head(){
   local IFS="$BR"
   printf '
+  <meta charset="utf-8">
   <meta name="viewport" content="width=device-width">
   '
   for css in "$_BASE/%5B.%5D/cgilite/common.css" "$_BASE/%5B.%5D/themes/default.css" $PAGE_CSS; do
@@ -134,31 +135,6 @@ theme_editor(){
 
 theme_revisions(){ theme_page "$@"; }
 
-theme_search(){
-  local words="$*"
-  # STDIN: [STRING page][TAB][STRING teaser]
-
-  theme_page - "$(_ Search results): ${words}" <<-EOF
-       <article>
-         <h1>$([ "$words" ] && _ "Search results" || _ "Search" )</h1>
-         <form class="search" method="GET">
-           <input type="search" name="q" value="$(HTML $words)"><button class="search" type="submit">$(_ Search)</button>
-         </form>
-         <ol class="searchresults">
-           $(while read -r p t; do
-             path="$(UNSTRING "$p")" pfrag="${path%/}" title=''
-              while [ "$pfrag" ]; do
-                title="$(page_title "$pfrag")/$title"
-                pfrag="${pfrag%/*}"
-              done
-             printf '<li><a href="%s">%s</a><p>%s</p></li>' \
-                "$(URL "$path")" "$(HTML "/$title")" "$(UNSTRING "$t" |HTML)"
-           done)
-         </ol>
-       </article>
-       EOF
-}
-
 theme_attachments(){
   local page="$1"