diff --git a/slate.cabal b/slate.cabal
--- a/slate.cabal
+++ b/slate.cabal
@@ -2,10 +2,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: ecbc24207c5b0e342b6af0a2f1bb74ad47382085587f7de0966aba3ba65482d2
+-- hash: 17c5e9ad0a8ba60142cfd66ace19c7563a5c9c326317bb5a523bdf52094fa452
 
 name:           slate
-version:        0.8.0.0
+version:        0.8.1.0
 synopsis:       A note taking CLI tool.
 description:    Please see the README on Github at <https://github.com/evuez/slate#readme>
 homepage:       https://github.com/evuez/slate#readme
diff --git a/src/Lib.hs b/src/Lib.hs
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -201,7 +201,7 @@
   contents <- readFile s
   let notes = zipWith displayNote [0 ..] (lines contents)
   putStr $ unlines $ filter (not . isNoteDone) notes
-displaySlate _ f = putStr $ "\"" ++ f ++ "\" is not a valid filter."
+displaySlate _ f = putStrLn $ "\"" ++ f ++ "\" is not a valid filter."
 
 displayNote :: Int -> String -> String
 displayNote line (' ':'-':' ':'[':' ':']':note) =
@@ -269,17 +269,27 @@
   let tmp = s ++ ".tmp"
   writeFile tmp $ unlines $ filter isNoteDone (lines contents)
   renameFile tmp s
-wipeSlate _ f = putStr $ "\"" ++ f ++ "\" is not a valid filter."
+wipeSlate _ f = putStrLn $ "\"" ++ f ++ "\" is not a valid filter."
 
 displayStatus :: FilePath -> IO ()
 displayStatus s = do
   ss <- getSyncStatus s
   contents <- readFile s
-  let t = length $ filter isNoteDone (lines contents)
-      d = length $ filter (not . isNoteDone) (lines contents)
-  putStr $
+  let d = length $ filter isNoteDone (lines contents)
+      t = length $ filter (not . isNoteDone) (lines contents)
+      dd = fromIntegral d :: Double
+      dt = fromIntegral t :: Double
+      pd = round $ 28 * dd / (dt + dd)
+      pt = round $ 28 * dt / (dt + dd)
+  putStrLn $
+    (show d) ++
+    " done, " ++
     (show t) ++
-    " done, " ++ (show d) ++ " todo (" ++ (show $ t + d) ++ " total)." ++ ss
+    " todo (" ++
+    (show $ d + t) ++
+    " total).\n" ++
+    "\x1B[32m" ++
+    (replicate pd '▮') ++ "\x1B[0m" ++ (replicate pt '▮') ++ "\n" ++ ss
 
 getSyncStatus :: FilePath -> IO String
 getSyncStatus s = do
@@ -294,8 +304,8 @@
       e <- waitForProcess h
       return $
         case e of
-          ExitSuccess -> " \x1B[32mSynced ☺️\x1B[1m"
-          (ExitFailure _) -> " \x1B[31mOut of sync 😕\x1B[1m"
+          ExitSuccess -> "\x1B[32mSynced ☺️\x1B[0m"
+          (ExitFailure _) -> "\x1B[31mOut of sync 😕\x1B[0m"
     Nothing -> return ""
 
 syncSlates :: IO ()
@@ -304,4 +314,4 @@
   d <- getConfigDirectory
   (_, _, _, h) <- createProcess (shell c) {cwd = Just d}
   _ <- waitForProcess h
-  putStr "\x1B[32mDone syncing ☺️\x1B[1m"
+  putStrLn "\x1B[32mDone syncing ☺️\x1B[0m"