+
+
+pageNameInterp :: Interpreter
+pageNameInterp = InlineCommandInterpreter {
+ iciName = "pageName"
+ , iciInterpret
+ = \ ctx (InlineCommand _ _ _) -> case ctxPage ctx of
+ Nothing -> return $ Text "(None)"
+ Just page -> return $ Text $ pageName page
+ }
\ No newline at end of file