~crc-x/+junk/old-forthlets

« back to all changes in this revision

Viewing changes to demo_sites/retroforth_org.retro

  • Committer: Charles Childers
  • Date: 2010-01-15 05:00:22 UTC
  • Revision ID: git-v1:b06537131be8245b64ea534415ed85aae04ca1ef
rxweb merged into this repo

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
2
 
| retroforth.org                                               |
3
 
| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
4
 
| This is the site for Retro 10.2                              |
5
 
| It is built using RxWeb                                      |
6
 
|                                                              |
7
 
| This example is gifted to the public domain; feel free to    |
8
 
| to use any parts of it you wish for any purpose.             |
9
 
| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
10
 
 
11
 
 
12
 
| ------------------------------------------------------------ |
13
 
| Start with a few pieces that are helpful in building a nice  |
14
 
| template for the actual pages.                               |
15
 
| ------------------------------------------------------------ |
16
 
: BOXES
17
 
  ( div
18
 
    ( table
19
 
      ( tr
20
 
        ( td
21
 
          ( h3 [a http://retroforth.org/binaries/ ." Binaries" ] )
22
 
          ( p ." This is all you need to get started" )
23
 
        )
24
 
        ( td
25
 
          ( h3 [a http://retroforth.org/binaries/retroImage ." retroImage" ] )
26
 
          ( p ." Grab this for the latest updates to the language" )
27
 
        )
28
 
        ( td
29
 
          ( h3 [a http://retroforth.org/doc.zip ." Documentation" ] )
30
 
          ( p ." The essentials for those seeking to learn and use Retro" )
31
 
        )
32
 
        ( td
33
 
          ( h3 [a http://github.com/crcx/retro10 ." Source Code" ] )
34
 
          ( p ." If you want to build it yourself..." )
35
 
        )
36
 
      )
37
 
    )
38
 
  )
39
 
;
40
 
| ------------------------------------------------------------ |
41
 
: HEADER
42
 
  | $- |
43
 
  ( html
44
 
    ( head
45
 
      ( title type )
46
 
      css: /style.css
47
 
    )
48
 
    ( body
49
 
      attr: src="http://retroforth.org/manatee.png"
50
 
      attr: height="128"
51
 
      attr: width="128"
52
 
      ( img ) ( br )
53
 
      ( h1 ." Retro Forth" )
54
 
      attr: style="margin-top:-10px;margin-left:50px;"
55
 
      ( hr )
56
 
      BOXES
57
 
;
58
 
| ------------------------------------------------------------ |
59
 
: FOOTER
60
 
    )
61
 
  )
62
 
;
63
 
| ------------------------------------------------------------ |
64
 
 
65
 
 
66
 
 
67
 
 
68
 
| ------------------------------------------------------------ |
69
 
| The all-important 404 page                                   |
70
 
| ------------------------------------------------------------ |
71
 
: 404
72
 
  s" 404 @ Retro"
73
 
  HEADER
74
 
  render
75
 
  ( h2 ." Error 404" )
76
 
  ( p ." The page you requested could not be found. Please go back" _
77
 
      ." and try again."
78
 
  )
79
 
  FOOTER
80
 
;
81
 
' 404 is notfound
82
 
| ------------------------------------------------------------ |
83
 
 
84
 
 
85
 
 
86
 
| ------------------------------------------------------------ |
87
 
| The main (default) page                                      |
88
 
| ------------------------------------------------------------ |
89
 
: LEGAL
90
 
  ( p ." The code and documentation for Retro is gifted by the" _
91
 
      ." author, Charles Childers, to the Public Domain."
92
 
  )
93
 
  ( p ." In the event your country does not recognize my ability to so" _
94
 
      ." dedicate it, I also grant unconditional, non-revocable" _
95
 
      ." permission to anyone who obtains a copy of this software," _
96
 
      ." to use, modify and to redistribute it without limitation."
97
 
  )
98
 
;
99
 
| ------------------------------------------------------------ |
100
 
: /
101
 
  s" Retro, A Minimalistic Forth"
102
 
  HEADER
103
 
  render
104
 
  ( p ." Retro is a small, minimalistic Forth dialect capable of running" _
105
 
      ." on all modern operating systems. It can also be used on cell phones" _
106
 
      ." supporting Java MIDP and on most modern web browsers."
107
 
  )
108
 
  LEGAL
109
 
  render
110
 
  ( p ." Support is offered via a " [a http://groups.google.com/group/retro-10
111
 
      ." mailing list" ] _ ." and the #retro channel on irc.freenode.net"
112
 
  )
113
 
  FOOTER
114
 
;
115
 
| ------------------------------------------------------------ |
116
 
 
117
 
 
118
 
 
119
 
| ------------------------------------------------------------ |
120
 
| Stylesheet                                                   |
121
 
| This is divided into subsections for easier maintenance.     |
122
 
| ------------------------------------------------------------ |
123
 
: core_css
124
 
  ~
125
 
  body
126
 
  {
127
 
    background: black;
128
 
    font-size: 14pt;
129
 
    color: silver;
130
 
    background-image: url('http://retroforth.org/backdrop.png');
131
 
    background-repeat: repeat-x;
132
 
  }
133
 
 
134
 
  h1
135
 
  {
136
 
    font-family: sans-serif;
137
 
    font-size: 24pt;
138
 
    margin-top: -70px;
139
 
    margin-left: 70px;
140
 
  }
141
 
  a { color: silver; }
142
 
  a:link { color: silver; }
143
 
  a:visited, a:hover { color: red; }
144
 
  ~
145
 
;
146
 
| ------------------------------------------------------------ |
147
 
: table_css
148
 
  ~
149
 
  td
150
 
  {
151
 
    width: 25%;
152
 
    border: 1px solid white;
153
 
    background: transparent;
154
 
    vertical-align: top;
155
 
  }
156
 
 
157
 
  td:hover
158
 
  {
159
 
    background: darkblue;
160
 
    color: white;
161
 
  }
162
 
 
163
 
  td a:hover
164
 
  {
165
 
    color: white;
166
 
  }
167
 
 
168
 
  td h3
169
 
  {
170
 
    text-align: center;
171
 
    font-family: sans-serif;
172
 
    font-weight: bold;
173
 
  }
174
 
 
175
 
  td p
176
 
  {
177
 
    text-align: center;
178
 
    font-family: sans-serif;
179
 
  }
180
 
  ~
181
 
;
182
 
| ------------------------------------------------------------ |
183
 
: /style.css
184
 
  core_css
185
 
  table_css
186
 
;
187
 
| ------------------------------------------------------------ |
188
 
 
189
 
 
190
 
 
191
 
| ------------------------------------------------------------ |
192
 
| That's All                                                   |
193
 
| ------------------------------------------------------------ |
194
 
end
195
 
bye