aboutsummaryrefslogtreecommitdiff
path: root/xml/lingua.conf.in
diff options
context:
space:
mode:
Diffstat (limited to 'xml/lingua.conf.in')
-rw-r--r--xml/lingua.conf.in83
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 '$&amp;(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\">")

Return to:

Send suggestions and report system problems to the System administrator.