;;; -*- mode: Lisp; Syntax: Common-Lisp; -*- ;;; ;;; Copyright (c) 2009 by the authors. ;;; ;;; See LICENCE for details. (in-package :hu.dwim.web-server) ;;;;;; ;;; Util (def localization hu (sequence.empty "üres") (sequence.element "elem")) ;;;;;; ;;; Mime type (def localization hu (mime-type.application/msword "Microsoft Word Dokumentum") (mime-type.application/vnd.ms-excel "Microsoft Excel Dokumentum") (mime-type.application/pdf "PDF Dokumentum") (mime-type.image/png "PNG kép") (mime-type.image/tiff "TIFF kép")) ;;;;;; ;;; Error handling (def localization hu (error.internal-server-error "Ismeretlen eredetű hiba") (error.access-denied-error "Hozzáférés megtagadva") (render-error-page/internal-error (&key administrator-email-address &allow-other-keys)

,(when administrator-email-address

" email címen megteheti.">)

>>) (render-error-page/access-denied (&key &allow-other-keys)

>>))