getting ready for alpha release

Author: minimapletinytools

README.md

@@ -1,8 +1,8 @@
-# potato-illustrator-vty
+# tinytools-vty
 
-`potato-illustrator` is a mono-space text flow-chart editor written in Haskell. It is currently a WIP and expect to have an ALPHA release by EOY.
+`tinytools-vty` is a mono-space text diagram editor written in Haskell. It is currently a WIP and expect to have an beta release SOON.
 
-This repository contains the vty based view implementation built on top of the [potato-illustrator](https://github.com/pdlla/potato-illustrator) model.
+This repository contains the vty based view implementation built on top of the [tiny-tools](https://github.com/pdlla/potato-illustrator) model.
 
 # runninng
 

potato_flow

@@ -332,6 +332,11 @@ makeLineStyleTextEntry lsc mlsDyn = do
     Just ls0 -> updateFromLineStyle lsc ls0
   return . current $ ti
 
+
+presetLineStyles :: [(Text, Text, Text, Text)]
+presetLineStyles = [("<",">","v","^"), ("⇦","⇨","⇧","⇩")]
+
+
 -- | ignore _lineStyle_autoStyle part of LineStyle output
 holdLineStyleWidget :: forall t m. (MonadLayoutWidget t m, HasPotato t m) => ParamsWidgetFn t m LineStyle (Either ControllersWithId SetPotatoDefaultParameters)
 holdLineStyleWidget pdpDyn inputDyn = constDyn $ do