3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-11 00:36:37 +02:00
Code Issues Projects Releases Packages Wiki Activity

feat: improve backend devlopment namespaces

Browse source
This commit is contained in:
Andrey Antukh 2019-06-05 08:26:05 +00:00
parent 7adc4e3d01
commit 66fc0e68a4
5 changed files with 65 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

56
backend/src/user.clj Normal file
View file

@ -0,0 +1,56 @@
;; This Source Code Form is subject to the terms of the Mozilla Public
;; License, v. 2.0. If a copy of the MPL was not distributed with this
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
;;
;; Copyright (c) 2016-2019 Andrey Antukh <niwi@niwi.nz>
(ns user
(:refer-clojure :exclude [test])
(:require [clojure.tools.namespace.repl :as repl]
[clojure.walk :refer [macroexpand-all]]
[clojure.pprint :refer [pprint]]
[clojure.test :as test]
[clojure.java.io :as io]
[buddy.core.codecs :as codecs]
[buddy.core.codecs.base64 :as b64]
[buddy.core.nonce :as nonce]
[mount.core :as mount]
[uxbox.main])
(:gen-class))
;; --- Development Stuff
(defn- make-secret
[]
(-> (nonce/random-bytes 64)
(b64/encode true)
(codecs/bytes->str)))
(defn- start
[]
(mount/start))
(defn- stop
[]
(mount/stop))
(defn- start-minimal
[]
(-> (mount/only #{#'uxbox.config/config
#'uxbox.db/datasource
#'uxbox.migrations/migrations})
(mount/start)))
(defn- test
([] (test #"^uxbox.tests.*"))
([o]
(repl/refresh)
(cond
(instance? java.util.regex.Pattern o)
(test/run-all-tests o)
(symbol? o)
(if-let [sns (namespace o)]
(do (require (symbol sns))
(test/test-vars [(resolve o)]))
(test/test-ns o)))))

50
backend/src/uxbox/main.clj
View file

@ -2,19 +2,10 @@
;; License, v. 2.0. If a copy of the MPL was not distributed with this
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
;;
;; Copyright (c) 2016 Andrey Antukh <niwi@niwi.nz>
;; Copyright (c) 2016-2019 Andrey Antukh <niwi@niwi.nz>
(ns uxbox.main
(:refer-clojure :exclude [test])
(:require [clojure.tools.namespace.repl :as repl]
[clojure.walk :refer [macroexpand-all]]
[clojure.pprint :refer [pprint]]
[clojure.test :as test]
[clojure.java.io :as io]
[mount.core :as mount]
[buddy.core.codecs :as codecs]
[buddy.core.codecs.base64 :as b64]
[buddy.core.nonce :as nonce]
(:require [mount.core :as mount]
[uxbox.config :as cfg]
[uxbox.migrations]
[uxbox.db]
@ -22,43 +13,6 @@
[uxbox.scheduled-jobs])
(:gen-class))
;; --- Development Stuff
(defn- start
[]
(mount/start))
(defn- stop
[]
(mount/stop))
(defn- start-minimal
[]
(-> (mount/only #{#'uxbox.config/config
#'uxbox.db/datasource
#'uxbox.migrations/migrations})
(mount/start)))
(defn- make-secret
[]
(-> (nonce/random-bytes 64)
(b64/encode true)
(codecs/bytes->str)))
(defn- test
([] (test #"^uxbox.tests.*"))
([o]
(repl/refresh)
(cond
(instance? java.util.regex.Pattern o)
(test/run-all-tests o)
(symbol? o)
(if-let [sns (namespace o)]
(do (require (symbol sns))
(test/test-vars [(resolve o)]))
(test/test-ns o)))))
;; --- Entry point (only for uberjar)
(defn -main