Fix dialog styling

README.md

@@ -1,6 +1,9 @@
 # Monomer
 
-An easy to use, Elm/Flutter inspired, GUI library for writing native applications in Haskell.
+An easy to use, cross platform, GUI library for writing Haskell applications.
+
+It provides a framework similar to the Elm Architecture, allowing to create GUIs
+functionally with an extensible set of widgets.
 
 ## Objectives
 
@@ -18,13 +21,11 @@ An easy to use, Elm/Flutter inspired, GUI library for writing native application
 ### Why would you want to use this library
 
 - You want to write your application in Haskell.
-- You want to write a native, not Electron based, application.
-- You prefer not to use Gtk.
+- You want to write a native, not web based, application.
 
 ### These are not objectives for this project
 
 - Have a native look and feel.
-- Be a research project pushing the boundaries on how GUIs are created.
 
 ### Current limitations
 

monomer.cabal

@@ -7,7 +7,9 @@ cabal-version: 1.12
 name:           monomer
 version:        0.1.0.0
 synopsis:       GUI Library
-description:    Monomer is a cross platform GUI library inspired by Elm and Flutter.
+description:    Monomer is an easy to use, cross platform, GUI library for writing Haskell applications.
+                It provides a framework similar to the Elm Architecture, allowing to create GUIs functionally using an extensible set of widgets.
+                You can find the available widgets in @Monomer.Widgets@.
                 Please see the README on Github at <https://github.com/fjvallarino/monomer#readme>
 category:       GUI
 homepage:       https://github.com/fjvallarino/monomer#readme

package.yaml

@@ -1,10 +1,10 @@
 name: monomer
 version: 0.1.0.0
-github: "fjvallarino/monomer"
+github: fjvallarino/monomer
 license: BSD3
-author: "Francisco Vallarino"
-maintainer: "fjvallarino@gmail.com"
-copyright: "2018 Francisco Vallarino"
+author: Francisco Vallarino
+maintainer: fjvallarino@gmail.com
+copyright: 2018 Francisco Vallarino
 
 extra-source-files:
 - README.md
@@ -14,7 +14,13 @@ extra-source-files:
 synopsis: GUI Library
 category: GUI
 description:
-  Monomer is a cross platform GUI library inspired by Elm and Flutter.
+  Monomer is an easy to use, cross platform, GUI library for writing Haskell
+  applications.
+
+  It provides a framework similar to the Elm Architecture, allowing to create
+  GUIs functionally using an extensible set of widgets.
+
+  You can find the available widgets in @Monomer.Widgets@.
 
   Please see the README on Github at <https://github.com/fjvallarino/monomer#readme>
 

src/Monomer/Core/Themes/BaseTheme.hs

@@ -207,7 +207,7 @@ baseBasic themeMod = def
   & L.dialStyle . L.fgColor ?~ inputFgBasic themeMod
   & L.dialStyle . L.sndColor ?~ inputSndBasic themeMod
   & L.dialogTitleStyle . L.text ?~ (titleFont & L.fontColor ?~ dialogTitleText themeMod)
-  & L.dialogTitleStyle . L.padding ?~ paddingB 10
+  & L.dialogTitleStyle . L.padding ?~ padding 10 <> paddingB 10
   & L.dialogFrameStyle . L.padding ?~ padding 10
   & L.dialogFrameStyle . L.radius ?~ radius 10
   & L.dialogFrameStyle . L.bgColor ?~ dialogBg themeMod
@@ -218,7 +218,8 @@ baseBasic themeMod = def
   & L.dialogCloseIconStyle . L.radius ?~ radius 8
   & L.dialogCloseIconStyle . L.sizeReqW ?~ width 16
   & L.dialogCloseIconStyle . L.sizeReqH ?~ width 16
-  & L.dialogButtonsStyle . L.padding ?~ padding 20
+  & L.dialogButtonsStyle . L.padding ?~ padding 10
+  & L.dialogMsgBodyStyle . L.padding ?~ paddingH 10
   & L.dialogMsgBodyStyle . L.text
     ?~ (normalFont & L.fontColor ?~ dialogText themeMod)
   & L.dialogMsgBodyStyle . L.sizeReqW ?~ maxWidth 600

src/Monomer/Widgets/Containers/Alert.hs

@@ -135,6 +135,7 @@ buildUI dialogBody cancelEvt config wenv model = mainTree where
         box_ [alignTop, onClick cancelEvt] closeIcon
       ],
       dialogBody wenv,
+      filler,
       box_ [alignRight] dismissButton
         & L.info . L.style .~ collectTheme wenv L.dialogButtonsStyle
     ] & L.info . L.style .~ collectTheme wenv L.dialogFrameStyle