Copyright | (c) Sterling Clover 2008 |
---|---|
License | BSD 3 Clause |
Maintainer | s.clover@gmail.com |
Stability | experimental |
Portability | portable |
Safe Haskell | None |
Language | Haskell98 |
A StringTemplate is a String with "holes" in it. This is a port of the Java StringTemplate library written by Terrence Parr. (http://www.stringtemplate.org). User-contributed documentation available at http://www.haskell.org/haskellwiki/HStringTemplate.
This library implements the basic 3.1 grammar, lacking group files (though not groups themselves), Regions, and Interfaces. The goal is not to blindly copy the StringTemplate API, but rather to take its central ideas and implement them in a Haskellish manner. Indentation and wrapping, for example, are implemented through the HughesPJ Pretty Printing library. Calling toPPDoc on a StringTemplate yields a Doc with appropriate paragraph-fill wrapping that can be rendered in the usual fashion.
Basic instances are provided of the StringTemplateShows and ToSElem class.
Any type deriving ToSElem can be passed automatically as a StringTemplate
attribute. This package can be installed with syb-with-class bindings
that provide a ToSElem instance for anything deriving
Data
. When defining an instance of
ToSElem that can take a format parameter, you should first define an
instance of StringTemplateShows, and then define an instance of ToSElem
where toSElem = stShowsToSE
.
- data StringTemplate a
- type STGroup a = String -> StFirst (StringTemplate a)
- class ToSElem a where
- toSElem :: Stringable b => a -> SElem b
- toSElemList :: Stringable b => [a] -> SElem b
- class Show a => StringTemplateShows a where
- stringTemplateShow :: a -> String
- stringTemplateFormattedShow :: String -> a -> String
- stShowsToSE :: (StringTemplateShows a, Stringable b) => a -> SElem b
- class Monoid a => Stringable a where
- stFromString :: String -> a
- stFromByteString :: ByteString -> a
- stFromText :: Text -> a
- stToString :: a -> String
- mconcatMap :: [b] -> (b -> a) -> a
- mintercalate :: a -> [a] -> a
- mlabel :: a -> a -> a
- class Stringable b => SEType b a where
- renderf :: StringTemplate b -> a
- newSTMP :: Stringable a => String -> StringTemplate a
- newAngleSTMP :: Stringable a => String -> StringTemplate a
- getStringTemplate :: Stringable a => String -> STGroup a -> Maybe (StringTemplate a)
- getStringTemplate' :: Stringable a => String -> STGroup a -> Maybe (StringTemplate a)
- toString :: StringTemplate String -> String
- toPPDoc :: StringTemplate Doc -> Doc
- render :: Stringable a => StringTemplate a -> a
- dumpAttribs :: Stringable a => StringTemplate a
- checkTemplate :: Stringable a => StringTemplate a -> (Maybe String, Maybe [String], Maybe [String])
- checkTemplateDeep :: (Stringable a, NFData a) => StringTemplate a -> ([(String, String)], [String], [String])
- setAttribute :: (ToSElem a, Stringable b) => String -> a -> StringTemplate b -> StringTemplate b
- (|=) :: Monad m => a -> m a1 -> m (a, a1)
- setManyAttrib :: (ToSElem a, Stringable b) => [(String, a)] -> StringTemplate b -> StringTemplate b
- setNativeAttribute :: Stringable b => String -> b -> StringTemplate b -> StringTemplate b
- setManyNativeAttrib :: Stringable b => [(String, b)] -> StringTemplate b -> StringTemplate b
- withContext :: (ToSElem a, Stringable b) => StringTemplate b -> a -> StringTemplate b
- optInsertTmpl :: [(String, String)] -> StringTemplate a -> StringTemplate a
- optInsertGroup :: [(String, String)] -> STGroup a -> STGroup a
- setEncoder :: Stringable a => (a -> a) -> StringTemplate a -> StringTemplate a
- setEncoderGroup :: Stringable a => (a -> a) -> STGroup a -> STGroup a
- groupStringTemplates :: [(String, StringTemplate a)] -> STGroup a
- addSuperGroup :: STGroup a -> STGroup a -> STGroup a
- addSubGroup :: STGroup a -> STGroup a -> STGroup a
- mergeSTGroups :: STGroup a -> STGroup a -> STGroup a
- directoryGroup :: Stringable a => FilePath -> IO (STGroup a)
- directoryGroupExt :: Stringable a => FilePath -> FilePath -> IO (STGroup a)
- unsafeVolatileDirectoryGroup :: Stringable a => FilePath -> Int -> IO (STGroup a)
- directoryGroupRecursive :: Stringable a => FilePath -> IO (STGroup a)
- directoryGroupRecursiveLazy :: Stringable a => FilePath -> IO (STGroup a)
- directoryGroupRecursiveExt :: Stringable a => FilePath -> FilePath -> IO (STGroup a)
- directoryGroupRecursiveLazyExt :: Stringable a => FilePath -> FilePath -> IO (STGroup a)
- directoryGroupLazy :: Stringable a => FilePath -> IO (STGroup a)
- directoryGroupLazyExt :: Stringable a => FilePath -> FilePath -> IO (STGroup a)
- nullGroup :: Stringable a => STGroup a
Types
data StringTemplate a Source
A String with "holes" in it. StringTemplates may be composed of any
Stringable
type, which at the moment includes String
s, ByteString
s,
PrettyPrinter Doc
s, and Endo
String
s, which are actually of type
ShowS
. When a StringTemplate is composed of a type, its internals are
as well, so it is, so to speak "turtles all the way down."
Stringable a => SEType a (StringTemplate a) |
type STGroup a = String -> StFirst (StringTemplate a) Source
A function that generates StringTemplates. This is conceptually a query function into a "group" of StringTemplates.
Classes
The ToSElem class should be instantiated for all types that can be inserted as attributes into a StringTemplate.
toSElem :: Stringable b => a -> SElem b Source
toSElemList :: Stringable b => [a] -> SElem b Source
class Show a => StringTemplateShows a where Source
The StringTemplateShows class should be instantiated for all types that are directly displayed in a StringTemplate, but take an optional format string. Each such type must have an appropriate ToSElem method defined as well.
Nothing
stringTemplateShow :: a -> String Source
Defaults to show
.
stringTemplateFormattedShow :: String -> a -> String Source
Defaults to _ a -> stringTemplateShow a
stShowsToSE :: (StringTemplateShows a, Stringable b) => a -> SElem b Source
This method should be used to create ToSElem instances for types defining a custom formatted show function.
class Monoid a => Stringable a where Source
The Stringable class should be instantiated with care. Generally, the provided instances should be enough for anything.
stFromString :: String -> a Source
stFromByteString :: ByteString -> a Source
stFromText :: Text -> a Source
stToString :: a -> String Source
mconcatMap :: [b] -> (b -> a) -> a Source
Defaults to mconcatMap m k = foldr (mappend . k) mempty m
mintercalate :: a -> [a] -> a Source
Defaults to (mconcat .) . intersperse
Defaults to mlabel x y = mconcat [x, stFromString "[", y, stFromString "]"]
class Stringable b => SEType b a where Source
renderf :: StringTemplate b -> a Source
Stringable a => SEType a a | |
Stringable a => SEType a (StringTemplate a) | |
(ToSElem a, SEType b r) => SEType b ((String, a) -> r) |
Creation
newSTMP :: Stringable a => String -> StringTemplate a Source
Parses a String to produce a StringTemplate, with '$'s as delimiters. It is constructed with a stub group that cannot look up other templates.
newAngleSTMP :: Stringable a => String -> StringTemplate a Source
Parses a String to produce a StringTemplate, delimited by angle brackets. It is constructed with a stub group that cannot look up other templates.
getStringTemplate :: Stringable a => String -> STGroup a -> Maybe (StringTemplate a) Source
Queries an String Template Group and returns Just the appropriate StringTemplate if it exists, otherwise, Nothing.
getStringTemplate' :: Stringable a => String -> STGroup a -> Maybe (StringTemplate a) Source
As with getStringTemplate
but never inlined, so appropriate for use
with volatile template groups.
Display
toString :: StringTemplate String -> String Source
Renders a StringTemplate to a String.
render :: Stringable a => StringTemplate a -> a Source
Generic render function for a StringTemplate of any type.
dumpAttribs :: Stringable a => StringTemplate a Source
A special template that simply dumps the values of all the attributes set in it.
This may be made available to any template as a function by adding it to its group.
I.e. myNewGroup = addSuperGroup myGroup $ groupStringTemplates [("dumpAttribs", dumpAttribs)]
checkTemplate :: Stringable a => StringTemplate a -> (Maybe String, Maybe [String], Maybe [String]) Source
Returns a tuple of three Maybes. The first is set if there is a parse error in the template. The next is set to a list of attributes that have not been set, or Nothing if all attributes are set. The last is set to a list of invoked templates that cannot be looked up, or Nothing if all invoked templates can be found. Note that this check is shallow -- i.e. missing attributes and templates are only caught in the top level template, not any invoked subtemplate.
checkTemplateDeep :: (Stringable a, NFData a) => StringTemplate a -> ([(String, String)], [String], [String]) Source
Returns a tuple of three lists. The first is of templates with parse errors, and their errors. The next is of missing attributes, and the last is of missing templates. If there are no errors, then all lists will be empty. This check is performed recursively.
Modification
setAttribute :: (ToSElem a, Stringable b) => String -> a -> StringTemplate b -> StringTemplate b Source
Yields a StringTemplate with the appropriate attribute set. If the attribute already exists, it is appended to a list.
setManyAttrib :: (ToSElem a, Stringable b) => [(String, a)] -> StringTemplate b -> StringTemplate b Source
Yields a StringTemplate with the appropriate attributes set. If any attribute already exists, it is appended to a list.
setNativeAttribute :: Stringable b => String -> b -> StringTemplate b -> StringTemplate b Source
Yields a StringTemplate with the appropriate attribute set. If the attribute already exists, it is appended to a list. This will not translate the attribute through any intermediate representation, so is more efficient when, e.g. setting attributes that are large bytestrings in a bytestring template.
setManyNativeAttrib :: Stringable b => [(String, b)] -> StringTemplate b -> StringTemplate b Source
Yields a StringTemplate with the appropriate attributes set. If any attribute already exists, it is appended to a list. Attributes are added natively, which may provide efficiency gains.
withContext :: (ToSElem a, Stringable b) => StringTemplate b -> a -> StringTemplate b Source
Replaces the attributes of a StringTemplate with those described in the second argument. If the argument does not yield a set of named attributes but only a single one, that attribute is named, as a default, "it".
optInsertTmpl :: [(String, String)] -> StringTemplate a -> StringTemplate a Source
Adds a set of global options to a single template
optInsertGroup :: [(String, String)] -> STGroup a -> STGroup a Source
Adds a set of global options to a group
setEncoder :: Stringable a => (a -> a) -> StringTemplate a -> StringTemplate a Source
Sets an encoding function of a template that all values are
rendered with. For example one useful encoder would be stringToHtmlString
. All attributes will be encoded once and only once.
setEncoderGroup :: Stringable a => (a -> a) -> STGroup a -> STGroup a Source
Sets an encoding function of a group that all values are rendered with in each enclosed template
Groups
groupStringTemplates :: [(String, StringTemplate a)] -> STGroup a Source
Given a list of named of StringTemplates, returns a group which generates them such that they can call one another.
addSuperGroup :: STGroup a -> STGroup a -> STGroup a Source
Adds a supergroup to any StringTemplate group such that templates from the original group are now able to call ones from the supergroup as well.
addSubGroup :: STGroup a -> STGroup a -> STGroup a Source
Adds a "subgroup" to any StringTemplate group such that templates from the original group now have template calls "shadowed" by the subgroup.
mergeSTGroups :: STGroup a -> STGroup a -> STGroup a Source
Merges two groups into a single group. This function is left-biased, prefering bindings from the first group when there is a conflict.
directoryGroup :: Stringable a => FilePath -> IO (STGroup a) Source
Given a path, returns a group which generates all files in said directory which have the proper "st" extension. This function is strict, with all files read once. As it performs file IO, expect it to throw the usual exceptions.
directoryGroupExt :: Stringable a => FilePath -> FilePath -> IO (STGroup a) Source
Given a path, returns a group which generates all files in said directory which have the supplied extension.
unsafeVolatileDirectoryGroup :: Stringable a => FilePath -> Int -> IO (STGroup a) Source
Given an integral amount of seconds and a path, returns a group generating all files in said directory and subdirectories with the proper "st" extension, cached for that amount of seconds. IO errors are "swallowed" by this so that exceptions don't arise in unexpected places. This violates referential transparency, but can be very useful in developing templates for any sort of server application. It should be swapped out for production purposes. The dumpAttribs template is added to the returned group by default, as it should prove useful for debugging and developing templates.
directoryGroupRecursive :: Stringable a => FilePath -> IO (STGroup a) Source
As with directoryGroup
, but traverses subdirectories as well. A template named
"foo/bar.st" may be referenced by "foo/bar" in the returned group.
directoryGroupRecursiveLazy :: Stringable a => FilePath -> IO (STGroup a) Source
See documentation for directoryGroupRecursive
.
directoryGroupRecursiveExt :: Stringable a => FilePath -> FilePath -> IO (STGroup a) Source
As with directoryGroupRecursive
, but a template extension is supplied.
directoryGroupRecursiveLazyExt :: Stringable a => FilePath -> FilePath -> IO (STGroup a) Source
As with directoryGroupRecursiveLazy
, but a template extension is supplied.
directoryGroupLazy :: Stringable a => FilePath -> IO (STGroup a) Source
Given a path, returns a group which generates all files in said directory which have the proper "st" extension. This function is lazy in the same way that readFile is lazy, with all files read on demand, but no more than once. The list of files, however, is generated at the time the function is called. As this performs file IO, expect it to throw the usual exceptions. And, as it is lazy, expect these exceptions in unexpected places.
directoryGroupLazyExt :: Stringable a => FilePath -> FilePath -> IO (STGroup a) Source
Given a path, returns a group which generates all files in said directory which have the supplied extension.
nullGroup :: Stringable a => STGroup a Source
For any requested template, returns a message that the template was unable to be found. Useful to add as a super group for a set of templates under development, to aid in debugging.