blockClassPath :: FilePath -> String
blockClassPath path =
    let xs = splitDirectories path in
    (head xs) ++ "/" ++ join "_" (tail xs)
blockClassPath :: FilePath -> String
blockClassPath path =
    let xs = splitDirectories path in
    (head xs) ++ "/" ++ join "_" (tail xs)
blockClassPath path =
    let xs = splitDirectories path in
    (head xs) ++ "/" ++ join "_" (tail xs)