Good point - could be in here, but it's 1:30am and I probably shouldn't be learning Arc right now! Will take a look in the morning. (= flag-threshold* 30 f

Good point - could be in here, but it's 1:30am and I probably shouldn't be learning Arc right now! Will take a look in the morning. (= flag-threshold* 30 flag-kill-threshold* 7 many-flags* 1) ; Un-flagging something doesn't unkill it, if it's now no longer ; over flag-kill-threshold. Ok, since arbitrary threshold anyway. (def flaglink (i user whence) (when (and user (isnt user i!by) (or (admin user) (> (karma user) flag-threshold*))) (pr bar*) (w/rlink (do (togglemem user i!flags) (when (and (~mem 'nokill i!keys) (len> i!flags flag-kill-threshold*) (~find admin:!2 i!vote)) (kill i 'flags)) whence) (pr "@(if (mem user i!flags) 'un)flag")) (when (and (admin user) (len> i!flags many-flags*)) (pr bar* (plural (len i!flags) "flag") " ") (w/rlink (do (togglemem 'nokill i!keys) (save-item i) whence) (pr (if (mem 'nokill i!keys) "un-notice" "noted"))))))