better word wrapping

Assistant/WebApp/DashBoard.hs

@@ -26,7 +26,6 @@ import qualified Git
 import Text.Hamlet
 import qualified Data.Map as M
 import Control.Concurrent
-import qualified Data.Text as T
 
 {- A display of currently running and queued transfers.
  -
@@ -48,16 +47,6 @@ transfersDisplay warnNoScript = do
 	isrunning info = not $
 		transferPaused info || isNothing (startedTime info)
 
-{- Long filenames can mess up the transfer display, due to the
- - browser not word-wrapping them because it thinks this_is/all_one_word.
- -
- - To deal with this, insert zero-width spaces every 10 characters.
- -}
-segmentFilePath :: FilePath -> T.Text
-segmentFilePath = T.intercalate zspace . T.chunksOf 10 . T.pack
-  where
-  	zspace = T.singleton '\8203'
-
 {- Simplifies a list of transfers, avoiding display of redundant
  - equivilant transfers. -}
 simplifyTransfers :: [(Transfer, TransferInfo)] -> [(Transfer, TransferInfo)]

templates/dashboard/transfers.cassius

@@ -0,0 +1,2 @@
+.forcewrap
+  word-wrap: break-word

templates/dashboard/transfers.hamlet

@@ -6,11 +6,11 @@
         <div .row-fluid>
           <div .span10>
             <div .row-fluid>
-              <h3>
+              <h3 .forcewrap>
                 $maybe file <- associatedFile info
-                  #{segmentFilePath file}
+                  #{file}
                 $nothing
-                  #{segmentFilePath $ key2file $ transferKey transfer}
+                  #{key2file $ transferKey transfer}
                 $case transferDirection transfer
                   $of Upload
                     &rarr;