diff --git a/src/Yesod/AngularUI.hs b/src/Yesod/AngularUI.hs
--- a/src/Yesod/AngularUI.hs
+++ b/src/Yesod/AngularUI.hs
@@ -43,7 +43,9 @@
     , addRESTRaw
    -- placeholders for some generic rest api/ maybe a subsite?
     , tcFile
+    , utcFile
     , tcVFile
+    , utcVFile
     , state
     , url
     , name
@@ -304,6 +306,35 @@
 emptyFunction :: JavascriptUrl url
 emptyFunction = [julius| function(){} |]
 
+liftT :: Text -> Q Exp
+liftT t = do
+  p <- [|T.pack|]
+  return $ AppE p $ LitE $ StringL $ T.unpack t
+
+utcFile :: Text -> Text -> Q Exp
+utcFile u st =
+   [|tell mempty { uisName = First (Just $(liftT st))
+            , uisUrl  = Just $(liftT u)
+            , uiTC    = UiTC
+                      (TmplExt $(autoHamlet st ""))
+                      (CtrlExt $(fromMaybe [| emptyFunction |] $ autoJulius st ""))
+                      $(listE $ catMaybes [autoLucius st "", autoCassius st ""])
+            }|]
+
+utcVFile :: Text -> Text -> Text -> Q Exp
+utcVFile u st view =
+   [|tell mempty
+      { uisName = First (Just $(liftT st))
+      , uisUrl  = Just $(liftT u)
+      , uiV = [ ( $(liftT view)
+                , UiTC
+                    (TmplExt $(autoHamlet st view))
+                    (CtrlExt $(fromMaybe [| emptyFunction |] $ autoJulius st view))
+                    $(listE $ catMaybes [autoLucius st view, autoCassius st view])
+                )
+              ]
+      }|]
+
 tcFile :: Text -> Q Exp
 tcFile st =
    [|tell mempty { uisName = First (Just $(liftT st))
@@ -312,10 +343,6 @@
                       (CtrlExt $(fromMaybe [| emptyFunction |] $ autoJulius st ""))
                       $(listE $ catMaybes [autoLucius st "", autoCassius st ""])
             }|]
-  where
-    liftT t = do
-        p <- [|T.pack|]
-        return $ AppE p $ LitE $ StringL $ T.unpack t
 
 tcVFile :: Text -> Text -> Q Exp
 tcVFile st view =
@@ -329,10 +356,6 @@
                 )
               ]
       }|]
-  where
-    liftT t = do
-        p <- [|T.pack|]
-        return $ AppE p $ LitE $ StringL $ T.unpack t
 
 state
   :: ( Monad m
diff --git a/yesod-angular-ui.cabal b/yesod-angular-ui.cabal
--- a/yesod-angular-ui.cabal
+++ b/yesod-angular-ui.cabal
@@ -1,5 +1,5 @@
 name:                yesod-angular-ui
-version:             0.1.0.0
+version:             0.1.0.1
 synopsis:            Angular Helpers
 description:         Library for developing i18n webapps with yesod and angular.
 homepage:            https://github.com/tolysz/yesod-angular-ui