|
| 1 | +module Lumi.Components2.Image |
| 2 | + ( image |
| 3 | + , thumbnail |
| 4 | + , small |
| 5 | + , medium |
| 6 | + , large |
| 7 | + , extraLarge |
| 8 | + , resize |
| 9 | + , resizeSquare |
| 10 | + , round |
| 11 | + , Image |
| 12 | + , Thumbnail |
| 13 | + ) where |
| 14 | + |
| 15 | +import Prelude |
| 16 | + |
| 17 | +import Data.Foldable (minimum) |
| 18 | +import Data.Maybe (Maybe(..), fromMaybe, maybe) |
| 19 | +import Data.Monoid as Monoid |
| 20 | +import Data.Nullable as Nullable |
| 21 | +import Data.String as String |
| 22 | +import Data.Traversable (traverse) |
| 23 | +import Data.Tuple.Nested ((/\)) |
| 24 | +import Effect.Timer (clearTimeout, setTimeout) |
| 25 | +import Effect.Unsafe (unsafePerformEffect) |
| 26 | +import Lumi.Components (LumiComponent, PropsModifier, lumiComponent, ($$$)) |
| 27 | +import Lumi.Components.Loader (loader) |
| 28 | +import Lumi.Components.Svg (placeholderSvg) |
| 29 | +import Lumi.Components2.Box as Box |
| 30 | +import Lumi.Styles (Style, StyleModifier, style, style_, toCSS) |
| 31 | +import Lumi.Styles.Box (FlexAlign(..)) |
| 32 | +import Lumi.Styles.Box as Styles.Box |
| 33 | +import Lumi.Styles.Slat hiding (_interactive,slat) as Styles.Slat |
| 34 | +import Lumi.Styles.Theme (LumiTheme(..), useTheme) |
| 35 | +import React.Basic.DOM as R |
| 36 | +import React.Basic.Emotion as E |
| 37 | +import React.Basic.Events (handler_) |
| 38 | +import React.Basic.Hooks (JSX) |
| 39 | +import React.Basic.Hooks as Hooks |
| 40 | +import Web.HTML.HTMLElement as HTMLElement |
| 41 | + |
| 42 | +data Image = Image |
| 43 | + |
| 44 | +type ImageProps |
| 45 | + = ( component :: Image |
| 46 | + , content :: String |
| 47 | + , placeholder :: Maybe JSX |
| 48 | + ) |
| 49 | + |
| 50 | +-- | An image has no size restrictions |
| 51 | +-- | will respect the image's original aspect ratio |
| 52 | +image :: LumiComponent ImageProps |
| 53 | +image = |
| 54 | + unsafePerformEffect do |
| 55 | + lumiComponent "Image" defaults \props -> Hooks.do |
| 56 | + theme <- useTheme |
| 57 | + loaded /\ setLoaded <- Hooks.useState' false |
| 58 | + |
| 59 | + containerRef <- Hooks.useRef Nullable.null |
| 60 | + dimensions /\ setDimensions <- Hooks.useState { width: 20.0, height: 20.0 } |
| 61 | + Hooks.useLayoutEffect unit do |
| 62 | + container <- Hooks.readRefMaybe containerRef |
| 63 | + case container of |
| 64 | + Nothing -> mempty |
| 65 | + Just container' -> do |
| 66 | + rect <- traverse HTMLElement.getBoundingClientRect (HTMLElement.fromNode container') |
| 67 | + let |
| 68 | + newDimentions = |
| 69 | + { height: maybe 0.0 (\r -> r.height + 2.0) rect |
| 70 | + , width: maybe 0.0 (\r -> r.width + 2.0) rect |
| 71 | + } |
| 72 | + if newDimentions /= dimensions then do |
| 73 | + timeout <- |
| 74 | + setTimeout 10 do |
| 75 | + setDimensions \_ -> newDimentions |
| 76 | + pure (clearTimeout timeout) |
| 77 | + else |
| 78 | + mempty |
| 79 | + |
| 80 | + pure |
| 81 | + $ E.element R.div' |
| 82 | + { ref: containerRef |
| 83 | + , children: |
| 84 | + [ if String.null props.content |
| 85 | + then fromMaybe placeholderSvg props.placeholder |
| 86 | + else |
| 87 | + Box.column |
| 88 | + $ Styles.Box._flex |
| 89 | + $ Styles.Box._align Center |
| 90 | + $ Styles.Box._justify Center |
| 91 | + $$$ |
| 92 | + [ Monoid.guard (not loaded) |
| 93 | + $ let d = fromMaybe 20.0 ([ dimensions.height, dimensions.width ] # minimum) |
| 94 | + in loader |
| 95 | + { style: R.css |
| 96 | + { width: d * 0.25 |
| 97 | + , height: d * 0.25 |
| 98 | + , borderWidth: "2px" |
| 99 | + } |
| 100 | + , testId: Nullable.toNullable Nothing |
| 101 | + } |
| 102 | + , E.element R.img' |
| 103 | + { src: props.content |
| 104 | + , className: "" |
| 105 | + , css: E.css { maxWidth: E.percent 100.0 } |
| 106 | + , onLoad: handler_ $ setLoaded true |
| 107 | + , onError: handler_ $ setLoaded true |
| 108 | + } |
| 109 | + ] |
| 110 | + ] |
| 111 | + , className: props.className |
| 112 | + , css: defaultImageStyle theme <> props.css theme |
| 113 | + } |
| 114 | + where |
| 115 | + defaults = |
| 116 | + { component: Image |
| 117 | + , content: "" |
| 118 | + , placeholder: Nothing |
| 119 | + } |
| 120 | + |
| 121 | + defaultImageStyle :: LumiTheme -> Style |
| 122 | + defaultImageStyle theme@(LumiTheme { colors }) = |
| 123 | + E.css |
| 124 | + { boxSizing: E.borderBox |
| 125 | + , overflow: E.hidden |
| 126 | + , display: E.flex |
| 127 | + , flexFlow: E.column |
| 128 | + , alignItems: E.center |
| 129 | + , border: E.str "1px solid" |
| 130 | + , borderColor: E.color colors.black4 |
| 131 | + } |
| 132 | + |
| 133 | + |
| 134 | +data Thumbnail = Thumbnail |
| 135 | + |
| 136 | +type ThumbnailProps |
| 137 | + = ( component :: Thumbnail |
| 138 | + , content :: String |
| 139 | + , placeholder :: Maybe JSX |
| 140 | + ) |
| 141 | + |
| 142 | +-- | A thumbnail can support size restrictions |
| 143 | +-- | will always have a square aspect ratio |
| 144 | +thumbnail :: LumiComponent ThumbnailProps |
| 145 | +thumbnail = |
| 146 | + unsafePerformEffect do |
| 147 | + lumiComponent "Thumbnail" defaults \props -> Hooks.do |
| 148 | + pure |
| 149 | + $ image |
| 150 | + $ _ { content = props.content |
| 151 | + , placeholder = props.placeholder |
| 152 | + , css = toCSS defaultSize <> props.css |
| 153 | + } |
| 154 | + |
| 155 | + where |
| 156 | + defaults = |
| 157 | + { component: Thumbnail |
| 158 | + , content: "" |
| 159 | + , placeholder: Nothing |
| 160 | + } |
| 161 | + |
| 162 | +-- | The `c` type parameter lets us constrain the type of component to which |
| 163 | +-- | an image modifier may be applied |
| 164 | +type ImageModifier c = forall r. PropsModifier (component :: c | r) |
| 165 | + |
| 166 | +-- | restricted to only Image |
| 167 | +resize :: { width :: Int, height :: Int } -> ImageModifier Image |
| 168 | +resize props = |
| 169 | + style \(LumiTheme theme) -> |
| 170 | + E.css |
| 171 | + { width: E.px props.width |
| 172 | + , height: E.px props.height |
| 173 | + } |
| 174 | + |
| 175 | +-- | restricted to only Thumbnail |
| 176 | +round :: ImageModifier Thumbnail |
| 177 | +round = style_ mkRound |
| 178 | + |
| 179 | +resizeSquare :: Int -> ImageModifier Thumbnail |
| 180 | +resizeSquare size = |
| 181 | + style \(LumiTheme theme) -> |
| 182 | + E.css |
| 183 | + { width: E.px size |
| 184 | + , height: E.px size |
| 185 | + } |
| 186 | + |
| 187 | +small :: ImageModifier Thumbnail |
| 188 | +small = |
| 189 | + style_ |
| 190 | + $ E.css |
| 191 | + { width: E.px 40 |
| 192 | + , height: E.px 40 |
| 193 | + } |
| 194 | + |
| 195 | +medium :: ImageModifier Thumbnail |
| 196 | +medium = defaultSize |
| 197 | + |
| 198 | +defaultSize :: StyleModifier |
| 199 | +defaultSize = |
| 200 | + style_ $ E.css |
| 201 | + { width: E.px 56 |
| 202 | + , height: E.px 56 |
| 203 | + } |
| 204 | + |
| 205 | +large :: ImageModifier Thumbnail |
| 206 | +large = |
| 207 | + style_ |
| 208 | + $ E.css |
| 209 | + { width: E.px 72 |
| 210 | + , height: E.px 72 |
| 211 | + } |
| 212 | + |
| 213 | +extraLarge :: ImageModifier Thumbnail |
| 214 | +extraLarge = |
| 215 | + style_ |
| 216 | + $ E.css |
| 217 | + { width: E.px 140 |
| 218 | + , height: E.px 140 |
| 219 | + } |
| 220 | + |
| 221 | +-- | we support two sizing scales for thumbnails |
| 222 | +-- | avatars use a smaller scale, whereas all other images use the above size scale |
| 223 | +smallAvatar :: ImageModifier Thumbnail |
| 224 | +smallAvatar = |
| 225 | + style_ |
| 226 | + $ E.merge |
| 227 | + [ E.css |
| 228 | + { width: E.px 24 |
| 229 | + , height: E.px 24 |
| 230 | + } |
| 231 | + , mkRound |
| 232 | + ] |
| 233 | + |
| 234 | +mediumAvatar :: ImageModifier Thumbnail |
| 235 | +mediumAvatar = |
| 236 | + style_ |
| 237 | + $ E.merge |
| 238 | + [ E.css |
| 239 | + { width: E.px 30 |
| 240 | + , height: E.px 30 |
| 241 | + } |
| 242 | + , mkRound |
| 243 | + ] |
| 244 | + |
| 245 | +largeAvatar :: ImageModifier Thumbnail |
| 246 | +largeAvatar = |
| 247 | + style_ |
| 248 | + $ E.merge |
| 249 | + [ E.css |
| 250 | + { width: E.px 36 |
| 251 | + , height: E.px 36 |
| 252 | + } |
| 253 | + , mkRound |
| 254 | + ] |
| 255 | + |
| 256 | +mkRound :: Style |
| 257 | +mkRound = E.css { borderRadius: E.percent 50.0 } |
| 258 | + |
0 commit comments