From ee4b13e5dd53dd0886aacac3d6ec969b99db5524 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 20 Sep 2007 14:10:16 +0200 Subject: Indicate the site language both in the HTTP headers and HTML code. darcs-hash:2f851251a0fda4418c462d0cc663ea82c3f07bde --- journal.lisp | 3 +++ macros.lisp | 5 ++++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/journal.lisp b/journal.lisp index 60bc06c..47ad91c 100755 --- a/journal.lisp +++ b/journal.lisp @@ -48,6 +48,7 @@ (defun show-atom-feed () (http-add-header "Last-Modified" (http-timestamp (compute-journal-last-modified-date))) + (http-add-header "Content-Language" "de") (http-send-headers "application/atom+xml; charset=UTF-8") (flet ((atom-time (time) @@ -237,9 +238,11 @@ ;; feel slower to the end user rather than faster. ;; ;; (http-add-header "Last-Modified" (http-timestamp (compute-journal-last-modified-date))) + (http-add-header "Content-Language" "de") (http-send-headers "text/html; charset=UTF-8") (")) - (emit-open-tag "html" `(("dir" . ,dir) ("lang" . ,lang) ("xmlns" . ,xmlns))) + (emit-open-tag "html" `(("dir" . ,dir) + ("lang" . ,lang) + ("xml:lang" . ,lang) + ("xmlns" . ,xmlns))) (emit-body body) (emit-close-tag "html")) -- cgit v1.2.3