diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-20 14:10:16 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-20 14:10:16 +0200 |
commit | ee4b13e5dd53dd0886aacac3d6ec969b99db5524 (patch) | |
tree | 34b1df117277c3caab14a53af5979dd45507dd61 /journal.lisp | |
parent | c4d53ee9913de0d202cf9d8a49c69a1a526dedc6 (diff) |
Indicate the site language both in the HTTP headers and HTML code.
darcs-hash:2f851251a0fda4418c462d0cc663ea82c3f07bde
Diffstat (limited to 'journal.lisp')
-rwxr-xr-x | journal.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
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") (<xhtml :xmlns "http://www.w3.org/1999/xhtml" + :lang "de" (<:head (<:title (<:as-html |