parent
66e3401024
commit
8479133d58
@ -1,5 +1,5 @@
|
||||
(ns wanijo.home.view
|
||||
(:require [wanijo.framework.view :as view]))
|
||||
(:require [wanijo.infrastructure.view :as view]))
|
||||
|
||||
(defn root! [req]
|
||||
(view/layout! :session (:session req)))
|
||||
|
@ -1,11 +1,11 @@
|
||||
(ns wanijo.framework.auth
|
||||
(ns wanijo.infrastructure.auth
|
||||
(:require [compojure.core :refer [POST GET defroutes]]
|
||||
[ring.util.response :refer [redirect]]
|
||||
[ring.util.anti-forgery :refer [anti-forgery-field]]
|
||||
[buddy.hashers :as hashers]
|
||||
[hiccup.form :as hform]
|
||||
[wanijo.framework.view :as view]
|
||||
[wanijo.framework.routing :refer [register! path]]
|
||||
[wanijo.infrastructure.view :as view]
|
||||
[wanijo.infrastructure.routing :refer [register! path]]
|
||||
[wanijo.user.db :as user-domain]))
|
||||
|
||||
(defn- login-check! [req]
|
@ -1,4 +1,4 @@
|
||||
(ns wanijo.framework.common)
|
||||
(ns wanijo.infrastructure.common)
|
||||
|
||||
(defn in? [coll x]
|
||||
(some? (some (partial = x) coll)))
|
@ -1,4 +1,4 @@
|
||||
(ns wanijo.framework.devmode
|
||||
(ns wanijo.infrastructure.devmode
|
||||
(:require [hiccup.core :as hcore]
|
||||
[clojure.string :as cljs]))
|
||||
|
@ -1,6 +1,6 @@
|
||||
(ns wanijo.framework.neo4j
|
||||
(ns wanijo.infrastructure.neo4j
|
||||
(:require [neo4j-clj.core :as db]
|
||||
[wanijo.framework.devmode :as devmode]
|
||||
[wanijo.infrastructure.devmode :as devmode]
|
||||
[clj-time.format :as time-format]
|
||||
[clj-time.local :as time-local]
|
||||
[clojure.spec.alpha :as spec]
|
@ -1,7 +1,7 @@
|
||||
(ns wanijo.framework.repl
|
||||
(ns wanijo.infrastructure.repl
|
||||
(:require [buddy.hashers :as hashers]
|
||||
[neo4j-clj.core :as db]
|
||||
[wanijo.framework.neo4j :as neo4j]))
|
||||
[wanijo.infrastructure.neo4j :as neo4j]))
|
||||
|
||||
(db/defquery create-user
|
||||
"CREATE (n:user)
|
@ -1,4 +1,4 @@
|
||||
(ns wanijo.framework.routing
|
||||
(ns wanijo.infrastructure.routing
|
||||
(:require [clojure.string :as string]))
|
||||
|
||||
(def all-routes
|
@ -1,4 +1,4 @@
|
||||
(ns wanijo.framework.time
|
||||
(ns wanijo.infrastructure.time
|
||||
(:require [clj-time.format :as format]))
|
||||
|
||||
(defn prettify-dt [date-str]
|
@ -1,9 +1,9 @@
|
||||
(ns wanijo.framework.view
|
||||
(ns wanijo.infrastructure.view
|
||||
(:require [hiccup
|
||||
[page :refer [html5 include-js include-css]]
|
||||
[form :as hform]
|
||||
[core :refer [h]]]
|
||||
[wanijo.framework.routing :refer [path]]))
|
||||
[wanijo.infrastructure.routing :refer [path]]))
|
||||
|
||||
(defn btnlink
|
||||
([target caption]
|
@ -1,6 +1,6 @@
|
||||
(ns wanijo.framework.routing-test
|
||||
(ns wanijo.infrastructure.routing-test
|
||||
(:require [clojure.test :refer :all]
|
||||
[wanijo.framework.routing :refer [parse-path]]))
|
||||
[wanijo.infrastructure.routing :refer [parse-path]]))
|
||||
|
||||
(deftest test-parse-path
|
||||
(testing "no params in path"
|
Loading…
Reference in new issue