क्या एल्म में यादृच्छिक HTML/JS स्निपेट डालने का कोई अच्छा तरीका है?

Question

मैं एक एल्म अनुप्रयोग में निम्नलिखित स्निपेट एम्बेड मैं लिख रहा हूँ करना चाहते हैं:

<script src="https://gist.github.com/jpaugh/2988462.js"></script> 

मैं [markdown|..|] अर्ध quoter का उपयोग कर की कोशिश की है,

header = plainText "blah, blah." 
gist = [markdown| 
<script src='https://gist.github.com/jpaugh/2988462.js'></script> 
|] 

main = flow down [header, gist] 

और वह एक त्रुटि फेंकता कि स्पष्ट रूप से एल्म में एक बग का प्रतिनिधित्व करता है, और मेरी सभी सामग्री को <noscript> के अंदर रखता है।

<noscript> 
    <p>blah, blah</p> 
    <p><script src='https://gist.github.com/jpaugh/2988462.js'></script> 
    </p> 
</noscript> 

लेकिन क्या ऐसा करने का कोई और तरीका है? एचटीएमएल स्निपेट डालने के लिए मार्कडाउन सिंटैक्स का उपयोग करना मेरे लिए अनिश्चित लगता है। क्या यह पुस्तकालय कार्यों में से एक द्वारा कवर किया गया है? और मैं इसे एल्म के अपने जावास्क्रिप्ट से कैसे अपनाना चाहिए? (का उपयोग करने में मदद नहीं मिलती है।)

संपादित करें: यहां त्रुटि संदेश है। यह स्क्रीन पर नहीं दिखाता है, कोड नहीं।

Answer 1

यह सबसे अच्छा हो सकता है यह दूसरी तरह के आसपास लेने के लिए: यदि आप क्या तुम बाहर चाहते हैं कर सकते हैं: जे एस/गंदगी एल्म के "डोमेन" करने के लिए और नहीं बल्कि सामान्य HTML में एल्म एम्बेड सीएसएस का उपयोग नहीं करते एल्म बॉक्स से और अभी भी बाहर अपने जे एस चलाएँ:

http://elm-lang.org/blog/announce/version-0.8.elm#embedding-elm-in-html-and-js

लेकिन मुझे लगता है कि आप किसी भी जावास्क्रिप्ट का उपयोग किए बिना कि टुकड़ा पहले से ही एल्म में से सामग्री प्राप्त कर सकते हैं, मुझे यकीन है कि क्या बात आप कर रहे हैं नहीं कर रहा हूँ अंत में हासिल करने की कोशिश कर रहा है।

Answer 2

मैंने ऐसा किया, क्योंकि मैं बुरा हूं।

script' : List Attribute -> String -> Html 
script' attrs s = node "script" attrs [ text s ] 

क्रमशः Html और Html.Attributes पर आधारित है। उदाहरण उपयोग:

div [] [ script' [] "alert(tremble in fear elm);" ] 

रूप में इस तरह

script : List Attribute -> List Html -> Html 
script attrs children = node "script" attrs children 

scriptSrc : String -> Html 
scriptSrc s = script [ type' "text/javascript", src s ] [] 

scriptRun : String -> Html 
scriptRun s = script [ type' "text/javascript" ] [ text s ]