Emi
/
yes-no-maybe-kink-tool
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

The base64 always starts with "g" so that's another character we can save

This commit is contained in:
Emi Simpson 2023-07-06 13:33:26 -04:00
parent bc7227c5bd
commit d9974a3288
Signed by: Emi
GPG Key ID: A12F2C2FFDC3D847
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Main.elm
View File

@ -28,7 +28,7 @@ import List.Extra exposing (elemIndex, getAt)
import Maybe exposing (andThen)
import Maybe.Extra exposing (isJust)
import Result exposing (toMaybe)
import String exposing (fromInt, isEmpty, replace, toLower)
import String exposing (dropLeft, fromInt, isEmpty, replace, toLower)
import String.Extra exposing (isBlank)
import Svg exposing (path, Svg, svg)
import Svg.Attributes exposing (d, fill, height, stroke, viewBox, width)
@ -394,6 +394,7 @@ save model =
|> CE.encode
|> B64E.bytes
|> B64E.encode
|> dropLeft 1
|> replace "=" ""
|> (++) "#"
|> pushUrl model.browserKey
@ -401,6 +402,7 @@ save model =
load : Key -> Url -> Maybe Model
load key url =
url.fragment
|> Maybe.map ((++) "g")
|> andThen (B64D.decode B64D.bytes >> toMaybe)
|> andThen (CD.decode (loadModel key))