miso-capa wip

Author: functora

cabal.project

@@ -103,6 +103,7 @@ if os(wasi)
     pub/selective/*.cabal
     pub/universum/*.cabal
     pub/xlsx/*.cabal
+    ghcjs/miso-capa/*.cabal
     ghcjs/miso-widgets/*.cabal
     ghcjs/miso-components/*.cabal
     ghcjs/delivery-calculator/*.cabal

ghcjs/miso-capa/.envrc

@@ -0,0 +1 @@
+use nix

ghcjs/miso-capa/.ghcid

@@ -0,0 +1,6 @@
+--restart=.ghcid
+--restart=miso-widgets.cabal
+--restart=cabal.config
+--restart=cabal.project
+--restart=static
+--restart=README.md

ghcjs/miso-capa/.gitignore

@@ -0,0 +1,7 @@
+.direnv
+result
+dist-newstyle
+node_modules
+dist
+android
+capacitor-geckoview/capacitor/build

ghcjs/miso-capa/.ignore

@@ -0,0 +1,5 @@
+.stack-work
+dist-newstyle
+capacitor-geckoview
+package-lock.json
+*\.min\.*

ghcjs/miso-capa/LICENSE

@@ -0,0 +1,22 @@
+
+ The MIT License (MIT)
+ Copyright (c) 2024 Functora
+ 
+ Permission is hereby granted, free of charge, to any person obtaining a copy
+ of this software and associated documentation files (the "Software"), to deal
+ in the Software without restriction, including without limitation the rights
+ to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ copies of the Software, and to permit persons to whom the Software is
+ furnished to do so, subject to the following conditions:
+ 
+ The above copyright notice and this permission notice shall be included in all
+ copies or substantial portions of the Software.
+ 
+ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+ IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
+ DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
+ OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE
+ OR OTHER DEALINGS IN THE SOFTWARE.
+

ghcjs/miso-capa/README.md

@@ -0,0 +1,57 @@
+## Sample Miso-JSaddle application
+
+
+It's possible to build miso applications with `ghcid`, `miso` and `jsaddle`. This can enable a faster workflow due to hot reloading of the code.
+
+This application (sample-app-jsaddle) serves as an example of development w/ GHC, and releases with GHCJS.
+
+To take advantage of the hot reload code features, we recommend running the following command (see below) in a shell. (This will invoke `ghcid` for you).
+
+## Dev
+```bash
+nix-shell --run reload
+```
+
+You should now be able to open your browser to `http://localhost:8080` and see your working application. Subsequent edits of the code should cause a live update of the website at that address.
+
+To build the application w/ GHCJS, execute the below command.
+
+## Build w/ GHCJS
+```bash
+nix-build -A release
+```
+
+## Dev with `stack`
+
+In order to build `miso` w/ `jsaddle` support, it is necessary to remove the existing `miso` package first.
+
+```bash
+stack exec -- ghc-pkg unregister --force miso
+```
+
+Enable the `jsaddle` flag by adding the following to your project's `package.yaml` file, then call `stack build`.
+
+```yaml
+flags:
+  miso:
+    jsaddle: true
+```
+
+## Add external javascript file
+
+First download the external javascript file (`your-file.js`) to your project directory.
+Then add `bytestring` to `build-depends` in `app.cabal`.
+In your `Main.hs`  you need to change the implementation of `runApp` from this:
+```
+runApp f =
+  Warp.runSettings (Warp.setPort 8080 (Warp.setTimeout 3600 Warp.defaultSettings)) =<<
+    JSaddle.jsaddleOr defaultConnectionOptions (f >> syncPoint) JSaddle.jsaddleApp
+```
+to this:
+```
+runApp f = do
+  bString <- B.readFile "your-file.js"
+  jSaddle <- JSaddle.jsaddleOr defaultConnectionOptions (f >> syncPoint) (JSaddle.jsaddleAppWithJs (B.append (JSaddle.jsaddleJs False) bString))
+  Warp.runSettings (Warp.setPort 8081 (Warp.setTimeout 3600 Warp.defaultSettings)) jSaddle
+```
+Now you should be able to use `your-file.js` in jsaddle.

ghcjs/miso-capa/default.nix

@@ -0,0 +1,20 @@
+let
+  # functora = ./..;
+  functora = fetchTarball {
+    url = "https://github.com/functora/functora.github.io/archive/03df5e6d39d0fdc31a53cc350e1125118b4a12ca.tar.gz";
+    sha256 = "0pad1981bpnl1szvlhgl00ai9ikz9nsl4yv6mxxv0q46j10bdchz";
+  };
+  functora-miso = import "${functora}/pub/miso/default.nix" {
+    overlays = import ../overlays.nix {inherit functora;};
+  };
+  pkgs = functora-miso.pkgs;
+  doCheck = pkgs.haskell.lib.doCheck;
+in rec {
+  inherit pkgs functora;
+  source = pkgs.nix-gitignore.gitignoreSourcePure ./.gitignore ./.;
+  dev = doCheck (pkgs.haskell.packages.ghc865.callCabal2nix "miso-capa" source {
+    miso = functora-miso.miso-jsaddle;
+  });
+  miso-capa = pkgs.haskell.packages.ghcjs86.callCabal2nix "miso-capa" source {};
+  vsn = miso-capa.passthru.version;
+}

ghcjs/miso-capa/js/main.js

@@ -0,0 +1,99 @@
+import { defineCustomElements } from "@ionic/pwa-elements/loader";
+import { Filesystem, Directory } from "@capacitor/filesystem";
+import { WebviewPrint } from "capacitor-webview-print";
+import { Preferences } from "@capacitor/preferences";
+import { Clipboard } from "@capacitor/clipboard";
+import { Browser } from "@capacitor/browser";
+import { Share } from "@capacitor/share";
+import { Toast } from "@capacitor/toast";
+import { Capacitor } from "@capacitor/core";
+import { Html5Qrcode } from "html5-qrcode";
+import { saveAs } from "file-saver";
+import {
+  CapacitorBarcodeScanner,
+  CapacitorBarcodeScannerTypeHint,
+} from "@capacitor/barcode-scanner";
+
+export async function printCurrentPage(name) {
+  return await WebviewPrint.print({ name: name });
+}
+
+export async function selectStorage(key) {
+  const { value } = await Preferences.get({ key: key });
+  return value;
+}
+
+export async function insertStorage(key, value) {
+  return await Preferences.set({ key: key, value: value });
+}
+
+export async function selectClipboard() {
+  const { value } = await Clipboard.read();
+  return value;
+}
+
+export async function openBrowserPage(url) {
+  try {
+    return await Browser.open({ url: url, windowName: "_blank" });
+  } catch (e) {
+    return window.open(url, "_blank").focus();
+  }
+}
+
+export async function shareText(text) {
+  const { value } = await Share.canShare();
+  if (value) {
+    return await Share.share({ text: text });
+  } else {
+    return await navigator.clipboard.writeText(text);
+  }
+}
+
+export async function popupText(text) {
+  return await Toast.show({ text: text });
+}
+
+export async function selectBarcode() {
+  if (!Capacitor.isNativePlatform()) {
+    const devices = await Html5Qrcode.getCameras();
+    if (!(devices && devices.length)) {
+      throw new Error("Camera not found!");
+    }
+  }
+  const { ScanResult } = await CapacitorBarcodeScanner.scanBarcode({
+    hint: CapacitorBarcodeScannerTypeHint.ALL,
+  });
+  return ScanResult;
+}
+
+export async function saveFile(name, mime, bs) {
+  const u8a = Uint8Array.from(bs);
+  if (Capacitor.isNativePlatform()) {
+    const b64 = btoa(String.fromCharCode.apply(null, u8a));
+    const { uri } = await Filesystem.writeFile({
+      path: name,
+      data: b64,
+      directory: Directory.Documents,
+    });
+    return uri;
+  } else {
+    const blob = new Blob([u8a, { type: mime }]);
+    await saveAs(blob, name);
+    return null;
+  }
+}
+
+export async function shareFiles(files) {
+  if (Capacitor.isNativePlatform()) {
+    const { value } = await Share.share({ files: files });
+    return value;
+  } else {
+    return null;
+  }
+}
+
+export function isNativePlatform() {
+  return Capacitor.isNativePlatform();
+}
+
+defineCustomElements(window);