50 lines
2 KiB
Clojure
50 lines
2 KiB
Clojure
(ns youyesyet.views.home
|
|
(:require [re-frame.core :as rf]
|
|
[markdown.core :refer [md->html]]
|
|
[youyesyet.ui-utils :as ui]))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;;;
|
|
;;;; youyesyet.views.electors: home view for youyesyet.
|
|
;;;;
|
|
;;;; This program is free software; you can redistribute it and/or
|
|
;;;; modify it under the terms of the GNU General Public License
|
|
;;;; as published by the Free Software Foundation; either version 2
|
|
;;;; 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 General Public License for more details.
|
|
;;;;
|
|
;;;; You should have received a copy of the GNU General Public License
|
|
;;;; along with this program; if not, write to the Free Software
|
|
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
|
|
;;;; USA.
|
|
;;;;
|
|
;;;; Copyright (C) 2016 Simon Brooke for Radical Independence Campaign
|
|
;;;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
;;; The pattern from the re-com demo (https://github.com/Day8/re-com) is to have
|
|
;;; one source file/namespace per view. Each namespace contains a function 'panel'
|
|
;;; whose output is an enlive-style specification of the view to be redered.
|
|
;;; I propose to follow this pattern. This file will provide the home view.
|
|
|
|
(defn panel
|
|
"Generate the home panel."
|
|
[]
|
|
[:div.container {:id "main-container"}
|
|
(ui/big-link "About" "#/about")
|
|
(ui/big-link "Map" "#/map")
|
|
[:div.jumbotron
|
|
[:h1 "You Yes Yet?"]
|
|
[:p "Time to start building your site!"]
|
|
[:p [:a.btn.btn-primary.btn-lg {:href "http://luminusweb.net"} "Learn more »"]]]])
|
|
(when-let [docs @(rf/subscribe [:docs])]
|
|
[:div.row
|
|
[:div.col-md-12
|
|
[:div {:dangerouslySetInnerHTML
|
|
{:__html (md->html docs)}}]]])
|