;tools: Shake: comment unused orgfiles script

Shake.hs

@@ -772,34 +772,28 @@ main = do
       phony "site" $ do
         need [
            "webmanuals"
-          ,"orgfiles"
           ]
         cmd_ "make -C site build"
 
-      phony "orgfiles" $
+      -- Markdown generated from org files, for the website.
-        need [
+      -- [ -- "doc/BACKLOG.md"
-           -- "doc/BACKLOG.md"
+      --  ] |%> \out -> do
-          ]
+      --   let src = out -<.> "org"
-
+      --   need [src]
-      -- These org files are converted to markdown for the website.
+      --   -- replace the generated top heading with our own so we can insert the TOC after it
-      [ -- "doc/BACKLOG.md"
+      --   let heading = dropExtension out
-       ] |%> \out -> do
+      --   mdlines <- drop 1 . lines . fromStdout <$> (cmd Shell pandoc fromorg towebmd src :: Action (Stdout String))
-        let src = out -<.> "org"
+      --   liftIO $ writeFile out $ unlines $ [
-        need [src]
+      --      "<!-- " ++ "Generated by \"Shake " ++ out ++ " from " ++ src ++ " -->"
-        -- replace the generated top heading with our own so we can insert the TOC after it
+      --     ,""
-        let heading = dropExtension out
+      --     ,"# " ++ heading
-        mdlines <- drop 1 . lines . fromStdout <$> (cmd Shell pandoc fromorg towebmd src :: Action (Stdout String))
+      --     ,""
-        liftIO $ writeFile out $ unlines $ [
+      --     ,"<div class=\"pagetoc\">"
-           "<!-- " ++ "Generated by \"Shake " ++ out ++ " from " ++ src ++ " -->"
+      --     ,""
-          ,""
+      --     ,"<!-- toc -->"
-          ,"# " ++ heading
+      --     ,"</div>"
-          ,""
+      --     ,""
-          ,"<div class=\"pagetoc\">"
+      --     ] ++ mdlines
-          ,""
-          ,"<!-- toc -->"
-          ,"</div>"
-          ,""
-          ] ++ mdlines
 
 -- XXX try to style backlog items as unnumbered or nested-numbered list items
 {-