Re:HN: New flag feature
by ajbatac on Tuesday June 24, 2008 @12:46PM
(#226423)
i wish we could un-flag. some will be curious to what will happen if you click on it.
[ Parent
| on HN ]
ok; here's the source, btw:
(def flaglink (i user whence)
(when (and user (> (karma user) flag-threshold*))
(pr bar*)
(w/rlink (do (if (mem user i!flags)
(pull user i!flags)
(push user i!flags))
(save-item i)
whence)
(pr (if (mem user i!flags) "unflag" "flag")))))