base frontend website with authentication
This commit is contained in:
parent
507e941540
commit
4c033ac86c
|
|
@ -0,0 +1,45 @@
|
|||
(defproject toaster "0.1.0-SNAPSHOT"
|
||||
:description "Basic compojure based authenticated website"
|
||||
:url "http://dyne.org"
|
||||
:min-lein-version "2.0.0"
|
||||
:dependencies [[org.clojure/clojure "1.9.0"]
|
||||
[org.clojure/data.csv "0.1.4"]
|
||||
[compojure "1.6.1"]
|
||||
[ring/ring-defaults "0.3.2"]
|
||||
[ring-middleware-accept "2.0.3"]
|
||||
;; mustache templates
|
||||
[de.ubercode.clostache/clostache "1.4.0"]
|
||||
;; error handling
|
||||
[failjure "1.3.0"]
|
||||
;; logging done right with timbre
|
||||
[com.taoensso/timbre "4.10.0"]
|
||||
;; authentication library
|
||||
[org.clojars.dyne/just-auth "0.4.0"]
|
||||
;; web forms made easy
|
||||
[formidable "0.1.10"]
|
||||
;; parsing configs if any
|
||||
[io.forward/yaml "1.0.9"]
|
||||
;; Data validation
|
||||
[prismatic/schema "1.1.9"]
|
||||
;; filesystem utilities
|
||||
[me.raynes/fs "1.4.6"]
|
||||
;; time from joda-time
|
||||
[clj-time "0.14.4"]]
|
||||
:aliases {"test" "midje"}
|
||||
:source-paths ["src"]
|
||||
:resource-paths ["resources"]
|
||||
:plugins [[lein-ring "0.12.4"]]
|
||||
:ring {:init toaster.ring/init
|
||||
:handler toaster.handler/app}
|
||||
:uberwar {:init toaster.ring/init
|
||||
:handler toaster.handler/app}
|
||||
:mail toaster.handler
|
||||
:profiles { :dev {:dependencies [[javax.servlet/servlet-api "2.5"]
|
||||
[ring/ring-mock "0.3.2"]
|
||||
[midje "1.9.2"]]
|
||||
:plugins [[lein-midje "3.1.3"]]
|
||||
:aot :all
|
||||
:main toaster.handler}
|
||||
:uberjar {:aot :all
|
||||
:main toaster.handler}}
|
||||
)
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
---
|
||||
|
||||
init:
|
||||
success: "Initialisation completed"
|
||||
failure: "Initialization failed"
|
||||
|
||||
File diff suppressed because one or more lines are too long
|
|
@ -0,0 +1,5 @@
|
|||
/*!
|
||||
* Font Awesome Free 5.0.6 by @fontawesome - http://fontawesome.com
|
||||
* License - http://fontawesome.com/license (Icons: CC BY 4.0, Fonts: SIL OFL 1.1, Code: MIT License)
|
||||
*/
|
||||
@font-face{font-family:Font Awesome\ 5 Free;font-style:normal;font-weight:400;src:url(/static/fonts/fa-regular-400.eot);src:url(/static/fonts/fa-regular-400.eot?#iefix) format("embedded-opentype"),url(/static/fonts/fa-regular-400.woff2) format("woff2"),url(/static/fonts/fa-regular-400.woff) format("woff"),url(/static/fonts/fa-regular-400.ttf) format("truetype"),url(/static/fonts/fa-regular-400.svg#fontawesome) format("svg")}.far{font-family:Font Awesome\ 5 Free;font-weight:400}
|
||||
File diff suppressed because one or more lines are too long
|
|
@ -0,0 +1,46 @@
|
|||
.jsondiffpatch-annotated-delta {
|
||||
font-family: 'Bitstream Vera Sans Mono', 'DejaVu Sans Mono', Monaco, Courier, monospace;
|
||||
font-size: 12px;
|
||||
margin: 0;
|
||||
padding: 0 0 0 12px;
|
||||
display: inline-block;
|
||||
}
|
||||
.jsondiffpatch-annotated-delta pre {
|
||||
font-family: 'Bitstream Vera Sans Mono', 'DejaVu Sans Mono', Monaco, Courier, monospace;
|
||||
font-size: 12px;
|
||||
margin: 0;
|
||||
padding: 0;
|
||||
display: inline-block;
|
||||
}
|
||||
.jsondiffpatch-annotated-delta td {
|
||||
margin: 0;
|
||||
padding: 0;
|
||||
}
|
||||
.jsondiffpatch-annotated-delta td pre:hover {
|
||||
font-weight: bold;
|
||||
}
|
||||
td.jsondiffpatch-delta-note {
|
||||
font-style: italic;
|
||||
padding-left: 10px;
|
||||
}
|
||||
.jsondiffpatch-delta-note > div {
|
||||
margin: 0;
|
||||
padding: 0;
|
||||
}
|
||||
.jsondiffpatch-delta-note pre {
|
||||
font-style: normal;
|
||||
}
|
||||
.jsondiffpatch-annotated-delta .jsondiffpatch-delta-note {
|
||||
color: #777;
|
||||
}
|
||||
.jsondiffpatch-annotated-delta tr:hover {
|
||||
background: #ffc;
|
||||
}
|
||||
.jsondiffpatch-annotated-delta tr:hover > td.jsondiffpatch-delta-note {
|
||||
color: black;
|
||||
}
|
||||
.jsondiffpatch-error {
|
||||
background: red;
|
||||
color: white;
|
||||
font-weight: bold;
|
||||
}
|
||||
|
|
@ -0,0 +1,149 @@
|
|||
.jsondiffpatch-delta {
|
||||
font-family: 'Bitstream Vera Sans Mono', 'DejaVu Sans Mono', Monaco, Courier, monospace;
|
||||
font-size: 12px;
|
||||
margin: 0;
|
||||
padding: 0 0 0 12px;
|
||||
display: inline-block;
|
||||
}
|
||||
.jsondiffpatch-delta pre {
|
||||
font-family: 'Bitstream Vera Sans Mono', 'DejaVu Sans Mono', Monaco, Courier, monospace;
|
||||
font-size: 12px;
|
||||
margin: 0;
|
||||
padding: 0;
|
||||
display: inline-block;
|
||||
}
|
||||
ul.jsondiffpatch-delta {
|
||||
list-style-type: none;
|
||||
padding: 0 0 0 20px;
|
||||
margin: 0;
|
||||
}
|
||||
.jsondiffpatch-delta ul {
|
||||
list-style-type: none;
|
||||
padding: 0 0 0 20px;
|
||||
margin: 0;
|
||||
}
|
||||
.jsondiffpatch-added .jsondiffpatch-property-name,
|
||||
.jsondiffpatch-added .jsondiffpatch-value pre,
|
||||
.jsondiffpatch-modified .jsondiffpatch-right-value pre,
|
||||
.jsondiffpatch-textdiff-added {
|
||||
background: #bbffbb;
|
||||
}
|
||||
.jsondiffpatch-deleted .jsondiffpatch-property-name,
|
||||
.jsondiffpatch-deleted pre,
|
||||
.jsondiffpatch-modified .jsondiffpatch-left-value pre,
|
||||
.jsondiffpatch-textdiff-deleted {
|
||||
background: #ffbbbb;
|
||||
text-decoration: line-through;
|
||||
}
|
||||
.jsondiffpatch-unchanged,
|
||||
.jsondiffpatch-movedestination {
|
||||
color: gray;
|
||||
}
|
||||
.jsondiffpatch-unchanged,
|
||||
.jsondiffpatch-movedestination > .jsondiffpatch-value {
|
||||
transition: all 0.5s;
|
||||
-webkit-transition: all 0.5s;
|
||||
overflow-y: hidden;
|
||||
}
|
||||
.jsondiffpatch-unchanged-showing .jsondiffpatch-unchanged,
|
||||
.jsondiffpatch-unchanged-showing .jsondiffpatch-movedestination > .jsondiffpatch-value {
|
||||
max-height: 100px;
|
||||
}
|
||||
.jsondiffpatch-unchanged-hidden .jsondiffpatch-unchanged,
|
||||
.jsondiffpatch-unchanged-hidden .jsondiffpatch-movedestination > .jsondiffpatch-value {
|
||||
max-height: 0;
|
||||
}
|
||||
.jsondiffpatch-unchanged-hiding .jsondiffpatch-movedestination > .jsondiffpatch-value,
|
||||
.jsondiffpatch-unchanged-hidden .jsondiffpatch-movedestination > .jsondiffpatch-value {
|
||||
display: block;
|
||||
}
|
||||
.jsondiffpatch-unchanged-visible .jsondiffpatch-unchanged,
|
||||
.jsondiffpatch-unchanged-visible .jsondiffpatch-movedestination > .jsondiffpatch-value {
|
||||
max-height: 100px;
|
||||
}
|
||||
.jsondiffpatch-unchanged-hiding .jsondiffpatch-unchanged,
|
||||
.jsondiffpatch-unchanged-hiding .jsondiffpatch-movedestination > .jsondiffpatch-value {
|
||||
max-height: 0;
|
||||
}
|
||||
.jsondiffpatch-unchanged-showing .jsondiffpatch-arrow,
|
||||
.jsondiffpatch-unchanged-hiding .jsondiffpatch-arrow {
|
||||
display: none;
|
||||
}
|
||||
.jsondiffpatch-value {
|
||||
display: inline-block;
|
||||
}
|
||||
.jsondiffpatch-property-name {
|
||||
display: inline-block;
|
||||
padding-right: 5px;
|
||||
vertical-align: top;
|
||||
}
|
||||
.jsondiffpatch-property-name:after {
|
||||
content: ': ';
|
||||
}
|
||||
.jsondiffpatch-child-node-type-array > .jsondiffpatch-property-name:after {
|
||||
content: ': [';
|
||||
}
|
||||
.jsondiffpatch-child-node-type-array:after {
|
||||
content: '],';
|
||||
}
|
||||
div.jsondiffpatch-child-node-type-array:before {
|
||||
content: '[';
|
||||
}
|
||||
div.jsondiffpatch-child-node-type-array:after {
|
||||
content: ']';
|
||||
}
|
||||
.jsondiffpatch-child-node-type-object > .jsondiffpatch-property-name:after {
|
||||
content: ': {';
|
||||
}
|
||||
.jsondiffpatch-child-node-type-object:after {
|
||||
content: '},';
|
||||
}
|
||||
div.jsondiffpatch-child-node-type-object:before {
|
||||
content: '{';
|
||||
}
|
||||
div.jsondiffpatch-child-node-type-object:after {
|
||||
content: '}';
|
||||
}
|
||||
.jsondiffpatch-value pre:after {
|
||||
content: ',';
|
||||
}
|
||||
li:last-child > .jsondiffpatch-value pre:after,
|
||||
.jsondiffpatch-modified > .jsondiffpatch-left-value pre:after {
|
||||
content: '';
|
||||
}
|
||||
.jsondiffpatch-modified .jsondiffpatch-value {
|
||||
display: inline-block;
|
||||
}
|
||||
.jsondiffpatch-modified .jsondiffpatch-right-value {
|
||||
margin-left: 5px;
|
||||
}
|
||||
.jsondiffpatch-moved .jsondiffpatch-value {
|
||||
display: none;
|
||||
}
|
||||
.jsondiffpatch-moved .jsondiffpatch-moved-destination {
|
||||
display: inline-block;
|
||||
background: #ffffbb;
|
||||
color: #888;
|
||||
}
|
||||
.jsondiffpatch-moved .jsondiffpatch-moved-destination:before {
|
||||
content: ' => ';
|
||||
}
|
||||
ul.jsondiffpatch-textdiff {
|
||||
padding: 0;
|
||||
}
|
||||
.jsondiffpatch-textdiff-location {
|
||||
color: #bbb;
|
||||
display: inline-block;
|
||||
min-width: 60px;
|
||||
}
|
||||
.jsondiffpatch-textdiff-line {
|
||||
display: inline-block;
|
||||
}
|
||||
.jsondiffpatch-textdiff-line-number:after {
|
||||
content: ',';
|
||||
}
|
||||
.jsondiffpatch-error {
|
||||
background: red;
|
||||
color: white;
|
||||
font-weight: bold;
|
||||
}
|
||||
|
|
@ -0,0 +1,72 @@
|
|||
/* http://jmblog.github.com/color-themes-for-google-code-highlightjs */
|
||||
|
||||
/* Tomorrow Comment */
|
||||
.hljs-comment,
|
||||
.hljs-quote {
|
||||
color: #8e908c;
|
||||
}
|
||||
|
||||
/* Tomorrow Red */
|
||||
.hljs-variable,
|
||||
.hljs-template-variable,
|
||||
.hljs-tag,
|
||||
.hljs-name,
|
||||
.hljs-selector-id,
|
||||
.hljs-selector-class,
|
||||
.hljs-regexp,
|
||||
.hljs-deletion {
|
||||
color: #c82829;
|
||||
}
|
||||
|
||||
/* Tomorrow Orange */
|
||||
.hljs-number,
|
||||
.hljs-built_in,
|
||||
.hljs-builtin-name,
|
||||
.hljs-literal,
|
||||
.hljs-type,
|
||||
.hljs-params,
|
||||
.hljs-meta,
|
||||
.hljs-link {
|
||||
color: #f5871f;
|
||||
}
|
||||
|
||||
/* Tomorrow Yellow */
|
||||
.hljs-attribute {
|
||||
color: #eab700;
|
||||
}
|
||||
|
||||
/* Tomorrow Green */
|
||||
.hljs-string,
|
||||
.hljs-symbol,
|
||||
.hljs-bullet,
|
||||
.hljs-addition {
|
||||
color: #718c00;
|
||||
}
|
||||
|
||||
/* Tomorrow Blue */
|
||||
.hljs-title,
|
||||
.hljs-section {
|
||||
color: #4271ae;
|
||||
}
|
||||
|
||||
/* Tomorrow Purple */
|
||||
.hljs-keyword,
|
||||
.hljs-selector-tag {
|
||||
color: #8959a8;
|
||||
}
|
||||
|
||||
.hljs {
|
||||
display: block;
|
||||
overflow-x: auto;
|
||||
background: white;
|
||||
color: #4d4d4c;
|
||||
padding: 0.5em;
|
||||
}
|
||||
|
||||
.hljs-emphasis {
|
||||
font-style: italic;
|
||||
}
|
||||
|
||||
.hljs-strong {
|
||||
font-weight: bold;
|
||||
}
|
||||
|
|
@ -0,0 +1,110 @@
|
|||
/* css for [json-html.core] */
|
||||
|
||||
|
||||
.jh-type-string, .jh-type-bool, .jh-type-number{
|
||||
font-family: "Helvetica Neue",Helvetica,Arial,sans-serif;
|
||||
font-size: 14px;
|
||||
font-weight: normal;
|
||||
line-height: 20px;
|
||||
color: #333;
|
||||
float: left;
|
||||
width: 140px;
|
||||
padding-top: 5px;
|
||||
text-align: right;
|
||||
margin-bottom: 10px;
|
||||
}
|
||||
|
||||
.jh-root, .jh-type-object, .jh-type-array, .jh-key, .jh-value, .jh-root tr{
|
||||
-webkit-box-sizing: border-box; /* Safari/Chrome, other WebKit */
|
||||
-moz-box-sizing: border-box; /* Firefox, other Gecko */
|
||||
box-sizing: border-box; /* Opera/IE 8+ */
|
||||
}
|
||||
|
||||
.jh-key, .jh-value{
|
||||
margin: 0;
|
||||
padding: 0.2em;
|
||||
}
|
||||
|
||||
.jh-empty-collection:before {
|
||||
content: '[]';
|
||||
}
|
||||
|
||||
.jh-empty-map:before {
|
||||
content: '{}';
|
||||
}
|
||||
|
||||
.jh-empty-set:before {
|
||||
content: '#{}';
|
||||
}
|
||||
|
||||
.jh-empty-string:before {
|
||||
content: '""';
|
||||
}
|
||||
|
||||
.jh-value{
|
||||
border-left: 1px solid #ddd;
|
||||
}
|
||||
|
||||
.jh-type-bool, .jh-type-number{
|
||||
font-weight: bold;
|
||||
color: #333;
|
||||
}
|
||||
|
||||
.jh-type-string{
|
||||
color: #333;
|
||||
}
|
||||
|
||||
.jh-type-date{
|
||||
color: #333;
|
||||
}
|
||||
|
||||
.jh-array-key{
|
||||
font-size: small;
|
||||
text-align: center;
|
||||
}
|
||||
|
||||
.jh-object-key, .jh-array-key{
|
||||
color: #444;
|
||||
vertical-align: top;
|
||||
}
|
||||
|
||||
.jh-type-object > tbody > tr:nth-child(odd), .jh-type-array > tbody > tr:nth-child(odd){
|
||||
background-color: #f5f5f5;
|
||||
}
|
||||
|
||||
.jh-type-object > tbody > tr:nth-child(even), .jh-type-array > tbody > tr:nth-child(even){
|
||||
background-color: #fff;
|
||||
}
|
||||
|
||||
.jh-type-object, .jh-type-array{
|
||||
width: 100%;
|
||||
border-collapse: collapse;
|
||||
}
|
||||
|
||||
.jh-root{
|
||||
border: 1px solid #ccc;
|
||||
margin: 0.2em;
|
||||
}
|
||||
|
||||
th.jh-key{
|
||||
text-align: left;
|
||||
}
|
||||
|
||||
.jh-type-object > tbody > tr, .jh-type-array > tr{
|
||||
border: 1px solid #ddd;
|
||||
border-bottom: none;
|
||||
}
|
||||
|
||||
.jh-type-object > tbody > tr:last-child, .jh-type-array > tbody > tr:last-child{
|
||||
border-bottom: 1px solid #ddd;
|
||||
}
|
||||
|
||||
.jh-type-object > tbody > tr:hover, .jh-type-array > tbody > tr:hover{
|
||||
border: 1px solid #F99927;
|
||||
}
|
||||
|
||||
.jh-empty{
|
||||
color: #999;
|
||||
font-size: small;
|
||||
}
|
||||
|
||||
|
|
@ -0,0 +1,123 @@
|
|||
body {
|
||||
font-family: "arial";
|
||||
font-size: 22px;
|
||||
font-smooth: always;
|
||||
-webkit-font-smoothing: antialiased;
|
||||
padding-top: 65px;
|
||||
}
|
||||
|
||||
code {
|
||||
font-size: .8em;
|
||||
/* display: block; */
|
||||
white-space: pre-wrap;
|
||||
}
|
||||
|
||||
.editor {
|
||||
position: absolute;
|
||||
top: 0;
|
||||
right: 0;
|
||||
bottom: 0;
|
||||
left: 0;
|
||||
}
|
||||
|
||||
/* .btn { */
|
||||
/* margin: 0 1.5em 0 1.5em; */
|
||||
/* } */
|
||||
|
||||
.edit-project {
|
||||
margin-top: 2em;
|
||||
margin-bottom: 2em;
|
||||
}
|
||||
|
||||
h1, h2, h3, h4 { }
|
||||
|
||||
p {
|
||||
letter-spacing: 0.01rem;
|
||||
font-style: normal;
|
||||
line-height: 1.5;
|
||||
}
|
||||
|
||||
img {
|
||||
width: auto;
|
||||
height: auto;
|
||||
max-width: 100%;
|
||||
vertical-align: middle;
|
||||
overflow: hidden;
|
||||
}
|
||||
|
||||
/* Sortable tables */
|
||||
table.sortable thead {
|
||||
background-color:#eee;
|
||||
color:#666666;
|
||||
font-weight: bold;
|
||||
cursor: default;
|
||||
}
|
||||
|
||||
table.sortable td {
|
||||
font-size: .8em;
|
||||
font-family: "arial"
|
||||
}
|
||||
|
||||
.input-form {
|
||||
clear: right;
|
||||
}
|
||||
|
||||
li {
|
||||
/* padding: .5em; */
|
||||
}
|
||||
|
||||
.secrets {
|
||||
padding: 1em;
|
||||
}
|
||||
|
||||
.password {
|
||||
font-size: 1.5;
|
||||
padding: 1em;
|
||||
/* display: inline-block; */
|
||||
}
|
||||
|
||||
|
||||
.navbar-text {
|
||||
margin-top: 22px;
|
||||
}
|
||||
|
||||
.password .content {
|
||||
font-size: 1em;
|
||||
}
|
||||
|
||||
.slices {
|
||||
|
||||
}
|
||||
|
||||
.slices ul {
|
||||
list-style: none;
|
||||
}
|
||||
|
||||
.slices .content {
|
||||
font-size: .5em;
|
||||
}
|
||||
|
||||
.qrcode {
|
||||
float: left;
|
||||
margin-left: -19px;
|
||||
}
|
||||
|
||||
|
||||
.card {
|
||||
border: solid 3px #888;
|
||||
border-radius: 5px;
|
||||
padding: 1.5em 2.2em .8em 2.2em;
|
||||
}
|
||||
|
||||
.card .gravatar {
|
||||
margin-top: 19px;
|
||||
}
|
||||
|
||||
.balance {
|
||||
font-size: 2em;
|
||||
margin: 1em 0;
|
||||
}
|
||||
|
||||
.wallet-details {
|
||||
display: inline-block;
|
||||
}
|
||||
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 11 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 11 KiB |
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
|
|
@ -0,0 +1,101 @@
|
|||
;; Copyright (C) 2015-2018 Dyne.org foundation
|
||||
|
||||
;; Sourcecode designed, written and maintained by
|
||||
;; Denis Roio <jaromil@dyne.org>
|
||||
|
||||
;; This program is free software: you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU Affero General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU Affero General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU Affero General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
(ns toaster.config
|
||||
(:require [clojure.pprint :refer [pprint]]
|
||||
[clojure.string :refer [upper-case]]
|
||||
[clojure.java.io :as io]
|
||||
[clojure.walk :refer [keywordize-keys]]
|
||||
[auxiliary.core :as aux]
|
||||
[taoensso.timbre :as log]
|
||||
[failjure.core :as f]
|
||||
[schema.core :as s]
|
||||
[yaml.core :as yaml]
|
||||
[cheshire.core :refer :all]))
|
||||
|
||||
;; (s/defschema Config
|
||||
;; {s/Keyword
|
||||
;; (s/optional-key :webserver) {:port s/Num
|
||||
;; :host s/Str
|
||||
;; :anti-forgery s/Bool
|
||||
;; :ssl-redirect s/Bool}
|
||||
;; (s/optional-key :just-auth) {:email-server s/Str
|
||||
;; :email-user s/Str
|
||||
;; :email-pass s/Str
|
||||
;; :email-address s/Str}
|
||||
;; }
|
||||
;; :appname s/Str
|
||||
;; :paths [s/Str]
|
||||
;; :filename s/Str
|
||||
;; })
|
||||
|
||||
(def run-mode (atom :web))
|
||||
|
||||
(def default-settings {:webserver
|
||||
{:anti-forgery false
|
||||
:ssl-redirect false}})
|
||||
|
||||
(defn yaml-read [path]
|
||||
(if (.exists (io/as-file path))
|
||||
(-> path yaml/from-file keywordize-keys)))
|
||||
|
||||
|
||||
(defn- config-read
|
||||
"Read configurations from standard locations, overriding defaults or
|
||||
system-wide with user specific paths. Requires the application name
|
||||
and optionally default values."
|
||||
([appname] (config-read appname {}))
|
||||
([appname defaults & flags]
|
||||
(let [home (System/getenv "HOME")
|
||||
pwd (System/getenv "PWD" )
|
||||
file (str appname ".yaml")
|
||||
conf (-> {:appname appname
|
||||
:filename file
|
||||
:paths [(str "/etc/" appname "/" file)
|
||||
(str home "/." appname "/" file)
|
||||
(str pwd "/" file)
|
||||
;; TODO: this should be resources
|
||||
(str pwd "/resources/" file)
|
||||
(str pwd "/test-resources/" file)]}
|
||||
(conj defaults))]
|
||||
(loop [[p & paths] (:paths conf)
|
||||
res defaults]
|
||||
(let [res (merge res
|
||||
(if (.exists (io/as-file p))
|
||||
(conj res (yaml-read p))))]
|
||||
(if (empty? paths) (conj conf {(keyword appname) res})
|
||||
(recur paths res)))))))
|
||||
|
||||
(defn- spy "Print out a config structure nicely formatted"
|
||||
[edn]
|
||||
(if (log/may-log? :debug)
|
||||
(binding [*out* *err*] (pprint edn)))
|
||||
edn)
|
||||
|
||||
(defn q [conf path] ;; query a variable inside the config
|
||||
{:pre [(coll? path)]}
|
||||
;; (try ;; adds an extra check every time configuration is read
|
||||
;; (s/validate Config conf)
|
||||
;; (catch Exception ex
|
||||
;; (f/fail (log/spy :error ["Invalid configuration: " conf ex]))))
|
||||
(get-in conf path))
|
||||
|
||||
(defn load-config [name default]
|
||||
(log/info (str "Loading configuration: " name))
|
||||
(->> (config-read name default)))
|
||||
|
||||
|
|
@ -0,0 +1,167 @@
|
|||
;; Copyright (C) 2015-2018 Dyne.org foundation
|
||||
|
||||
;; Sourcecode designed, written and maintained by
|
||||
;; Denis Roio <jaromil@dyne.org>
|
||||
|
||||
;; This program is free software: you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU Affero General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU Affero General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU Affero General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
(ns toaster.handler
|
||||
(:require
|
||||
[clojure.string :as str]
|
||||
[clojure.java.io :as io]
|
||||
[clojure.data.json :as json]
|
||||
[compojure.core :refer :all]
|
||||
[compojure.handler :refer :all]
|
||||
[compojure.route :as route]
|
||||
[compojure.response :as response]
|
||||
|
||||
[ring.adapter.jetty :refer :all]
|
||||
[ring.middleware.session :refer :all]
|
||||
[ring.middleware.accept :refer [wrap-accept]]
|
||||
[ring.middleware.defaults :refer [wrap-defaults site-defaults]]
|
||||
|
||||
[failjure.core :as f]
|
||||
[taoensso.timbre :as log]
|
||||
[just-auth.core :as auth]
|
||||
|
||||
[toaster.session :as s]
|
||||
[toaster.config :as conf]
|
||||
[toaster.webpage :as web]
|
||||
[toaster.ring :as ring])
|
||||
(:import java.io.File)
|
||||
(:gen-class))
|
||||
|
||||
(defonce config (conf/load-config "toaster" conf/default-settings))
|
||||
|
||||
(defroutes app-routes
|
||||
|
||||
(GET "/" request (web/render "Hello World!"));; web/readme))
|
||||
|
||||
;; NEW ROUTES HERE
|
||||
|
||||
|
||||
|
||||
|
||||
;; JUST-AUTH ROUTES
|
||||
(GET "/login" request
|
||||
(f/attempt-all
|
||||
[acct (s/check-account request)]
|
||||
(web/render acct
|
||||
[:div
|
||||
[:h1 (str "Already logged in with account: "
|
||||
(:email acct))]
|
||||
[:h2 [:a {:href "/logout"} "Logout"]]])
|
||||
(f/when-failed [e]
|
||||
(web/render web/login-form))))
|
||||
(POST "/login" request
|
||||
(f/attempt-all
|
||||
[username (s/param request :username)
|
||||
password (s/param request :password)
|
||||
logged (auth/sign-in
|
||||
@ring/auth username password {})]
|
||||
;; TODO: pass :ip-address in last argument map
|
||||
(let [session {:session {:config config
|
||||
:auth logged}}]
|
||||
(conj session
|
||||
(web/render
|
||||
logged
|
||||
[:div
|
||||
[:h1 "Logged in: " username]
|
||||
(web/render-yaml session)])))
|
||||
(f/when-failed [e]
|
||||
(web/render-error-page
|
||||
(str "Login failed: " (f/message e))))))
|
||||
(GET "/session" request
|
||||
(-> (:session request) web/render-yaml web/render))
|
||||
(GET "/logout" request
|
||||
(conj {:session {:config config}}
|
||||
(web/render [:h1 "Logged out."])))
|
||||
(GET "/signup" request
|
||||
(web/render web/signup-form))
|
||||
(POST "/signup" request
|
||||
(f/attempt-all
|
||||
[name (s/param request :name)
|
||||
email (s/param request :email)
|
||||
password (s/param request :password)
|
||||
repeat-password (s/param request :repeat-password)
|
||||
activation {:activation-uri
|
||||
(get-in request [:headers "host"])}]
|
||||
(web/render
|
||||
(if (= password repeat-password)
|
||||
(f/try*
|
||||
(f/if-let-ok?
|
||||
[signup (auth/sign-up @ring/auth
|
||||
name
|
||||
email
|
||||
password
|
||||
activation
|
||||
[])]
|
||||
[:div
|
||||
[:h2 (str "Account created: "
|
||||
name " <" email ">")]
|
||||
[:h3 "Account pending activation."]]
|
||||
(web/render-error
|
||||
(str "Failure creating account: "
|
||||
(f/message signup)))))
|
||||
(web/render-error
|
||||
"Repeat password didnt match")))
|
||||
(f/when-failed [e]
|
||||
(web/render-error-page
|
||||
(str "Sign-up failure: " (f/message e))))))
|
||||
(GET "/activate/:email/:activation-id"
|
||||
[email activation-id :as request]
|
||||
(let [activation-uri
|
||||
(str "http://"
|
||||
(get-in request [:headers "host"])
|
||||
"/activate/" email "/" activation-id)]
|
||||
(web/render
|
||||
[:div
|
||||
(f/if-let-failed?
|
||||
[act (auth/activate-account
|
||||
@ring/auth email
|
||||
{:activation-link activation-uri})]
|
||||
(web/render-error
|
||||
[:div
|
||||
[:h1 "Failure activating account"]
|
||||
[:h2 (f/message act)]
|
||||
[:p (str "Email: " email " activation-id: " activation-id)]])
|
||||
[:h1 (str "Account activated - " email)])])))
|
||||
;; -- end of JUST-AUTH
|
||||
|
||||
(POST "/" request
|
||||
;; generic endpoint for canceled operations
|
||||
(web/render (s/check-account request)
|
||||
[:div {:class (str "alert alert-danger") :role "alert"}
|
||||
(s/param request :message)]))
|
||||
|
||||
(route/resources "/")
|
||||
(route/not-found (web/render-error-page "Page Not Found"))
|
||||
) ;; end of routes
|
||||
|
||||
(def app
|
||||
(-> (wrap-defaults app-routes ring/app-defaults)
|
||||
(wrap-accept {:mime ["text/html"]
|
||||
;; preference in language, fallback to english
|
||||
:language ["en" :qs 0.5
|
||||
"it" :qs 1
|
||||
"nl" :qs 1
|
||||
"hr" :qs 1]})
|
||||
(wrap-session)))
|
||||
|
||||
;; for uberjar
|
||||
(defn -main []
|
||||
(println "Starting standalone jetty server on http://localhost:6060")
|
||||
(run-jetty app {:port 6060
|
||||
:host "localhost"
|
||||
:join? true}))
|
||||
|
|
@ -0,0 +1,93 @@
|
|||
;; Copyright (C) 2015-2017 Dyne.org foundation
|
||||
|
||||
;; Sourcecode designed, written and maintained by
|
||||
;; Denis Roio <jaromil@dyne.org>
|
||||
|
||||
;; This program is free software: you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU Affero General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU Affero General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU Affero General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
(ns toaster.ring
|
||||
(:require
|
||||
[clojure.java.io :as io]
|
||||
[toaster.config :as conf]
|
||||
[taoensso.timbre :as log]
|
||||
[failjure.core :as f]
|
||||
[clj-storage.db.mongo :refer [get-mongo-db create-mongo-store]]
|
||||
[just-auth.core :as auth]
|
||||
[just-auth.db.just-auth :as auth-db]
|
||||
|
||||
[auxiliary.translation :as trans]
|
||||
[compojure.core :refer :all]
|
||||
[compojure.handler :refer :all]
|
||||
[ring.middleware.session :refer :all]
|
||||
[ring.middleware.accept :refer [wrap-accept]]
|
||||
[ring.middleware.defaults :refer [wrap-defaults site-defaults]]))
|
||||
|
||||
(def config (atom {}))
|
||||
(def db (atom {}))
|
||||
(def accts (atom {}))
|
||||
(def auth (atom {}))
|
||||
|
||||
(defn init []
|
||||
(log/merge-config! {:level :debug
|
||||
;; #{:trace :debug :info :warn :error :fatal :report}
|
||||
|
||||
;; Control log filtering by
|
||||
;; namespaces/patterns. Useful for turning off
|
||||
;; logging in noisy libraries, etc.:
|
||||
;; :ns-whitelist ["agiladmin.*" "just-auth.*"]
|
||||
:ns-blacklist ["org.eclipse.jetty.*"
|
||||
"org.mongodb.driver.cluster"]})
|
||||
|
||||
;; load configuration
|
||||
(reset! config (conf/load-config
|
||||
(or (System/getenv "toaster_conf") "toaster")
|
||||
conf/default-settings))
|
||||
|
||||
(let [justauth-conf (get-in @config [:toaster :just-auth])]
|
||||
;; connect database (TODO: take parameters from configuration)
|
||||
(reset! db (get-mongo-db (:mongo-url justauth-conf)))
|
||||
|
||||
;; create authentication stores in db
|
||||
(f/attempt-all
|
||||
[auth-conf (get-in @config [:toaster :just-auth])
|
||||
auth-stores (auth-db/create-auth-stores @db)]
|
||||
|
||||
[(trans/init "lang/auth-en.yml" "lang/english.yaml")
|
||||
(reset! accts auth-stores)
|
||||
(reset! auth (auth/email-based-authentication
|
||||
auth-stores
|
||||
;; TODO: replace with email taken from config
|
||||
(dissoc (:just-auth (:toaster (conf/load-config
|
||||
"toaster" conf/default-settings)))
|
||||
:mongo-url :mongo-user :mongo-pass)
|
||||
{:criteria #{:email :ip-address}
|
||||
:type :block
|
||||
:time-window-secs 10
|
||||
:threshold 5}))]
|
||||
;; (select-keys auth-stores [:account-store
|
||||
;; :password-recovery-store])
|
||||
(f/when-failed [e]
|
||||
(log/error (str (trans/locale [:init :failure])
|
||||
" - " (f/message e))))))
|
||||
(log/info (str (trans/locale [:init :success])))
|
||||
(log/debug @auth))
|
||||
|
||||
(def app-defaults
|
||||
(-> site-defaults
|
||||
(assoc-in [:cookies] true)
|
||||
(assoc-in [:security :anti-forgery]
|
||||
(get-in @config [:webserver :anti-forgery]))
|
||||
(assoc-in [:security :ssl-redirect]
|
||||
(get-in @config [:webserver :ssl-redirect]))
|
||||
(assoc-in [:security :hsts] true)))
|
||||
|
|
@ -0,0 +1,60 @@
|
|||
(ns toaster.session
|
||||
(:refer-clojure :exclude [get])
|
||||
(:require
|
||||
[toaster.config :as conf]
|
||||
[taoensso.timbre :as log]
|
||||
[failjure.core :as f]
|
||||
[just-auth.core :as auth]
|
||||
[toaster.ring :as ring]
|
||||
[toaster.webpage :as web]))
|
||||
|
||||
(defn param [request param]
|
||||
(let [value
|
||||
(get-in request
|
||||
(conj [:params] param))]
|
||||
(if (nil? value)
|
||||
(f/fail (str "Parameter not found: " param))
|
||||
value)))
|
||||
|
||||
;; TODO: not working?
|
||||
(defn get [req arrk]
|
||||
{:pre (coll? arrk)}
|
||||
(if-let [value (get-in req (conj [:session] arrk))]
|
||||
value
|
||||
(f/fail (str "Value not found in session: " (str arrk)))))
|
||||
|
||||
(defn check-config [request]
|
||||
;; reload configuration from file all the time if in debug mode
|
||||
(if-let [session (:session request)]
|
||||
(if (contains? session :config)
|
||||
(:config session)
|
||||
(conf/load-config "toaster" conf/default-settings))
|
||||
(f/fail "Session not found. ")))
|
||||
|
||||
(defn check-account [request]
|
||||
;; check if login is present in session
|
||||
(f/attempt-all
|
||||
[login (get-in request [:session :auth :email])
|
||||
user (auth/get-account @ring/auth login)]
|
||||
user
|
||||
(f/when-failed [e]
|
||||
(->> e f/message
|
||||
(str "Unauthorized access. ")
|
||||
f/fail))))
|
||||
|
||||
(defn check-database []
|
||||
(if-let [db @ring/db]
|
||||
db
|
||||
(f/fail "No connection to database. ")))
|
||||
|
||||
(defn check [request fun]
|
||||
(f/attempt-all
|
||||
[db (check-database)
|
||||
config (check-config request)
|
||||
account (check-account request)]
|
||||
(fun request config account)
|
||||
(f/when-failed [e]
|
||||
(web/render
|
||||
[:div
|
||||
(web/render-error (f/message e))
|
||||
web/login-form]))))
|
||||
|
|
@ -0,0 +1,343 @@
|
|||
;; Copyright (C) 2015-2018 Dyne.org foundation
|
||||
|
||||
;; Sourcecode designed, written and maintained by
|
||||
;; Denis Roio <jaromil@dyne.org>
|
||||
|
||||
;; This program is free software: you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU Affero General Public License as published by
|
||||
;; the Free Software Foundation, either version 3 of the License, or
|
||||
;; (at your option) any later version.
|
||||
|
||||
;; This program is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU Affero General Public License for more details.
|
||||
|
||||
;; You should have received a copy of the GNU Affero General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
(ns toaster.webpage
|
||||
(:require [clojure.java.io :as io]
|
||||
[clojure.data.json :as json]
|
||||
[clojure.data.csv :as csv]
|
||||
[yaml.core :as yaml]
|
||||
[toaster.config :as conf]
|
||||
[taoensso.timbre :as log]
|
||||
[failjure.core :as f]
|
||||
[toaster.ring :as ring]
|
||||
[hiccup.page :as page]
|
||||
[hiccup.form :as hf]))
|
||||
|
||||
(declare render)
|
||||
(declare render-head)
|
||||
(declare navbar-guest)
|
||||
(declare navbar-account)
|
||||
(declare render-footer)
|
||||
(declare render-yaml)
|
||||
(declare render-edn)
|
||||
(declare render-error)
|
||||
(declare render-error-page)
|
||||
(declare render-static)
|
||||
|
||||
(defn q [req]
|
||||
"wrapper to retrieve parameters"
|
||||
;; TODO: sanitise and check for irregular chars
|
||||
(get-in req (conj [:params] req)))
|
||||
|
||||
(defn button
|
||||
([url text] (button url text [:p]))
|
||||
|
||||
([url text field] (button url text field "btn-secondary btn-lg"))
|
||||
|
||||
([url text field type]
|
||||
(hf/form-to [:post url]
|
||||
field ;; can be an hidden key/value field (project,
|
||||
;; person, etc using hf/hidden-field)
|
||||
(hf/submit-button {:class (str "btn " type)} text))))
|
||||
|
||||
(defn button-cancel-submit [argmap]
|
||||
[:div
|
||||
{:class
|
||||
(str "row col-md-6 btn-group btn-group-lg "
|
||||
(:btn-group-class argmap))
|
||||
:role "group"}
|
||||
(button
|
||||
(:cancel-url argmap) "Cancel"
|
||||
(:cancel-params argmap)
|
||||
"btn-primary btn-lg btn-danger col-md-3")
|
||||
(button
|
||||
(:submit-url argmap) "Submit"
|
||||
(:submit-params argmap)
|
||||
"btn-primary btn-lg btn-success col-md-3")])
|
||||
|
||||
|
||||
(defn reload-session [request]
|
||||
;; TODO: validation of all data loaded via prismatic schema
|
||||
(conf/load-config "toaster" conf/default-settings)
|
||||
|
||||
)
|
||||
|
||||
(defn render
|
||||
([body]
|
||||
{:headers {"Content-Type"
|
||||
"text/html; charset=utf-8"}
|
||||
:body (page/html5
|
||||
(render-head)
|
||||
[:body ;; {:class "static"}
|
||||
navbar-guest
|
||||
[:div {:class "container-fluid"} body]
|
||||
(render-footer)])})
|
||||
([account body]
|
||||
{:headers {"Content-Type"
|
||||
"text/html; charset=utf-8"}
|
||||
:body (page/html5
|
||||
(render-head)
|
||||
[:body (if (empty? account)
|
||||
navbar-guest
|
||||
navbar-account)
|
||||
[:div {:class "container-fluid"} body]
|
||||
(render-footer)])}))
|
||||
|
||||
|
||||
(defn render-error
|
||||
"render an error message without ending the page"
|
||||
[err]
|
||||
[:div {:class "alert alert-danger" :role "alert"}
|
||||
[:span {:class "far fa-meh"
|
||||
:aria-hidden "true" :style "padding: .5em"}]
|
||||
[:span {:class "sr-only"} "Error:" ]
|
||||
err])
|
||||
|
||||
(defn render-error-page
|
||||
([] (render-error-page {} "Unknown"))
|
||||
([err] (render-error-page {} err))
|
||||
([session error]
|
||||
(render
|
||||
[:div {:class "container-fluid"}
|
||||
(render-error error)
|
||||
(if-not (empty? session)
|
||||
[:div {:class "config"}
|
||||
[:h2 "Environment dump:"]
|
||||
(render-yaml session)])])))
|
||||
|
||||
|
||||
(defn render-head
|
||||
([] (render-head
|
||||
"toaster" ;; default title
|
||||
"toaster"
|
||||
"https://toaster.dyne.org")) ;; default desc
|
||||
|
||||
([title desc url]
|
||||
[:head [:meta {:charset "utf-8"}]
|
||||
[:meta {:http-equiv "X-UA-Compatible" :content "IE=edge,chrome=1"}]
|
||||
[:meta
|
||||
{:name "viewport"
|
||||
:content "width=device-width, initial-scale=1, maximum-scale=1"}]
|
||||
|
||||
[:title title]
|
||||
|
||||
;; javascript scripts
|
||||
(page/include-js "/static/js/jquery-3.2.1.min.js")
|
||||
(page/include-js "/static/js/bootstrap.min.js")
|
||||
|
||||
;; cascade style sheets
|
||||
(page/include-css "/static/css/bootstrap.min.css")
|
||||
(page/include-css "/static/css/json-html.css")
|
||||
(page/include-css "/static/css/highlight-tomorrow.css")
|
||||
(page/include-css "/static/css/formatters-styles/html.css")
|
||||
(page/include-css "/static/css/formatters-styles/annotated.css")
|
||||
(page/include-css "/static/css/fa-regular.min.css")
|
||||
(page/include-css "/static/css/fontawesome.min.css")
|
||||
(page/include-css "/static/css/toaster.css")]))
|
||||
|
||||
(def navbar-guest
|
||||
[:nav
|
||||
{:class "navbar navbar-default navbar-fixed-top navbar-expand-md navbar-expand-lg"}
|
||||
[:div {:class "navbar-header"}
|
||||
[:button {:class "navbar-toggle" :type "button"
|
||||
:data-toggle "collapse"
|
||||
:data-target "#navbarResponsive"
|
||||
:aria-controls "navbarResponsive"
|
||||
:aria-expanded "false"
|
||||
:aria-label "Toggle navigation"}
|
||||
[:span {:class "sr-only"} "Toggle navigation"]
|
||||
[:span {:class "icon-bar"}]
|
||||
[:span {:class "icon-bar"}]
|
||||
[:span {:class "icon-bar"}]]
|
||||
[:a {:class "navbar-brand far fa-handshake" :href "/"} "toaster"]]
|
||||
[:div {:class "collapse navbar-collapse" :id "navbarResponsive"}
|
||||
[:ul {:class "nav navbar-nav hidden-sm hidden-md ml-auto"}
|
||||
;; --
|
||||
[:li {:class "divider" :role "separator"}]
|
||||
[:li {:class "nav-item"}
|
||||
[:a {:class "nav-link far fa-address-card"
|
||||
:href "/login"} " Login"]]
|
||||
]]])
|
||||
|
||||
(def navbar-account
|
||||
[:nav {:class "navbar navbar-default navbar-fixed-top navbar-expand-lg"}
|
||||
|
||||
[:div {:class "navbar-header"}
|
||||
[:button {:class "navbar-toggle" :type "button"
|
||||
:data-toggle "collapse" :data-target "#navbarResponsive"
|
||||
:aria-controls "navbarResponsive" :aria-expanded "false"
|
||||
:aria-label "Toggle navigation"}
|
||||
[:span {:class "sr-only"} "Toggle navigation"]
|
||||
[:span {:class "icon-bar"}]
|
||||
[:span {:class "icon-bar"}]
|
||||
[:span {:class "icon-bar"}]]
|
||||
[:a {:class "navbar-brand far fa-handshake" :href "/"} "toaster"]]
|
||||
|
||||
[:div {:class "collapse navbar-collapse" :id "navbarResponsive"}
|
||||
[:ul {:class "nav navbar-nav hidden-sm hidden-md ml-auto"}
|
||||
;; --
|
||||
[:li {:class "divider" :role "separator"}]
|
||||
;; LIST OF RELEVANT LINKS AFTER LOGIN
|
||||
;; [:li {:class "nav-item"}
|
||||
;; [:a {:class "nav-link far fa-address-card"
|
||||
;; :href "/persons/list"} " Persons"]]
|
||||
;; [:li {:class "nav-item"}
|
||||
;; [:a {:class "nav-link far fa-paper-plane"
|
||||
;; :href "/projects/list"} " Projects"]]
|
||||
;; [:li {:class "nav-item"}
|
||||
;; [:a {:class "nav-link far fa-plus-square"
|
||||
;; :href "/timesheets"} " Upload"]]
|
||||
;; [:li {:class "nav-item"}
|
||||
;; [:a {:class "nav-link far fa-save"
|
||||
;; :href "/reload"} " Reload"]]
|
||||
;; --
|
||||
[:li {:role "separator" :class "divider"} ]
|
||||
[:li {:class "nav-item"}
|
||||
[:a {:class "nav-link far fa-file-code"
|
||||
:href "/config"} " Configuration"]]
|
||||
]]])
|
||||
|
||||
(defn render-footer []
|
||||
[:footer {:class "row" :style "margin: 20px"}
|
||||
[:hr]
|
||||
|
||||
[:div {:class "footer col-lg-3"}
|
||||
[:img {:src "/static/img/AGPLv3.png" :style "margin-top: 2.5em"
|
||||
:alt "Affero GPLv3 License"
|
||||
:title "Affero GPLv3 License"} ]]
|
||||
|
||||
[:div {:class "footer col-lg-3"}
|
||||
[:a {:href "https://www.dyne.org"}
|
||||
[:img {:src "/static/img/swbydyne.png"
|
||||
:alt "Software by Dyne.org"
|
||||
:title "Software by Dyne.org"}]]]
|
||||
])
|
||||
|
||||
|
||||
(defn render-static [body]
|
||||
(page/html5 (render-head)
|
||||
[:body {:class "fxc static"}
|
||||
|
||||
navbar-guest
|
||||
|
||||
[:div {:class "container"} body]
|
||||
|
||||
(render-footer)
|
||||
]))
|
||||
|
||||
|
||||
;; highlight functions do no conversion, take the format they highlight
|
||||
;; render functions take edn and convert to the highlight format
|
||||
;; download functions all take an edn and convert it in target format
|
||||
;; edit functions all take an edn and present an editor in the target format
|
||||
|
||||
|
||||
(defn render-yaml
|
||||
"renders an edn into an highlighted yaml"
|
||||
[data]
|
||||
[:span
|
||||
[:pre [:code {:class "yaml"}
|
||||
(yaml/generate-string data)]]
|
||||
[:script "hljs.initHighlightingOnLoad();"]])
|
||||
|
||||
(defn highlight-yaml
|
||||
"renders a yaml text in highlighted html"
|
||||
[data]
|
||||
[:span
|
||||
[:pre [:code {:class "yaml"}
|
||||
data]]
|
||||
[:script "hljs.initHighlightingOnLoad();"]])
|
||||
|
||||
|
||||
(defn highlight-json
|
||||
"renders a json text in highlighted html"
|
||||
[data]
|
||||
[:span
|
||||
[:pre [:code {:class "json"}
|
||||
data]]
|
||||
[:script "hljs.initHighlightingOnLoad();"]])
|
||||
|
||||
(defn download-csv
|
||||
"takes an edn, returns a csv plain/text for download"
|
||||
[data]
|
||||
{:headers {"Content-Type"
|
||||
"text/plain; charset=utf-8"}
|
||||
:body (with-out-str (csv/write-csv *out* data))})
|
||||
|
||||
(defn edit-edn
|
||||
"renders an editor for the edn in yaml format"
|
||||
[data]
|
||||
[:div;; {:class "form-group"}
|
||||
[:textarea {:class "form-control"
|
||||
:rows "20" :data-editor "yaml"
|
||||
:id "config" :name "editor"}
|
||||
(yaml/generate-string data)]
|
||||
[:script {:src "/static/js/ace.js"
|
||||
:type "text/javascript" :charset "utf-8"}]
|
||||
[:script {:type "text/javascript"}
|
||||
(slurp (io/resource "public/static/js/ace-embed.js"))]
|
||||
;; code to embed the ace editor on all elements in page
|
||||
;; that contain the attribute "data-editor" set to the
|
||||
;; mode language of choice
|
||||
[:input {:class "btn btn-success btn-lg pull-top"
|
||||
:type "submit" :value "submit"}]])
|
||||
|
||||
;; (defonce readme
|
||||
;; (slurp (io/resource "public/static/README.html")))
|
||||
|
||||
(defonce login-form
|
||||
[:div
|
||||
[:h1 "Login for your account"
|
||||
[:form {:action "/login"
|
||||
:method "post"}
|
||||
[:input {:type "text" :name "username"
|
||||
:placeholder "Username"
|
||||
:class "form-control"
|
||||
:style "margin-top: 1em"}]
|
||||
[:input {:type "password" :name "password"
|
||||
:placeholder "Password"
|
||||
:class "form-control"
|
||||
:style "margin-top: 1em"}]
|
||||
[:input {:type "submit" :value "Login"
|
||||
:class "btn btn-primary btn-lg btn-block"
|
||||
:style "margin-top: 1em"}]]]])
|
||||
|
||||
(defonce signup-form
|
||||
[:div
|
||||
[:h1 "Sign Up for a toaster account"
|
||||
[:form {:action "/signup"
|
||||
:method "post"}
|
||||
[:input {:type "text" :name "name"
|
||||
:placeholder "Name"
|
||||
:class "form-control"
|
||||
:style "margin-top: 1em"}]
|
||||
[:input {:type "text" :name "email"
|
||||
:placeholder "Email"
|
||||
:class "form-control"
|
||||
:style "margin-top: 1em"}]
|
||||
[:input {:type "password" :name "password"
|
||||
:placeholder "Password"
|
||||
:class "form-control"
|
||||
:style "margin-top: 1em"}]
|
||||
[:input {:type "password" :name "repeat-password"
|
||||
:placeholder "Repeat password"
|
||||
:class "form-control"
|
||||
:style "margin-top: 1em"}]
|
||||
[:input {:type "submit" :value "Sign In"
|
||||
:class "btn btn-primary btn-lg btn-block"
|
||||
:style "margin-top: 1em"}]]]])
|
||||
|
|
@ -0,0 +1,16 @@
|
|||
webserver:
|
||||
anti-forgery: false
|
||||
ssl-redirect: false
|
||||
|
||||
admin:
|
||||
email: jaromil@dyne.org
|
||||
|
||||
just-auth:
|
||||
email-server: "mail.dyne.org"
|
||||
email-user: "xxxxxxxxxxxxxxxx"
|
||||
email-pass: "xxxxxxxxxxxxxxxx"
|
||||
email-address: "xxxxxxxxxxxxxxxx"
|
||||
email-admin: "xxxxxxxxxxxxxxxx"
|
||||
mongo-url: mongodb://localhost:27017/toaster
|
||||
mongo-user: toaster
|
||||
mongo-pass: toaster
|
||||
Loading…
Reference in New Issue