Created
October 22, 2012 15:40
-
-
Save pallix/3932130 to your computer and use it in GitHub Desktop.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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