From db3b29f6b0cb31b90d0d9797e38b1d9b956b16cd Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 11 Aug 2010 07:52:38 +0300
Subject: [PATCH] cassius and julius

---
 Yesod/Form/Jquery.hs |  6 +++---
 Yesod/Form/Nic.hs    |  2 +-
 Yesod/Hamlet.hs      | 20 ++++++++++----------
 Yesod/Widget.hs      | 20 ++++++++++----------
 4 files changed, 24 insertions(+), 24 deletions(-)

diff --git a/Yesod/Form/Jquery.hs b/Yesod/Form/Jquery.hs
index 882fdcf2..305ab44c 100644
--- a/Yesod/Form/Jquery.hs
+++ b/Yesod/Form/Jquery.hs
@@ -55,7 +55,7 @@ jqueryDayFieldProfile = FieldProfile
         addScript' urlJqueryJs
         addScript' urlJqueryUiJs
         addStylesheet' urlJqueryUiCss
-        addJavaScript [$jamlet|
+        addJavaScript [$julius|
 $$(function(){$$("#$name$").datepicker({dateFormat:'yy-mm-dd'})});
 |]
     }
@@ -93,7 +93,7 @@ jqueryDayTimeFieldProfile = FieldProfile
         addScript' urlJqueryUiJs
         addScript' urlJqueryUiDateTimePicker
         addStylesheet' urlJqueryUiCss
-        addJavaScript [$jamlet|
+        addJavaScript [$julius|
 $$(function(){$$("#$name$").datetimepicker({dateFormat : "yyyy/mm/dd h:MM TT"})});
 |]
     }
@@ -128,7 +128,7 @@ jqueryAutocompleteFieldProfile src = FieldProfile
         addScript' urlJqueryJs
         addScript' urlJqueryUiJs
         addStylesheet' urlJqueryUiCss
-        addJavaScript [$jamlet|
+        addJavaScript [$julius|
 $$(function(){$$("#$name$").autocomplete({source:"@src@",minLength:2})});
 |]
     }
diff --git a/Yesod/Form/Nic.hs b/Yesod/Form/Nic.hs
index af87e8ed..402187a5 100644
--- a/Yesod/Form/Nic.hs
+++ b/Yesod/Form/Nic.hs
@@ -31,7 +31,7 @@ nicHtmlFieldProfile = FieldProfile
 |]
     , fpWidget = \name -> do
         addScript' urlNicEdit
-        addJavaScript [$jamlet|bkLib.onDomLoaded(function(){new nicEditor({fullPanel:true}).panelInstance("$name$")});|]
+        addJavaScript [$julius|bkLib.onDomLoaded(function(){new nicEditor({fullPanel:true}).panelInstance("$name$")});|]
     }
 
 addScript' :: (y -> Either (Route y) String) -> GWidget sub y ()
diff --git a/Yesod/Hamlet.hs b/Yesod/Hamlet.hs
index 0a3e11da..e472981e 100644
--- a/Yesod/Hamlet.hs
+++ b/Yesod/Hamlet.hs
@@ -15,14 +15,14 @@ module Yesod.Hamlet
     , string
     , preEscapedString
     , cdata
-      -- ** Jamlet
-    , jamlet
-    , Jamlet
-    , renderJamlet
-      -- ** Camlet
-    , camlet
-    , Camlet
-    , renderCamlet
+      -- ** Julius
+    , julius
+    , Julius
+    , renderJulius
+      -- ** Cassius
+    , cassius
+    , Cassius
+    , renderCassius
       -- * Convert to something displayable
     , hamletToContent
     , hamletToRepHtml
@@ -32,8 +32,8 @@ module Yesod.Hamlet
     where
 
 import Text.Hamlet
-import Text.Camlet
-import Text.Jamlet
+import Text.Cassius
+import Text.Julius
 import Yesod.Content
 import Yesod.Handler
 
diff --git a/Yesod/Widget.hs b/Yesod/Widget.hs
index 6b521f10..adf97951 100644
--- a/Yesod/Widget.hs
+++ b/Yesod/Widget.hs
@@ -37,8 +37,8 @@ import Control.Monad.Trans.Writer
 import Control.Monad.Trans.State
 import Yesod.Hamlet (PageContent (..))
 import Text.Hamlet
-import Text.Camlet
-import Text.Jamlet
+import Text.Cassius
+import Text.Julius
 import Yesod.Handler (Route, GHandler, getUrlRenderParams)
 import Yesod.Yesod (Yesod, defaultLayout, addStaticContent)
 import Yesod.Content (RepHtml (..))
@@ -80,8 +80,8 @@ newtype GWidget sub master a = GWidget (
     WriterT (Last Title) (
     WriterT (UniqueList (Script (Route master))) (
     WriterT (UniqueList (Stylesheet (Route master))) (
-    WriterT (Maybe (Camlet (Route master))) (
-    WriterT (Maybe (Jamlet (Route master))) (
+    WriterT (Maybe (Cassius (Route master))) (
+    WriterT (Maybe (Julius (Route master))) (
     WriterT (Head (Route master)) (
     StateT Int (
     GHandler sub master
@@ -120,7 +120,7 @@ newIdent = GWidget $ lift $ lift $ lift $ lift $ lift $ lift $ lift $ do
     return $ "w" ++ show i'
 
 -- | Add some raw CSS to the style tag.
-addStyle :: Camlet (Route master) -> GWidget sub master ()
+addStyle :: Cassius (Route master) -> GWidget sub master ()
 addStyle = GWidget . lift . lift . lift . lift . tell . Just
 
 -- | Link to the specified local stylesheet.
@@ -148,7 +148,7 @@ addScriptRemote =
     GWidget . lift . lift . tell . toUnique . Script . Remote
 
 -- | Include raw Javascript in the page's script tag.
-addJavaScript :: Jamlet (Route master) -> GWidget sub master ()
+addJavaScript :: Julius (Route master) -> GWidget sub master ()
 addJavaScript = GWidget . lift . lift . lift . lift . lift. tell . Just
 
 -- | Apply the default layout to the given widget.
@@ -177,10 +177,10 @@ widgetToPageContent (GWidget w) = do
     let stylesheets = map (locationToHamlet . unStylesheet)
                     $ runUniqueList stylesheets'
     let cssToHtml (Css b) = Html b
-        celper :: Camlet url -> Hamlet url
+        celper :: Cassius url -> Hamlet url
         celper = fmap cssToHtml
         jsToHtml (Javascript b) = Html b
-        jelper :: Jamlet url -> Hamlet url
+        jelper :: Julius url -> Hamlet url
         jelper = fmap jsToHtml
 
     render <- getUrlRenderParams
@@ -194,14 +194,14 @@ widgetToPageContent (GWidget w) = do
             Nothing -> return Nothing
             Just s -> do
                 x <- addStaticContent "css" "text/css; charset=utf-8"
-                   $ renderCamlet render s
+                   $ renderCassius render s
                 return $ renderLoc x
     jsLoc <-
         case jscript of
             Nothing -> return Nothing
             Just s -> do
                 x <- addStaticContent "js" "text/javascript; charset=utf-8"
-                   $ renderJamlet render s
+                   $ renderJulius render s
                 return $ renderLoc x
 
     let head'' = [$hamlet|