diff options
Diffstat (limited to 'xml/lingua.conf.in')
-rw-r--r-- | xml/lingua.conf.in | 83 |
1 files changed, 79 insertions, 4 deletions
diff --git a/xml/lingua.conf.in b/xml/lingua.conf.in index 41ed693..3569f8a 100644 --- a/xml/lingua.conf.in +++ b/xml/lingua.conf.in @@ -12,13 +12,16 @@ <SOUNDREF> <![CDATA[ <img src="graphics/audio.png" width="16" height="16" alt="[ sound ]" />]]> - </SOUNDREF> + </SOUNDREF> + <SEARCH + ADD-INPUTS="config=ellinika.{@LANG},restrict=/{@LANG}/,lang={@LANG}" /> <GUILE> <![CDATA[ (use-modules (xmltools xmltrans) (xmltools gamlet) (xmltrans lingua) - (xmltools dict)) + (xmltools dict) + (ice-9 format)) (define-macro (install-nea) `(use-modules (xmltrans lingua) @@ -29,7 +32,7 @@ "/nea.=SCRIPT_SUFFIX=?LANG=" (lingua:LANG args))))) (xmltrans:set-attr "LINGUA" "NEA" nea))) - + (xmltrans:end-tag "KATHAREVUSA" (tag attr text) @@ -59,7 +62,79 @@ "news:permanent-article" (tag attr text) (list "<div class=\"permanent-article\">" text "</div>")) - + +(xmltrans:end-tag + "htdig:nomatch" + (tag attr text) + (format #f +"<div class=\"htdig-result-header\"> +~A +</div> + +<div class=\"htdig-result-form\"> +<form method=\"get\" action=\"$(CGI)\"> +<input type=\"hidden\" name=\"exclude\" value=\"$&(EXCLUDE)\"> +~A: $(METHOD) +~A: $(FORMAT) +~A: $(SORT) +<br> +~A: +<input type=\"text\" size=\"30\" name=\"words\" value=\"$&(WORDS)\"> +<input type=\"submit\" value=\"~A\"> +~{~A~} +</form> +</div>" + (lingua:gettext "No matches were found for '$&(LOGICAL_WORDS)'") + (lingua:gettext "Match") + (lingua:gettext "Format") + (lingua:gettext "Sort by") + (lingua:gettext "New search") + (lingua:gettext "Search") + (lingua:expand-additional-inputs + (xmltrans:tag-attributes "LINGUA") + (lingua:attr "SEARCH" "ADD-INPUTS")))) + +(xmltrans:end-tag + "htdig:body" + (tag attr text) + (format #f +"<div class=\"htdig-result-form\"> +<form method=\"get\" action=\"$(CGI)\"> +<input type=\"hidden\" name=\"exclude\" value=\"$&(EXCLUDE)\"> +~A: $(METHOD) +~A: $(FORMAT) +~A: $(SORT) +<br> +~A: +<input type=\"text\" size=\"30\" name=\"words\" value=\"$&(WORDS)\"> +<input type=\"submit\" value=\"~A\"> +~{~A~} +</form> +</div> + +<div class=\"htdig-result-header\"> +~A +~A +</div> + +<div class=\"htdig-result-list\"> +$(HTSEARCH_RESULTS) +$(PAGEHEADER) +$(PREVPAGE) $(PAGELIST) $(NEXTPAGE) +</div>" + (lingua:gettext "Match") + (lingua:gettext "Format") + (lingua:gettext "Sort by") + (lingua:gettext "New search") + (lingua:gettext "Search") + (lingua:expand-additional-inputs + (xmltrans:tag-attributes "LINGUA") + (lingua:attr "SEARCH" "ADD-INPUTS")) + (lingua:gettext "Documents $(FIRSTDISPLAYED) - $(LASTDISPLAYED) of $(MATCHES) matches.") + (format #f + (lingua:gettext "More ~A's indicate a better match.") + "<img src=\"/htdig/star.gif\" alt=\"*\">"))) + (gamlet:set-handler "INFO" (lambda (. args) (display "<ul class=\"menu\">") |