rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

use dots for record fields

Browse source
This commit is contained in:
rhiannon morris 2021-09-03 16:31:53 +02:00
parent 9fb4ad6657
commit bc1aa21f09
4 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/Quox/Pretty.idr
View file

@ -114,11 +114,11 @@ HasEnv = MonadReader PrettyEnv
export export
ifUnicode : HasEnv m => (uni, asc : Lazy a) -> m a ifUnicode : HasEnv m => (uni, asc : Lazy a) -> m a
ifUnicode uni asc = if unicode !ask then [|uni|] else [|asc|] ifUnicode uni asc = if (!ask).unicode then [|uni|] else [|asc|]
export export
parensIfM : HasEnv m => PPrec -> Doc HL -> m (Doc HL) parensIfM : HasEnv m => PPrec -> Doc HL -> m (Doc HL)
parensIfM d doc = pure $ parensIf (prec !ask > d) doc parensIfM d doc = pure $ parensIf ((!ask).prec > d) doc
export export
withPrec : HasEnv m => PPrec -> m a -> m a withPrec : HasEnv m => PPrec -> m a -> m a
@ -164,9 +164,8 @@ export PrettyHL Name where prettyM = pure . pretty . toDots
export export
prettyStr : PrettyHL a => {default True unicode : Bool} -> a -> String prettyStr : PrettyHL a => {default True unicode : Bool} -> a -> String
prettyStr {unicode} = prettyStr {unicode} =
renderString . let layout = layoutSmart (MkLayoutOptions (AvailablePerLine 80 0.8)) in
layoutSmart (MkLayoutOptions (AvailablePerLine 80 0.8)) . renderString . layout . pretty0 {unicode}
pretty0 {unicode}
export export

2
src/Quox/Syntax/Dim.idr
View file

@ -37,7 +37,7 @@ DSubst = Subst Dim
export %inline export %inline
prettyDSubst : Pretty.HasEnv m => DSubst from to -> m (Doc HL) prettyDSubst : Pretty.HasEnv m => DSubst from to -> m (Doc HL)
prettyDSubst th = prettyDSubst th =
prettySubstM prettyM (dnames !ask) DVar prettySubstM prettyM (!ask).dnames DVar
!(ifUnicode "⟨" "<") !(ifUnicode "⟩" ">") th !(ifUnicode "⟨" "<") !(ifUnicode "⟩" ">") th

2
src/Quox/Syntax/Subst.idr
View file

@ -118,4 +118,4 @@ prettySubstM pr names bnd op cl th =
||| prints with [square brackets] and the `TVar` highlight for variables ||| prints with [square brackets] and the `TVar` highlight for variables
export export
PrettyHL (f to) => PrettyHL (Subst f from to) where PrettyHL (f to) => PrettyHL (Subst f from to) where
prettyM th = prettySubstM prettyM (tnames !ask) TVar "[" "]" th prettyM th = prettySubstM prettyM (!ask).tnames TVar "[" "]" th

2
src/Quox/Syntax/Term.idr
View file

@ -167,7 +167,7 @@ mutual
export covering export covering
prettyTSubst : Pretty.HasEnv m => TSubst d from to -> m (Doc HL) prettyTSubst : Pretty.HasEnv m => TSubst d from to -> m (Doc HL)
prettyTSubst s = prettySubstM prettyM (tnames !ask) TVar "[" "]" s prettyTSubst s = prettySubstM prettyM (!ask).tnames TVar "[" "]" s
export covering export covering
prettyBinder : Pretty.HasEnv m => List Qty -> Name -> Term d n -> m (Doc HL) prettyBinder : Pretty.HasEnv m => List Qty -> Name -> Term d n -> m (Doc HL)