Link items it detail view

This commit is contained in:
eikek
2022-03-16 23:15:51 +01:00
parent 232baf5858
commit c7b2a1271a
14 changed files with 942 additions and 11 deletions

View File

@ -6,7 +6,8 @@
module Util.String exposing
( crazyEncode
( appendIfAbsent
, crazyEncode
, ellipsis
, isBlank
, isNothingOrBlank
@ -15,6 +16,7 @@ module Util.String exposing
)
import Base64
import Html exposing (strong)
crazyEncode : String -> String
@ -66,3 +68,12 @@ isNothingOrBlank : Maybe String -> Bool
isNothingOrBlank ms =
Maybe.map isBlank ms
|> Maybe.withDefault True
appendIfAbsent : String -> String -> String
appendIfAbsent suffix str =
if String.endsWith suffix str then
str
else
str ++ suffix