haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

addJavaScript -> addJavascript

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Yesod/Form/Jquery.hs
View File

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

2
Yesod/Form/Nic.hs
View File

@ -29,7 +29,7 @@ nicHtmlFieldProfile = FieldProfile
, fpWidget = \theId name val _isReq -> do , fpWidget = \theId name val _isReq -> do
addBody [$hamlet|%textarea.html#$theId$!name=$name$ $val$|] addBody [$hamlet|%textarea.html#$theId$!name=$name$ $val$|]
addScript' urlNicEdit 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 () addScript' :: (y -> Either (Route y) String) -> GWidget sub y ()

6
Yesod/Widget.hs
View File

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