" 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 "
")) (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 ]]>