diff --git a/.fixme-new/config b/.fixme-new/config index 1c01431e..205b162e 100644 --- a/.fixme-new/config +++ b/.fixme-new/config @@ -40,12 +40,6 @@ fixme-comments ";" "--" (fixme-play-log-action ) -;(define-template default -; (simple -; ($fixme-key) | ($fixme-title) (nl) -; ) -;) - (define-template short (simple (trim 10 $fixme-key) " " diff --git a/fixme-new/lib/Fixme/Run.hs b/fixme-new/lib/Fixme/Run.hs index c32e990b..ebc6e9dd 100644 --- a/fixme-new/lib/Fixme/Run.hs +++ b/fixme-new/lib/Fixme/Run.hs @@ -109,6 +109,18 @@ fixmePrefix = \case _ -> Nothing +defaultTemplate :: HashMap Id FixmeTemplate +defaultTemplate = HM.fromList [ ("default", Simple (SimpleTemplate short)) ] + where + short = parseTop s & fromRight mempty + s = [qc| +(trim 10 $fixme-key) " " +(align 6 $fixme-tag) " " +(trim 50 ($fixme-title)) +(nl) + |] + + runFixmeCLI :: FixmePerks m => FixmeM m a -> m a runFixmeCLI m = do db <- newDBPipeEnv dbPipeOptsDef =<< localDBPath @@ -122,7 +134,7 @@ runFixmeCLI m = do <*> newTVarIO Nothing <*> newTVarIO mempty <*> newTVarIO mempty - <*> newTVarIO mempty + <*> newTVarIO defaultTemplate runReaderT ( setupLogger >> fromFixmeM (evolve >> m) ) env `finally` flushLoggers