[interesting behavior for happsbrowse when viewing templates, they're colored. i kind of like it even though it's not quite right
thomashartman1@gmail.com**20081004121116] hunk ./src/Controller.hs 31
+import HAppSBrowse
hunk ./src/Controller.hs 148
-                , browsedir "templates"                 
-                , browsedirWith (ifHaskellFile [withRequest colorize]) "src"                
+                , browsedir "templates"-- current directory                 
+                , browsedirWith (ifHaskellFile [withRequest colorize]) "src" 
hunk ./src/Controller.hs 152
-browsedirWith sp d = multi [
-    sp
-    , browsedir d
-  ]
-
-
hunk ./src/Controller.hs 177
--- getpath "mee" ["mah","moh.txt"]
--- "mee/mah/moh.txt" (and uses os-appropriate directory separator)
---getpath topdir pathparts = 
-
addfile ./src/HAppSBrowse.hs
hunk ./src/HAppSBrowse.hs 1
+module HAppSBrowse (browsedir, browsedirWith) where
+
+import HAppS.Server
+import Control.Monad.Trans
+import System.Directory
+import System.FilePath
+import Data.List
+import qualified Data.ByteString.Char8 as B
+import qualified Data.ByteString.Lazy.Char8 as L
+
+-- Directory browsing for happs, suggest including this in head, as replacement for fileserve
+-- eg: browsedir "templates"                 
+browsedir :: String -> ServerPartT IO Response
+browsedir d = multi [
+  ServerPartT $ \rq -> do
+    let rqp = ( pathstring $ rqPaths rq )
+    if (not $ isInfixOf d rqp)
+       then noHandle
+       else do 
+         isDir <- liftIO $ doesDirectoryExist rqp
+         if isDir
+           then do
+             fs <- liftIO $ getDirectoryContents rqp
+             
+             let  
+                 flinks = map g . filter (not . boringfile ) . sort $ fs
+                   where g f = simpleLink ('/' : (combine rqp f)) f
+             return . toResponse . HtmlString $ "<h3>" ++ rqp ++ "</h3>\n<ul>" ++ concatMap li flinks ++ "</ul"
+              
+           else do
+             isfile <- liftIO $ doesFileExist rqp     
+             f <- liftIO $ readFile rqp
+             return . toResponse . HtmlString $ f
+  ]            
+  where simpleLink url anchor = "<a href=" ++ url ++ ">" ++ anchor ++ "</a>"
+        li x = "<li>" ++ x ++ "</li>\n" 
+        boringfile "." = False
+        boringfile ".." = False
+        boringfile ('.':xs) = True
+        boringfile ('#':xs) = True        
+        boringfile f | last f == '~' || head f == '#' = True
+                     | let e = takeExtension f in e == ".o" || e == ".hi" = True
+                     | otherwise = False
+
+-- Windows/Unix/Mac compatible 
+pathstring pathparts =
+  let sep :: String
+      sep = [pathSeparator] 
+  in intercalate sep pathparts
+
+
+-- eg: browsedirWith (ifHaskellFile [withRequest colorize]) "src"  
+browsedirWith sp d = multi [
+    sp
+    , browsedir d
+  ]
+
+newtype HtmlString = HtmlString String
+instance ToMessage HtmlString where
+  toContentType _ = B.pack "text/html"
+  toMessage (HtmlString s) = L.pack s 
hunk ./src/Misc.hs 177
-browsedir :: String -> ServerPartT IO Response
-browsedir d = multi [
-  ServerPartT $ \rq -> do
-    let rqp = ( pathstring $ rqPaths rq )
-    if (not $ isInfixOf d rqp)
-       then noHandle
-       else do 
-         isDir <- liftIO $ doesDirectoryExist rqp
-         if isDir
-           then do
-             fs <- liftIO $ getDirectoryContents rqp
-             
-             let  
-                 flinks = map g . filter (not . boringfile ) . sort $ fs
-                   where g f = simpleLink ('/' : (combine rqp f)) f
-             return . toResponse . HtmlString $ "<h3>" ++ rqp ++ "</h3>\n<ul>" ++ concatMap li flinks ++ "</ul"
-              
-           else do
-             isfile <- liftIO $ doesFileExist rqp     
-             f <- liftIO $ readFile rqp
-             return . toResponse $ f
-  ]            
-  where simpleLink url anchor = "<a href=" ++ url ++ ">" ++ anchor ++ "</a>"
-        li x = "<li>" ++ x ++ "</li>\n" 
-        boringfile "." = False
-        boringfile ".." = False
-        boringfile ('.':xs) = True
-        boringfile ('#':xs) = True        
-        boringfile f | last f == '~' || head f == '#' = True
-                     | let e = takeExtension f in e == ".o" || e == ".hi" = True
-                     | otherwise = False