[Adjusted to compile with WebBits 1.0, also added a Javascript embedding plugin
golubovsky@gmail.com**20090801025914
 Ignore-this: 7d05dc37406b8920ea2bceb3cfbb715c
 initial code.
] {
hunk ./gitit-plugins/Cal.hs 5
+-- The plugin converts a code block like this:
+--
+-- ~~~{.cal}
+-- whatever
+-- ~~~
+--
+-- into a current month calendar appearing on the page.
+
addfile ./gitit-plugins/JavaScript.hs
hunk ./gitit-plugins/JavaScript.hs 1
+-- Javascript embedding plugin.
+--
+-- The plugin converts a code block like this:
+--
+-- ~~~{.javascript src="uri"}
+-- whatever
+-- ~~~
+--
+-- into a <script> tag referring to an external resource
+--
+-- or a code block like this:
+--
+-- ~~~{.javascript}
+-- javascript code
+-- ~~~
+--
+-- into an embedded script verbatim.
+
+module JavaScript (plugin) where
+
+import Network.Gitit.Interface
+import Network.URI
+import Text.XHtml
+
+plugin :: Plugin
+plugin = mkPageTransformM transformBlock
+
+transformBlock (CodeBlock (_, classes, namevals) contents) | "javascript" `elem` classes = 
+  case lookup "src" namevals of
+    Just uri -> extjs uri
+    Nothing  -> embjs contents
+
+transformBlock x = return x
+
+extjs uri =
+  return $ Para [Str $ "will refer to " ++ uri]
+
+embjs cnts =
+  return $ Para [Str $ "will embed " ++ cnts]
+
+
hunk ./idlconv/backend/BackJSMW.hs 72
-globimps = map (impmod . ModuleName) ["Data.DOM.WBTypes", "BrownPLT.JavaScript"]
+globimps = map (impmod . ModuleName) ["Language.JSMW", "BrownPLT.JavaScript"]
hunk ./idlconv/idlconv.cabal 17
-Build-depends:  base >=4 && < 5, filepath, mtl, HSH >= 2.0.0, utf8-env, utf8-string,
-                cpphs, WebBits == 0.15, webidl >= 0.1.1, parsec >= 2.0 && < 3.0, filepath,
+Build-depends:  base >=4 && < 5, filepath, mtl, HSH >= 2.0.0, utf8-string,
+                cpphs, WebBits == 1.0, webidl >= 0.1.1, parsec >= 2.0 && < 3.0, filepath,
hunk ./jsmw/Language/JSMW/Cond.hs 116
-  writeStmt (ExprStmt () (AssignExpr () OpAssign (VarRef () (Id () fv)) (fun /\ ())))
+  writeStmt (ExprStmt () (AssignExpr () OpAssign (LVar () fv) (fun /\ ())))
hunk ./jsmw/Language/JSMW/Type.hs 67
-      setp = ExprStmt tht $ AssignExpr tht OpAssign (DotRef tht thv (Id tht pn)) (pv /\ tht)
+      setp = ExprStmt tht $ AssignExpr tht OpAssign (LDot tht thv pn) (pv /\ tht)
hunk ./jsmw/jsmw.cabal 82
-    build-depends: base >= 4.0.0, mtl, WebBits == 0.15, DOM == 2.0.1
+    build-depends: base >= 4.0.0, mtl, WebBits == 1.0
hunk ./jsmw/jsmw.cabal 87
-        Language.JSMW.Cond, Data.DOM.JSMWExt, Data.JSRef, Language.JSMW.DOM
-        Language.JSMW.Type
+        Language.JSMW.Cond, Data.JSRef, Language.JSMW.Type
hunk ./jsmw/jsmw.cabal 89
+--  Language.JSMW.DOM, Data.DOM.JSMWExt
hunk ./modsplit/modsplit.cabal 30
-Build-Depends:  base > 3, filepath, mtl, utf8-env, utf8-string, haskell98, directory
+Build-Depends:  base > 3, filepath, mtl, utf8-string, haskell98, directory
hunk ./webidl/webidl.cabal 43
-Build-Depends:  base >= 4.0.0 && < 5.0, utf8-env, utf8-string, 
+Build-Depends:  base >= 4.0.0 && < 5.0, utf8-string, 
}