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