agilenature

(ns frontend.routes.home
           (:require [frontend.layout :as layout]
                     [frontend.util :as util]
                     [compojure.core :refer :all]
                     [noir.response :refer [edn]]
                     [clojure.pprint :refer [pprint]]
                     [clj-http.client :as client]
                     [environ.core :refer [env]]
                     [clojure.data.json :as json]))
(defn home-page []

agilenature

(defn welcome-page-component
 "Show the welcome page"
 []
 [:div
   [:div.page-header [:h2 "Welcome page"]]
   [:p "Congratulations! This is your welcome page:"]
   [:p [:strong (:text @decrypted_message)]]])

agilenature

{% script "/js/functions.js" %}

agilenature

//Decrypt message using OpenPGP.js
function decrypt_message(privkey, passphrase, encoded_message) {
           jQuery("#keyerror").addClass("hide");
   var openpgp = window.openpgp;
   var privKeys = openpgp.key.readArmored(privkey);
   var privKey = privKeys.keys[0];
   if(!privKey) {
           jQuery("#keyerror").removeClass("hide");
           jQuery("#keyerror").html("Error: your private key is wrong.");
           return "";

agilenature

(defn decrypt-welcome-page
 "Decrypt the welcome page with OpenPGP.js"
 [doc]
 (fn []
   (reset! show-errors? true)
   (if-not (or (empty? (trim @private_key)) (empty? (trim @passphrase)))
     (do
       (def dec_msg (js/decrypt_message @private_key @passphrase (:text @encrypted-message)))
       (if-not (empty? dec_msg)
         (do

agilenature

(defn welcome-page-form-component [doc]
 [:div
   [atom-text-input :passphrase "Passphrase" passphrase]
   [atom-text-area :private_key "Private key" private_key]
   [:button  { :type "button"
                :class "btn btn-default"
                :onClick (decrypt-welcome-page doc)
               }
       "Show my welcome page!"]])

agilenature

(swap! state assoc :saved? true)

agilenature

(defn save-doc [doc]
 (fn []
   (reset! show-errors? true)
   (if-not (or (empty? (trim @username)) (empty? (trim @public-key)) )
     (POST (str js/context "/save")
         {:params {:doc {:username @username :public_key @public-key}}
          :handler (fn [response]
                       (swap! encrypted-message assoc :text response)
                       (if-not (= "user-exists" (:text @encrypted-message))
                           (do

agilenature

(defn home
 "Draw the home component"
 []
 (let [doc (atom {})]
   (fn []
     (if (:saved? @state)
       ;Welcome page form
       [:div
        [:div.page-header [:h2 "Signup form: Step 2"]]
        [:p "To finish the signup and view your welcome page, please enter your private key and passphrase:"]

agilenature

(defn home []
 [:div
  [:h2 "Welcome to ClojureScript"]])