FE: UI tweak for the "copy to clipboard" display.

IntersectMBO · Aug 3, 2020 · 719c7ef · 719c7ef
1 parent df4ed01
commit 719c7ef
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/web-common/src/Bootstrap.purs b/web-common/src/Bootstrap.purs
@@ -319,6 +319,9 @@ floatRight = ClassName "float-right"
 displayFlex :: ClassName
 displayFlex = ClassName "d-flex"
 
+alignItemsCenter :: ClassName
+alignItemsCenter = ClassName "align-items-center"
+
 clearfix :: ClassName
 clearfix = ClassName "clearfix"
 

diff --git a/web-common/src/Clipboard.purs b/web-common/src/Clipboard.purs
@@ -7,7 +7,7 @@ module Clipboard
   , showShortCopyLong
   ) where
 
-import Bootstrap (btn, btnLink, displayFlex, textTruncate)
+import Bootstrap (btn, btnLink, displayFlex, textTruncate, alignItemsCenter)
 import Control.Monad (class Monad)
 import Control.Monad.Reader.Trans (ReaderT)
 import Control.Monad.State.Trans (StateT)
@@ -71,7 +71,7 @@ clipboardButton str =
 
 showShortCopyLong :: forall p. String -> Maybe (Array (HTML p Action)) -> HTML p Action
 showShortCopyLong str content =
-  div [ class_ displayFlex ]
+  div [ classes [ displayFlex, alignItemsCenter ] ]
     [ div [ classes [ textTruncate ] ]
         (fromMaybe [ text str ] content)
     , clipboardButton str