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

hamlet6to7

Browse Source
This commit is contained in:
Greg Weber 2011-02-08 12:43:01 -08:00
parent 6d2f366094
commit 98aa67a68d
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Yesod/Form/Profiles.hs
View File

@ -231,7 +231,7 @@ searchFieldProfile autoFocus = FieldProfile
addHtml $ [HAMLET|\<script>if (!('autofocus' in document.createElement('input'))) {document.getElementById('#{theId}').focus();}</script> addHtml $ [HAMLET|\<script>if (!('autofocus' in document.createElement('input'))) {document.getElementById('#{theId}').focus();}</script>
|] |]
addCassius [CASSIUS| addCassius [CASSIUS|
#$theId$ #{theId}
-webkit-appearance: textfield -webkit-appearance: textfield
|] |]
} }

4
hellowidget.hs
View File

@ -53,7 +53,7 @@ getRootR = defaultLayout $ wrapper $ do
i <- newIdent i <- newIdent
setTitle $ string "Hello Widgets" setTitle $ string "Hello Widgets"
addCassius [$cassius| addCassius [$cassius|
#$i$ #{i}
color: red color: red
|] |]
addStylesheet $ StaticR $ StaticRoute ["style.css"] [] addStylesheet $ StaticR $ StaticRoute ["style.css"] []
@ -61,7 +61,7 @@ getRootR = defaultLayout $ wrapper $ do
addScriptRemote "http://ajax.googleapis.com/ajax/libs/jquery/1.4.2/jquery.min.js" addScriptRemote "http://ajax.googleapis.com/ajax/libs/jquery/1.4.2/jquery.min.js"
addScript $ StaticR $ StaticRoute ["script.js"] [] addScript $ StaticR $ StaticRoute ["script.js"] []
addHamlet [$hamlet| addHamlet [$hamlet|
%h1#$i$ Welcome to my first widget!!! %h1#{i} Welcome to my first widget!!!
%p %p
%a!href=@RootR@ Recursive link. %a!href=@RootR@ Recursive link.
%p %p