Revision: 3755 Author: ksprotte URL: http://bknr.net/trac/changeset/3755
small indentation change
U trunk/projects/bos/web/web-utils.lisp
Modified: trunk/projects/bos/web/web-utils.lisp =================================================================== --- trunk/projects/bos/web/web-utils.lisp 2008-08-30 20:20:16 UTC (rev 3754) +++ trunk/projects/bos/web/web-utils.lisp 2008-09-01 10:09:00 UTC (rev 3755) @@ -37,18 +37,19 @@ (defun language-name (language-short-name) (cadr (assoc language-short-name (website-languages) :test #'equal)))
-(defun content-language-chooser () +(defun content-language-chooser () (html ((:p :class "languages") "Content languages: " (loop for (language-symbol language-name) in (website-languages) - do (labels ((show-language-link () + do (labels ((show-language-link () (html (cmslink (with-output-to-string (out) (write-string (hunchentoot:script-name*) out) ;; write language param and remaining get params (write-string "?language=" out) (write-string language-symbol out) - (dolist (get-param (remove "language" (hunchentoot:get-parameters*) :key #'first :test #'equal)) + (dolist (get-param (remove "language" (hunchentoot:get-parameters*) + :key #'first :test #'equal)) (destructuring-bind (key . value) get-param (write-string "&" out) (write-string key out)