Skip to content

Instantly share code, notes, and snippets.

@pallix
Created October 22, 2012 15:40
Show Gist options
  • Save pallix/3932130 to your computer and use it in GitHub Desktop.
Save pallix/3932130 to your computer and use it in GitHub Desktop.
(def to-merge
{:sct_agree "Agree"
:sct_argument "Argument"
:sct_ask_agree "Do you agree with the claim?"
:sct_change "Change"
:sct_choose_issue "Choose an issue from the list below, to participate in the consultation on that issue."
:sct_claim "Claim"
:sct_compare "Compare"
:sct_comparison "Comparison"
:sct_comparison_desc "Stuff" ;; comment this line and it will work
:sct_con_arguments "Con Arguments"
:sct_description "Description"
:sct_disagree "Disagree"
:sct_intro "intro"
:sct_issues "Issues"
:sct_login "Login"
:sct_next "Next"
:sct_premises "Premises"
:sct_pro_arguments "Pro Arguments"
:sct_question "Question"
: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?"
:sct_responses "Your responses"
:sct_save "Save"
:sct_seen "Now that you have seen the arguments of this claim, how would you evaluate the following arguments?"
:sct_show_args "Show me the arguments first"
:sct_skip_question "Skip this question"
:sct_start "Start!"
:sct_strong "Strong"
:sct_summary "Summary"
: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."
:sct_username "Username"
:sct_username_placeholder "Please do not use your real name."
:sct_weak "Weak"})
(def extra-data
{:claims 42
:take 43})
(defn ^:export
test-merge-convert
[]
;; (log (clj->js (keys (merge to-merge extra-data))))
;; (log (count (keys (merge to-merge extra-data))))
;; (log (clj->js (vals (merge to-merge extra-data))))
;; (log (count (vals (merge to-merge extra-data))))
(clj->js (merge to-merge extra-data))) ;; returns undefined
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment