Use hashids for index

src/Operations/List.hs

@@ -3,21 +3,29 @@ module Operations.List where
 
 import Control.Monad.Buuka
 import Control.Monad.Reader
-       (liftIO, asks)
+       (asks, liftIO)
 
 import Data.Foldable
        (traverse_)
 
-import Data.Semigroup (Max(..))
+import Data.Semigroup
+       (Max(..))
 
 import Data.Buuka
-       (URL(..), BuukaEntry(..))
+       (BuukaEntry(..), URL(..))
 import qualified Data.Buuka as B
 
+import Web.Hashids
+
+import Control.Lens
+import Data.Text.Strict.Lens
+       (unpacked, utf8)
+
 list :: BuukaM ()
 list =
   buukaQ (asks (format . B.elements)) >>= traverse_ (liftIO . putStrLn)
   where
+    ctx = hashidsSimple "buuka"
     format :: [BuukaEntry] -> [String]
     format xs =
       let formatted = zipWith formatEntry [1..] xs
@@ -25,5 +33,5 @@ list =
       in fmap (\(idx,x) -> idx <> replicate (indexWidth - length idx) ' ' <> ". " <> x) formatted
     formatEntry :: Int -> BuukaEntry -> (String, String)
     formatEntry n = \case
-      BuukaEntry{title=Just t} -> (show n, t)
-      BuukaEntry{url=URL u} -> (show n, u)
+      BuukaEntry{title=Just t} -> (encode ctx n ^. utf8 . unpacked, t)
+      BuukaEntry{url=URL u} -> (encode ctx n ^. utf8 . unpacked, u)