import "URL"
import "Simantics/DB"
import "http://www.simantics.org/Help-1.0" as HELP

importJava "org.simantics.help.core.HelpUtils" where
    createHelpLibrary :: Resource -> <WriteGraph, Proc> Resource
    createHelpTutorial :: Resource -> String -> <WriteGraph, Proc> Resource
    clearHelpTocCache :: () -> <Proc> ()
    saveHelpFileContents :: Resource -> String -> <WriteGraph, Proc> ()
    readHelpFileContents :: Resource -> <ReadGraph, Proc> String
    markdownToHtml :: Resource -> <ReadGraph, Proc> String
    getHelpBrowserUrl :: () -> URL

createHelpLibraryAction :: Resource -> <Proc> ()
createHelpLibraryAction parent = do
    syncWrite (\() -> createHelpLibrary parent)
    ()

createHelpTutorialAction :: Resource -> <Proc> ()
createHelpTutorialAction parent = do
    tutorialFiles = syncRead (\x -> objectsWithType parent L0.ConsistsOf HELP.TutorialFile)
    fileName = if length tutorialFiles == 0
    then "Tutorial"
    else do
        "Tutorial " + (show (length tutorialFiles))
    syncWrite (\() -> createHelpTutorial parent fileName)
    ()