aboutsummaryrefslogtreecommitdiff
path: root/xml
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2006-10-10 22:03:42 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2006-10-10 22:03:42 +0000
commitaa3b80645e8b1d9df3136591aa95bacbe8fb1f8a (patch)
treebd34ecd211cb114521bd5fb2858b4614b5fbfa18 /xml
parent485dcd4e301771df4788ad4ada976703129ab49d (diff)
downloadellinika-aa3b80645e8b1d9df3136591aa95bacbe8fb1f8a.tar.gz
ellinika-aa3b80645e8b1d9df3136591aa95bacbe8fb1f8a.tar.bz2
Add htdig framework
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@469 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'xml')
-rw-r--r--xml/lingua.conf.in83
-rw-r--r--xml/pl/ellinika.xml23
-rw-r--r--xml/uk/ellinika.xml24
3 files changed, 125 insertions, 5 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
@@ -9,30 +9,33 @@
<DICT PROG="dict.=SCRIPT_SUFFIX=" />
<BASE HREF="=BASE_HREF=" />
<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)
(xmltools dict))
(letrec ((nea (lambda (. args)
(string-append
(lingua:get-cgi-bin)
"/nea.=SCRIPT_SUFFIX=?LANG="
(lingua:LANG args)))))
(xmltrans:set-attr "LINGUA" "NEA" nea)))
-
+
(xmltrans:end-tag
"KATHAREVUSA"
(tag attr text)
(list "<div class=\"katharevusa\">" text "</div>"))
(xmltrans:end-tag
@@ -56,13 +59,85 @@
(list "<div class=\"news-header\">" text "</div>"))
(xmltrans:end-tag
"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\">")
(format #t "<li class=\"group\"><div class=\"group\">~A</div>"
(lingua:gettext "This page in other languages"))
(display "<ul class=\"menu\">")
diff --git a/xml/pl/ellinika.xml b/xml/pl/ellinika.xml
index ea1e3e3..6925957 100644
--- a/xml/pl/ellinika.xml
+++ b/xml/pl/ellinika.xml
@@ -19,12 +19,23 @@
<MSGSTR ID="Information">Informacje</MSGSTR>
<MSGSTR ID="For information about this site contact">W celu uzyskania bliższych informacji o tej stronie, napisz do</MSGSTR>
<MSGSTR ID="Previous Page">Poprzednia strona</MSGSTR>
<MSGSTR ID="Next Page">Następna strona</MSGSTR>
<MSGSTR ID="Top of the Page">Początek strony</MSGSTR>
<MSGSTR ID="This page in other languages">Ta strona w innych językach</MSGSTR>
+ <MSGSTR ID="Search">Szukaj</MSGSTR>
+ <MSGSTR ID="Match">Dopasowanie</MSGSTR>
+ <MSGSTR ID="Format">Format</MSGSTR>
+ <MSGSTR ID="Sort by">Sortuj</MSGSTR>
+ <MSGSTR ID="New search">Nowy wzorzec</MSGSTR>
+ <MSGSTR ID="Documents $(FIRSTDISPLAYED) - $(LASTDISPLAYED) of $(MATCHES) matches.">
+ Wyniki $(FIRSTDISPLAYED) - $(LASTDISPLAYED) z $(MATCHES).
+ </MSGSTR>
+ <MSGSTR ID="More ~A's indicate a better match.">
+ Im więcej gwiazdek (~A), tym lepiej pasuje wzorzec.
+ </MSGSTR>
</LOCALIZATION>
<COPYRIGHT>
<PARA><GUILE>
<![CDATA[
(use-modules (xmltrans lingua))
@@ -107,19 +118,29 @@ this notice is preserved.</PARA>
<GROUP TITLE="Poruszanie się po witrynie">
<ITEM>NAVIGATION</ITEM>
<PAGE PREFIX="map" HEADER="Mapa witryny">
{SITEMAP}
</PAGE>
+<ITEM>SEARCH</ITEM>
</GROUP>
<GROUP TITLE="permalink" HIDDEN="1">
-<PAGE PREFIX="monima" HEADER="@@title@@" REF="NEA">
+<PAGE PREFIX="monima" HEADER="@@title@@" REF="NEA" ROBOTS="index,nofollow">
<PARA>@@article-date@@</PARA>
<news:permanent-article>@@article-text@@</news:permanent-article>
</PAGE>
+
+<PAGE PREFIX="htdig" HIDDEN="1">
+<HEADER>Wyniki wyszukiwania "$&amp;(WORDS)"</HEADER>
+<htdig:body />
+</PAGE>
+<PAGE PREFIX="nomatch" HIDDEN="1">
+<HEADER>Wyniki wyszukiwania "$&amp;(WORDS)"</HEADER>
+<htdig:nomatch />
+</PAGE>
</GROUP>
</LINGUA>
<!-- Local Variables: -->
<!-- mode: ellinika -->
diff --git a/xml/uk/ellinika.xml b/xml/uk/ellinika.xml
index b8ef25d..38e7e3a 100644
--- a/xml/uk/ellinika.xml
+++ b/xml/uk/ellinika.xml
@@ -19,12 +19,26 @@
<MSGSTR ID="Information">Інформація</MSGSTR>
<MSGSTR ID="For information about this site contact">Щоб отримати докладнішу інформацію, напишіть до </MSGSTR>
<MSGSTR ID="Previous Page">Попередня сторінка</MSGSTR>
<MSGSTR ID="Next Page">Наступна сторінка</MSGSTR>
<MSGSTR ID="Top of the Page">Початок сторінки</MSGSTR>
<MSGSTR ID="This page in other languages">Ця сторінка іншими мовами</MSGSTR>
+ <MSGSTR ID="Search">Пошук</MSGSTR>
+ <MSGSTR ID="Match">Шукати</MSGSTR>
+ <MSGSTR ID="Format">Формат</MSGSTR>
+ <MSGSTR ID="Sort by">Сортировка</MSGSTR>
+ <MSGSTR ID="New search">Новий пошук</MSGSTR>
+ <MSGSTR ID="Documents $(FIRSTDISPLAYED) - $(LASTDISPLAYED) of $(MATCHES) matches.">
+ Сторінки $(FIRSTDISPLAYED) - $(LASTDISPLAYED) з $(MATCHES).
+ </MSGSTR>
+ <MSGSTR ID="More ~A's indicate a better match.">
+ Кількість ~A зірок відповідає ступеню збігу.
+ </MSGSTR>
+ <MSGSTR ID="No matches were found for '$&amp;(LOGICAL_WORDS)'">
+
+ </MSGSTR>
</LOCALIZATION>
<COPYRIGHT>
<PARA><GUILE>
<![CDATA[
(use-modules (xmltrans lingua))
@@ -107,19 +121,29 @@ this notice is preserved.</PARA>
<GROUP TITLE="Навігація">
<ITEM>NAVIGATION</ITEM>
<PAGE PREFIX="map" HEADER="Мапа сайту">
{SITEMAP}
</PAGE>
+<ITEM>SEARCH</ITEM>
</GROUP>
<GROUP TITLE="permalink" HIDDEN="1">
<PAGE PREFIX="monima" HEADER="@@title@@" REF="NEA">
<PARA>@@article-date@@</PARA>
<news:permanent-article>@@article-text@@</news:permanent-article>
</PAGE>
+
+<PAGE PREFIX="htdig" HIDDEN="1">
+<HEADER>Результати пошуку "$&amp;(WORDS)"</HEADER>
+<htdig:body />
+</PAGE>
+<PAGE PREFIX="nomatch" HIDDEN="1">
+<HEADER>Результати пошуку "$&amp;(WORDS)"</HEADER>
+<htdig:nomatch />
+</PAGE>
</GROUP>
</LINGUA>
<!-- Local Variables: -->
<!-- mode: ellinika -->

Return to:

Send suggestions and report system problems to the System administrator.