diff options
| -rw-r--r-- | news.arc | 31 | ||||
| -rw-r--r-- | static/glider.png | bin | 0 -> 384 bytes |
2 files changed, 22 insertions, 9 deletions
@@ -7,11 +7,11 @@ (declare 'atstrings t) -(= this-site* "My Forum" - site-url* "http://news.yourdomain.com/" - parent-url* "http://www.yourdomain.com" - favicon-url* "" - site-desc* "What this site is about." ; for rss feed +(= this-site* "slackernews" + site-url* "http://slackernews.org/" + parent-url* "http://slackernews.org/" + favicon-url* "glider.png" + site-desc* "News for slackers." ; for rss feed site-color* (color 180 180 180) border-color* (color 180 180 180) prefer-url* t) @@ -388,7 +388,7 @@ ; Page Layout -(= up-url* "grayarrow.gif" down-url* "graydown.gif" logo-url* "arc.png") +(= up-url* "grayarrow.gif" down-url* "graydown.gif" logo-url* "glider.png") (defopr favicon.ico req favicon-url*) @@ -431,9 +431,17 @@ (color-stripe (main-color ,gu)) (br) (center - (hook 'longfoot) + ;(hook 'longfoot) + (longfoot) (admin-bar ,gu (- (msec) ,gt) ,whence))))))) +(def longfoot () + (w/bars + (link "about" "/about") + (link "octopart.com" "http://octopart.com") + (link "arc" "http://arclanguage.org") + (link "hackernews" "http://news.ycombinator.com"))) + (def admin-bar (user elapsed whence) (when (admin user) (br2) @@ -573,7 +581,8 @@ function vote(node) { (when (is switch 'full) (tag (td style "line-height:12pt; height:10px;") (spanclass pagetop - (tag b (link this-site* "news")) + (tag (b style "font-family:courier; font-size:15px;") + (link this-site* "news")) (hspace 10) (toprow user label)))) (if (is switch 'full) @@ -808,6 +817,11 @@ function vote(node) { (newsop welcome () (pr "Welcome to " this-site* ", " user "!")) +(newsop about () + (longpage user (msec) nil "about" "About" "about" + (pr "Welcome to Slacker News!") + (br2) + (pr "That's all for now..."))) ; Main Operators @@ -903,7 +917,6 @@ function vote(node) { '(optimes topips flagged killed badguys badlogins goodlogins))) (hook 'listspage user)))) - (def saved-url (user) (+ "saved?id=" user)) (newsop saved (id) diff --git a/static/glider.png b/static/glider.png Binary files differnew file mode 100644 index 0000000..53656aa --- /dev/null +++ b/static/glider.png |
