Skip to content

Commit

Permalink
Merge pull request #134 from eerohele/uberjar
Browse files Browse the repository at this point in the history
Fix uberjar generation
  • Loading branch information
eerohele authored May 5, 2024
2 parents 06a8b02 + b11403c commit 56d29c8
Show file tree
Hide file tree
Showing 2 changed files with 1 addition and 11 deletions.
1 change: 0 additions & 1 deletion src/clooj/core.clj
Original file line number Diff line number Diff line change
Expand Up @@ -816,7 +816,6 @@
(doall (map #(project/add-project app %) (project/load-project-set)))
(let [frame (app :frame)]
(utils/persist-window-shape utils/clooj-prefs "main-window" frame)
(utils/enable-mac-fullscreen frame)
(.setVisible frame true)
(on-window-activation frame #(project/update-project-tree (app :docs-tree))))
(setup-temp-writer app)
Expand Down
11 changes: 1 addition & 10 deletions src/clooj/utils.clj
Original file line number Diff line number Diff line change
Expand Up @@ -111,7 +111,7 @@
;; identify OS

(defn get-os []
(string/lower-case (.getProperty System "os.name")))
(string/lower-case (System/getProperty "os.name")))

(def is-win
(memoize #(not (neg? (.indexOf (get-os) "win")))))
Expand Down Expand Up @@ -558,12 +558,3 @@
java.net.URL.
slurp)
(catch Exception _ nil)))

;; OS-specific utils

(defmacro enable-mac-fullscreen
"Shows the Mac full-screen double arrow, as introduced in
OS X Lion, if possible."
[window]
(when (is-mac)
`(com.apple.eawt.FullScreenUtilities/setWindowCanFullScreen ~window true)))

0 comments on commit 56d29c8

Please sign in to comment.