diff options
| -rw-r--r-- | how-to-run-news | 2 | ||||
| -rw-r--r-- | news.arc | 16 |
2 files changed, 14 insertions, 4 deletions
diff --git a/how-to-run-news b/how-to-run-news index dae9db7..d8fff77 100644 --- a/how-to-run-news +++ b/how-to-run-news @@ -16,7 +16,7 @@ at the arc prompt: (nsv) -go to http://localhost:8080 +go to http://localhost:5009 click on login, and create an account called myname @@ -1,10 +1,20 @@ ; News. 2 Sep 06. -; to run news: (nsv), then go to http://localhost:8080 +; to run news: (nsv), then go to http://localhost:5009 ; put usernames of admins, separated by whitespace, in arc/admins ; bug: somehow (+ votedir* nil) is getting evaluated. +; fix bug with reverse proxy +; https://sites.google.com/site/arclanguagewiki/arc-3_1/known-bugs-and-gotchas +(def abusive-ip (ip) nil) + +; increase performance +(= static-max-age* 7200) ; browsers can cache static files for 7200 sec +(declare 'direct-calls t) ; you promise not to redefine fns as tables +(declare 'explicit-flush t) ; you take responsibility for flushing output + ; (all existing news code already does) + (declare 'atstrings t) (= this-site* "slackernews" @@ -79,7 +89,7 @@ (= initload-users* nil) -(def nsv ((o port 8080)) +(def nsv ((o port 5009)) (map ensure-dir (list arcdir* newsdir* storydir* votedir* profdir*)) (unless stories* (load-items)) (if (and initload-users* (empty profs*)) (load-users)) @@ -264,7 +274,7 @@ ; Votes divided by the age in hours to the gravityth power. ; Would be interesting to scale gravity in a slider. -(= gravity* 1.8 timebase* 120 front-threshold* 1 +(= gravity* 1.8 timebase* 240 front-threshold* 1 nourl-factor* .4 lightweight-factor* .3 ) (def frontpage-rank (s (o scorefn realscore) (o gravity gravity*)) |