1. (def to-merge
  2. {:sct_agree "Agree"
  3. :sct_argument "Argument"
  4. :sct_ask_agree "Do you agree with the claim?"
  5. :sct_change "Change"
  6. :sct_choose_issue "Choose an issue from the list below, to participate in the consultation on that issue."
  7. :sct_claim "Claim"
  8. :sct_compare "Compare"
  9. :sct_comparison "Comparison"
  10. :sct_comparison_desc "Stuff" ;; comment this line and it will work
  11. :sct_con_arguments "Con Arguments"
  12. :sct_description "Description"
  13. :sct_disagree "Disagree"
  14. :sct_intro "intro"
  15. :sct_issues "Issues"
  16. :sct_login "Login"
  17. :sct_next "Next"
  18. :sct_premises "Premises"
  19. :sct_pro_arguments "Pro Arguments"
  20. :sct_question "Question"
  21. :sct_question_text "Do you agree or disagree with this claim? If you are not sure, would you like to see and comment on the arguments about this claim before answering? Or would your prefer to skip this question?"
  22. :sct_responses "Your responses"
  23. :sct_save "Save"
  24. :sct_seen "Now that you have seen the arguments of this claim, how would you evaluate the following arguments?"
  25. :sct_show_args "Show me the arguments first"
  26. :sct_skip_question "Skip this question"
  27. :sct_start "Start!"
  28. :sct_strong "Strong"
  29. :sct_summary "Summary"
  30. :sct_summary_text "Thank you for having participated in this consultation process! Heres a list of your responses to the survey questions. Click on any item in the list to change your answer. Or compare your answers with the positions of other stakeholders by clicking the button below."
  31. :sct_username "Username"
  32. :sct_username_placeholder "Please do not use your real name."
  33. :sct_weak "Weak"})
  35. (def extra-data
  36. {:claims (list (js/Object.) (js/Object.))})
  38. (defn ^:export
  39. test-merge-convert
  40. []
  41. (log (merge to-merge extra-data))
  42. (clj->js (merge to-merge extra-data))) ;; returns undefined