fix Luki.check counter; fix check buttons
[redakcja.git] / redakcja / static / edumed / js / edumed.coffee
1
2 $ = jQuery
3
4 class Binding
5   constructor: (@handler, @element) ->
6     $(@element).data(@handler, this)
7
8
9 class EduModule extends Binding
10   constructor: (element) ->
11     super 'edumodule', element
12
13     # $("[name=teacher-toggle]").change (ev) =>
14     #   if $(ev.target).is(":checked")
15     #     $(".teacher", @element).addClass "show"
16     #   else
17     #     $(".teacher", @element).removeClass "show"
18
19
20 class Exercise extends Binding
21   constructor: (element) ->
22     super 'exercise', element
23     # just save the html to reset the exercise
24     $(@element).data("exercise-html", $(@element).html())
25
26     $(".check", @element).click (ev) =>
27       @check()
28       $(".retry", @element).show()
29       $(".check", @element).hide()
30     $(".retry", @element).click (ev) =>
31       @retry()
32     $('.solutions', @element).click =>
33       @show_solutions()
34       $(".comment", @element).show()
35     $('.reset', @element).click =>
36       @reset()
37
38   retry: ->
39     $(".correct, .incorrect", @element).removeClass("correct incorrect")
40     $(".check", @element).show()
41     $(".retry", @element).hide()
42
43   reset: ->
44     $(@element).html($(@element).data('exercise-html'))
45     exercise @element
46
47   piece_correct: (qpiece) ->
48     $(qpiece).removeClass('incorrect').addClass('correct')
49
50   piece_incorrect: (qpiece) ->
51     $(qpiece).removeClass('correct').addClass('incorrect')
52
53   check: ->
54     scores = []
55     $(".question", @element).each (i, question) =>
56       scores.push(@check_question question)
57
58     score = [0, 0]
59     $.each scores, (i, s) ->
60       score[0] += s[0]
61       score[1] += s[1]
62     @show_score(score)
63
64   show_solutions: ->
65     @reset()
66     $(".question", @element).each (i, question) =>
67       @solve_question question
68
69   # Parses a list of values, separated by space or comma.
70   # The list is read from data attribute of elem using data_key
71   # Returns a list with elements
72   # eg.: things_i_need: "house bike tv playstation"
73   # yields ["house", "bike", "tv", "playstation"]
74   # If optional numbers argument is true, returns list of numbers
75   # instead of strings
76   get_value_list: (elem, data_key, numbers) ->
77     vl = $(elem).attr("data-" + data_key).split(/[ ,]+/).map($.trim) #.map((x) -> parseInt(x))
78     if numbers
79       vl = vl.map((x) -> parseInt(x))
80     return vl
81
82   # Parses a list of values, separated by space or comma.
83   # The list is read from data attribute of elem using data_key
84   # Returns a 2-element list with mandatory and optional
85   # items. optional items are marked with a question mark on the end
86   # eg.: things_i_need: "house bike tv? playstation?"
87   # yields [[ "house", "bike"], ["tv", "playstation"]]
88   get_value_optional_list: (elem, data_key) ->
89     vals = @get_value_list(elem, data_key)
90     mandat = []
91     opt = []
92     for v in vals
93       if v.slice(-1) == "?"
94         opt.push v.slice(0, -1)
95       else
96         mandat.push v
97     return [mandat, opt]
98
99   show_score: (score) ->
100     $msg = $(".message", @element)
101     $msg.text("Wynik: #{score[0]} / #{score[1]}")
102     if score[0] == score[1]
103       $msg.addClass("maxscore")
104     else
105       $msg.removeClass("maxscore")
106
107
108   draggable_equal: ($draggable1, $draggable2) ->
109     return false
110
111   draggable_accept: ($draggable, $droppable) ->
112     dropped = $droppable.closest("ul, ol").find(".draggable")
113     for d in dropped
114       if @draggable_equal $draggable, $(d)
115         return false
116     return true
117
118   draggable_move: ($draggable, $placeholder, ismultiple) ->
119     $added = $draggable.clone()
120     $added.data("original", $draggable.get(0))
121     if not ismultiple
122       $draggable.addClass('disabled').draggable('disable')
123
124     $placeholder.after($added)
125     if not $placeholder.hasClass('multiple')
126       $placeholder.hide()
127     if $added.is(".add-li")
128       $added.wrap("<li/>")
129
130     $added.append('<span class="remove">x</span><div class="clr"></div>')
131     $('.remove', $added).click (ev) =>
132       @retry()
133       if not ismultiple
134         $($added.data('original')).removeClass('disabled').draggable('enable')
135
136       if $added.is(".add-li")
137         $added = $added.closest('li')
138       $added.prev(".placeholder:not(.multiple)").show()
139       $added.remove()
140
141
142 ## XXX co z issortable?
143   dragging: (ismultiple, issortable) ->
144     $(".question", @element).each (i, question) =>
145       draggable_opts =
146         revert: 'invalid'
147         helper: 'clone'
148         start: @retry
149
150       $(".draggable", question).draggable(draggable_opts)
151       self = this
152       $(".placeholder", question).droppable
153         accept: (draggable) ->
154           $draggable = $(draggable)
155           is_accepted = true
156
157           if not $draggable.is(".draggable")
158             is_accepted = false
159
160           if is_accepted
161             is_accepted= self.draggable_accept $draggable, $(this)
162
163           if is_accepted
164             $(this).addClass 'accepting'
165           else
166             $(this).removeClass 'accepting'
167           return is_accepted
168
169         drop: (ev, ui) =>
170           $(ev.target).removeClass 'accepting dragover'
171
172           @draggable_move $(ui.draggable), $(ev.target), ismultiple
173
174           # $added = $(ui.draggable).clone()
175           # $added.data("original", ui.draggable)
176           # if not ismultiple
177           #   $(ui.draggable).addClass('disabled').draggable('disable')
178
179           # $(ev.target).after(added)
180           # if not $(ev.target).hasClass('multiple')
181           #   $(ev.target).hide()
182           # $added.append('<span class="remove">x</span>')
183           # $('.remove', added).click (ev) =>
184           #   $added.prev(".placeholder:not(.multiple)").show()
185           #   if not ismultiple
186           #     $added.data('original').removeClass('disabled').draggable('enable')
187           #   $(added).remove()
188
189         over: (ev, ui) ->
190           $(ev.target).addClass 'dragover'
191
192
193         out: (ev, ui) ->
194           $(ev.target).removeClass 'dragover'
195
196
197
198 class Wybor extends Exercise
199   constructor: (element) ->
200     super element
201     $(".question-piece input", element).change(@retry);
202
203
204   check_question: (question) ->
205     all = 0
206     good = 0
207     solution = @get_value_list(question, 'solution')
208     $(".question-piece", question).each (i, qpiece) =>
209       piece_no = $(qpiece).attr 'data-no'
210       piece_name = $(qpiece).attr 'data-name'
211       if piece_name
212         should_be_checked = solution.indexOf(piece_name) >= 0
213       else
214         should_be_checked = solution.indexOf(piece_no) >= 0
215       is_checked = $("input", qpiece).is(":checked")
216
217       if should_be_checked
218         all += 1
219
220       if is_checked
221         if should_be_checked
222           good += 1
223           @piece_correct qpiece
224         else
225           @piece_incorrect qpiece
226       else
227         $(qpiece).removeClass("correct,incorrect")
228
229     return [good, all]
230
231   solve_question: (question) ->
232     solution = @get_value_list(question, 'solution')
233     $(".question-piece", question).each (i, qpiece) =>
234       piece_no = $(qpiece).attr 'data-no'
235       piece_name = $(qpiece).attr 'data-name'
236       if piece_name
237         should_be_checked = solution.indexOf(piece_name) >= 0
238       else
239         should_be_checked = solution.indexOf(piece_no) >= 0
240       console.log("check " + $("input[type=checkbox]", qpiece).attr("id") + " -> " + should_be_checked)
241       $("input[type=checkbox],input[type=radio]", qpiece).prop 'checked', should_be_checked
242
243
244
245 class Uporzadkuj extends Exercise
246   constructor: (element) ->
247     super element
248     $('ol, ul', @element).sortable({ items: "> li", start: @retry })
249
250   check_question: (question) ->
251     positions = @get_value_list(question, 'original', true)
252     sorted = positions.sort()
253     pkts = $('.question-piece', question)
254
255     correct = 0
256     all = 0
257
258     for pkt in [0...pkts.length]
259       all += 1
260       if pkts.eq(pkt).data('pos') == sorted[pkt]
261         correct += 1
262         @piece_correct pkts.eq(pkt)
263       else
264         @piece_incorrect pkts.eq(pkt)
265     return [correct, all]
266
267   solve_question: (question) ->
268     positions = @get_value_list(question, 'original', true)
269     sorted = positions.sort()
270     pkts = $('.question-piece', question)
271     pkts.sort (a, b) ->
272       q = $(a).data('pos')
273       w = $(b).data('pos')
274       return 1 if q < w
275       return -1 if q > w
276       return 0
277
278     parent = pkts.eq(0).parent()
279     for p in pkts
280       parent.prepend(p)
281
282
283 # XXX propozycje="1/0"
284 class Luki extends Exercise
285   constructor: (element) ->
286     super element
287     @dragging false, false
288
289   check: ->
290     all = $(".placeholder", @element).length
291     correct = 0
292     $(".placeholder + .question-piece", @element).each (i, qpiece) =>
293       $placeholder = $(qpiece).prev(".placeholder")
294       if $placeholder.data('solution') == $(qpiece).data('no')
295         @piece_correct qpiece
296         correct += 1
297       else
298         @piece_incorrect qpiece
299
300     @show_score [correct, all]
301
302   solve_question: (question) ->
303     $(".placeholder", question).each (i, placeholder) =>
304       $qp = $(".question-piece[data-no=" + $(placeholder).data('solution') + "]", question)
305       @draggable_move $qp, $(placeholder), false
306
307
308 class Zastap extends Exercise
309   constructor: (element) ->
310     super element
311     $(".paragraph", @element).each (i, par) =>
312       @wrap_words $(par), $('<span class="placeholder zastap"/>')
313     @dragging false, false
314
315   check: ->
316     all = 0
317     correct = 0
318
319     $(".paragraph", @element).each (i, par) =>
320       $(".placeholder", par).each (j, qpiece) =>
321         $qp = $(qpiece)
322         $dragged = $qp.next(".draggable")
323         if $qp.data("solution")
324           if $dragged and $qp.data("solution") == $dragged.data("no")
325             @piece_correct $dragged
326             correct += 1
327 #          else -- we dont mark enything here, so not to hint user about solution. He sees he hasn't used all the draggables
328
329           all += 1
330
331     @show_score [correct, all]
332
333   show_solutions: ->
334     @reset()
335     $(".paragraph", @element).each (i, par) =>
336       $(".placeholder[data-solution]", par).each (j, qpiece) =>
337         $qp = $(qpiece)
338         $dr = $(".draggable[data-no=" + $qp.data('solution') + "]", @element)
339         @draggable_move $dr, $qp, false
340
341
342   wrap_words: (element, wrapper) ->
343     # This function wraps each word of element in wrapper, but does not descend into child-tags of element.
344     # It doesn't wrap things between words (defined by ignore RE below). Warning - ignore must begin with ^
345     ignore = /^[ \t.,:;()]+/
346
347     insertWrapped = (txt, elem) ->
348       nw = wrapper.clone()
349       $(document.createTextNode(txt))
350         .wrap(nw).parent().attr("data-original", txt).insertBefore(elem)
351
352     for j in [element.get(0).childNodes.length-1..0]
353       chld = element.get(0).childNodes[j]
354       if chld.nodeType == document.TEXT_NODE
355         len = chld.textContent.length
356         wordb = 0
357         i = 0
358         while i < len
359           space = ignore.exec(chld.textContent.substr(i))
360           if space?
361             if wordb < i
362               insertWrapped(chld.textContent.substr(wordb, i-wordb), chld)
363
364             $(document.createTextNode(space[0])).insertBefore(chld)
365             i += space[0].length
366             wordb = i
367           else
368             i = i + 1
369         if wordb < len - 1
370           insertWrapped(chld.textContent.substr(wordb, len - 1 - wordb), chld)
371         $(chld).remove()
372
373
374 class Przyporzadkuj extends Exercise
375   is_multiple: ->
376     for qp in $(".question-piece", @element)
377       if $(qp).attr('data-solution').split(/[ ,]+/).length > 1
378         return true
379     return false
380
381   constructor: (element) ->
382     super element
383
384     @multiple = @is_multiple()
385
386     @dragging @multiple, true
387
388   draggable_equal: (d1, d2) ->
389     return d1.data("no") == d2.data("no")
390
391
392   check_question: (question) ->
393     # subjects placed in predicates
394     minimum = $(question).data("minimum")
395     count = 0
396     all = 0
397     if not minimum
398       all = $(".subject .question-piece", question).length
399
400     for pred in $(".predicate [data-predicate]", question)
401       pn = $(pred).attr('data-predicate')
402       if minimum?
403         all += minimum
404
405       for qp in $(".question-piece", pred)
406         v = @get_value_optional_list qp, 'solution'
407         mandatory = v[0]
408         optional = v[1]
409
410         if mandatory.indexOf(pn) >= 0 or (minimum and optional.indexOf(pn) >= 0)
411           count += 1
412           @piece_correct qp
413         else
414           @piece_incorrect qp
415
416     return [count, all]
417
418   solve_question: (question) ->
419     minimum = $(question).data("min")
420
421     for qp in $(".subject .question-piece", question)
422       v = @get_value_optional_list qp, 'solution'
423       mandatory = v[0]
424       optional = v[1]
425
426       if minimum
427         draggables = mandatory.count(optional)[0...minimum]
428       else
429         draggables = mandatory
430       for m in draggables
431         $pr = $(".predicate [data-predicate=" + m + "]", question)
432         $ph = $pr.find ".placeholder:visible"
433         @draggable_move $(qp), $ph.eq(0), @multiple
434
435
436
437 class PrawdaFalsz extends Exercise
438   constructor: (element) ->
439     super element
440
441     for qp in $(".question-piece", @element)
442       $(".true", qp).click (ev) =>
443         ev.preventDefault()
444         @retry()
445         $(ev.target).closest(".question-piece").data("value", "true")
446         $(ev.target).addClass('chosen').siblings('a').removeClass('chosen')
447       $(".false", qp).click (ev) =>
448         ev.preventDefault()
449         @retry()
450         $(ev.target).closest(".question-piece").data("value", "false")
451         $(ev.target).addClass('chosen').siblings('a').removeClass('chosen')
452
453
454   check_question: ->
455     all = 0
456     good = 0
457     for qp in $(".question-piece", @element)
458       if $(qp).data("solution").toString() == $(qp).data("value")
459         good += 1
460         @piece_correct qp
461       else
462         @piece_incorrect qp
463
464       all += 1
465
466     return [good, all]
467
468   show_solutions: ->
469     @reset()
470     for qp in $(".question-piece", @element)
471       if $(qp).data('solution') == true
472         $(".true", qp).click()
473       else
474         $(".false", qp).click()
475
476
477 ##########
478
479 exercise = (ele) ->
480   es =
481     wybor: Wybor
482     uporzadkuj: Uporzadkuj
483     luki: Luki
484     zastap: Zastap
485     przyporzadkuj: Przyporzadkuj
486     prawdafalsz: PrawdaFalsz
487
488
489   cls = es[$(ele).attr('data-type')]
490   new cls(ele)
491
492
493 window.edumed =
494   'EduModule': EduModule
495
496
497
498
499 $(document).ready () ->
500   new EduModule($("#book-text"))
501
502   $(".exercise").each (i, el) ->
503     exercise(this)