diff options
| -rw-r--r-- | forum/forum.ur | 27 |
1 files changed, 22 insertions, 5 deletions
diff --git a/forum/forum.ur b/forum/forum.ur index 3081e7d..23bbbd5 100644 --- a/forum/forum.ur +++ b/forum/forum.ur @@ -70,16 +70,32 @@ fun recordVote (value : Score.score) (entryId : int) _formData : transaction pag in the first place. *) let val author = Author.nameError authorOpt in - alreadyVoted <- hasRows (SELECT Vote.Value FROM vote - WHERE Vote.QuestionId = {[entryId]} - AND Vote.Author = {[author]}); - unless alreadyVoted (dml (INSERT INTO vote (QuestionId, Author, Value) - VALUES ({[entryId]}, {[author]}, {[value]}))); + existingVote <- oneOrNoRows1 (SELECT Vote.Value FROM vote + WHERE Vote.QuestionId = {[entryId]} + AND Vote.Author = {[author]}); + (* This mimics Reddit's upvote/downvote behavior, which is a bizarrely + complex state machine that is nonetheless totally intuitive, especially + when you're using an AJAXy interface. TODO: Write an AJAXy + interface. *) + (case existingVote of + None => dml (INSERT INTO vote (QuestionId, Author, Value) + VALUES ({[entryId]}, {[author]}, {[value]})) + | Some v => + if v.Value = value + then dml (DELETE FROM vote + WHERE QuestionId = {[entryId]} + AND Author = {[author]}) + else dml (UPDATE vote + SET Value = {[value]} + WHERE QuestionId = {[entryId]} + AND Author = {[author]})); detail entryId end and upvote entryId _formData = recordVote Score.insightful entryId _formData +and downvote entryId _formData = recordVote Score.inane entryId _formData + (***************************** Single questions ******************************) @@ -111,6 +127,7 @@ and detail (id : int) : transaction page = {Author.whenIdentified authorOpt <xml> <form class={voting}><submit action={upvote id} value="⬆" /></form> + <form class={voting}><submit action={downvote id} value="⬇" /></form> </xml>} <div>{answerBlock}</div> |