(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
           (
             (swap! decrypted_message assoc :text dec_msg)
             (swap! state assoc :page welcome-page-component))))))))