= \ ctx (InlineCommand _ attrs inside) ->
do BaseURI baseURI <- getSysConf (ctxSysConf ctx)
- let pageName = lookup "src" attrs
- when (pageName == Nothing)
- $ fail "\"src\" attribute is missing"
-
- let hrefAttr = ("href", uriToString id (mkPageURI baseURI (fromJust pageName)) "")
- srcAttr = ("src" , uriToString id (mkObjectURI baseURI (fromJust pageName)) "")
- altAttr = do alt <- lookup "alt" attrs
- return ("alt", alt)
+ let pageName = case lookup "src" attrs of
+ Just x -> x
+ Nothing -> error "\"src\" attribute is missing"
+ hrefAttr = ("href", uriToString id (mkPageURI baseURI pageName) "")
+ alt = lookup "alt" attrs
classAttr = case lookup "float" attrs of
Nothing -> ("class", "inlineImage")
Just "left" -> ("class", "inlineImage leftFloat")
Just "right" -> ("class", "inlineImage rightFloat")
Just others -> error ("unknown \"float\" attribute: " ++ others)
anchorAttrs = [hrefAttr, classAttr]
- imgAttrs = catMaybes [Just srcAttr, altAttr]
- return (Anchor anchorAttrs [Image imgAttrs])
+ return (Anchor anchorAttrs [Image pageName alt])
}
= \ ctx (BlockCommand _ attrs inside) ->
do BaseURI baseURI <- getSysConf (ctxSysConf ctx)
- let pageName = lookup "src" attrs
- when (pageName == Nothing)
- $ fail "\"src\" attribute is missing"
-
- let hrefAttr = ("href", uriToString id (mkPageURI baseURI (fromJust pageName)) "")
- srcAttr = ("src" , uriToString id (mkObjectURI baseURI (fromJust pageName)) "")
+ let pageName = case lookup "src" attrs of
+ Just x -> x
+ Nothing -> error "\"src\" attribute is missing"
+ hrefAttr = ("href", uriToString id (mkPageURI baseURI pageName) "")
classAttr = case lookup "float" attrs of
Nothing -> ("class", "imageFrame")
Just "left" -> ("class", "imageFrame leftFloat")
return (Div [classAttr]
[ Div [("class", "imageData")]
[ Paragraph [ Anchor [hrefAttr]
- [ Image [srcAttr] ] ]
+ [ Image pageName Nothing ] ]
]
, Div [("class", "imageCaption")] inside
]