summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--news.arc31
-rw-r--r--static/glider.pngbin0 -> 384 bytes
2 files changed, 22 insertions, 9 deletions
diff --git a/news.arc b/news.arc
index e837d64..915de3e 100644
--- a/news.arc
+++ b/news.arc
@@ -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
new file mode 100644
index 0000000..53656aa
--- /dev/null
+++ b/static/glider.png
Binary files differ