parent
5e28072b24
commit
d81106b7c3
@ -1,5 +1,5 @@
|
|||||||
(ns wanijo.home.view
|
(ns wanijo.home.view
|
||||||
(:require [wanijo.infrastructure.view :as view]))
|
(:require [wanijo.infra.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.infrastructure.auth
|
(ns wanijo.infra.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.infrastructure.view :as view]
|
[wanijo.infra.view :as view]
|
||||||
[wanijo.infrastructure.routing :refer [register! path]]
|
[wanijo.infra.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.infrastructure.common)
|
(ns wanijo.infra.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.infrastructure.gzip
|
(ns wanijo.infra.gzip
|
||||||
(:require [clojure.java.io :as io])
|
(:require [clojure.java.io :as io])
|
||||||
(:import (java.io InputStream
|
(:import (java.io InputStream
|
||||||
Closeable
|
Closeable
|
@ -1,4 +1,4 @@
|
|||||||
(ns wanijo.infrastructure.neo4j
|
(ns wanijo.infra.neo4j
|
||||||
(:require [neo4j-clj.core :as db]
|
(:require [neo4j-clj.core :as db]
|
||||||
[neo4j-clj.in-memory :as db-inm]
|
[neo4j-clj.in-memory :as db-inm]
|
||||||
[clj-time.format :as time-format]
|
[clj-time.format :as time-format]
|
@ -1,7 +1,7 @@
|
|||||||
(ns wanijo.infrastructure.repl
|
(ns wanijo.infra.repl
|
||||||
(:require [buddy.hashers :as hashers]
|
(:require [buddy.hashers :as hashers]
|
||||||
[wanijo.main :as main]
|
[wanijo.main :as main]
|
||||||
[wanijo.infrastructure.neo4j :as neo4j]))
|
[wanijo.infra.neo4j :as neo4j]))
|
||||||
|
|
||||||
(neo4j/defquery create-user
|
(neo4j/defquery create-user
|
||||||
"CREATE (n:user)
|
"CREATE (n:user)
|
@ -1,4 +1,4 @@
|
|||||||
(ns wanijo.infrastructure.routing
|
(ns wanijo.infra.routing
|
||||||
(:require [clojure.string :as string]))
|
(:require [clojure.string :as string]))
|
||||||
|
|
||||||
(def all-routes
|
(def all-routes
|
@ -1,4 +1,4 @@
|
|||||||
(ns wanijo.infrastructure.time
|
(ns wanijo.infra.time
|
||||||
(:require [clj-time.format :as format]))
|
(:require [clj-time.format :as format]))
|
||||||
|
|
||||||
(defn prettify-dt [date-str]
|
(defn prettify-dt [date-str]
|
@ -1,8 +1,8 @@
|
|||||||
(ns wanijo.infrastructure.view
|
(ns wanijo.infra.view
|
||||||
(:require [hiccup
|
(:require [hiccup
|
||||||
[page :refer [html5 include-js include-css]]
|
[page :refer [html5 include-js include-css]]
|
||||||
[core :refer [h]]]
|
[core :refer [h]]]
|
||||||
[wanijo.infrastructure.routing :refer [path]]))
|
[wanijo.infra.routing :refer [path]]))
|
||||||
|
|
||||||
(defn btnlink
|
(defn btnlink
|
||||||
([target caption]
|
([target caption]
|
@ -1,6 +1,6 @@
|
|||||||
(ns wanijo.infrastructure.routing-test
|
(ns wanijo.infra.routing-test
|
||||||
(:require [clojure.test :refer :all]
|
(:require [clojure.test :refer :all]
|
||||||
[wanijo.infrastructure.routing :refer [parse-path]]))
|
[wanijo.infra.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