diff options
| -rw-r--r-- | flake.lock | 14 | ||||
| -rw-r--r-- | main.css | 3 | ||||
| -rw-r--r-- | src/Main/Throwshade.purs | 6 | ||||
| -rw-r--r-- | src/UI.js | 10 | ||||
| -rw-r--r-- | src/UI.purs | 4 |
5 files changed, 28 insertions, 9 deletions
@@ -2,11 +2,11 @@ "nodes": { "crane": { "locked": { - "lastModified": 1739638817, - "narHash": "sha256-pPiI27T416xAAUETorkLAgHQMiLT92moOrf0ItHhtPA=", + "lastModified": 1739898326, + "narHash": "sha256-CqRBf9MKC8eiwDRg9akoWia57Nsjmq3S++YbkmT6p9M=", "owner": "ipetkov", "repo": "crane", - "rev": "bef2b45cd1273a9e621fb5292de89f4ed59ad812", + "rev": "680a2b47cdef830bca3edfd53383e3292154ba7b", "type": "github" }, "original": { @@ -172,11 +172,11 @@ "st": "st" }, "locked": { - "lastModified": 1739859479, - "narHash": "sha256-N7dCjxO2z688JivQHOVQ79zEKdBPgIcy68V8BJ/mReI=", + "lastModified": 1739919622, + "narHash": "sha256-hBNeFJLDJei2ZlnsPFZN25upkPzaQRvxrfYXO8s9XnA=", "ref": "refs/heads/master", - "rev": "cc3e4cbcb484c6aff6fae5124b2400346bb64c95", - "revCount": 18, + "rev": "a4aac831139a03119b2bbcb50c22e196e869b38d", + "revCount": 20, "type": "git", "url": "ssh://git@github.com/lcolonq/newton" }, @@ -510,7 +510,8 @@ a.lcolonq-button-link :active { display: flex; flex-direction: column; justify-content: space-evenly; - background-image: url("./assets/rectangular.jpg"); + /* background-image: url("./assets/rectangular.jpg"); */ + background-color: darkgray; background-size: 100% 100%; } .lcolonq-throwshade-canvas { diff --git a/src/Main/Throwshade.purs b/src/Main/Throwshade.purs index ad1ad2c..bd7393b 100644 --- a/src/Main/Throwshade.purs +++ b/src/Main/Throwshade.purs @@ -5,7 +5,7 @@ import Prelude import Effect (Effect) import Effect.Class (liftEffect) import Effect.Console (log) -import UI (setShader) +import UI (setShader, submitShader) import Utils (byId, getTextArea, listen) main :: Effect Unit @@ -16,3 +16,7 @@ main = do listen test "click" \_ -> do s <- getTextArea input setShader s + submit <- byId "lcolonq-throwshade-button-submit" + listen submit "click" \_ -> do + s <- getTextArea input + submitShader s @@ -26,3 +26,13 @@ export const _submitRedeem = (url) => (el) => () => { export const _setShader = (shader) => () => { window.wasmBindings.set_shader(shader); }; + +export const _submitShader = (url) => (shader) => () => { + const data = new FormData(); + data.append("name", "throw shade"); + data.append("input", shader); + fetch(url, { + method: "post", + body: data, + }); +}; diff --git a/src/UI.purs b/src/UI.purs index 44117a0..d5913b7 100644 --- a/src/UI.purs +++ b/src/UI.purs @@ -33,3 +33,7 @@ submitRedeem el = liftEffect $ _submitRedeem (Config.secureApiServer <> "/redeem foreign import _setShader :: String -> Effect Unit setShader :: forall m. MonadEffect m => String -> m Unit setShader s = liftEffect $ _setShader s + +foreign import _submitShader :: String -> String -> Effect Unit +submitShader :: forall m. MonadEffect m => String -> m Unit +submitShader el = liftEffect $ _submitShader (Config.secureApiServer <> "/redeem") el |