@@ -24,14 +24,13 @@ (vote-fn sesh feat) (redirect-to (page-url index-page))))) -;;XXX DRY alert -(define (up-vote! sesh feat) - (rec-add-list-prop-elt! feat 'votes (session-id sesh)) - (store-rec! feat)) +(define (make-gen-voter key) + (lambda (sesh feat) + (rec-add-list-prop-elt! feat key (session-id sesh)) + (store-rec! feat))) -(define (down-vote! sesh feat) - (rec-add-list-prop-elt! feat 'down-votes (session-id sesh)) - (store-rec! feat)) +(define up-vote! (make-gen-voter 'votes)) +(define down-vote! (make-gen-voter 'down-votes)) (define (vote-score feat) (- social.ss dc34afd1832de9e47c5b8cb01175726df3650c6f Rob Hunter rob.hunter@gmail.com http://github.com/vegashacker/lawnelephant/commit/2d86f0d6a7c1f5892219d1d4a92484e6a8c0fcb1 2d86f0d6a7c1f5892219d1d4a92484e6a8c0fcb1 2009-03-12T18:43:32-07:00 2009-03-12T18:43:32-07:00 abstracted voting to avoid code dupage 406c2158cae0976c1cdee4fb4e0cd1a22cbd7187 Rob Hunter rob.hunter@gmail.com