wip

.fixme-new/config

@@ -21,8 +21,6 @@ fixme-value-set cat bug feat refactor
 
 fixme-value-set scope mvp-0 mvp-1 backlog
 
-fixme-value-set type bug feature code
-
 fixme-files **/*.txt docs/devlog.md
 fixme-files **/*.hs
 

fixme-new/lib/Fixme/Run.hs

@@ -139,7 +139,7 @@ runTop argz = do
 
   let dict = makeDict @C do
 
-       -- internalEntries
+       internalEntries
 
        entry $ bindMatch "--help" $ nil_ \case
          HelpEntryBound what -> helpEntry what
@@ -194,7 +194,7 @@ runTop argz = do
          _ -> throwIO $ BadFormException @C nil
 
        entry $ bindMatch  "fixme-value-set" $ nil_ \case
-         (StringLikeList (n:xs))  -> do
+         (StringLike n : StringLikeList xs)  -> do
            t <- lift $ asks fixmeEnvAttribValues
            let name = fromString n
            let vals = fmap fromString xs & HS.fromList
@@ -215,6 +215,10 @@ runTop argz = do
        entry $ bindMatch "env:show" $ nil_ $ const $ do
         lift printEnv
 
+       entry $ bindMatch "git:commits" $ const $ do
+        co <- lift listCommits <&> fmap (mkStr @C . view _1)
+        pure $ mkList co
+
        entry $ bindMatch "init" $ nil_ $ const $ do
         lift init
 

fixme-new/lib/Fixme/Types.hs

@@ -179,6 +179,9 @@ instance MkKey (FromFixmeKey Fixme) where
     maybe k2  (mappend "A" . LBS.toStrict . serialise) (HM.lookup "fixme-key" fixmeAttr)
     where k2 = mappend "A" $ serialise fx & LBS.toStrict
 
+instance IsContext c => MkStr c GitHash  where
+  mkStr ha = mkStr (show $ pretty ha)
+
 instance IsContext c => MkStr c HashRef  where
   mkStr ha = mkStr (show $ pretty ha)