addJavaScript -> addJavascript

This commit is contained in:
Michael Snoyman 2010-08-18 07:15:12 +03:00
parent adc8a8cf63
commit f7dc45eb9e
3 changed files with 7 additions and 7 deletions

View File

@ -56,7 +56,7 @@ jqueryDayFieldProfile = FieldProfile
addScript' urlJqueryJs
addScript' urlJqueryUiJs
addStylesheet' urlJqueryUiCss
addJavaScript [$julius|
addJavascript [$julius|
$$(function(){$$("#$theId$").datepicker({dateFormat:'yy-mm-dd'})});
|]
}
@ -94,7 +94,7 @@ jqueryDayTimeFieldProfile = FieldProfile
addScript' urlJqueryUiJs
addScript' urlJqueryUiDateTimePicker
addStylesheet' urlJqueryUiCss
addJavaScript [$julius|
addJavascript [$julius|
$$(function(){$$("#$theId$").datetimepicker({dateFormat : "yyyy/mm/dd h:MM TT"})});
|]
}
@ -129,7 +129,7 @@ jqueryAutocompleteFieldProfile src = FieldProfile
addScript' urlJqueryJs
addScript' urlJqueryUiJs
addStylesheet' urlJqueryUiCss
addJavaScript [$julius|
addJavascript [$julius|
$$(function(){$$("#$theId$").autocomplete({source:"@src@",minLength:2})});
|]
}

View File

@ -29,7 +29,7 @@ nicHtmlFieldProfile = FieldProfile
, fpWidget = \theId name val _isReq -> do
addBody [$hamlet|%textarea.html#$theId$!name=$name$ $val$|]
addScript' urlNicEdit
addJavaScript [$julius|bkLib.onDomLoaded(function(){new nicEditor({fullPanel:true}).panelInstance("$theId$")});|]
addJavascript [$julius|bkLib.onDomLoaded(function(){new nicEditor({fullPanel:true}).panelInstance("$theId$")});|]
}
addScript' :: (y -> Either (Route y) String) -> GWidget sub y ()

View File

@ -25,7 +25,7 @@ module Yesod.Widget
, addScriptEither
, addHead
, addBody
, addJavaScript
, addJavascript
-- * Manipulating
, wrapWidget
, extractBody
@ -148,8 +148,8 @@ addScriptRemote =
GWidget . lift . lift . tell . toUnique . Script . Remote
-- | Include raw Javascript in the page's script tag.
addJavaScript :: Julius (Route master) -> GWidget sub master ()
addJavaScript = GWidget . lift . lift . lift . lift . lift. tell . Just
addJavascript :: Julius (Route master) -> GWidget sub master ()
addJavascript = GWidget . lift . lift . lift . lift . lift. tell . Just
-- | Apply the default layout to the given widget.
applyLayoutW :: (Eq (Route m), Yesod m)