fix style

Author: sprocketc

src/electron/file.cljs

@@ -19,56 +19,56 @@
                  :path file-path
                  :title (.basename path file-path))))
 
-(defn- write-file
+(defn- write-file!
   [file-path data]
   (.writeFileSync fs file-path (pr-str (dissoc data :closing? :path)) "utf-8")
   (p/resolved (serialize-document data file-path)))
 
-(defn- read-file
+(defn- read-file!
   [file-path]
   (let [data (.readFileSync fs file-path "utf-8")
         document (edn/read-string data)]
     (serialize-document document file-path)))
 
-(defn save-dialog
+(defn save-dialog!
   [window options]
   (p/let [file (.showSaveDialog dialog window (clj->js options))
           file (get (js->clj file) "filePath")]
     (p/resolved file)))
 
-(defn save-as
+(defn save-as!
   [window data]
   (let [document (edn/read-string data)
         file-path (:path document)
         directory (and file-path (.dirname path file-path))
         dialog-options (cond-> dialog-options
                          (and directory (.existsSync fs directory))
                          (assoc :defaultPath directory))]
-    (p/let [file (save-dialog window dialog-options)]
-      (write-file file document))))
+    (p/let [file (save-dialog! window dialog-options)]
+      (write-file! file document))))
 
-(defn save
+(defn save!
   [window data]
   (let [document (edn/read-string data)
         file-path (:path document)]
     (if (and file-path (.existsSync fs file-path))
-      (write-file file-path document)
-      (save-as window data))))
+      (write-file! file-path document)
+      (save-as! window data))))
 
-(defn open
+(defn open!
   [window file-path]
   (if (and file-path (.existsSync fs file-path))
-    [(read-file file-path)]
+    [(read-file! file-path)]
     (p/let [files (.showOpenDialog dialog window (clj->js dialog-options))
             file-paths (get (js->clj files) "filePaths")]
-      (p/resolved (map read-file file-paths)))))
+      (p/resolved (map read-file! file-paths)))))
 
 (def export-options
   {:defaultPath (.getPath app "pictures")
    :filters [{:name "svg"
               :extensions ["svg" "svgo"]}]})
 
-(defn export
+(defn export!
   [window data]
-  (p/let [file (save-dialog window export-options)]
+  (p/let [file (save-dialog! window export-options)]
     (.writeFileSync fs file data "utf-8")))

src/electron/main.cljs

@@ -24,9 +24,9 @@
       (.then (fn [name] (js/console.log "Added Extension: " name)))
       (.catch (fn [err] (js/console.log "An error occurred: " err)))))
 
-(defn send-to-renderer
+(defn send-to-renderer!
   ([action]
-   (send-to-renderer action nil))
+   (send-to-renderer! action nil))
   ([action data]
    (-> (.-webContents ^js @main-window)
        (.send "fromMain" (clj->js {:action action
@@ -42,7 +42,7 @@
   [url]
   (contains? allowed-urls (.-host url)))
 
-(defn open-external
+(defn open-external!
   [url]
   (let [url-parsed (js/URL. url)]
     (when (and (= (.-protocol url-parsed) "https:") (allowed-url? url-parsed))
@@ -55,14 +55,14 @@
     "windowToggleMaximized" (if (.isMaximized ^js @main-window) (.unmaximize ^js @main-window) (.maximize ^js @main-window))
     "windowToggleFullscreen" (.setFullScreen ^js @main-window (not (.isFullScreen ^js @main-window)))
     "setThemeMode" (set! (.. nativeTheme -themeSource) (.-data args))
-    "openRemoteUrl" (open-external (.-data args))
+    "openRemoteUrl" (open-external! (.-data args))
     ;; https://www.electronjs.org/docs/api/clipboard#clipboardwritedata-type
     "writeToClipboard" (.write clipboard (.-data args))
     "openDirectory" (.showItemInFolder shell (.-data args))
-    "openDocument" (p/let [documents (file/open @main-window (.-data args))] (doseq [document documents] (send-to-renderer "fileLoaded" document)))
-    "saveDocument" (p/let [document (file/save @main-window (.-data args))] (send-to-renderer "fileSaved" document))
-    "saveDocumentAs" (p/let [document (file/save-as @main-window (.-data args))] (send-to-renderer "fileSaved" document))
-    "export" (file/export @main-window (.-data args))))
+    "openDocument" (p/let [documents (file/open! @main-window (.-data args))] (doseq [document documents] (send-to-renderer! "fileLoaded" document)))
+    "saveDocument" (p/let [document (file/save! @main-window (.-data args))] (send-to-renderer! "fileSaved" document))
+    "saveDocumentAs" (p/let [document (file/save-as! @main-window (.-data args))] (send-to-renderer! "fileSaved" document))
+    "export" (file/export! @main-window (.-data args))))
 
 (defn register-window-events!
   []
@@ -77,7 +77,7 @@
      ["leave-full-screen" "windowLeavedFullscreen"]
      ["minimize" "windowMinimized"]
      ["restore" "windowRestored"]]]
-    (.on ^js @main-window window-event #(send-to-renderer action))))
+    (.on ^js @main-window window-event #(send-to-renderer! action))))
 
 (defn register-web-contents-events!
   []
@@ -88,10 +88,10 @@
     (.on (.-webContents ^js @main-window) web-contents-event f))
   ;; Forward popups
   (.setWindowOpenHandler (.-webContents ^js @main-window) (fn [handler]
-                                                            (open-external (.-url handler))
+                                                            (open-external! (.-url handler))
                                                             #js {:action "deny"})))
 
-(defn init-main-window
+(defn init-main-window!
   []
   (let [win-state (window-state-keeper #js {:defaultWidth 1920
                                             :defaultHeight 1080})]
@@ -115,12 +115,12 @@
            (fn []
              (.show ^js @main-window)
              (.manage win-state ^js @main-window)
-             (send-to-renderer (if (.isMaximized ^js @main-window)
-                                 "windowMaximized"
-                                 "windowUnmaximized"))
-             (send-to-renderer (if (.isFullScreen ^js @main-window)
-                                 "windowEnteredFullscreen"
-                                 "windowLeavedFullscreen"))
+             (send-to-renderer! (if (.isMaximized ^js @main-window)
+                                  "windowMaximized"
+                                  "windowUnmaximized"))
+             (send-to-renderer! (if (.isFullScreen ^js @main-window)
+                                  "windowEnteredFullscreen"
+                                  "windowLeavedFullscreen"))
              (.hide ^js @loading-window)
              (.close ^js @loading-window)))
 
@@ -138,7 +138,7 @@
 
     #_(.checkForUpdatesAndNotify updater)))
 
-(defn init-loading-window []
+(defn init-loading-window! []
   (set! (.-allowRendererProcessReuse app) false)
   (reset! loading-window
           (BrowserWindow.
@@ -148,7 +148,7 @@
                 :icon (.join path js/__dirname "/public/img/icon.png")
                 :show false
                 :frame false}))
-  (.once ^js @loading-window "show" init-main-window)
+  (.once ^js @loading-window "show" init-main-window!)
   (.loadURL ^js @loading-window (.join path "file://" js/__dirname "/public/loading.html"))
   (.once ^js (.-webContents @loading-window) "did-finish-load" #(.show ^js @loading-window)))
 
@@ -157,4 +157,4 @@
   (.initialize log)
   (.on app "window-all-closed" #(when-not (= js/process.platform "darwin")
                                   (.quit app)))
-  (.on app "ready" init-loading-window))
+  (.on app "ready" init-loading-window!))