         (when (= (.getDomain uri) "localhost")
           (str ":" 8085 #_(.getPort uri)))
         "/geschichte/ws")))
+
+  (defn password-view
+    "Main list view showing domain, account, password, creation and expiry date"
+    [app owner]
+    (reify
+      om/IInitState
+      (init-state [_]
+        {:domain-input-text ""
+         :username-input-text ""
+         :stage stage
+         :password-input-text ""})
+      om/IRenderState
+      (render-state [this state]
+        (passwords app owner state))))
 
   (om/root
    password-view

                 [?p :created-at ?created-at]
                 [?p :expired ?expired]]]
    (mapv (partial zipmap [:id :domain :username :password :user-id :created-at :expired])
         (d/q query db))))




;; --- html templating ---

  (-> @stage :volatile :val-atom deref)




 )
