-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathcommon.ur
84 lines (80 loc) · 1.67 KB
/
common.ur
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
style wrapper
style header
style content
style footer
style right
style left
style login
style box
fun template title sidebar =
title' <- return (case title of
| None => "UMDTalks"
| Some t => t ^ " - UMDTalks"
);
(*sidebar <- return <xml><div>sidebar</div></xml>;*)
return <xml>
<head>
<title>{[title']}</title>
<link rel="stylesheet" type="text/css" href="/css/index.css" />
<link rel="icon" href="/images/favicon.ico" />
</head>
<body>
<div class={wrapper}>
<div class={header}>
(*<a link={Umdtalks.index}>*)<img src="/images/reallybigtalkslogo.gif" />(*</a>*)
<div class={login}>
<div class={box}>
<div class={header}>
Log in
</div>
</div>
</div>
</div>
<div class={content}>
<div class={left}>
{sidebar}
</div>
<div class={right}>
</div>
</div>
</div>
<div class={footer}>
About | University of Maryland © 2011
</div>
</body>
</xml>
(*
fun template title css sidebar page = return <xml>
<head>
<title>{constructTitle title}</title>
<link rel="stylesheet" type="text/css" href="/css/index.css" />
{constructCss css}
<link rel="icon" href="/images/favicon.ico" />
</head>
<body>
<div class={wrapper}>
<div class={header}>
<a link={Umdtalks.index ()}><img src="/images/reallybigtalkslogo.gif" /></a>
<div class={login}>
<div class={box}>
<div class={header}>
Log in
</div>
</div>
</div>
</div>
<div class={content}>
<div class={left}>
{sidebar}
</div>
<div class={right}>
{page}
</div>
</div>
</div>
<div class={footer}>
About | University of Maryland © 2011
</div>
</body>
</xml>
*)