minor slackernews branding

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