(* Template -- site templates Copyright (C) 2013 Benjamin Barenblat This file is a part of 6.947. 6.947 is is free software: you can redistribute it and/or modify it under the terms of the GNU Affero General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. 6.947 is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for more details. You should have received a copy of the GNU Affero General Public License along with 6.947. If not, see . *) open Styles fun pageTitleTag nameOpt = let val titleString = case nameOpt of | None => "6.947 – Functional Programming Project Laboratory" | Some s => "6.947 – " ^ s in {[titleString]} end fun generic (pageName : option string) (content : xbody) : xhtml [] [] = {pageTitleTag pageName} {content}

6.947 is free software: you can redistribute it and/or modify it under the terms of the gnu Affero General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.

6.947 is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose. See the gnu Affero General Public License for more details.

You can get the 6.947 source code via Mercurial.