From 2e7fb1114a18be418e1d28e14004b8da4155eef3 Mon Sep 17 00:00:00 2001
From: Thomas Hansen <th@aista.com>
Date: Tue, 26 Dec 2023 15:08:11 +0200
Subject: [PATCH] b

---
 .../actions/stripe/create-stripe-customer.hl  |  9 +-
 .../stripe/create-stripe-payment-method.hl    |  7 +-
 .../actions/stripe/create-stripe-payment.hl   | 84 +++++++++++++++++++
 .../stripe/create-stripe-purchase-link.hl     |  3 +
 4 files changed, 101 insertions(+), 2 deletions(-)
 create mode 100644 backend/files/misc/workflows/actions/stripe/create-stripe-payment.hl

diff --git a/backend/files/misc/workflows/actions/stripe/create-stripe-customer.hl b/backend/files/misc/workflows/actions/stripe/create-stripe-customer.hl
index 57aedd7327..b9bd0aca91 100644
--- a/backend/files/misc/workflows/actions/stripe/create-stripe-customer.hl
+++ b/backend/files/misc/workflows/actions/stripe/create-stripe-customer.hl
@@ -1,6 +1,13 @@
 
 /*
- * Transforms the specified [markdown] to HTML and returns to caller.
+ * Creates a customer object in Stripe with the given [name], [email] and
+ * optionally [ip_address].
+ *
+ * If you supply an [ip_address] the country of origin for the IP address
+ * will be used as the default tax location for your customer in Stripe.
+ *
+ * Will use your Stripe API token found from your settings as it's interacting
+ * with the Stripe API.
  */
 .arguments
    name
diff --git a/backend/files/misc/workflows/actions/stripe/create-stripe-payment-method.hl b/backend/files/misc/workflows/actions/stripe/create-stripe-payment-method.hl
index 15e1522db6..3180862e41 100644
--- a/backend/files/misc/workflows/actions/stripe/create-stripe-payment-method.hl
+++ b/backend/files/misc/workflows/actions/stripe/create-stripe-payment-method.hl
@@ -1,6 +1,11 @@
 
 /*
- * Transforms the specified [markdown] to HTML and returns to caller.
+ * Creates a new Stripe payment method with the given [card_number], [card_exp_month],
+ * [card_exp_year] and [card_cvs] and attaches the payment metho to the specified
+ * [customer_id] object.
+ *
+ * Will use your Stripe API token found from your settings as it's interacting
+ * with the Stripe API.
  */
 .arguments
    card_number
diff --git a/backend/files/misc/workflows/actions/stripe/create-stripe-payment.hl b/backend/files/misc/workflows/actions/stripe/create-stripe-payment.hl
new file mode 100644
index 0000000000..43e8e68202
--- /dev/null
+++ b/backend/files/misc/workflows/actions/stripe/create-stripe-payment.hl
@@ -0,0 +1,84 @@
+
+/*
+ * Creates a new Stripe payment for the given [customer_id] using the
+ * specified [payment_method], for the given [amount] in the given [currency].
+ *
+ * Will use your Stripe API token found from your settings as it's interacting
+ * with the Stripe API.
+ */
+.arguments
+   customer_id
+      type:string
+      mandatory:bool:true
+   payment_method
+      type:int
+      mandatory:bool:true
+   amount
+      type:decimal
+      mandatory:bool:true
+   currency
+      type:string
+      mandatory:bool:true
+.icon:payment
+
+// Sanity checking invocation.
+validators.mandatory:x:@.arguments/*/customer_id
+validators.mandatory:x:@.arguments/*/payment_method
+validators.mandatory:x:@.arguments/*/amount
+validators.mandatory:x:@.arguments/*/currency
+
+// Retrieving token to use for invocations towards Stripe.
+.token
+set-value:x:-
+   strings.concat
+      .:"Bearer "
+      config.get:"magic:stripe:token"
+
+// Multiplying [amount] with 100 to correctly add decimals.
+math.multiply:x:@.arguments/*/amount
+   .:decimal:100
+
+// Invoking Stripe REST API.
+http.post:"https://api.stripe.com/v1/payment_intents"
+   headers
+      Content-Type:application/x-www-form-urlencoded
+      Authorization:x:@.token
+   payload
+      amount:x:@math.multiply
+      currency:x:@.arguments/*/currency
+      payment_method:x:@.arguments/*/payment_method
+      customer:x:@.arguments/*/customer_id
+      confirm:true
+   convert:true
+
+// Sanity checking above invocation.
+if
+   mte
+      get-value:x:@http.post
+      .:int:400
+   .lambda
+
+      // Oops, something went wrong ...!!
+      lambda2hyper:x:@http.post
+      log.error:Something went wrong while invoking Stripe API, could not create payment intent
+         result:x:@lambda2hyper
+         provider:Stripe
+      throw:Something went wrong while invoking Stripe API, could not create payment intent
+         public:true
+         status:500
+
+// Checking if charge was successful.
+if
+   exists:x:@http.post/*/content/*/next_action/*/use_stripe_sdk/*/stripe_js
+   .lambda
+
+      // Charge was NOT successful, and probably needs 3D secure.
+      yield
+         finished:bool:false
+         id:x:@http.post/*/content/*/id
+         payment_url:x:@http.post/*/content/*/next_action/*/use_stripe_sdk/*/stripe_js
+
+// Returning customer ID to caller.
+yield
+   finished:bool:true
+   id:x:@http.post/*/content/*/id
diff --git a/backend/files/misc/workflows/actions/stripe/create-stripe-purchase-link.hl b/backend/files/misc/workflows/actions/stripe/create-stripe-purchase-link.hl
index 0aab050b1e..a72d8f3eb9 100644
--- a/backend/files/misc/workflows/actions/stripe/create-stripe-purchase-link.hl
+++ b/backend/files/misc/workflows/actions/stripe/create-stripe-purchase-link.hl
@@ -3,6 +3,9 @@
  * Creates a Stripe payment link from the specified [price_reference], being
  * a Stripe payment ID, for [quantity] amount of items, returning the user to
  * [success_url] after payment has been successfully finished.
+ *
+ * Will use your Stripe API token found from your settings as it's interacting
+ * with the Stripe API.
  */
 .arguments
    price_reference