Use hashids for index

buuka.cabal

@@ -54,6 +54,7 @@ library
                      , vector
                      , hashids
                      , text
+                     , lens
   hs-source-dirs:      src
 
 executable buuka

default.nix

@@ -1,5 +1,5 @@
 { mkDerivation, aeson, base, bytestring, containers, exceptions
-, filepath, hashids, hedgehog, hedgehog-corpus, mtl
+, filepath, hashids, hedgehog, hedgehog-corpus, lens, mtl
 , optparse-applicative, stdenv, tasty, tasty-hedgehog, text
 , transformers, unliftio, vector, yaml
 }:
@@ -10,8 +10,8 @@ mkDerivation {
   isLibrary = true;
   isExecutable = true;
   libraryHaskellDepends = [
-    aeson base bytestring containers exceptions filepath hashids mtl
+    aeson base bytestring containers exceptions filepath hashids lens
-    text transformers unliftio vector yaml
+    mtl text transformers unliftio vector yaml
   ];
   executableHaskellDepends = [ base optparse-applicative unliftio ];
   testHaskellDepends = [

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{title=Just t} -> (encode ctx n ^. utf8 . unpacked, t)
-      BuukaEntry{url=URL u} -> (show n, u)
+      BuukaEntry{url=URL u} -> (encode ctx n ^. utf8 . unpacked, u)