]]> " text "")) (xmltrans:end-tag "news" (tag attr text) (list "
" text "
")) (xmltrans:end-tag "news:summary" (tag attr text) (list "
" text "
")) (xmltrans:end-tag "news:article" (tag attr text) (list "
" text "
")) (xmltrans:end-tag "news:header" (tag attr text) (list "
" text "
")) (xmltrans:end-tag "news:permanent-article" (tag attr text) (list "
" text "
")) (xmltrans:end-tag "htdig:nomatch" (tag attr text) (format #f "
~A
~A: $(METHOD) ~A: $(FORMAT) ~A: $(SORT)
~A: ~{~A~}
" (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 "
~A: $(METHOD) ~A: $(FORMAT) ~A: $(SORT)
~A: ~{~A~}
~A ~A
$(HTSEARCH_RESULTS) $(PAGEHEADER) $(PREVPAGE) $(PAGELIST) $(NEXTPAGE)
" (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.") "\"*\""))) (gamlet:set-handler "INFO" (lambda (. args) (display "
    ") (format #t "
  • ~A
    " (lingua:gettext "This page in other languages")) (display "
      ") (let* ((name (string-split (gamlet:current-output-file-name) #\/)) (rest (substring (gamlet:current-output-file-name) (1+ (string-length (car name)))))) (for-each (lambda (lang) (cond ((not (string=? (car lang) (car name))) (if (not (null? args)) (format #t "
    • ~A
      • " ((lingua:attr "LINGUA" (car args)) #:lang (car lang)) (cdr lang)) (format #t "
    • ~A
      • " (car lang) rest (cdr lang)))))) '(("pl" . "Polski") ("ru" . "Русский") ("uk" . "Українська")))) (display "
"))) #f ]]>