--- /dev/null
+import "URL"\r
+import "Simantics/DB"\r
+import "http://www.simantics.org/Help-1.0" as HELP\r
+\r
+importJava "org.simantics.help.core.HelpUtils" where\r
+ createHelpLibrary :: Resource -> <WriteGraph, Proc> Resource\r
+ createHelpTutorial :: Resource -> String -> <WriteGraph, Proc> Resource\r
+ clearHelpTocCache :: () -> <Proc> ()\r
+ saveHelpFileContents :: Resource -> String -> <WriteGraph, Proc> ()\r
+ readHelpFileContents :: Resource -> <ReadGraph, Proc> String\r
+ markdownToHtml :: Resource -> <ReadGraph, Proc> String\r
+ getHelpBrowserUrl :: () -> URL\r
+\r
+createHelpLibraryAction :: Resource -> <Proc> ()\r
+createHelpLibraryAction parent = do\r
+ syncWrite (\() -> createHelpLibrary parent)\r
+ ()\r
+\r
+createHelpTutorialAction :: Resource -> <Proc> ()\r
+createHelpTutorialAction parent = do\r
+ tutorialFiles = syncRead (\x -> objectsWithType parent L0.ConsistsOf HELP.TutorialFile)\r
+ fileName = if length tutorialFiles == 0\r
+ then "Tutorial"\r
+ else do\r
+ "Tutorial " + (show (length tutorialFiles))\r
+ syncWrite (\() -> createHelpTutorial parent fileName)\r
+ ()
\ No newline at end of file