fix saved and close event

Author: sprocketc

src/renderer/document/events.cljs

@@ -257,14 +257,14 @@
      (if system/electron?
        {::window.fx/ipc-invoke {:channel "save-document"
                                 :data (pr-str document)
-                                :on-success [::close-saved]
+                                :on-success [::mark-as-saved-and-close]
                                 :on-error [::notification.e/exception]
                                 :formatter edn/read-string}}
        {::app.fx/file-save {:data (h/save-format document)
                             :options file-picker-options
                             :formatter (fn [file] {:id id
                                                    :title (.-name file)})
-                            :on-success [::close-saved]
+                            :on-success [::mark-as-saved-and-close]
                             :on-error [::notification.e/exception]}}))))
 
 (rf/reg-event-fx
@@ -300,7 +300,7 @@
      db)))
 
 (rf/reg-event-fx
- ::close-saved
+ ::mark-as-saved-and-close
  (fn [_ [_ document-info]]
    {:dispatch-n [[::saved document-info]
                  [::close (:id document-info) false]]}))

test/document_test.cljs

@@ -25,7 +25,7 @@
    (rf/dispatch [::e/init])
 
    (testing "close"
-     (rf/dispatch [::e/close (:id @(rf/subscribe [::s/active]) false)])
+     (rf/dispatch [::e/close @(rf/subscribe [::s/active-id]) false])
      (is (not @(rf/subscribe [::s/active]))))
 
    (testing "close active"
@@ -34,7 +34,7 @@
      (rf/dispatch [::e/close-active])
      (is (not @(rf/subscribe [::s/active]))))
 
-   (testing "close all saved"
+   (testing "close saved"
      (rf/dispatch [::e/new])
      (rf/dispatch [::e/new])
      (rf/dispatch [::e/saved @(rf/subscribe [::s/active])])