├── .gitignore
├── LICENSE
├── README.md
├── lein-template
    ├── .gitignore
    ├── README.md
    ├── dev
    │   └── generate.clj
    ├── project.clj
    ├── resources
    │   └── manifest.edn
    ├── src
    │   └── leiningen
    │   │   └── new
    │   │       ├── modular.clj
    │   │       └── modular
    │   │           ├── boilerplate.clj
    │   │           ├── bootstrap-cover
    │   │               ├── README.md
    │   │               ├── page.html.mustache
    │   │               └── website.clj
    │   │           ├── clean-blog
    │   │               ├── README.md
    │   │               ├── generate.clj
    │   │               ├── html
    │   │               │   ├── about.html.mustache
    │   │               │   ├── index.html.mustache
    │   │               │   ├── page.html.mustache
    │   │               │   └── post.html.mustache
    │   │               ├── img
    │   │               │   ├── about-bg.jpg
    │   │               │   ├── home-bg.jpg
    │   │               │   ├── post-bg.jpg
    │   │               │   └── post-sample-image.jpg
    │   │               ├── js
    │   │               │   └── clean-blog.min.js
    │   │               ├── less
    │   │               │   ├── clean-blog.less
    │   │               │   ├── mixins.less
    │   │               │   └── variables.less
    │   │               ├── pages.clj
    │   │               └── posts
    │   │               │   ├── explore.md
    │   │               │   ├── failure.md
    │   │               │   ├── human.md
    │   │               │   └── science.md
    │   │           ├── core.cljs
    │   │           ├── custom-less
    │   │               ├── custom-bootstrap.less
    │   │               ├── custom-other.less
    │   │               └── custom-variables.less
    │   │           ├── dashboard
    │   │               ├── README.md
    │   │               ├── dashboard.css
    │   │               ├── dashboard.html.mustache
    │   │               └── website.clj
    │   │           ├── dev.clj
    │   │           ├── dev
    │   │               ├── cylon
    │   │               │   └── user.clj
    │   │               └── routes.clj
    │   │           ├── dev_components.clj
    │   │           ├── example_page.clj
    │   │           ├── gitignore
    │   │           ├── hello_world_website.clj
    │   │           ├── home.html.mustache
    │   │           ├── intro
    │   │               ├── README.md
    │   │               ├── animals.json
    │   │               ├── index.html.mustache
    │   │               ├── page.html.mustache
    │   │               ├── style.css
    │   │               ├── weather.csv
    │   │               └── website.clj
    │   │           ├── logback.xml
    │   │           ├── main.clj
    │   │           ├── main.cljs
    │   │           ├── project.clj
    │   │           ├── protected-site
    │   │               ├── README.md
    │   │               ├── html
    │   │               │   ├── dialog.html.mustache
    │   │               │   ├── index.html.mustache
    │   │               │   ├── page.html.mustache
    │   │               │   └── protected.html.mustache
    │   │               ├── style.css
    │   │               └── website.clj
    │   │           ├── resources
    │   │               ├── bootstrap-theme.min.css
    │   │               ├── bootstrap.min.css
    │   │               ├── bootstrap.min.js
    │   │               ├── cover.css
    │   │               ├── jquery-2.1.1.min.js
    │   │               ├── jquery-2.1.1.min.map
    │   │               ├── react-0.9.0.js
    │   │               └── theme.css
    │   │           ├── simple_bidi_website.clj
    │   │           ├── sse-demo
    │   │               ├── README.md
    │   │               ├── events.clj
    │   │               ├── events.js
    │   │               └── website.clj
    │   │           ├── system.clj
    │   │           ├── templated-bidi-website
    │   │               ├── content.html.mustache
    │   │               ├── page.html.mustache
    │   │               └── website.clj
    │   │           ├── user.clj
    │   │           ├── website.clj
    │   │           ├── website_tests.clj
    │   │           └── yada
    │   │               ├── README.md
    │   │               ├── config.edn
    │   │               ├── examples.clj
    │   │               └── swagger_ui.clj
    └── test
    │   └── generate_test.clj
├── modules
    ├── aleph
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       └── aleph.clj
    ├── async
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       └── async.clj
    ├── bidi
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       └── bidi.clj
    ├── bootstrap
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       ├── bootstrap.clj
    │   │       └── bootstrap
    │   │           ├── cylon
    │   │               └── user_forms.clj
    │   │           └── menu.clj
    ├── cassandra
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       └── cassandra.clj
    ├── cljs
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       └── cljs.clj
    ├── clostache
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       └── clostache.clj
    ├── datomic
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       └── datomic.clj
    ├── email
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       ├── email.clj
    │   │       └── email
    │   │           ├── log_emailer.clj
    │   │           └── protocols.clj
    ├── http-kit-events
    │   ├── README.md
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       └── http_kit
    │   │           └── events.clj
    ├── http-kit
    │   ├── notes.org
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       └── http_kit.clj
    ├── less
    │   ├── README.md
    │   ├── project.clj
    │   ├── src
    │   │   └── modular
    │   │   │   └── less.clj
    │   ├── test-resources
    │   │   ├── custom-bootstrap.less
    │   │   ├── custom-other.less
    │   │   ├── custom-variables.less
    │   │   └── sample.less
    │   └── test
    │   │   └── modular
    │   │       └── less
    │   │           ├── compilation_test.clj
    │   │           └── component_test.clj
    ├── maker
    │   ├── project.clj
    │   ├── src
    │   │   └── modular
    │   │   │   └── maker.clj
    │   └── test
    │   │   └── modular
    │   │       └── maker_tests.clj
    ├── menu
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       ├── menu.clj
    │   │       └── menu
    │   │           └── cylon.clj
    ├── mqtt
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       └── mqtt.clj
    ├── netty
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       └── netty.clj
    ├── postgres
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       └── postgres.clj
    ├── rabbitmq
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       └── rabbitmq.clj
    ├── reactor
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       └── reactor.clj
    ├── ring
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       └── ring.clj
    ├── selmer
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       └── selmer.clj
    ├── sendgrid
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       ├── sendgrid.clj
    │   │       └── sendgrid
    │   │           └── schema.clj
    ├── stencil
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       └── stencil.clj
    ├── template
    │   ├── README.md
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       ├── template.clj
    │   │       └── template
    │   │           └── util.clj
    ├── test
    │   ├── README.md
    │   ├── project.clj
    │   └── src
    │   │   └── modular
    │   │       └── test.clj
    └── wire-up
    │   ├── project.clj
    │   └── src
    │       └── modular
    │           └── wire_up.clj
└── project.clj


/.gitignore:
--------------------------------------------------------------------------------
 1 | /classes
 2 | /checkouts
 3 | pom.xml
 4 | pom.xml.asc
 5 | *.jar
 6 | *.class
 7 | /.lein-*
 8 | .nrepl-port
 9 | target
10 | extract-native.dependencies
11 | /todo.org
12 | /lein-template/todo.org
13 | .lein-failures
14 | /lein-template/.lein-repl-history
15 | 


--------------------------------------------------------------------------------
/LICENSE:
--------------------------------------------------------------------------------
 1 | The MIT License (MIT)
 2 | 
 3 | Copyright © 2014 JUXT LTD.
 4 | 
 5 | Permission is hereby granted, free of charge, to any person obtaining a copy of
 6 | this software and associated documentation files (the "Software"), to deal in
 7 | the Software without restriction, including without limitation the rights to
 8 | use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
 9 | the Software, and to permit persons to whom the Software is furnished to do so,
10 | subject to the following conditions:
11 | 
12 | The above copyright notice and this permission notice shall be included in all
13 | copies or substantial portions of the Software.
14 | 
15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
17 | FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
18 | COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
19 | IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
20 | CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
21 | 


--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
 1 | # modular
 2 | 
 3 | Modular comprises :-
 4 | 
 5 | * a set of pre-written components
 6 | * a template system for creating new projects
 7 | * some optional utility libraries
 8 | 
 9 | Modular is based on Stuart Sierra's
10 | [component](https://github.com/stuartsierra/component) library.
11 | 
12 | See [lein-template](lein-template/README.md) for further details on
13 | project generation.
14 | 
15 | ## Usage
16 | 
17 | Here is a quick example to get started.
18 | 
19 | ```clojure
20 | lein new modular my-website bootstrap-cover
21 | ```
22 | 
23 | ## Documentation
24 | 
25 | Full documentation can be found on at [modularity.org](http://modularity.org).
26 | 
27 | ## Mailing list
28 | 
29 | Announcements and discussions about modular take place on the [modularity list](https://groups.google.com/forum/?hl=en#!forum/modularity).
30 | 
31 | ## Copyright & License
32 | 
33 | The MIT License (MIT)
34 | 
35 | Copyright © 2014 JUXT LTD.
36 | 
37 | Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
38 | 
39 | The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
40 | 
41 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
42 | 


--------------------------------------------------------------------------------
/lein-template/.gitignore:
--------------------------------------------------------------------------------
1 | foo/


--------------------------------------------------------------------------------
/lein-template/README.md:
--------------------------------------------------------------------------------
 1 | # Modular templates
 2 | 
 3 | Modular provides a number of templates to generate Clojure project skeletons with the aim of getting you up-and-running quickly with your own projects.
 4 | 
 5 | The command line arguments are
 6 | 
 7 | ```clojure
 8 | lein new modular <your-project-name> <template-to-generate-from>
 9 | ```
10 | 
11 | For example
12 | 
13 | ```clojure
14 | lein new modular my-website bootstrap-cover
15 | ```
16 | 
17 | ## Supported templates
18 | 
19 | A growing number of templates are supported. If you find any problems
20 | with these templates, raise issues on this project to get them fixed, or send pull requests.
21 | 
22 | These templates make use of components that are provided by modular, so
23 | in most cases there is not much code, demonstrating the re-use that can
24 | be achieved by using components.
25 | 
26 | ### ```hello-world-web```
27 | 
28 | A simple website that displays "Hello World!".
29 | 
30 | This introduces the ```modular.ring/WebRequestHandler``` protocol which provides an integration surface between a Ring-compatible web server (e.g. Jetty, http-kit) and a Ring handler.
31 | 
32 | In most applications, the choice of web server is made ahead of time and some code is written to provide the web server with the handler to call. In this example, the relationship between the web server and Ring handler is made via a dependency declaration between the web server (in this case, [http-kit](http://www.http-kit.org/)) and the handler.
33 | 
34 | In the ```system.clj``` we see two components: ```:http-listener-listener``` and ```:hello-world-website-handler```. The first component declares a dependency on a request handler, with the ```using``` clause. The ```new-dependency-map``` function returns a map that satisfies the web server comonent's ```:request-handler``` dependency with our application component ```hello-world-web.hello-world-website/HelloWorldHandler```. This component must satisfy the ```modular.ring/WebRequestHandler``` protocol. This pattern of using protocols to provide the integration surface between components is used throughout [modular](https://github.com/juxt/modular).
35 | 
36 | ### ```bidi-hello-world```
37 | 
38 | Another simple website that displays "Hello World!".
39 | 
40 | This introduces a router component which dispatches incoming HTTP
41 | requests to one of its dependant components providing routes.
42 | 
43 | This demonstrates one of the principles of modularity. We avoid a single data structure comprising all the HTTP routes in a system. Rather, we allow individual modules to make contributions to this route structure.
44 | 
45 | [bidi](https://github.com/juxt/bidi) is used in this example, but the
46 | principle would be the same using Compojure routes, which supports
47 | similar composeable mechanisms.
48 | 
49 | ### ```bootstrap-cover```
50 | 
51 | Bootstrap cover is adapted from [Twitter Bootstrap's 'cover' example](http://getbootstrap.com/examples/cover/). It introduces the Mustache template renderer, provided by [Clostache](https://github.com/fhd/clostache).
52 | 
53 | It also shows how to provide static resources from [JQuery](https://jquery.com/) and [Bootstrap](https://getbootstrap.com/) by contributing routes to the router, rather than requiring code modifications.
54 | 
55 | The template also introduces the concept of _co-dependencies_. This is
56 | can be seen in the arguments to the ```Website``` record in
57 | ```website.clj```, which include a reference to the router. The
58 | component uses this router to construct the URLs to other
59 | handlers. While these handlers are also defined within the ```Website```
60 | component, routes can be constructed in this way to any known handler in
61 | the system, using its keyword and any required arguments. See
62 | [bidi](https://github.com/juxt/bidi) for more details.
63 | 
64 | ### ```dashboard```
65 | 
66 | Similar to bootstrap-cover above, but uses the bootstrap dashboard example.
67 | 
68 | This template adds a [ClojureScript](https://github.com/clojure/clojurescript) compiler component which recompiles the source modifications in the included ```src-cljs``` on every reset.
69 | 
70 | The application demonstrates client-side routing, using the cljs version of bidi.
71 | 


--------------------------------------------------------------------------------
/lein-template/dev/generate.clj:
--------------------------------------------------------------------------------
1 | ;; Required for Cider 0.7.0 to run generation tests.
2 | (ns generate)
3 | 


--------------------------------------------------------------------------------
/lein-template/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | ;; We call this project modular to make the invocation: lein new modular appname
 4 | (defproject modular/lein-template "0.7.2"
 5 |   :description "Leiningen template for a full-featured component based app using modular extensions."
 6 |   :url "http://modularity.org/"
 7 |   :license {:name "The MIT License"
 8 |             :url "http://opensource.org/licenses/MIT"}
 9 | 
10 |   :dependencies []
11 | 
12 |   :eval-in-leiningen true
13 | 
14 |   :profiles {:dev
15 |              {:dependencies
16 |               [[org.clojure/clojure "1.7.0"]
17 |                ;; EDN reader with location metadata
18 |                [org.clojure/tools.reader "0.8.3"]
19 |                [org.clojure/tools.logging "0.3.1"]]}})
20 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/boilerplate.clj:
--------------------------------------------------------------------------------
 1 | (ns {{name}}.boilerplate
 2 |   (:require
 3 |    [com.stuartsierra.component :as component]
 4 |    [modular.bootstrap :refer (ContentBoilerplate wrap-content-in-boilerplate)]
 5 |    [modular.web-template :refer (dynamic-template-data)]
 6 |    [plumbing.core :refer (<-)]
 7 |    [clostache.parser :refer (render-resource)]
 8 |    ))
 9 | 
10 | (defrecord TemplateBasedBoilerplate []
11 |   ContentBoilerplate
12 |   (wrap-content-in-boilerplate [this req content]
13 |     (let [model (dynamic-template-data (:template-model this) req)]
14 |        (render-resource
15 |         "templates/page.html.mustache"
16 |         (assoc model :content content)))))
17 | 
18 | (defn new-boilerplate [& {:as opts}]
19 |   (->> opts
20 |        map->TemplateBasedBoilerplate
21 |        (<- (component/using [:template-model]))))
22 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/bootstrap-cover/README.md:
--------------------------------------------------------------------------------
 1 | # {{name}}
 2 | 
 3 | A Clojure application for ...
 4 | 
 5 | ## Usage
 6 | 
 7 | To run the application, install [Leiningen](http://leiningen.org/) and type
 8 | 
 9 | ```
10 | lein run
11 | ```
12 | 
13 | ## Development
14 | 
15 | For rapid development, use the REPL from the command line or via your
16 | favorite code editor.
17 | 
18 | ```
19 | lein repl
20 | user> (dev)
21 | dev> (go)
22 | ```
23 | 
24 | After making code changes, reset your application's state (causing all
25 | your modifications to be reloaded too).
26 | 
27 | ```
28 | dev> (reset)
29 | ```
30 | 
31 | Rinse and repeat.
32 | 
33 | ## Copyright and License
34 | 
35 | The MIT License (MIT)
36 | 
37 | Copyright © {{year}} {{author}}
38 | 
39 | Permission is hereby granted, free of charge, to any person obtaining a copy of
40 | this software and associated documentation files (the "Software"), to deal in
41 | the Software without restriction, including without limitation the rights to
42 | use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
43 | the Software, and to permit persons to whom the Software is furnished to do so,
44 | subject to the following conditions:
45 | 
46 | The above copyright notice and this permission notice shall be included in all
47 | copies or substantial portions of the Software.
48 | 
49 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
50 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
51 | FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
52 | COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
53 | IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
54 | CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
55 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/bootstrap-cover/page.html.mustache:
--------------------------------------------------------------------------------
 1 | {{=<< >>=}}
 2 | <!DOCTYPE html>
 3 | <html prefix="dc: http://purl.org/dc/elements/1.1/" lang="en">
 4 |   <head>
 5 |     <meta charset="utf-8"/>
 6 |     <!-- <meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no"/>
 7 | -->
 8 |     <meta http-equiv="X-UA-Compatible" content="IE=edge">
 9 |     <meta name="viewport" content="width=device-width, initial-scale=1">
10 | 
11 |     <title> << name >> </title>
12 | 
13 |     <!-- Bootstrap core CSS -->
14 |     <link href="/bootstrap/css/bootstrap.min.css" rel="stylesheet">
15 |     <!-- Bootstrap theme -->
16 |     <link href="/bootstrap/css/bootstrap-theme.min.css" rel="stylesheet">
17 | 
18 |     <link href="/static/cover.css" rel="stylesheet">
19 | 
20 |     <!-- HTML5 shim, for IE6-8 support of HTML5 elements -->
21 |     <!--[if lt IE 9]>
22 |         <script src="/js/html5shiv.min.js"></script>
23 |         <![endif]-->
24 | 
25 |   </head>
26 | 
27 |   <body role="document">
28 | 
29 |    <div class="site-wrapper">
30 | 
31 |       <div class="site-wrapper-inner">
32 | 
33 |         <div class="cover-container">
34 | 
35 |           <div class="masthead clearfix">
36 |             <div class="inner">
37 |               <h3 class="masthead-brand"> << name >> </h3>
38 |               {{{menu}}}
39 |             </div>
40 |           </div>
41 | 
42 |           <div class="inner cover">
43 |             {{{content}}}
44 | <!--
45 |             <p class="lead">
46 |               <a href="#" class="btn btn-lg btn-default">Learn more</a>
47 |             </p>
48 | -->
49 |           </div>
50 | 
51 |           <div class="mastfoot">
52 |             <div class="inner">
53 |               <p>Cover template for <a href="http://getbootstrap.com">Bootstrap</a>, by <a href="https://twitter.com/mdo">@mdo</a>.</p>
54 |               <p>Project originated from <a href="https://github.com/juxt/modular">modular</a>, by <a href="https://twitter.com/malcolmsparks">@malcolmsparks</a>.</p>
55 |             </div>
56 |           </div>
57 | 
58 |         </div>
59 | 
60 |       </div>
61 | 
62 |     </div>
63 | 
64 |     <!-- jQuery (necessary for Bootstrap's JavaScript plugins) -->
65 |     <script src="/jquery/jquery.min.js"></script>
66 | 
67 |     <!-- Include all compiled plugins (below), or include individual files as needed -->
68 |     <script src="/bootstrap/js/bootstrap.min.js"></script>
69 | 
70 |   </body>
71 | </html>
72 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/bootstrap-cover/website.clj:
--------------------------------------------------------------------------------
  1 | (ns {{name}}.website
  2 |   (:require
  3 |    [clojure.pprint :refer (pprint)]
  4 |    [clojure.tools.logging :refer :all]
  5 |    [bidi.bidi :refer (tag RouteProvider)]
  6 |    [bidi.ring :refer (redirect)]
  7 |    [com.stuartsierra.component :refer (using)]
  8 |    [hiccup.core :as hiccup]
  9 |    [modular.bidi :refer (as-request-handler path-for)]
 10 |    [modular.component.co-dependency :refer (co-using)]
 11 |    [modular.ring :refer (WebRequestHandler)]
 12 |    [modular.template :refer (render-template template-model)]
 13 |    [ring.util.response :refer (response)]))
 14 | 
 15 | (defn menu [*router uri]
 16 |   (hiccup/html
 17 |    [:ul.nav.masthead-nav
 18 |     (for [[k label] [[::index "Home"]
 19 |                      [::features "Features"]
 20 |                      [::about "About"]]
 21 |           ;; This demonstrates the generation of hyperlinks from
 22 |           ;; keywords.
 23 | 
 24 |           ;; by the way, router is deref'd because it's a
 25 |           ;; co-dependency, this is likely to change to potemkin's
 26 |           ;; def-map-type in future releases, so a deref will be
 27 |           ;; unnecessary (and deprecated)
 28 | 
 29 |           :let [href (path-for @*router k)]]
 30 |       [:li (when (= href uri) {:class "active"})
 31 |        [:a (merge {:href href}) label]]
 32 |       )]))
 33 | 
 34 | (defn page [templater *router req content]
 35 |   (response
 36 |    (render-template
 37 |     templater
 38 |     "templates/page.html.mustache" ; our Mustache template
 39 |     {:menu (menu *router (:uri req))
 40 |      :content content})))
 41 | 
 42 | (defn index [templater *router]
 43 |   (fn [req]
 44 |     (page templater *router req
 45 |           (hiccup/html
 46 |            [:div
 47 |             [:h1.cover-heading "Welcome"]
 48 |             [:p.lead "Cover is a one-page template for
 49 |                   building simple and beautiful home pages. Download,
 50 |                   edit the text, and add your own fullscreen background
 51 |                   photo to make it your own."]
 52 |             [:p "This is a Clojure project called {{name}}, generated
 53 |             from modular's bootstrap-cover template. This text can be
 54 |             found in " [:code "{{name}}/website.clj"]] ]))))
 55 | 
 56 | (defn features [templater *router]
 57 |   (fn [req]
 58 |     (page templater *router req
 59 |           (hiccup/html
 60 |            [:div
 61 |             [:h1.cover-heading "Features"]
 62 |             [:p.lead "bootstrap-cover exhibits the following :-"]
 63 |             [:ul.list-unstyled.lead
 64 |              [:li "A working Clojure-powered website using Stuart Sierra's 'reloaded' workflow and component library"]
 65 |              [:li "A fully-commented route-contributing website component"]
 66 |              [:li [:a {:href "https://github.com/juxt/bidi"} "Bidi"] " routing"]
 67 |              [:li "Co-dependencies"]
 68 |              [:li "Deployable with lein run"]
 69 |              ]
 70 |             [:p "This list can be found in " [:code "{{name}}/website.clj"]]]))))
 71 | 
 72 | (defn about [templater *router]
 73 |   (fn [req]
 74 |     (page templater *router req
 75 |           (hiccup/html
 76 |            [:div
 77 |             [:h1.cover-heading "About"]
 78 |             [:p.lead "You should
 79 |             edit " [:code "{{name}}/website.clj"] ", locate
 80 |             the " [:code "about"] " function and edit the function
 81 |             defintion to display your details here, describing who you are
 82 |             and why you started this project."]]))))
 83 | 
 84 | ;; Components are defined using defrecord.
 85 | 
 86 | (defrecord Website [templater *router]
 87 | 
 88 |   ;; modular.bidi provides a router which dispatches to routes provided
 89 |   ;; by components that satisfy bidi's RouteProvider protocol
 90 |   RouteProvider
 91 | 
 92 |   ;; Return a bidi route structure, using bidi's tag wrapper to
 93 |   ;; assign keywords to Ring handlers, keywords that can be used in
 94 |   ;; calls to bidi's path-for function.
 95 |   (routes [_]
 96 |     ["/"
 97 |      {"index.html" (-> (index templater *router) (tag ::index))
 98 |       "" (redirect ::index)
 99 |       "features.html" (-> (features templater *router) (tag ::features))
100 |       "about.html" (-> (about templater *router) (tag ::about))}]))
101 | 
102 | ;; While not mandatory, it is common to use a function to construct an
103 | ;; instance of the component. This affords the opportunity to control
104 | ;; the construction with parameters, provide defaults and declare
105 | ;; dependency relationships with other components.
106 | 
107 | (defn new-website []
108 |   (-> (map->Website {})
109 |       (using [:templater])
110 |       (co-using [:router])))
111 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/clean-blog/README.md:
--------------------------------------------------------------------------------
  1 | # {{name}}
  2 | 
  3 | A blog site, generated by [modular](https://github.com/juxt/modular).
  4 | 
  5 | ## Requirements
  6 | 
  7 | This site uses a Less compiler in JavaScript that requires Nashorn, so it's only possible to use if you've got JDK 8 or later.
  8 | 
  9 | ## Usage
 10 | 
 11 | To run the blog-site, install [Leiningen](http://leiningen.org/) and type
 12 | 
 13 | ```
 14 | lein run
 15 | ```
 16 | 
 17 | ## Development
 18 | 
 19 | For rapid development, use the REPL from the command line or via your
 20 | favorite code editor.
 21 | 
 22 | ```
 23 | lein repl
 24 | user> (dev)
 25 | dev> (go)
 26 | ```
 27 | 
 28 | After making code changes, reset your application's state (causing all
 29 | your modifications to be reloaded too).
 30 | 
 31 | ```
 32 | dev> (reset)
 33 | ```
 34 | 
 35 | Rinse and repeat.
 36 | 
 37 | ## Understanding how routes are matched
 38 | 
 39 | Unless you change it, the blog index is at `/myblog/index.html`.
 40 | 
 41 | You can test what it matches to from the REPL like this:
 42 | 
 43 | ```
 44 | dev> (pprint (match-route "/myblog/index.html"))
 45 | {:handler ...
 46 |  :id :clean-blog-example.pages/index}
 47 | ```
 48 | 
 49 | Here we see the `id` of the Ring handler. It is defined in [{{name}}/pages](src/{{sanitized}}/pages.clj).
 50 | 
 51 | Near the bottom of this namespace is a record named `Pages`. It satisfies bidi's `RouteProvider` protocol and returns a route structure. The leaves of this route structure and wrapped in bidi's `handler` wrapper, allowing the handlers to be associated with keywords.
 52 | 
 53 | You can also find out where these handlers are accessible from the REPL.
 54 | 
 55 | ```
 56 | dev> (path-for :clean-blog-example.pages/index)
 57 | "/myblog/index.html"
 58 | ```
 59 | 
 60 | There is a special keywords such as `:web-resources`,
 61 | `:bootstrap-resources` and `:jquery-resources` that are relate to
 62 | collections of static resources. The first corresponds to resources
 63 | under `resources/public`, the others extract resources from
 64 | [webjars](http://www.webjars.org/) that the project depends on.
 65 | 
 66 | ```
 67 | dev> (path-for :web-resources)
 68 | "/static"
 69 | dev> (path-for :bootstrap-resources)
 70 | "/bootstrap"
 71 | dev> (path-for :jquery-resources)
 72 | "/jquery"
 73 | ```
 74 | 
 75 | ## Generating a static site
 76 | 
 77 | You can generate this site to a set of static files with
 78 | 
 79 | ```
 80 | lein gen
 81 | ```
 82 | 
 83 | You can then deploy these files to your website. Note, it's [possible to use github to serve static files](https://help.github.com/articles/setting-up-a-custom-domain-with-github-pages/) too.
 84 | 
 85 | ## Credits
 86 | 
 87 | The blog-site style has been taken from Start Bootstrap: http://startbootstrap.com/template-overviews/clean-blog/
 88 | 
 89 | ## Copyright and License
 90 | 
 91 | The MIT License (MIT)
 92 | 
 93 | Copyright © {{year}} {{author}}
 94 | 
 95 | Permission is hereby granted, free of charge, to any person obtaining a copy of
 96 | this software and associated documentation files (the "Software"), to deal in
 97 | the Software without restriction, including without limitation the rights to
 98 | use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
 99 | the Software, and to permit persons to whom the Software is furnished to do so,
100 | subject to the following conditions:
101 | 
102 | The above copyright notice and this permission notice shall be included in all
103 | copies or substantial portions of the Software.
104 | 
105 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
106 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
107 | FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
108 | COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
109 | IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
110 | CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
111 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/clean-blog/generate.clj:
--------------------------------------------------------------------------------
  1 | (ns {{name}}.generate
  2 |   (:require
  3 |    [modular.ring :refer (request-handler)]
  4 |    [clojure.pprint :refer (pprint)]
  5 |    [clojure.java.io :as io]
  6 |    [clojure.set :as set])
  7 |   (:gen-class))
  8 | 
  9 | (defprotocol Body
 10 |   (serialize [_]))
 11 | 
 12 | (extend-protocol Body
 13 |   String
 14 |   (serialize [s] s)
 15 |   java.io.File
 16 |   (serialize [f] (slurp f))
 17 |   sun.net.www.protocol.jar.JarURLConnection$JarURLInputStream
 18 |   (serialize [i] (slurp i)))
 19 | 
 20 | (defn get-links [type body]
 21 |   (case type
 22 |     "text/html"
 23 |     (concat
 24 |      (->> (map second (re-seq #"href=\"([^\"]+)\"" body))
 25 |        (remove (some-fn #(re-matches #"https?://.*" %) #{"#"})))
 26 |      (->> (map second (re-seq #"<script.+src=\"([^\"]+)\"" body))
 27 |        (remove #(re-matches #"https?://.*" %)))
 28 |      (map second (re-seq #"url\('([^\']+)'\)" body))
 29 |      )
 30 |     "text/css"
 31 |     []))
 32 | 
 33 | (defn get-type [uri]
 34 |   (cond
 35 |     (re-matches #".*\.html" uri) "text/html"
 36 |     (re-matches #".*\.css" uri) "text/css"
 37 |     :otherwise (throw (ex-info "No type" {:uri uri}))))
 38 | 
 39 | (defn- status? [n response]
 40 |   (re-matches (re-pattern (str n "\\d\\d")) (str (:status response))))
 41 | 
 42 | (defn ok? [response]
 43 |   (status? 2 response))
 44 | 
 45 | (defn redirect? [response]
 46 |   (status? 3 response))
 47 | 
 48 | (defn client-error? [response]
 49 |   (status? 4 response))
 50 | 
 51 | (defn get-suffix [s]
 52 |   (second (re-matches #".*(\..*)" s)))
 53 | 
 54 | (def ^:dynamic *handler* nil)
 55 | 
 56 | (defn spider [visited request]
 57 |   (cond
 58 |     (#{".jpg" ".png" ".js"} (get-suffix (:uri request)))
 59 |     [{:type :copy
 60 |       :uri (:uri request)}]
 61 | 
 62 |     :otherwise
 63 |     (try
 64 |       (let [visited (conj visited (:uri request))
 65 |             response (*handler* request)]
 66 |         (cond
 67 |           (redirect? response)
 68 |           (conj (spider visited {:uri (get-in response [:headers "Location"])})
 69 |                 {:type :redirect
 70 |                  :uri (:uri request)})
 71 | 
 72 |           (ok? response)
 73 |           (let [sbody (serialize (:body response))]
 74 |             (conj
 75 |              (distinct
 76 |               (apply concat
 77 |                      (for [link (set/difference
 78 |                                  (set (get-links
 79 |                                        (get-type (:uri request))
 80 |                                        sbody))
 81 |                                  visited)]
 82 |                        (spider visited {:uri link}))))
 83 |              {:type :copy
 84 |               :uri (:uri request)}))
 85 | 
 86 |           (client-error? response)
 87 |           [{:type :not-found :uri (:uri request)}]
 88 | 
 89 |           :otherwise [{:type :unexpected
 90 |                        :respose response
 91 |                        :request request}]
 92 |           ))
 93 |       (catch Exception e [{:type :error
 94 |                            :uri (:uri request)
 95 |                            :exception e
 96 |                            :stack-trace (seq (.getStackTrace e))}]))))
 97 | 
 98 | (defmulti action (fn [x destdir] (:type x)))
 99 | 
100 | (defmethod action :redirect [a destdir]
101 |   (println "redirect - noop"))
102 | 
103 | (defmethod action :copy [{:keys [uri]} destdir]
104 |   (try
105 |     (let [response (*handler* {:uri uri})]
106 |       (assert (= (:status response)200))
107 |       (let [outfile (io/file (str destdir uri))
108 |             data (.getBytes (serialize (:body response)))]
109 |         (.mkdirs (.getParentFile outfile))
110 |         (io/copy data outfile)
111 |         (println (format "Copied %d bytes to %s" (count data) outfile))))
112 |     (catch Exception e
113 |       (println "Exception" e " on uri" uri)
114 |       )))
115 | 
116 | 
117 | (defn do-actions [actions]
118 |   (let [destdir (io/file "target/site")]
119 |     (.mkdirs destdir)
120 |     (doseq [a actions]
121 |       (action a destdir))))
122 | 
123 | (defn -main [& args]
124 |   (eval '(do (require '{{name}}.system)
125 |              (require '{{name}}.generate)
126 |              (require 'modular.ring)
127 |              (require 'com.stuartsierra.component)
128 |              {{#module?.co-dependency}}
129 |              (require 'modular.component.co-dependency)
130 |              {{/module?.co-dependency}}
131 | 
132 |              (require 'clojure.java.browse)
133 | 
134 |              (println "Starting {{name}}")
135 | 
136 |              (let [system (->
137 |                            ({{name}}.system/new-production-system
138 |                             #_{:http-server {:port 3001}})
139 |                            {{^module?.co-dependency}}
140 |                            com.stuartsierra.component/start
141 |                            {{/module?.co-dependency}}
142 |                            {{#module?.co-dependency}}
143 |                            modular.component.co-dependency/start-system
144 |                            {{/module?.co-dependency}}
145 |                            )]
146 | 
147 |                (println "System started")
148 |                (println "Spidering...")
149 | 
150 |                (binding [{{name}}.generate/*handler* (-> system :modular-bidi-router-webrouter modular.ring/request-handler)]
151 |                  ({{name}}.generate/do-actions
152 |                   (mapcat (partial {{name}}.generate/spider #{}) [{:uri "/"}])))
153 | 
154 |                (println "Stopping {{name}}")
155 |                (com.stuartsierra.component/stop system)
156 |                (println "System stopped")
157 | 
158 |                ))))
159 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/clean-blog/html/about.html.mustache:
--------------------------------------------------------------------------------
 1 | {{=<< >>=}}
 2 |     <!-- Page Header -->
 3 |     <!-- Set your background image for this header on the line below. -->
 4 |     <header class="intro-header" style="background-image: url('{{static}}/img/about-bg.jpg')">
 5 |         <div class="container">
 6 |             <div class="row">
 7 |                 <div class="col-lg-8 col-lg-offset-2 col-md-10 col-md-offset-1">
 8 |                     <div class="page-heading">
 9 |                         <h1>About Me</h1>
10 |                         <hr class="small">
11 |                         <span class="subheading">This is what I do.</span>
12 |                     </div>
13 |                 </div>
14 |             </div>
15 |         </div>
16 |     </header>
17 | 
18 |     <!-- Main Content -->
19 |     <div class="container">
20 |         <div class="row">
21 |             <div class="col-lg-8 col-lg-offset-2 col-md-10 col-md-offset-1">
22 |                 <p>Lorem ipsum dolor sit amet, consectetur adipisicing elit. Saepe nostrum ullam eveniet pariatur voluptates odit, fuga atque ea nobis sit soluta odio, adipisci quas excepturi maxime quae totam ducimus consectetur?</p>
23 |                 <p>Lorem ipsum dolor sit amet, consectetur adipisicing elit. Eius praesentium recusandae illo eaque architecto error, repellendus iusto reprehenderit, doloribus, minus sunt. Numquam at quae voluptatum in officia voluptas voluptatibus, minus!</p>
24 |                 <p>Lorem ipsum dolor sit amet, consectetur adipisicing elit. Nostrum molestiae debitis nobis, quod sapiente qui voluptatum, placeat magni repudiandae accusantium fugit quas labore non rerum possimus, corrupti enim modi! Et.</p>
25 |             </div>
26 |         </div>
27 |     </div>
28 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/clean-blog/html/index.html.mustache:
--------------------------------------------------------------------------------
 1 | {{=<< >>=}}
 2 |       <!-- Page Header -->
 3 |       <!-- Set your background image for this header on the line below. -->
 4 |       <header class="intro-header" style="background-image: url('{{static}}/img/home-bg.jpg')">
 5 |         <div class="container">
 6 |           <div class="row">
 7 |             <div class="col-lg-8 col-lg-offset-2 col-md-10 col-md-offset-1">
 8 |               <div class="site-heading">
 9 |                 <h1>{{title}}</h1>
10 |                 <hr class="small">
11 |                 <span class="subheading">{{subtitle}}</span>
12 |               </div>
13 |             </div>
14 |           </div>
15 |         </div>
16 |       </header>
17 | 
18 |       <!-- Main Content -->
19 |       <div class="container">
20 |         <div class="row">
21 |           <div class="col-lg-8 col-lg-offset-2 col-md-10 col-md-offset-1">
22 |             {{#posts}}
23 |             <div class="post-preview">
24 |               <a href="{{href}}">
25 |                 <h2 class="post-title">
26 |                   {{title}}
27 |                 </h2>
28 |                 <h3 class="post-subtitle">
29 |                   {{subtitle}}
30 |                 </h3>
31 |               </a>
32 |               <p class="post-meta">{{attribution}}</p>
33 |             </div>
34 |             <hr>
35 |             {{/posts}}
36 |             <!-- Pager -->
37 | <!-- not currently suported
38 |             <ul class="pager">
39 |               <li class="next">
40 |                 <a href="#">Older Posts &rarr;</a>
41 |               </li>
42 |             </ul>
43 | -->
44 |           </div>
45 |         </div>
46 |       </div>
47 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/clean-blog/html/page.html.mustache:
--------------------------------------------------------------------------------
  1 | <!DOCTYPE html>
  2 | <html lang="en">
  3 |   <head>
  4 |     {{=<< >>=}}
  5 |       <meta charset="utf-8">
  6 |       <meta http-equiv="X-UA-Compatible" content="IE=edge">
  7 |       <meta name="viewport" content="width=device-width, initial-scale=1">
  8 |       <meta name="description" content="">
  9 |       <meta name="author" content="">
 10 | 
 11 |       <title>{{title}}</title>
 12 | 
 13 |       <!-- Bootstrap Core CSS -->
 14 |       <link href="/bootstrap/css/bootstrap.min.css" rel="stylesheet">
 15 | 
 16 |       <!-- Custom CSS -->
 17 |       <link href="/css/clean-blog.css" rel="stylesheet">
 18 | 
 19 |       <!-- Custom Fonts -->
 20 |       <link href="http://maxcdn.bootstrapcdn.com/font-awesome/4.1.0/css/font-awesome.min.css" rel="stylesheet" type="text/css">
 21 |       <link href='http://fonts.googleapis.com/css?family=Lora:400,700,400italic,700italic' rel='stylesheet' type='text/css'>
 22 |       <link href='http://fonts.googleapis.com/css?family=Open+Sans:300italic,400italic,600italic,700italic,800italic,400,300,600,700,800' rel='stylesheet' type='text/css'>
 23 | 
 24 |       <!-- HTML5 Shim and Respond.js IE8 support of HTML5 elements and media queries -->
 25 |       <!-- WARNING: Respond.js doesn't work if you view the page via file:// -->
 26 |       <!--[if lt IE 9]>
 27 |           <script src="https://oss.maxcdn.com/libs/html5shiv/3.7.0/html5shiv.js"></script>
 28 |           <script src="https://oss.maxcdn.com/libs/respond.js/1.4.2/respond.min.js"></script>
 29 |           <![endif]-->
 30 | 
 31 |   </head>
 32 | 
 33 |   <body>
 34 | 
 35 |     <!-- Navigation -->
 36 |     <nav class="navbar navbar-default navbar-custom navbar-fixed-top">
 37 |       <div class="container-fluid">
 38 |         <!-- Brand and toggle get grouped for better mobile display -->
 39 |         <div class="navbar-header page-scroll">
 40 |           <button type="button" class="navbar-toggle" data-toggle="collapse" data-target="#bs-example-navbar-collapse-1">
 41 |             <span class="sr-only">Toggle navigation</span>
 42 |             <span class="icon-bar"></span>
 43 |             <span class="icon-bar"></span>
 44 |             <span class="icon-bar"></span>
 45 |           </button>
 46 |           <a class="navbar-brand" href="{{home}}">{{brand-title}}</a>
 47 |         </div>
 48 | 
 49 |         <!-- Collect the nav links, forms, and other content for toggling -->
 50 |         <div class="collapse navbar-collapse" id="bs-example-navbar-collapse-1">
 51 |           <ul class="nav navbar-nav navbar-right">
 52 |             {{#links}}
 53 |             <li>
 54 |               <a href="{{about}}">About</a>
 55 |             </li>
 56 |             {{/links}}
 57 |           </ul>
 58 |         </div>
 59 |         <!-- /.navbar-collapse -->
 60 |       </div>
 61 |       <!-- /.container -->
 62 |     </nav>
 63 | 
 64 |     {{{content}}}
 65 | 
 66 |     <!--
 67 |         <hr>
 68 |         -->
 69 | 
 70 |     <!-- Footer -->
 71 |     <footer>
 72 |       <div class="container">
 73 |         <div class="row">
 74 |           <div class="col-lg-8 col-lg-offset-2 col-md-10 col-md-offset-1">
 75 |             <ul class="list-inline text-center">
 76 |               <li>
 77 |                 <a href="#">
 78 |                   <span class="fa-stack fa-lg">
 79 |                     <i class="fa fa-circle fa-stack-2x"></i>
 80 |                     <i class="fa fa-twitter fa-stack-1x fa-inverse"></i>
 81 |                   </span>
 82 |                 </a>
 83 |               </li>
 84 |               <li>
 85 |                 <a href="#">
 86 |                   <span class="fa-stack fa-lg">
 87 |                     <i class="fa fa-circle fa-stack-2x"></i>
 88 |                     <i class="fa fa-facebook fa-stack-1x fa-inverse"></i>
 89 |                   </span>
 90 |                 </a>
 91 |               </li>
 92 |               <li>
 93 |                 <a href="#">
 94 |                   <span class="fa-stack fa-lg">
 95 |                     <i class="fa fa-circle fa-stack-2x"></i>
 96 |                     <i class="fa fa-github fa-stack-1x fa-inverse"></i>
 97 |                   </span>
 98 |                 </a>
 99 |               </li>
100 |             </ul>
101 |             <p class="copyright text-muted">Copyright &copy; <<author>> <<year>></p>
102 |           </div>
103 |         </div>
104 |       </div>
105 |     </footer>
106 | 
107 |     <!-- jQuery -->
108 |     <script src="/jquery/jquery.min.js"></script>
109 | 
110 |     <!-- Bootstrap Core JavaScript -->
111 |     <script src="/bootstrap/js/bootstrap.min.js"></script>
112 | 
113 |     <!-- Custom Theme JavaScript -->
114 |     <script src="{{static}}/js/clean-blog.min.js"></script>
115 | 
116 |   </body>
117 | 
118 | </html>
119 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/clean-blog/html/post.html.mustache:
--------------------------------------------------------------------------------
 1 | {{=<< >>=}}
 2 |   <!-- Page Header -->
 3 | 
 4 |   <!-- Set your background image for this header on the line below. -->
 5 |   <header class="intro-header" style="background-image: url('{{static}}/img/post-bg.jpg')">
 6 |     <div class="container">
 7 |       <div class="row">
 8 |         <div class="col-lg-8 col-lg-offset-2 col-md-10 col-md-offset-1">
 9 |           <div class="post-heading">
10 |             <h1>{{title}}</h1>
11 |             <h2 class="subheading">{{subtitle}}</h2>
12 |             <span class="meta">{{attribution}}</span>
13 |           </div>
14 |         </div>
15 |       </div>
16 |     </div>
17 |   </header>
18 | 
19 |   <!-- Post Content -->
20 |   <article>
21 |     <div class="container">
22 |       <div class="row">
23 |         <div class="col-lg-8 col-lg-offset-2 col-md-10 col-md-offset-1">
24 |           {{{body}}}
25 |         </div>
26 |       </div>
27 |     </div>
28 |   </article>
29 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/clean-blog/img/about-bg.jpg:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/juxt/modular/850e8683a9159a9d65096b5259f4339c19ffea8e/lein-template/src/leiningen/new/modular/clean-blog/img/about-bg.jpg


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/clean-blog/img/home-bg.jpg:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/juxt/modular/850e8683a9159a9d65096b5259f4339c19ffea8e/lein-template/src/leiningen/new/modular/clean-blog/img/home-bg.jpg


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/clean-blog/img/post-bg.jpg:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/juxt/modular/850e8683a9159a9d65096b5259f4339c19ffea8e/lein-template/src/leiningen/new/modular/clean-blog/img/post-bg.jpg


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/clean-blog/img/post-sample-image.jpg:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/juxt/modular/850e8683a9159a9d65096b5259f4339c19ffea8e/lein-template/src/leiningen/new/modular/clean-blog/img/post-sample-image.jpg


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/clean-blog/less/mixins.less:
--------------------------------------------------------------------------------
 1 | // Mixins
 2 | 
 3 | .transition-all() {
 4 |     -webkit-transition: all 0.5s;
 5 |     -moz-transition: all 0.5s;
 6 |     transition: all 0.5s;
 7 | }
 8 | 
 9 | .background-cover() {
10 |     -webkit-background-size: cover;
11 |     -moz-background-size: cover;
12 |     background-size: cover;
13 |     -o-background-size: cover;
14 | }
15 | 
16 | .serif() {
17 | 	font-family: 'Lora', 'Times New Roman', serif;
18 | }
19 | 
20 | .sans-serif () {
21 | 	font-family: 'Open Sans', 'Helvetica Neue', Helvetica, Arial, sans-serif;
22 | }


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/clean-blog/less/variables.less:
--------------------------------------------------------------------------------
1 | // Variables
2 | 
3 | @brand-primary: #0085A1;
4 | @gray-dark: lighten(black, 25%);
5 | @gray: lighten(black, 50%);
6 | @white-faded: fade(white, 80%);
7 | @gray-light: #eee;


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/clean-blog/pages.clj:
--------------------------------------------------------------------------------
  1 | (ns {{name}}.pages
  2 |   (:require
  3 |    [clojure.java.io :as io]
  4 |    [clojure.pprint :refer (pprint)]
  5 |    [clojure.string :as string]
  6 |    [clojure.tools.logging :refer :all]
  7 |    [bidi.bidi :as bidi :refer (tag RouteProvider)]
  8 |    [bidi.ring :refer (redirect)]
  9 |    [clj-time.coerce :refer (to-long)]
 10 |    [clj-time.format :refer (parse unparse formatter)
 11 |                     :rename {parse parse-date
 12 |                              unparse unparse-date
 13 |                              formatter date-format}]
 14 |    [com.stuartsierra.component :refer (using)]
 15 |    [endophile.core :refer (mp to-clj html-string)]
 16 |    [hiccup.core :refer (html)]
 17 |    [modular.bidi :refer (as-request-handler path-for)]
 18 |    [modular.component.co-dependency :refer (co-using)]
 19 |    [modular.ring :refer (WebRequestHandler)]
 20 |    [modular.template :refer (render-template template-model)]
 21 |    [ring.util.response :refer (response)]
 22 |    [schema.core :as s]
 23 |    ))
 24 | 
 25 | (defn page [{:keys [templater *router title]} content-template data req]
 26 |   (let [static (path-for @*router :web-resources)]
 27 |     (response
 28 |      (render-template
 29 |       templater
 30 |       "templates/page.html.mustache" ; our Mustache template
 31 |       {:brand-title title
 32 |        :title (:title data)
 33 |        :static static
 34 |        :links {:about (path-for @*router ::about)}
 35 |        :home (path-for @*router ::index) ; href to home page
 36 |        :content (render-template templater
 37 |                                  (str "templates/" content-template)
 38 |                                  (assoc data :static static))}))))
 39 | 
 40 | (defn process-html [*router s]
 41 |   (let [static (path-for @*router :web-resources)]
 42 |     (clojure.walk/postwalk
 43 |      (fn [x]
 44 |        (cond
 45 |          (= :img (:tag x)) (update-in x [:attrs :src] #(str static %))
 46 |          :else x)) s)))
 47 | 
 48 | (defn format-date [s]
 49 |   (when s
 50 |     (unparse-date (date-format "EEEE, d MMMM, y") s)))
 51 | 
 52 | (defn get-post [post *router]
 53 |   "Get the data associated with a post, including a delayed
 54 |   body (as :body). Router can be nil, for testing, but will result in
 55 |   nil hrefs being generated"
 56 |   (let [regex #"(\w+):\s+(.*)"
 57 |         extract-meta
 58 |         (fn [s]
 59 |           (->> s
 60 |             (keep (fn [line]
 61 |                     (when-let [[_ k v]
 62 |                                (re-matches regex line)]
 63 |                       (let [k (keyword (.toLowerCase k))]
 64 |                         [k ((case k :date parse-date identity) v)]))))
 65 |             (into {})))]
 66 |     (let [doc (group-by #(some? (re-matches regex %)) (line-seq (io/reader (io/file "posts" (str post ".md")))))]
 67 |       (let [{:keys [author date] :as meta} (extract-meta (get doc true))]
 68 |         (merge
 69 |          {:title "" :subtitle ""} ; blank out similar keys in main document
 70 |          meta
 71 |          (when (or author date)
 72 |            {:attribution (format "Posted%s%s"
 73 |                                  (if author (format " by %s" author) "")
 74 |                                  (if date (format " on %s" (format-date date)) ""))})
 75 |          {:href (when *router (path-for @*router ::post :post post))
 76 |           :body (->> (get doc false)
 77 |                   (interpose \newline)
 78 |                   (apply str) mp to-clj (process-html *router) html-string delay)})))))
 79 | 
 80 | (defn get-posts [*router]
 81 |   (sort-by (comp (fnil to-long 0) :date) >
 82 |            (for [f (.listFiles (io/file "posts"))
 83 |                  :let [post (second (re-matches #"(.*).md" (.getName f)))]]
 84 |              (get-post post *router))))
 85 | 
 86 | (defn index [{:keys [title subtitle *router] :as this} req]
 87 |   (page this "index.html.mustache"
 88 |         {:title title
 89 |          :subtitle subtitle
 90 |          :posts (get-posts *router)}
 91 |         req))
 92 | 
 93 | (defn post [{:keys [*router] :as this} req]
 94 |   (let [post (get-post (-> req :route-params :post) *router)]
 95 |     (page this "post.html.mustache"
 96 |           (-> post
 97 |             (update-in [:body] deref))
 98 |           req)))
 99 | 
100 | (defrecord Pages [title subtitle templater *router cljs-builder]
101 |   RouteProvider
102 |   (routes [component]
103 |     ["/myblog"
104 |      [["/index.html"
105 |        (-> (fn [req] (index component req))
106 |            (tag ::index))]
107 | 
108 |       [["/posts/" :post ".html"]
109 |        (-> (fn [req] (post component req))
110 |            (tag ::post))]
111 | 
112 |       ["/about.html"
113 |        (-> (fn [req] (page component "about.html.mustache" {} req))
114 |            (tag ::about))]
115 | 
116 |       [(bidi/alts "" "/")
117 |        (redirect ::index)]]]))
118 | 
119 | ;; While not mandatory, it is common to use a function to construct an
120 | ;; instance of the component. This affords the opportunity to control
121 | ;; the construction with parameters, provide defaults and declare
122 | ;; dependency relationships with other components.
123 | 
124 | (defn new-pages [& {:as opts}]
125 |   (-> (->> opts
126 |         (merge {:title "default title here"
127 |                 :subtitle "default subtitle here"})
128 |         (s/validate {:title s/Str
129 |                      :subtitle s/Str})
130 |         map->Pages)
131 |     (using [:templater])
132 |     (co-using [:router])))
133 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/clean-blog/posts/explore.md:
--------------------------------------------------------------------------------
 1 | Title: Man must explore, and this is exploration at its greatest
 2 | Subtitle: Problems look mighty small from 150 miles up
 3 | Date: 2014-11-10
 4 | 
 5 | Never in all their history have men been able truly to conceive of the
 6 | world as one: a single sphere, a globe, having the qualities of a globe,
 7 | a round earth in which all the directions eventually meet, in which
 8 | there is no center because every point, or none, is center — an equal
 9 | earth which all men occupy as equals. The airman's earth, if free men
10 | make it, will be truly round: a globe in practice, not in theory.
11 | 
12 | Science cuts two ways, of course; its products can be used for both good
13 | and evil. But there's no turning back from science. The early warnings
14 | about technological dangers also come from science.
15 | 
16 | What was most significant about the lunar voyage was not that man set
17 | foot on the Moon but that they set eye on the earth.
18 | 
19 | A Chinese tale tells of some men sent to harm a young girl who, upon
20 | seeing her beauty, become her protectors rather than her
21 | violators. That's how I felt seeing the Earth for the first time. I
22 | could not help but love and cherish her.
23 | 
24 | For those who have seen the Earth from space, and for the hundreds and
25 | perhaps thousands more who will, the experience most certainly changes
26 | your perspective. The things that we share in our world are far more
27 | valuable than those which divide us.
28 | 
29 | ## The Final Frontier
30 | 
31 | There can be no thought of finishing for ‘aiming for the stars.’ Both
32 | figuratively and literally, it is a task to occupy the generations. And
33 | no matter how much progress one makes, there is always the thrill of
34 | just beginning.
35 | 
36 | There can be no thought of finishing for ‘aiming for the stars.’ Both
37 | figuratively and literally, it is a task to occupy the generations. And
38 | no matter how much progress one makes, there is always the thrill of
39 | just beginning.
40 | 
41 | > The dreams of yesterday are the hopes of today and the reality of
42 | > tomorrow. Science has not yet mastered prophecy. We predict too much
43 | > for the next year and yet far too little for the next ten.
44 | 
45 | Spaceflights cannot be stopped. This is not the work of any one man or
46 | even a group of men. It is a historical process which mankind is
47 | carrying out in accordance with the natural laws of human development.
48 | 
49 | ## Reaching for the Stars
50 | 
51 | As we got further and further away, it [the Earth] diminished in
52 | size. Finally it shrank to the size of a marble, the most beautiful you
53 | can imagine. That beautiful, warm, living object looked so fragile, so
54 | delicate, that if you touched it with a finger it would crumble and fall
55 | apart. Seeing this has to change a man.
56 | 
57 | ![image](img/post-sample-image.jpg)
58 | 
59 | To go places and do things that have never been done before – that’s
60 | what living is all about.
61 | 
62 | Space, the final frontier. These are the voyages of the Starship
63 | Enterprise. Its five-year mission: to explore strange new worlds, to
64 | seek out new life and new civilizations, to boldly go where no man has
65 | gone before.
66 | 
67 | As I stand out here in the wonders of the unknown at Hadley, I sort of
68 | realize there’s a fundamental truth to our nature, Man must explore, and
69 | this is exploration at its greatest.
70 | 
71 | Placeholder text by [Space Ipsum](http://spaceipsum.com/). Photographs
72 | by [NASA on The Commons](https://www.flickr.com/photos/nasacommons/).
73 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/clean-blog/posts/failure.md:
--------------------------------------------------------------------------------
1 | Title: Failure is not an option
2 | Subtitle: Many say exploration is part of our destiny, but it’s actually our duty to future generations.
3 | Date: 2013-01-05
4 | Author: {{author}}
5 | 
6 | Failure is not an option
7 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/clean-blog/posts/human.md:
--------------------------------------------------------------------------------
1 | Title: I believe every human has a finite number of heartbeats. I don't intend to waste any of mine.
2 | Author: {{author}}
3 | 
4 | Lorem Ipsum is simply dummy text of the printing and typesetting industry. Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type and scrambled it to make a type specimen book. It has survived not only five centuries, but also the leap into electronic typesetting, remaining essentially unchanged. It was popularised in the 1960s with the release of Letraset sheets containing Lorem Ipsum passages, and more recently with desktop publishing software like Aldus PageMaker including versions of Lorem Ipsum.
5 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/clean-blog/posts/science.md:
--------------------------------------------------------------------------------
1 | Title: Science has not yet mastered prophecy
2 | Subtitle: We predict too much for the next year and yet far too little for the next ten.
3 | Date: 2013-08-30
4 | Author: {{author}}
5 | 
6 | We love science, science is great!
7 | 
8 | Contrary to popular belief, Lorem Ipsum is not simply random text. It has roots in a piece of classical Latin literature from 45 BC, making it over 2000 years old. Richard McClintock, a Latin professor at Hampden-Sydney College in Virginia, looked up one of the more obscure Latin words, consectetur, from a Lorem Ipsum passage, and going through the cites of the word in classical literature, discovered the undoubtable source. Lorem Ipsum comes from sections 1.10.32 and 1.10.33 of "de Finibus Bonorum et Malorum" (The Extremes of Good and Evil) by Cicero, written in 45 BC. This book is a treatise on the theory of ethics, very popular during the Renaissance. The first line of Lorem Ipsum, "Lorem ipsum dolor sit amet..", comes from a line in section 1.10.32.
9 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/core.cljs:
--------------------------------------------------------------------------------
 1 | (ns {{name}}.core
 2 |     (:require
 3 |      [om.core :as om :include-macros true]
 4 |      [sablono.core :as html :refer-macros [html]]))
 5 | 
 6 | (enable-console-print!)
 7 | 
 8 | (println "{{name}}.core loaded")
 9 | 
10 | (def model
11 |   (atom
12 |    {:sidebar
13 |     [{:label "Overview"}
14 |      {:label "Reports"}
15 |      {:label "Analytics"}
16 |      {:label "Export"}]}))
17 | 
18 | (defn dashboard [app owner]
19 |   (reify
20 |     om/IRender
21 |     (render [_]
22 |       (html
23 |        [:p "dashboard rendered!"]))))
24 | 
25 | 
26 | (defn ^:export main []
27 |   (println "Calling main!")
28 |   (om/root dashboard model {:target (.getElementById js/document "content")}))
29 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/custom-less/custom-bootstrap.less:
--------------------------------------------------------------------------------
1 | @import "/bootstrap/less/bootstrap.less";
2 | @import "custom-variables.less";
3 | @import "custom-other.less";
4 | @import "/bootstrap/less/utilities.less";


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/custom-less/custom-other.less:
--------------------------------------------------------------------------------
  1 | /*
  2 |  * Base structure
  3 |  */
  4 | 
  5 | /* Move down content because we have a fixed navbar that is 50px tall */
  6 | body {
  7 |   padding-top: 50px;
  8 | }
  9 | 
 10 | 
 11 | /*
 12 |  * Global add-ons
 13 |  */
 14 | 
 15 | .sub-header {
 16 |   padding-bottom: 10px;
 17 |   border-bottom: 1px solid #eee;
 18 | }
 19 | 
 20 | /*
 21 |  * Top navigation
 22 |  * Hide default border to remove 1px line.
 23 |  */
 24 | .navbar-fixed-top {
 25 |   border: 0;
 26 | }
 27 | 
 28 | #navbar .form-control {
 29 |     margin-bottom: 0;
 30 | }
 31 | 
 32 | /*
 33 |  * Sidebar
 34 |  */
 35 | 
 36 | /* Hide for mobile, show later */
 37 | .sidebar {
 38 |   display: none;
 39 | }
 40 | @media (min-width: 768px) {
 41 |   .sidebar {
 42 |     position: fixed;
 43 |     top: 51px;
 44 |     bottom: 0;
 45 |     left: 0;
 46 |     z-index: 1000;
 47 |     display: block;
 48 |     padding: 20px;
 49 |     overflow-x: hidden;
 50 |     overflow-y: auto; /* Scrollable contents if viewport is shorter than content. */
 51 |     background-color: #f5f5f5;
 52 |     border-right: 1px solid #eee;
 53 |   }
 54 | }
 55 | 
 56 | /* Sidebar navigation */
 57 | .nav-sidebar {
 58 |   margin-right: -21px; /* 20px padding + 1px border */
 59 |   margin-bottom: 20px;
 60 |   margin-left: -20px;
 61 | }
 62 | .nav-sidebar > li > a {
 63 |   padding-right: 20px;
 64 |   padding-left: 20px;
 65 | }
 66 | .nav-sidebar > .active > a,
 67 | .nav-sidebar > .active > a:hover,
 68 | .nav-sidebar > .active > a:focus {
 69 |   color: #fff;
 70 |   background-color: @brand-primary;
 71 | }
 72 | 
 73 | 
 74 | /*
 75 |  * Main content
 76 |  */
 77 | 
 78 | .main {
 79 |   padding: 20px;
 80 | }
 81 | @media (min-width: 768px) {
 82 |   .main {
 83 |     padding-right: 40px;
 84 |     padding-left: 40px;
 85 |   }
 86 | }
 87 | .main .page-header {
 88 |   margin-top: 0;
 89 | }
 90 | 
 91 | 
 92 | /*
 93 |  * Placeholder dashboard ideas
 94 |  */
 95 | 
 96 | .placeholders {
 97 |   margin-bottom: 30px;
 98 |   text-align: center;
 99 | }
100 | .placeholders h4 {
101 |   margin-bottom: 0;
102 | }
103 | .placeholder {
104 |   margin-bottom: 20px;
105 | }
106 | .placeholder img {
107 |   display: inline-block;
108 |   border-radius: 50%;
109 | }
110 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/custom-less/custom-variables.less:
--------------------------------------------------------------------------------
1 | @brand-primary:         #aa0000;
2 | @font-family-sans-serif:  "Proxima Nova Regular", "Segoe UI", Roboto, "Droid Sans", "Helvetica Neue", Arial, sans-serif;
3 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/dashboard/README.md:
--------------------------------------------------------------------------------
 1 | # {{name}}
 2 | 
 3 | A Clojure application for ...
 4 | 
 5 | ## Usage
 6 | 
 7 | To run the application, install [Leiningen](http://leiningen.org/) and type
 8 | 
 9 | ```
10 | lein run
11 | ```
12 | 
13 | ## Development
14 | 
15 | For rapid development, use the REPL from the command line or via your
16 | favorite code editor.
17 | 
18 | ```
19 | lein repl
20 | user> (dev)
21 | dev> (go)
22 | ```
23 | 
24 | After making code changes, reset your application's state (causing all
25 | your modifications to be reloaded too).
26 | 
27 | ```
28 | dev> (reset)
29 | ```
30 | 
31 | Rinse and repeat.
32 | 
33 | ## Copyright and License
34 | 
35 | The MIT License (MIT)
36 | 
37 | Copyright © {{year}} {{author}}
38 | 
39 | Permission is hereby granted, free of charge, to any person obtaining a copy of
40 | this software and associated documentation files (the "Software"), to deal in
41 | the Software without restriction, including without limitation the rights to
42 | use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
43 | the Software, and to permit persons to whom the Software is furnished to do so,
44 | subject to the following conditions:
45 | 
46 | The above copyright notice and this permission notice shall be included in all
47 | copies or substantial portions of the Software.
48 | 
49 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
50 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
51 | FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
52 | COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
53 | IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
54 | CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
55 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/dashboard/dashboard.css:
--------------------------------------------------------------------------------
  1 | /*
  2 |  * Base structure
  3 |  */
  4 | 
  5 | /* Move down content because we have a fixed navbar that is 50px tall */
  6 | body {
  7 |   padding-top: 50px;
  8 | }
  9 | 
 10 | 
 11 | /*
 12 |  * Global add-ons
 13 |  */
 14 | 
 15 | .sub-header {
 16 |   padding-bottom: 10px;
 17 |   border-bottom: 1px solid #eee;
 18 | }
 19 | 
 20 | /*
 21 |  * Top navigation
 22 |  * Hide default border to remove 1px line.
 23 |  */
 24 | .navbar-fixed-top {
 25 |   border: 0;
 26 | }
 27 | 
 28 | /*
 29 |  * Sidebar
 30 |  */
 31 | 
 32 | /* Hide for mobile, show later */
 33 | .sidebar {
 34 |   display: none;
 35 | }
 36 | @media (min-width: 768px) {
 37 |   .sidebar {
 38 |     position: fixed;
 39 |     top: 51px;
 40 |     bottom: 0;
 41 |     left: 0;
 42 |     z-index: 1000;
 43 |     display: block;
 44 |     padding: 20px;
 45 |     overflow-x: hidden;
 46 |     overflow-y: auto; /* Scrollable contents if viewport is shorter than content. */
 47 |     background-color: #f5f5f5;
 48 |     border-right: 1px solid #eee;
 49 |   }
 50 | }
 51 | 
 52 | /* Sidebar navigation */
 53 | .nav-sidebar {
 54 |   margin-right: -21px; /* 20px padding + 1px border */
 55 |   margin-bottom: 20px;
 56 |   margin-left: -20px;
 57 | }
 58 | .nav-sidebar > li > a {
 59 |   padding-right: 20px;
 60 |   padding-left: 20px;
 61 | }
 62 | .nav-sidebar > .active > a,
 63 | .nav-sidebar > .active > a:hover,
 64 | .nav-sidebar > .active > a:focus {
 65 |   color: #fff;
 66 |   background-color: #428bca;
 67 | }
 68 | 
 69 | 
 70 | /*
 71 |  * Main content
 72 |  */
 73 | 
 74 | .main {
 75 |   padding: 20px;
 76 | }
 77 | @media (min-width: 768px) {
 78 |   .main {
 79 |     padding-right: 40px;
 80 |     padding-left: 40px;
 81 |   }
 82 | }
 83 | .main .page-header {
 84 |   margin-top: 0;
 85 | }
 86 | 
 87 | 
 88 | /*
 89 |  * Placeholder dashboard ideas
 90 |  */
 91 | 
 92 | .placeholders {
 93 |   margin-bottom: 30px;
 94 |   text-align: center;
 95 | }
 96 | .placeholders h4 {
 97 |   margin-bottom: 0;
 98 | }
 99 | .placeholder {
100 |   margin-bottom: 20px;
101 | }
102 | .placeholder img {
103 |   display: inline-block;
104 |   border-radius: 50%;
105 | }
106 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/dashboard/website.clj:
--------------------------------------------------------------------------------
 1 | (ns {{name}}.website
 2 |   (:require
 3 |    [bidi.bidi :refer (RouteProvider tag)]
 4 |    [bidi.ring :refer (redirect)]
 5 |    [clojure.pprint :refer (pprint)]
 6 |    [clojure.tools.logging :refer :all]
 7 |    [com.stuartsierra.component :refer (using)]
 8 |    [hiccup.core :as hiccup]
 9 |    [modular.component.co-dependency :refer (co-using)]
10 |    [modular.bidi :refer (as-request-handler path-for)]
11 |    [modular.ring :refer (WebRequestHandler)]
12 |    [modular.template :refer (render-template template-model)]
13 |    [modular.cljs :refer (get-javascript-paths)]
14 |    [ring.util.response :refer (response)]))
15 | 
16 | (defn page [{:keys [templater *router cljs-builder]} req]
17 |   (response
18 |    (render-template
19 |     templater
20 |     "templates/dashboard.html.mustache" ; our Mustache template
21 |     {:javascripts (get-javascript-paths cljs-builder)})))
22 | 
23 | ;; Components are defined using defrecord.
24 | 
25 | (defrecord Website [templater *router cljs-builder]
26 | 
27 |   ;; modular.bidi provides a router which dispatches to routes provided
28 |   ;; by components that satisfy its RouteProvider protocol
29 |   RouteProvider
30 |   (routes [component]
31 |     ;; All paths lead to the dashboard
32 |     ["/" [["dashboard/"
33 |            (-> (fn [req] (page component req)) (tag ::dashboard))]
34 | 
35 |           ;; You cannot redirect to a target that requires a parameter
36 |           [["dashboard/" [#".*" :path]]
37 |            (-> (fn [req] (page component req)) (tag ::dashboard))]
38 | 
39 |           ["" (redirect ::dashboard)]]]))
40 | 
41 | ;; While not mandatory, it is common to use a function to construct an
42 | ;; instance of the component. This affords the opportunity to control
43 | ;; the construction with parameters, provide defaults and declare
44 | ;; dependency relationships with other components.
45 | 
46 | (defn new-website []
47 |   (-> (map->Website {})
48 |       (using [:templater :cljs-builder])
49 |       (co-using [:router])))
50 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/dev.clj:
--------------------------------------------------------------------------------
 1 | (ns dev
 2 |   (:require
 3 |    [clojure.pprint :refer (pprint)]
 4 |    [clojure.reflect :refer (reflect)]
 5 |    [clojure.repl :refer (apropos dir doc find-doc pst source)]
 6 |    [clojure.tools.namespace.repl :refer (refresh refresh-all)]
 7 |    [clojure.java.io :as io]
 8 |    [com.stuartsierra.component :as component]
 9 |    [schema.core :as s]
10 |    {{#module?.co-dependency}}
11 |    [modular.component.co-dependency :as co-dependency]
12 |    {{/module?.co-dependency}}
13 |    [{{name}}.system :refer (config new-system-map new-dependency-map new-co-dependency-map)]
14 |    {{#dev-refers}}
15 |    [{{namespace}} :refer ({{{refers}}})]
16 |    {{/dev-refers}}))
17 | 
18 | (def system nil)
19 | 
20 | (defn new-dev-system
21 |   "Create a development system"
22 |   []
23 |   (let [config (config)
24 |         s-map (->
25 |                (new-system-map config))]
26 |     (-> s-map
27 |         (component/system-using (new-dependency-map))
28 |         {{#module?.co-dependency}}
29 |         (co-dependency/system-co-using (new-co-dependency-map))
30 |         {{/module?.co-dependency}}
31 |         )))
32 | 
33 | (defn init
34 |   "Constructs the current development system."
35 |   []
36 |   (alter-var-root #'system
37 |     (constantly (new-dev-system))))
38 | 
39 | (defn check
40 |   "Check for component validation errors"
41 |   []
42 |   (let [errors
43 |         (->> system
44 |              (reduce-kv
45 |               (fn [acc k v]
46 |                 (assoc acc k (s/check (type v) v)))
47 |               {})
48 |              (filter (comp some? second)))]
49 | 
50 |     (when (seq errors) (into {} errors))))
51 | 
52 | (defn start
53 |   "Starts the current development system."
54 |   []
55 |   (alter-var-root
56 |    #'system
57 |    {{#module?.co-dependency}}
58 |    co-dependency/start-system
59 |    {{/module?.co-dependency}}
60 |    {{^module?.co-dependency}}
61 |    component/start
62 |    {{/module?.co-dependency}})
63 |   (when-let [errors (check)] (println "System integrity errors:" errors)))
64 | 
65 | (defn stop
66 |   "Shuts down and destroys the current development system."
67 |   []
68 |   (alter-var-root #'system
69 |                   (fn [s] (when s (component/stop s)))))
70 | 
71 | (defn go
72 |   "Initializes the current development system and starts it running."
73 |   []
74 |   (init)
75 |   (start)
76 |   :ok
77 |   )
78 | 
79 | (defn reset []
80 |   (stop)
81 |   (refresh :after 'dev/go))
82 | 
83 | ;; REPL Convenience helpers
84 | 
85 | {{{dev-snippets}}}
86 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/dev/cylon/user.clj:
--------------------------------------------------------------------------------
1 | (require
2 |  '[cylon.user :refer (create-user! hash-password)])
3 | 
4 | (defn add-user []
5 |   (create-user!
6 |    (-> system :cylon-user-store)
7 |    {:email "malcolm@congreve.com"
8 |     :password (hash-password (-> system :cylon-buddy-user-authenticator) "foobar")}))
9 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/dev/routes.clj:
--------------------------------------------------------------------------------
 1 | (require 'bidi.bidi
 2 |          'modular.bidi)
 3 | 
 4 | (defn routes []
 5 |   (-> system :modular-bidi-router-webrouter :routes))
 6 | 
 7 | (defn match-route [path]
 8 |   (bidi.bidi/match-route (routes) path))
 9 | 
10 | (defn path-for [path & args]
11 |   (apply modular.bidi/path-for
12 |          (-> system :modular-bidi-router-webrouter) path args))
13 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/dev_components.clj:
--------------------------------------------------------------------------------
 1 | (ns dev-components
 2 |   (:require
 3 |    [com.stuartsierra.component :refer (Lifecycle using)]
 4 |    [schema.core :as s]
 5 |    [plumbing.core :refer (<-)]))
 6 | 
 7 | (defn wrap-schema-validation [h]
 8 |   (fn [req]
 9 |     (s/with-fn-validation
10 |       (h req))))
11 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/example_page.clj:
--------------------------------------------------------------------------------
 1 | (ns {{name}}.example-page
 2 |   (:require
 3 |    [clojure.string :as str]
 4 |    [com.stuartsierra.component :refer (using)]
 5 |    [modular.menu :refer (MenuItems)]
 6 |    [modular.web-template :refer (dynamic-template-data)]
 7 |    [clostache.parser :refer (render-resource)]
 8 |    [plumbing.core :refer (<-)]
 9 |    [schema.core :as s]
10 |    [hiccup.core :refer (html)]))
11 | 
12 | (defrecord ExamplePage [title content key path]
13 |   RouteProvider
14 |   (routes [_]
15 |     ["" {path (handler key
16 |                        (fn [req]
17 |                          {:status 200
18 |                           :body
19 |                           (let [model (dynamic-template-data (:template-model this) req)]
20 |                             (render-resource
21 |                              "templates/page.html.mustache"
22 |                              (assoc model
23 |                                     :content (html [:div.container
24 |                                                     [:div.page-header
25 |                                                      [:h1 title]
26 |                                                      [:p content]]]))))}))}]))
27 | 
28 | (defn new-example-page [& {:as opts}]
29 |   (->> opts
30 |        (merge {:content "Blank"})
31 |        (s/validate {:title s/Str
32 |                     :content s/Str
33 |                     :key s/Keyword
34 |                     :path s/Str})
35 |        map->ExamplePage
36 |        (<- (using [:template-model]))))
37 | 
38 | (defrecord ExamplePageMenuItems [label target order]
39 |   MenuItems
40 |   (menu-items [_] [{:label label :target target :order order}]))
41 | 
42 | (defn new-example-page-menu-items [& {:as opts}]
43 |   (->> opts
44 |        (s/validate {:label s/Str
45 |                     :target s/Keyword})
46 |        map->ExamplePageMenuItems))
47 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/gitignore:
--------------------------------------------------------------------------------
 1 | /target
 2 | /classes
 3 | /checkouts
 4 | pom.xml
 5 | pom.xml.asc
 6 | *.jar
 7 | *.class
 8 | /.lein-*
 9 | /.nrepl-port
10 | .hgignore
11 | .hg/
12 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/hello_world_website.clj:
--------------------------------------------------------------------------------
 1 | (ns {{name}}.hello-world-website
 2 |   (:require
 3 |    [modular.ring :refer (WebRequestHandler)]))
 4 | 
 5 | (defrecord HelloWorldHandler []
 6 |   WebRequestHandler
 7 |   (request-handler [this]
 8 |     (fn [req] {:status 200 :body "Hello, world!"})))
 9 | 
10 | (defn new-handler []
11 |   (->HelloWorldHandler))
12 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/home.html.mustache:
--------------------------------------------------------------------------------
 1 | <div class="container theme-showcase" role="main">
 2 |   <div class="jumbotron">
 3 |     <h1>Congratulations!</h1>
 4 |     <h2>Your modular application is up &amp; running.</h2>
 5 |   </div>
 6 |   <div class="page-header">
 7 |     <h1>Components</h1>
 8 |     <p>Start by looking at <code>{{webmeta.title}}/system.clj</code>
 9 |     which specifies all the components that play a part in this
10 |     application.</p>
11 |   </div>
12 |   <div class="page-header">
13 |     <h1>Menubar</h1>
14 |     <p>See the extensible menubar at the top of this page.</p>
15 |     <p>Some components have already been added for you. Components that
16 |     satisfy <code>modular.menu/MenuItems</code> will be found by
17 |     the <code>module.menu/MenuIndex</code> component. </p>
18 |   </div>
19 | 
20 | </div>
21 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/intro/README.md:
--------------------------------------------------------------------------------
 1 | # {{name}}
 2 | 
 3 | An introduction to Clojure
 4 | 
 5 | ## Usage
 6 | 
 7 | To run the application, install [Leiningen](http://leiningen.org/) and type
 8 | 
 9 | ```
10 | lein run
11 | ```
12 | 
13 | ## Development
14 | 
15 | For rapid development, use the REPL from the command line or via your
16 | favorite code editor.
17 | 
18 | ```
19 | lein repl
20 | user> (dev)
21 | dev> (go)
22 | ```
23 | 
24 | After making code changes, reset your application's state (causing all
25 | your modifications to be reloaded too).
26 | 
27 | ```
28 | dev> (reset)
29 | ```
30 | 
31 | Rinse and repeat.
32 | 
33 | ## Copyright and License
34 | 
35 | The MIT License (MIT)
36 | 
37 | Copyright © {{year}} {{author}}
38 | 
39 | Permission is hereby granted, free of charge, to any person obtaining a copy of
40 | this software and associated documentation files (the "Software"), to deal in
41 | the Software without restriction, including without limitation the rights to
42 | use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
43 | the Software, and to permit persons to whom the Software is furnished to do so,
44 | subject to the following conditions:
45 | 
46 | The above copyright notice and this permission notice shall be included in all
47 | copies or substantial portions of the Software.
48 | 
49 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
50 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
51 | FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
52 | COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
53 | IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
54 | CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
55 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/intro/animals.json:
--------------------------------------------------------------------------------
  1 | [
  2 | "aardvark",
  3 | "albatross",
  4 | "alligator",
  5 | "alpaca",
  6 | "anaconda",
  7 | "ant",
  8 | "anteater",
  9 | "antelope",
 10 | "ape",
 11 | "armadillo",
 12 | "ass",
 13 | "baboon",
 14 | "badger",
 15 | "bandicoot",
 16 | "barracuda",
 17 | "basilisk",
 18 | "bat",
 19 | "bear",
 20 | "beaver",
 21 | "bee",
 22 | "bighorn sheep",
 23 | "bird",
 24 | "bison",
 25 | "black bear",
 26 | "boa constrictor",
 27 | "boar",
 28 | "bobcat",
 29 | "brown bear",
 30 | "buck",
 31 | "budgerigar",
 32 | "buffalo",
 33 | "bull",
 34 | "bunny",
 35 | "burro",
 36 | "butterfly",
 37 | "calf",
 38 | "camel",
 39 | "canary",
 40 | "caribou",
 41 | "cat",
 42 | "caterpillar",
 43 | "catfish",
 44 | "chameleon",
 45 | "chamois",
 46 | "cheetah",
 47 | "chicadee",
 48 | "chick",
 49 | "chicken",
 50 | "chimpanzee",
 51 | "chinchilla",
 52 | "chipmunk",
 53 | "civet",
 54 | "coati",
 55 | "cobra",
 56 | "cockatoo",
 57 | "cockroach",
 58 | "colt",
 59 | "cony",
 60 | "cormorant",
 61 | "cougar",
 62 | "cow",
 63 | "coyote",
 64 | "crab",
 65 | "crane",
 66 | "crocodile",
 67 | "crow",
 68 | "cub",
 69 | "deer",
 70 | "dingo",
 71 | "dodo",
 72 | "doe",
 73 | "dog",
 74 | "dogfish",
 75 | "dolphin",
 76 | "donkey",
 77 | "dormouse",
 78 | "dove",
 79 | "dragonfly",
 80 | "drake",
 81 | "dromedary",
 82 | "duck",
 83 | "duckbill",
 84 | "dugong",
 85 | "eagle",
 86 | "echidna",
 87 | "eel",
 88 | "egret",
 89 | "eland",
 90 | "elephant",
 91 | "elephant seal",
 92 | "elk",
 93 | "emu",
 94 | "ermine",
 95 | "ewe",
 96 | "falcon",
 97 | "fawn",
 98 | "ferret",
 99 | "filly",
100 | "finch",
101 | "fire ant",
102 | "fish",
103 | "flamingo",
104 | "fly",
105 | "foal",
106 | "fox",
107 | "frog",
108 | "gander",
109 | "gazelle",
110 | "gecko",
111 | "gemsbok",
112 | "gerbil",
113 | "gila monster",
114 | "gilla monster",
115 | "giraffe",
116 | "gnu",
117 | "goat",
118 | "goose",
119 | "gopher",
120 | "gorilla",
121 | "grizzly bear",
122 | "ground hog",
123 | "guanaco",
124 | "guinea pig",
125 | "gull",
126 | "hamster",
127 | "hare",
128 | "hartebeest",
129 | "hawk",
130 | "hedgehog",
131 | "hen",
132 | "heron",
133 | "hippopotamus",
134 | "hog",
135 | "hornet",
136 | "horse",
137 | "human",
138 | "hummingbird",
139 | "hyena",
140 | "ibex",
141 | "iguana",
142 | "impala",
143 | "jackal",
144 | "jaguar",
145 | "jellyfish",
146 | "jerboa",
147 | "joey",
148 | "kangaroo",
149 | "kid",
150 | "killer whale",
151 | "kingfisher",
152 | "kinkajou",
153 | "kitten",
154 | "koala",
155 | "komodo dragon",
156 | "lamb",
157 | "lark",
158 | "lemming",
159 | "lemur",
160 | "leopard",
161 | "lion",
162 | "lizard",
163 | "llama",
164 | "lobster",
165 | "locust",
166 | "louse",
167 | "lovebird",
168 | "lynx",
169 | "macaw",
170 | "magpie",
171 | "mallard",
172 | "manatee",
173 | "mandrill",
174 | "manta ray",
175 | "mare",
176 | "marmoset",
177 | "marmot",
178 | "marten",
179 | "meerkat",
180 | "mink",
181 | "mole",
182 | "mongoose",
183 | "monkey",
184 | "moose",
185 | "mosquito",
186 | "mountain goat",
187 | "mountain lion",
188 | "mouse",
189 | "mule",
190 | "mule",
191 | "musk deer",
192 | "musk-ox",
193 | "muskrat",
194 | "mustang",
195 | "mynah bird",
196 | "narwhal",
197 | "newt",
198 | "newt",
199 | "nightingale",
200 | "ocelot",
201 | "octopus",
202 | "okapi",
203 | "opossum",
204 | "orangutan",
205 | "orca",
206 | "oryx",
207 | "osprey",
208 | "ostrich",
209 | "otter",
210 | "owl",
211 | "ox",
212 | "oyster",
213 | "panda",
214 | "panther",
215 | "parakeet",
216 | "parrot",
217 | "partridge",
218 | "peacock",
219 | "peccary",
220 | "pelican",
221 | "penguin",
222 | "pig",
223 | "pigeon",
224 | "piglet",
225 | "platypus",
226 | "polar bear",
227 | "polecat",
228 | "pony",
229 | "porcupine",
230 | "porpoise",
231 | "prairie dog",
232 | "pronghorn",
233 | "pufferfish",
234 | "puffin",
235 | "puma",
236 | "puppy",
237 | "python",
238 | "quail",
239 | "rabbit",
240 | "raccoon",
241 | "ram",
242 | "rat",
243 | "rattlesnake",
244 | "raven",
245 | "reindeer",
246 | "reptile",
247 | "rhinoceros",
248 | "roebuck",
249 | "rooster",
250 | "salamander",
251 | "salmon",
252 | "seahorse",
253 | "seal",
254 | "sea lion",
255 | "seastar",
256 | "shark",
257 | "sheep",
258 | "shrew",
259 | "silver fox",
260 | "skink",
261 | "skunk",
262 | "sloth",
263 | "snail",
264 | "snake",
265 | "sparrow",
266 | "spider",
267 | "spider monkey",
268 | "springbok",
269 | "squid",
270 | "squirrel",
271 | "stag",
272 | "stallion",
273 | "starfish",
274 | "steer",
275 | "sting ray",
276 | "stinkbug",
277 | "stork",
278 | "swallow",
279 | "swan",
280 | "tadpole",
281 | "tapir",
282 | "tern",
283 | "tiger",
284 | "toad",
285 | "tortoise",
286 | "turkey",
287 | "turtle",
288 | "vicuna",
289 | "vulture",
290 | "wallaby",
291 | "wallaroo",
292 | "walrus",
293 | "warthog",
294 | "wasp",
295 | "waterbuck",
296 | "water buffalo",
297 | "weasel",
298 | "whale",
299 | "wildcat",
300 | "wildebeest",
301 | "wolf",
302 | "wolverine",
303 | "wombat",
304 | "woodchuck",
305 | "woodpecker",
306 | "worm",
307 | "yak",
308 | "zebra"
309 | ]


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/intro/index.html.mustache:
--------------------------------------------------------------------------------
 1 | {{=<< >>=}}
 2 | <div class="container">
 3 |   <div class="page-header">
 4 |     <h1>Introduction to Clojure</h1>
 5 |   </div>
 6 |   <div class="footer">
 7 |     <p>This text can be found in <code>resources/templates/index.html.mustache</code></p>
 8 |   </div>
 9 | </div>
10 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/intro/page.html.mustache:
--------------------------------------------------------------------------------
 1 | {{=<< >>=}}
 2 | <!DOCTYPE html>
 3 | <html lang="en">
 4 |   <head>
 5 |     <meta charset="utf-8"/>
 6 |     <meta http-equiv="X-UA-Compatible" content="IE=edge">
 7 |     <meta name="viewport" content="width=device-width, initial-scale=1">
 8 | 
 9 |     <title> << name >> </title>
10 | 
11 |     <!-- Bootstrap core CSS -->
12 |     <link href="/bootstrap/css/bootstrap.min.css" rel="stylesheet">
13 |     <!-- Bootstrap theme -->
14 |     <link href="/bootstrap/css/bootstrap-theme.min.css" rel="stylesheet">
15 | 
16 |     <link href="/static/style.css" rel="stylesheet">
17 | 
18 |     <!-- HTML5 shim, for IE6-8 support of HTML5 elements -->
19 |     <!--[if lt IE 9]>
20 |         <script src="/js/html5shiv.min.js"></script>
21 |         <![endif]-->
22 | 
23 | 
24 |   </head>
25 | 
26 |   <body>
27 | 
28 |     <nav class="navbar navbar-inverse navbar-fixed-top">
29 |       <div class="container">
30 |         <div class="navbar-header">
31 |           <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target=".navbar-collapse">
32 |             <span class="sr-only">Toggle navigation</span>
33 |             <span class="icon-bar"></span>
34 |             <span class="icon-bar"></span>
35 |             <span class="icon-bar"></span>
36 |           </button>
37 |           <a class="navbar-brand" href="/"> << name >> </a>
38 |         </div>
39 | 
40 |         <!-- Collect the nav links, forms, and other content for toggling -->
41 |         <div class="navbar-collapse collapse">
42 |           <ul class="nav navbar-nav">
43 |             {{#menu}}
44 |             <li><a href="{{href}}">{{label}}</a></li>
45 |             {{/menu}}
46 |           </ul>
47 |         </div>
48 |       </div>
49 |     </nav>
50 | 
51 |     <!-- There should be content here -->
52 |     <div class="container">
53 |       {{{content}}}
54 |     </div>
55 | 
56 |     <!-- jQuery (necessary for Bootstrap's JavaScript plugins) -->
57 |     <script src="/jquery/jquery.min.js"></script>
58 | 
59 |     <!-- Include all compiled plugins (below), or include individual files as needed -->
60 |     <script src="/bootstrap/js/bootstrap.min.js"></script>
61 | 
62 |   </body>
63 | </html>
64 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/intro/style.css:
--------------------------------------------------------------------------------
 1 | body {
 2 |     padding-top: 50px;
 3 | }
 4 | 
 5 | p {
 6 |     font-size: 16pt;
 7 | }
 8 | 
 9 | h1 {
10 |     font-size: 24pt;
11 | }
12 | 
13 | h2 {
14 |     font-size: 20pt;
15 | }
16 | 
17 | label {
18 |     min-width: 6em;
19 | }
20 | 
21 | form {
22 |     font-size: 15pt;
23 |     margin: 30px 0;
24 | }
25 | 
26 | form div {
27 |     margin: 10px 0;
28 | }
29 | 
30 | form label {
31 |     padding: 4px;
32 | }
33 | 
34 | form input {
35 |     width: 16.5em;
36 |     margin: 0 1em;
37 |     padding: 2px 4px;
38 | }
39 | 
40 | form input#password {
41 |     width: 8em;
42 | }
43 | 
44 | form input.submit {
45 |     width: 8em;
46 |     /* margin-left is label min-width + input margin */
47 |     margin-left: 7em;
48 | }
49 | 
50 | .footer {
51 |     margin-top: 50px;
52 | }
53 | 
54 | .footer p {
55 |     font-size: 12pt;
56 | }
57 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/intro/weather.csv:
--------------------------------------------------------------------------------
 1 | Id,Report Date / Time,Concrete Temp.,Day of Gales,Soil Temp. (at 10cm),Wet Bulb,Soil Temp. (at 30cm),Max. Temp. (last 24hr),Total Cloud Cover,Wind Gust,Day of Hail,Wind Gust Direction,Present Weather,Ground State,Soil Temp. (at 100cm),Grass Temp.,Sunshine,Day of Snow,Mean Sea-Level Pressure,Pressure (At Station),Relative Humidity ,Weather Diary,Rainfall Accumulation,Visibility,Min. Temp. (last 24hr),Wind Direction,Wind Speed,Air Temperature,Snow Depth,Soil Moisture,Dew Point,Day of Thunder,Rainfall Rate,Flood Impacts,Wind Impacts,Coastal Impacts,Wild Fire Impacts,Land Slide Impacts,Poor Visibility Impacts,Snow Impacts,Ice Impacts,Lightning Impacts,Other Impacts
 2 | ,15/06/2012 15:00,,0,,,,,,,0,202,100 - Cloudless sky (day),,,,1,0,1017,,53,,0,7 - 10km to 19km - Good Visibility,,202,6.9,24.5,0,,14.2,0,,,,,,,,,,,
 3 | ,15/06/2012 14:00,,0,,,,,,,0,180,100 - Cloudless sky (day),,,,1,0,1017,,54,,0,7 - 10km to 19km - Good Visibility,,180,6.9,24.4,0,,14.5,0,,,,,,,,,,,
 4 | ,15/06/2012 13:00,,0,,,,,,,0,225,100 - Cloudless sky (day),,,,1,0,1017,,54,,0.2,7 - 10km to 19km - Good Visibility,,225,6,25.5,0,,15.4,0,,,,,,,,,,,
 5 | ,15/06/2012 12:00,,0,,,,,,,0,180,100 - Cloudless sky (day),,,,1,0,1018,,52,,0,8 - 20km to 39km - Very Good Visibility,,180,2.9,25.9,0,,15.4,0,,,,,,,,,,,
 6 | ,15/06/2012 11:00,,0,,,,,,,0,90,100 - Cloudless sky (day),,,,1,0,1018,,48,,0,8 - 20km to 39km - Very Good Visibility,,90,2.9,24.9,0,,13.1,0,,,,,,,,,,,
 7 | ,15/06/2012 10:00,,0,,,,,,,0,22,100 - Cloudless sky (day),,,,1,0,1018,,51,,0,8 - 20km to 39km - Very Good Visibility,,22,2.9,23.4,0,,12.8,0,,,,,,,,,,,
 8 | ,15/06/2012 09:00,,0,,,,,,,0,67,100 - Cloudless sky (day),,,,1,0,1019,,59,,0,9 - 40km or more - Excellent Visibility,,67,4.9,21.7,0,,13.2,0,,,,,,,,,,,
 9 | ,15/06/2012 08:00,,0,,,,,,,0,45,100 - Cloudless sky (day),,,,0.9,0,1019,,67,,0,9 - 40km or more - Excellent Visibility,,45,2.9,19.3,0,,13,0,,,,,,,,,,,
10 | ,15/06/2012 07:00,,0,,,,,,,0,45,100 - Cloudless sky (day),,,,0,0,1019,,77,,0,9 - 40km or more - Excellent Visibility,,45,2,15.9,0,,11.9,0,,,,,,,,,,,
11 | ,15/06/2012 06:00,,0,,,,,,,0,22,100 - Cloudless sky (day),,,,0,0,1019,,87,,0,8 - 20km to 39km - Very Good Visibility,,22,2.9,13,0,,10.8,0,,,,,,,,,,,
12 | ,15/06/2012 05:00,,0,,,,,,,0,22,100 - Cloudless sky (day),,,,0,0,1019,,86,,0,9 - 40km or more - Excellent Visibility,,22,2.9,13,0,,10.7,0,,,,,,,,,,,
13 | ,15/06/2012 04:00,,0,,,,,,,0,22,100 - Cloudless sky (day),,,,0,0,1020,,88,,0,7 - 10km to 19km - Good Visibility,,22,2.9,13.3,0,,11.3,0,,,,,,,,,,,
14 | ,15/06/2012 03:00,,0,,,,,,,0,0,100 - Cloudless sky (day),,,,0,0,1020,,92,,0,7 - 10km to 19km - Good Visibility,,0,1,13.3,0,,12,0,,,,,,,,,,,
15 | ,15/06/2012 02:00,,0,,,,,,,0,67,100 - Cloudless sky (day),,,,0,0,1021,,94,,0,7 - 10km to 19km - Good Visibility,,67,2,13.1,0,,12.2,0,,,,,,,,,,,
16 | ,15/06/2012 01:00,,0,,,,,,,0,0,100 - Cloudless sky (day),,,,,0,1021,,94,,0,7 - 10km to 19km - Good Visibility,,0,2,13.8,0,,12.8,0,,,,,,,,,,,
17 | ,15/06/2012 00:00,,0,,,,,,,0,67,100 - Cloudless sky (day),,,,0,0,1021,,95,,0,7 - 10km to 19km - Good Visibility,,67,2,13.8,0,,13,0,,,,,,,,,,,
18 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/intro/website.clj:
--------------------------------------------------------------------------------
 1 | (ns {{name}}.website
 2 |   (:require
 3 |    [clojure.pprint :refer (pprint)]
 4 |    [clojure.tools.logging :refer :all]
 5 |    [bidi.bidi :refer (RouteProvider tag)]
 6 |    [bidi.ring :refer (redirect)]
 7 |    [com.stuartsierra.component :refer (using)]
 8 |    [hiccup.core :refer (html)]
 9 |    [modular.bidi :refer (as-request-handler path-for)]
10 |    [modular.component.co-dependency :refer (co-using)]
11 |    [modular.template :as template :refer (render-template template-model TemplateModel)]
12 | 
13 |    [clojure.data.csv :refer (read-csv)]
14 |    [clojure.java.io :as io]
15 |    [cheshire.core :as json]
16 |    ))
17 | 
18 | (defn page-body
19 |   "Render a page body, with the given templater and a (deferred)
20 |   template-model spanning potentially numerous records satisfying
21 |   modular.template's TemplateModel protocol."
22 |   [templater template model]
23 |   (render-template
24 |    templater
25 |    "page.html.mustache"
26 |    (merge model
27 |           {:content
28 |            (render-template
29 |             templater
30 |             template
31 |             model)})))
32 | 
33 | (defn index [templater *template-model]
34 |   (fn [req]
35 |     {:status 200
36 |      :body (page-body templater "index.html.mustache"
37 |                       (template/template-model @*template-model req))}))
38 | 
39 | (defn content-page [templater *template-model content]
40 |   (fn [req]
41 |     {:status 200
42 |      :body (render-template
43 |             templater
44 |             "page.html.mustache"
45 |             (assoc @*template-model
46 |                    :content content
47 |                    ))}))
48 | 
49 | (defn exercise-csv [templater *template-model]
50 |   (content-page
51 |    templater *template-model
52 |    (html
53 |     [:h1 "Exercise 1"]
54 |     ;; Write code for exercise 2 here
55 |     )))
56 | 
57 | (defn exercise-json [templater *template-model]
58 |   (content-page
59 |    templater *template-model
60 |    (html
61 |     [:h1 "Exercise 2"]
62 |     ;; Write code for exercise 2 here
63 |     )))
64 | 
65 | (defrecord Website [templater *template-model *router]
66 |   RouteProvider
67 |   (routes [_]
68 |     ["/" {"index.html"
69 |           (-> (index templater *template-model)
70 |               (tag ::index))
71 |           "exercise-1.html" (exercise-csv templater *template-model)
72 |           "exercise-2.html" (exercise-json templater *template-model)
73 |           "" (redirect ::index)}])
74 | 
75 |   TemplateModel
76 |   (template-model [component req]
77 |     {:menu [{:label "Exercise 1" :href "exercise-1.html"}
78 |             {:label "Exercise 2" :href "exercise-2.html"}]
79 |      }))
80 | 
81 | (defn new-website []
82 |   (->
83 |    (map->Website {})
84 |    (using [:templater])
85 |    (co-using [:router :template-model])))
86 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/logback.xml:
--------------------------------------------------------------------------------
 1 | <configuration scan="true" scanPeriod="1 seconds" debug="false">
 2 | 
 3 |   <appender name="CONSOLE" class="ch.qos.logback.core.ConsoleAppender">
 4 |     <encoder>
 5 |       <pattern>%d{HH:mm:ss.SSS} [%thread] %-5level %logger{36} - %msg%n</pattern>
 6 |     </encoder>
 7 |     <filter class="ch.qos.logback.classic.filter.ThresholdFilter">
 8 |       <level>DEBUG</level>
 9 |     </filter>
10 |   </appender>
11 | 
12 |   <!-- Just switch level to DEBUG on this and/or some of the loggers
13 |        below -->
14 |   <logger name="{{name}}" level="DEBUG"/>
15 | 
16 |   <!-- TODO (modular) Automatically generate based on project options -->
17 |   <logger name="cylon" level="INFO"/>
18 |   <logger name="modular.http-kit" level="INFO"/>
19 |   <logger name="modular.bidi" level="INFO"/>
20 | 
21 |   <root level="INFO">
22 |     <appender-ref ref="CONSOLE"/>
23 |   </root>
24 | 
25 | </configuration>
26 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/main.clj:
--------------------------------------------------------------------------------
 1 | (ns {{name}}.main
 2 |   "Main entry point"
 3 |   (:require clojure.pprint)
 4 |   (:gen-class))
 5 | 
 6 | (defn -main [& args]
 7 |   ;; We eval so that we don't AOT anything beyond this class
 8 |   (eval '(do (require '{{name}}.system)
 9 |              (require '{{name}}.main)
10 |              (require 'com.stuartsierra.component)
11 |              {{#module?.co-dependency}}
12 |              (require 'modular.component.co-dependency)
13 |              {{/module?.co-dependency}}
14 | 
15 |              (require 'clojure.java.browse)
16 | 
17 |              (println "Starting {{name}}")
18 | 
19 |              (let [system (->
20 |                            ({{name}}.system/new-production-system)
21 |                            {{^module?.co-dependency}}
22 |                            com.stuartsierra.component/start
23 |                            {{/module?.co-dependency}}
24 |                            {{#module?.co-dependency}}
25 |                            modular.component.co-dependency/start-system
26 |                            {{/module?.co-dependency}}
27 |                            )]
28 | 
29 |                (println "System started")
30 |                (println "Ready...")
31 | 
32 |                (let [url (format "http://localhost:%d/" (-> system :http-listener-listener :port))]
33 |                  (println (format "Browsing at %s" url))
34 |                  (clojure.java.browse/browse-url url)
35 |                  )))))
36 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/main.cljs:
--------------------------------------------------------------------------------
1 | (ns {{name}}.main)
2 | 
3 | (enable-console-print!)
4 | 
5 | (println "ClojureScript working!")
6 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/project.clj:
--------------------------------------------------------------------------------
 1 | (defproject {{name}} "0.1.0-SNAPSHOT"
 2 |   :description "A modular project created with lein new modular {{template}}"
 3 |   :url "http://github.com/{{user}}/{{name}}"
 4 | 
 5 |   :dependencies
 6 |   [
 7 |    {{#library-dependencies}}
 8 |    {{{.}}}
 9 |    {{/library-dependencies}}
10 |    ]
11 | 
12 |   :main {{name}}.main
13 | 
14 |   :repl-options {:init-ns user
15 |                  :welcome (println "Type (dev) to start")}
16 | 
17 |   :profiles {:dev {:dependencies [[org.clojure/tools.namespace "0.2.10"]]
18 |                    :source-paths ["dev"
19 |                                   ]}})
20 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/protected-site/README.md:
--------------------------------------------------------------------------------
 1 | # {{name}}
 2 | 
 3 | A Clojure application for ...
 4 | 
 5 | ## Usage
 6 | 
 7 | To run the application, install [Leiningen](http://leiningen.org/) and type
 8 | 
 9 | ```
10 | lein run
11 | ```
12 | 
13 | ## Development
14 | 
15 | For rapid development, use the REPL from the command line or via your
16 | favorite code editor.
17 | 
18 | ```
19 | lein repl
20 | user> (dev)
21 | dev> (go)
22 | ```
23 | 
24 | After making code changes, reset your application's state (causing all
25 | your modifications to be reloaded too).
26 | 
27 | ```
28 | dev> (reset)
29 | ```
30 | 
31 | Rinse and repeat.
32 | 
33 | ## Copyright and License
34 | 
35 | The MIT License (MIT)
36 | 
37 | Copyright © {{year}} {{author}}
38 | 
39 | Permission is hereby granted, free of charge, to any person obtaining a copy of
40 | this software and associated documentation files (the "Software"), to deal in
41 | the Software without restriction, including without limitation the rights to
42 | use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
43 | the Software, and to permit persons to whom the Software is furnished to do so,
44 | subject to the following conditions:
45 | 
46 | The above copyright notice and this permission notice shall be included in all
47 | copies or substantial portions of the Software.
48 | 
49 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
50 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
51 | FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
52 | COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
53 | IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
54 | CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
55 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/protected-site/html/dialog.html.mustache:
--------------------------------------------------------------------------------
 1 | {{=<< >>=}}
 2 | <div class="container">
 3 |   <div class="page-header">
 4 |     <h1>{{title}}</h1>
 5 |     {{{form}}}
 6 |   </div>
 7 |   <div class="footer">
 8 |     <p>This text can be found in <code>resources/templates/dialog.html.mustache</code></p>
 9 |   </div>
10 | </div>
11 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/protected-site/html/index.html.mustache:
--------------------------------------------------------------------------------
 1 | {{=<< >>=}}
 2 | <div class="container">
 3 |   <div class="page-header">
 4 |     <h1>Protected site: {{message}}</h1>
 5 |     {{#user}}
 6 |     <p>Logged in as {{email}}</p>
 7 |     <p><a href="{{logout-href}}">Logout</a></p>
 8 |     {{/user}}
 9 |     {{^user}}
10 |     <p>Please <a href="{{login-href}}">login</a></p>
11 |     {{/user}}
12 |   </div>
13 |   <div class="footer">
14 |     <p>This text can be found in <code>resources/templates/index.html.mustache</code></p>
15 |   </div>
16 | </div>
17 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/protected-site/html/page.html.mustache:
--------------------------------------------------------------------------------
 1 | {{=<< >>=}}
 2 | <!DOCTYPE html>
 3 | <html lang="en">
 4 |   <head>
 5 |     <meta charset="utf-8"/>
 6 |     <meta http-equiv="X-UA-Compatible" content="IE=edge">
 7 |     <meta name="viewport" content="width=device-width, initial-scale=1">
 8 | 
 9 |     <title> << name >> </title>
10 | 
11 |     <!-- Bootstrap core CSS -->
12 |     <link href="/bootstrap/css/bootstrap.min.css" rel="stylesheet">
13 |     <!-- Bootstrap theme -->
14 |     <link href="/bootstrap/css/bootstrap-theme.min.css" rel="stylesheet">
15 | 
16 |     <link href="/static/style.css" rel="stylesheet">
17 | 
18 |     <!-- HTML5 shim, for IE6-8 support of HTML5 elements -->
19 |     <!--[if lt IE 9]>
20 |         <script src="/js/html5shiv.min.js"></script>
21 |         <![endif]-->
22 | 
23 | 
24 |   </head>
25 | 
26 |   <body>
27 | 
28 |     <nav class="navbar navbar-inverse navbar-fixed-top">
29 |       <div class="container">
30 |         <div class="navbar-header">
31 |           <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target=".navbar-collapse">
32 |             <span class="sr-only">Toggle navigation</span>
33 |             <span class="icon-bar"></span>
34 |             <span class="icon-bar"></span>
35 |             <span class="icon-bar"></span>
36 |           </button>
37 |           <a class="navbar-brand" href="/"> << name >> </a>
38 |         </div>
39 | 
40 |         <!-- Collect the nav links, forms, and other content for toggling -->
41 |         <div class="navbar-collapse collapse">
42 |           <ul class="nav navbar-nav">
43 |             {{#menu}}
44 |             label:{{label}} href:{{href}} end
45 |             {{/menu}}
46 |           </ul>
47 |         </div>
48 |       </div>
49 |     </nav>
50 | 
51 |     <!-- There should be content here -->
52 |     <div class="container">
53 |       {{{content}}}
54 |     </div>
55 | 
56 |     <!-- jQuery (necessary for Bootstrap's JavaScript plugins) -->
57 |     <script src="/jquery/jquery.min.js"></script>
58 | 
59 |     <!-- Include all compiled plugins (below), or include individual files as needed -->
60 |     <script src="/bootstrap/js/bootstrap.min.js"></script>
61 | 
62 |   </body>
63 | </html>
64 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/protected-site/html/protected.html.mustache:
--------------------------------------------------------------------------------
 1 | {{=<< >>=}}
 2 | <div class="container">
 3 |   <div class="page-header">
 4 |     <h1>Welcome, you are logged in successfully</h1>
 5 |     <p>TODO: Display user id here</p>
 6 |     <p>TODO: Display user name and email here</p>
 7 |     <p>TODO: Display user gravatar in navbar</p>
 8 |     <p>TODO: Logout</p>
 9 |   </div>
10 |   <div class="footer">
11 |     <p>This text can be found in <code>resources/templates/protected.html.mustache</code></p>
12 |   </div>
13 | </div>
14 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/protected-site/style.css:
--------------------------------------------------------------------------------
 1 | body {
 2 |     padding-top: 50px;
 3 | }
 4 | 
 5 | p {
 6 |     font-size: 16pt;
 7 | }
 8 | 
 9 | h1 {
10 |     font-size: 24pt;
11 | }
12 | 
13 | h2 {
14 |     font-size: 20pt;
15 | }
16 | 
17 | label {
18 |     min-width: 6em;
19 | }
20 | 
21 | form {
22 |     font-size: 15pt;
23 |     margin: 30px 0;
24 | }
25 | 
26 | form div {
27 |     margin: 10px 0;
28 | }
29 | 
30 | form label {
31 |     padding: 4px;
32 | }
33 | 
34 | form input {
35 |     width: 16.5em;
36 |     margin: 0 1em;
37 |     padding: 2px 4px;
38 | }
39 | 
40 | form input#password {
41 |     width: 8em;
42 | }
43 | 
44 | form input.submit {
45 |     width: 8em;
46 |     /* margin-left is label min-width + input margin */
47 |     margin-left: 7em;
48 | }
49 | 
50 | .footer {
51 |     margin-top: 50px;
52 | }
53 | 
54 | .footer p {
55 |     font-size: 12pt;
56 | }
57 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/protected-site/website.clj:
--------------------------------------------------------------------------------
  1 | (ns {{name}}.website
  2 |   (:require
  3 |    [clojure.pprint :refer (pprint)]
  4 |    [clojure.tools.logging :refer :all]
  5 |    [bidi.bidi :refer (RouteProvider tag)]
  6 |    [bidi.ring :refer (redirect)]
  7 |    [com.stuartsierra.component :refer (using)]
  8 |    [cylon.user.protocols :refer (LoginFormRenderer UserFormRenderer)]
  9 |    [cylon.session :refer (session)]
 10 |    [hiccup.core :refer (html)]
 11 |    [modular.bidi :refer (as-request-handler path-for)]
 12 |    [modular.component.co-dependency :refer (co-using)]
 13 |    [modular.template :as template :refer (render-template template-model TemplateModel)]
 14 |    [modular.template.util :refer (model->template-model)]))
 15 | 
 16 | (defn page-body
 17 |   "Render a page body, with the given templater and a (deferred)
 18 |   template-model spanning potentially numerous records satisfying
 19 |   modular.template's TemplateModel protocol."
 20 |   [templater template model]
 21 |   (render-template
 22 |    templater
 23 |    "templates/page.html.mustache"
 24 |    (merge model
 25 |           {:content
 26 |            (render-template
 27 |             templater
 28 |             template
 29 |             model)})))
 30 | 
 31 | (defn page [template templater *template-model session-store]
 32 |   (fn [req]
 33 |     (infof "session-store is %s" (session session-store req))
 34 |     {:status 200
 35 |      :body (page-body templater template
 36 |                       (merge
 37 |                        (template/template-model @*template-model req)
 38 | 
 39 |                        (when-let [email (some-> (session session-store req) :cylon/user :email)]
 40 |                          {:user {:email email}})))}))
 41 | 
 42 | (defrecord Website [templater *template-model *router session-store]
 43 |   RouteProvider
 44 |   (routes [_]
 45 |     ["/" {"index.html"
 46 |           (-> (page "templates/index.html.mustache" templater *template-model session-store)
 47 |               (tag ::index))
 48 |           "protected.html"
 49 |           (-> (page "templates/protected.html.mustache" templater *template-model session-store)
 50 |               (tag ::protected))
 51 |           "" (redirect ::index)}])
 52 | 
 53 |   LoginFormRenderer
 54 |   (render-login-form [component req model]
 55 |     (page-body
 56 |      templater "templates/dialog.html.mustache"
 57 |      (merge (template/template-model @*template-model req)
 58 |             {:title (:title model)
 59 |              :form
 60 |              (html
 61 |               (when (:login-failed? model)
 62 |                 [:div.alert.alert-danger.alert-dismissible
 63 |                  {:role "alert"}
 64 |                  [:button.close {:type "button" :data-dismiss "alert" :aria-label "Close"}
 65 |                   [:span {:aria-hidden "true"} "&times;"]
 66 |                   ]
 67 |                  "You have entered an unrecognised email address or incorrect password."]
 68 |                 )
 69 |               [:form {:action (-> model :form :action)
 70 |                       :method (-> model :form :method)}
 71 |                (when-let [redirect (:post-login-redirect model)]
 72 |                  [:input {:type :hidden :name "post_login_redirect" :value redirect}]
 73 |                  )
 74 |                [:div
 75 |                 [:label {:for "email"} "Email"]
 76 |                 ;; We must have
 77 |                 [:input#email {:type :text :name "user"}]]
 78 |                [:div
 79 |                 [:label {:for "password"} "Password"]
 80 |                 [:input#password {:type :password :name "password"}]
 81 |                 (when-let [href nil]
 82 |                   [:a {:href href} "Forgot password"])]
 83 |                [:div
 84 |                 [:input.submit {:type "submit" :value "Sign in"}]
 85 |                 ;; If we can't find a path to the signup form, we deduce
 86 |                 ;; that no signup functionality exists. This is the
 87 |                 ;; feature toggle.
 88 |                 (when-let [signup (path-for @*router :cylon.user.signup/GET-signup-form)]
 89 |                   [:a {:href signup } "Sign up"])]
 90 | 
 91 |                ])})))
 92 | 
 93 |   UserFormRenderer
 94 |   (render-signup-form [component req model]
 95 |     (page-body
 96 |      templater "templates/dialog.html.mustache"
 97 |      (merge (template/template-model @*template-model req)
 98 |             {:title (:title model)
 99 |              :form
100 |              (html
101 |               [:form {:action (-> model :form :action)
102 |                       :method (-> model :form :method)}
103 |                ;; Hidden fields
104 |                (for [{:keys [name value type]} (-> model :form :fields)
105 |                      :when (= type "hidden")]
106 |                  [:input {:type type :name name :value value}])
107 |                [:div
108 |                 [:label {:for "email"} "Email"]
109 |                 [:input#email {:type :text :name "user"}]]
110 |                [:div
111 |                 [:label {:for "password"} "Password"]
112 |                 [:input#password {:type :password :name "password"}]]
113 |                [:div
114 |                 [:input.submit {:type "submit" :value "Sign up"}]
115 |                 ]])})))
116 | 
117 |   TemplateModel
118 |   (template-model [component req]
119 |     (let [login-href (str (path-for @*router :cylon.user.login/login-form)
120 |                           "?post_login_redirect="
121 |                           (path-for @*router ::index))
122 |           logout-href (str (path-for @*router :cylon.user.login/logout)
123 |                            "?post_logout_redirect="
124 |                            (path-for @*router ::index))]
125 |       {:menu []
126 |        :message "Hello!"
127 |        :login-href login-href
128 |        :logout-href logout-href
129 |        })))
130 | 
131 | (defn new-website []
132 |   (->
133 |    (map->Website {})
134 |    (using [:templater])
135 |    (co-using [:router :template-model])))
136 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/resources/cover.css:
--------------------------------------------------------------------------------
  1 | /*
  2 |  * Globals
  3 |  */
  4 | 
  5 | /* Links */
  6 | a,
  7 | a:focus,
  8 | a:hover {
  9 |   color: #fff;
 10 | }
 11 | 
 12 | /* Custom default button */
 13 | .btn-default,
 14 | .btn-default:hover,
 15 | .btn-default:focus {
 16 |   color: #333;
 17 |   text-shadow: none; /* Prevent inheritence from `body` */
 18 |   background-color: #fff;
 19 |   border: 1px solid #fff;
 20 | }
 21 | 
 22 | 
 23 | /*
 24 |  * Base structure
 25 |  */
 26 | 
 27 | html,
 28 | body {
 29 |   height: 100%;
 30 |   background-color: #333;
 31 | }
 32 | body {
 33 |   color: #fff;
 34 |   text-align: center;
 35 |   text-shadow: 0 1px 3px rgba(0,0,0,.5);
 36 | }
 37 | 
 38 | /* Extra markup and styles for table-esque vertical and horizontal centering */
 39 | .site-wrapper {
 40 |   display: table;
 41 |   width: 100%;
 42 |   height: 100%; /* For at least Firefox */
 43 |   min-height: 100%;
 44 |   -webkit-box-shadow: inset 0 0 100px rgba(0,0,0,.5);
 45 |           box-shadow: inset 0 0 100px rgba(0,0,0,.5);
 46 | }
 47 | .site-wrapper-inner {
 48 |   display: table-cell;
 49 |   vertical-align: top;
 50 | }
 51 | .cover-container {
 52 |   margin-right: auto;
 53 |   margin-left: auto;
 54 | }
 55 | 
 56 | /* Padding for spacing */
 57 | .inner {
 58 |   padding: 30px;
 59 | }
 60 | 
 61 | 
 62 | /*
 63 |  * Header
 64 |  */
 65 | .masthead-brand {
 66 |   margin-top: 10px;
 67 |   margin-bottom: 10px;
 68 | }
 69 | 
 70 | .masthead-nav > li {
 71 |   display: inline-block;
 72 | }
 73 | .masthead-nav > li + li {
 74 |   margin-left: 20px;
 75 | }
 76 | .masthead-nav > li > a {
 77 |   padding-right: 0;
 78 |   padding-left: 0;
 79 |   font-size: 16px;
 80 |   font-weight: bold;
 81 |   color: #fff; /* IE8 proofing */
 82 |   color: rgba(255,255,255,.75);
 83 |   border-bottom: 2px solid transparent;
 84 | }
 85 | .masthead-nav > li > a:hover,
 86 | .masthead-nav > li > a:focus {
 87 |   background-color: transparent;
 88 |   border-bottom-color: #a9a9a9;
 89 |   border-bottom-color: rgba(255,255,255,.25);
 90 | }
 91 | .masthead-nav > .active > a,
 92 | .masthead-nav > .active > a:hover,
 93 | .masthead-nav > .active > a:focus {
 94 |   color: #fff;
 95 |   border-bottom-color: #fff;
 96 | }
 97 | 
 98 | @media (min-width: 768px) {
 99 |   .masthead-brand {
100 |     float: left;
101 |   }
102 |   .masthead-nav {
103 |     float: right;
104 |   }
105 | }
106 | 
107 | 
108 | /*
109 |  * Cover
110 |  */
111 | 
112 | .cover {
113 |   padding: 0 20px;
114 | }
115 | .cover .btn-lg {
116 |   padding: 10px 20px;
117 |   font-weight: bold;
118 | }
119 | 
120 | 
121 | /*
122 |  * Footer
123 |  */
124 | 
125 | .mastfoot {
126 |   color: #999; /* IE8 proofing */
127 |   color: rgba(255,255,255,.5);
128 | }
129 | 
130 | 
131 | /*
132 |  * Affix and center
133 |  */
134 | 
135 | @media (min-width: 768px) {
136 |   /* Pull out the header and footer */
137 |   .masthead {
138 |     position: fixed;
139 |     top: 0;
140 |   }
141 |   .mastfoot {
142 |     position: fixed;
143 |     bottom: 0;
144 |   }
145 |   /* Start the vertical centering */
146 |   .site-wrapper-inner {
147 |     vertical-align: middle;
148 |   }
149 |   /* Handle the widths */
150 |   .masthead,
151 |   .mastfoot,
152 |   .cover-container {
153 |     width: 100%; /* Must be percentage or pixels for horizontal alignment */
154 |   }
155 | }
156 | 
157 | @media (min-width: 992px) {
158 |   .masthead,
159 |   .mastfoot,
160 |   .cover-container {
161 |     width: 700px;
162 |   }
163 | }
164 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/resources/theme.css:
--------------------------------------------------------------------------------
 1 | body {
 2 |   padding-top: 70px;
 3 |   padding-bottom: 30px;
 4 | }
 5 | 
 6 | .theme-dropdown .dropdown-menu {
 7 |   position: static;
 8 |   display: block;
 9 |   margin-bottom: 20px;
10 | }
11 | 
12 | .theme-showcase > p > .btn {
13 |   margin: 5px 0;
14 | }
15 | 
16 | .theme-showcase .navbar .container {
17 |   width: auto;
18 | }


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/simple_bidi_website.clj:
--------------------------------------------------------------------------------
 1 | (ns {{name}}.simple-bidi-website
 2 |   (:require
 3 |    [clojure.pprint :refer (pprint)]
 4 |    [modular.ring :refer (WebRequestHandler)]
 5 |    [modular.bidi :refer (as-request-handler)]
 6 |    [bidi.bidi :refer (path-for RouteProvider handler)]
 7 |    [bidi.ring :refer (redirect)]))
 8 | 
 9 | (defrecord Website []
10 |   RouteProvider
11 |   (routes [_]
12 |     ["/" {"index.html"
13 |           (handler ::index (fn [req] {:status 200 :body "Hello, world!"}))
14 |           "" (redirect ::index)}])
15 | 
16 |   WebRequestHandler
17 |   (request-handler [this] (as-request-handler this)))
18 | 
19 | (defn new-website []
20 |   (->Website))
21 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/sse-demo/README.md:
--------------------------------------------------------------------------------
 1 | # {{name}}
 2 | 
 3 | To demonstrate asynchronous HTTP services in Clojure
 4 | 
 5 | ## Usage
 6 | 
 7 | To run the application, install [Leiningen](http://leiningen.org/) and type
 8 | 
 9 | ```
10 | lein run
11 | ```
12 | 
13 | ## Development
14 | 
15 | For rapid development, use the REPL from the command line or via your
16 | favorite code editor.
17 | 
18 | ```
19 | lein repl
20 | user> (dev)
21 | dev> (go)
22 | ```
23 | 
24 | After making code changes, reset your application's state (causing all
25 | your modifications to be reloaded too).
26 | 
27 | ```
28 | dev> (reset)
29 | ```
30 | 
31 | Rinse and repeat.
32 | 
33 | ## Copyright and License
34 | 
35 | The MIT License (MIT)
36 | 
37 | Copyright © {{year}} {{author}}
38 | 
39 | Permission is hereby granted, free of charge, to any person obtaining a copy of
40 | this software and associated documentation files (the "Software"), to deal in
41 | the Software without restriction, including without limitation the rights to
42 | use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
43 | the Software, and to permit persons to whom the Software is furnished to do so,
44 | subject to the following conditions:
45 | 
46 | The above copyright notice and this permission notice shall be included in all
47 | copies or substantial portions of the Software.
48 | 
49 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
50 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
51 | FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
52 | COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
53 | IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
54 | CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
55 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/sse-demo/events.clj:
--------------------------------------------------------------------------------
  1 | (ns {{name}}.events
  2 |   (:require
  3 |    [clojure.core.async :as async :refer (go go-loop >! <! buffer dropping-buffer sliding-buffer chan put! mult tap)]
  4 |    [clojure.java.io :as io]
  5 |    [clojure.pprint :refer (pprint)]
  6 |    [clojure.tools.logging :refer :all]
  7 |    [bidi.bidi :refer (path-for RouteProvider handler)]
  8 |    [bidi.ring :refer (redirect)]
  9 |    [com.stuartsierra.component :refer (Lifecycle using)]
 10 |    [hiccup.core :as hiccup]
 11 |    [org.httpkit.server :as httpkit]
 12 |    [ring.util.response :refer (response redirect-after-post)]
 13 |    [ring.middleware.params :refer (params-request)]))
 14 | 
 15 | (defn index [req]
 16 |   {:status 200
 17 |    :body (hiccup/html
 18 |           [:body
 19 |            [:h1 "HTTP Async"]
 20 |            [:p [:a {:href "system.html"} "System"]]
 21 |            [:p [:a {:href "chat.html"} "Chat"]]
 22 |            ])})
 23 | 
 24 | (defn show-system []
 25 |   (fn [req]
 26 |     {:status 200
 27 |      :body (hiccup/html
 28 |             [:body
 29 |              [:h2 "System"]
 30 |              [:pre (hiccup/h (with-out-str (pprint @(find-var 'dev/system))))]])}))
 31 | 
 32 | (defn show-chat [{:keys [messages]}]
 33 |   (fn [req]
 34 |     {:status 200
 35 |      :body (hiccup/html
 36 |             [:html
 37 |              [:head
 38 |               [:title "Chat"]
 39 |               [:script {:src "/jquery/jquery.min.js"}]]
 40 |              [:body
 41 |               [:h2 "Chat"]
 42 |               [:ul#messages
 43 |                (for [msg @messages]
 44 |                  [:li msg])]
 45 |               [:div
 46 |                [:input#message {:type :text :name :message}]
 47 |                [:button#chat "Chat"]]
 48 |               [:script (slurp (io/resource "events.js"))]]])}))
 49 | 
 50 | (defn post-to-channel [{:keys [messages channel]}]
 51 |   (fn [req]
 52 |     (let [msg (-> req params-request :form-params (get "message"))]
 53 |       (swap! messages conj msg)
 54 |       (put! channel msg))
 55 |     {:status 200 :body "Thank you"}))
 56 | 
 57 | (defn server-event-source
 58 |   "Take a mult and return a handler that will produce HTML5 server-sent
 59 |   event (SSE) streams"
 60 |   [mlt]
 61 |   (fn [req]
 62 |     (let [ch (chan 16)]
 63 |       (tap mlt ch)
 64 |       (httpkit/with-channel req net-ch
 65 |         (httpkit/on-close net-ch (fn [_]
 66 |                                    (async/untap mlt ch)
 67 |                                    (async/close! ch)))
 68 |         (httpkit/send! net-ch {:headers {"Content-Type" "text/event-stream"}} false)
 69 |         (go-loop []
 70 |           (when-let [data (<! ch)]
 71 |             (httpkit/send! net-ch (str "data: " data "\r\n\r\n") false)
 72 |             (recur)))))))
 73 | 
 74 | ;; Components are defined using defrecord.
 75 | 
 76 | (defrecord Website []
 77 |   Lifecycle
 78 |   (start [component]
 79 |     (let [ch (chan (buffer 10))]
 80 |       ;; Let's create a mult
 81 |       (assoc component
 82 |              :channel ch
 83 |              :messages (atom [])
 84 |              :mult (mult ch))))
 85 |   (stop [component] component)
 86 | 
 87 |   RouteProvider
 88 |   ;; Return a bidi route structure, mapping routes to keywords defined
 89 |   ;; above. This additional level of indirection means we can generate
 90 |   ;; hyperlinks from known keywords.
 91 |   (routes [component]
 92 |     ["/events/"
 93 |      {"index.html" (handler ::index index)
 94 |       "" (redirect ::index)
 95 |       "system.html" (handler ::show-system (show-system))
 96 |       "chat.html" (handler ::show-chat (show-chat component))
 97 |       "messages" (handler ::post (post-to-channel component))
 98 |       "events" (handler ::events (server-event-source (:mult component)))}]))
 99 | 
100 | ;; While not mandatory, it is common to use a function to construct an
101 | ;; instance of the component. This affords the opportunity to control
102 | ;; the construction with parameters, provide defaults and declare
103 | ;; dependency relationships with other components.
104 | 
105 | (defn new-events-website []
106 |   (-> (map->Website {})))
107 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/sse-demo/events.js:
--------------------------------------------------------------------------------
 1 | // POST messages using AJAX
 2 | $("#chat").click(function(ev) {
 3 |     console.log("posting message: " + $("#message").val())
 4 |     $.ajax({
 5 |     type: "POST",
 6 |     url: "/events/messages",
 7 |     data: "message=" + encodeURIComponent($("#message").val())})
 8 | });
 9 | 
10 | 
11 | // Listen for messages using HTML5 Server Sent Events (SSE)
12 | es = new EventSource("/events/events");
13 | es.addEventListener("message",
14 |                     function(ev) {
15 |                         console.log("message: " + ev.data)
16 |                         $("#messages").append("<li>"+ev.data+"</li>");
17 |                     });
18 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/sse-demo/website.clj:
--------------------------------------------------------------------------------
 1 | (ns {{name}}.website
 2 |   (:require
 3 |    [clojure.core.async :refer (go >! <! buffer dropping-buffer sliding-buffer chan take!)]
 4 |    [clojure.pprint :refer (pprint)]
 5 |    [clojure.tools.logging :refer :all]
 6 |    [bidi.bidi :refer (path-for RouteProvider handler)]
 7 |    [bidi.ring :refer (redirect)]
 8 |    [com.stuartsierra.component :refer (Lifecycle using)]
 9 |    [hiccup.core :as hiccup]
10 |    [ring.util.response :refer (response redirect-after-post)]))
11 | 
12 | (defn index [req]
13 |   {:status 200
14 |    :body (hiccup/html
15 |           [:body
16 |            [:h1 "HTTP Async"]
17 |            [:p [:a {:href "/system.html"} "System"]]
18 |            [:p [:a {:href "/channel.html"} "Channel"]]
19 |            ])})
20 | 
21 | (defn show-system []
22 |   (fn [req]
23 |     {:status 200
24 |      :body (hiccup/html
25 |             [:body
26 |              [:h2 "System"]
27 |              [:pre (hiccup/h (with-out-str (pprint @(find-var 'dev/system))))]])}))
28 | 
29 | (defn show-channel [ch]
30 |   (fn [req]
31 |     {:status 200
32 |      :body (hiccup/html
33 |             [:body
34 |              [:h2 "Channel"]
35 |              [:p "Channel type: " (type ch)]
36 |              [:p "Buffer type: " (.-buf ch)]
37 |              [:p "Channel count: " (count (.-buf ch))]
38 |              [:p "Channel value: " (pr-str (.-buf (.-buf ch)))]
39 |              [:form {:action "/drop" :method :post}
40 |               [:input {:type :submit :value "Drop"}]]])}))
41 | 
42 | (defn drop-from-channel [ch]
43 |   (fn [req]
44 |     (go (<! ch))
45 |     (redirect-after-post "/channel.html")))
46 | 
47 | ;; Components are defined using defrecord.
48 | 
49 | (defrecord Website []
50 |   Lifecycle
51 |   (start [component]
52 |     (let [ch (chan (buffer 10))]
53 |       ;; Let's load the channel up with some data
54 |       (go (dotimes [n 26] (>! ch (char (+ (int \A) n)))))
55 |       (assoc component :channel ch)))
56 |   (stop [component] component)
57 | 
58 |   RouteProvider
59 |   ;; Return a bidi route structure, mapping routes to wrapped
60 |   ;; handlers. This additional level of indirection means we can
61 |   ;; generate hyperlinks from known keywords.
62 |   (routes [component]
63 |     ["/" {"index.html" (handler ::index index)
64 |           "" (redirect ::index)
65 |           "system.html" (handler ::show-system (show-system))
66 |           "channel.html" (handler ::show-channel (show-channel (:channel component)))
67 |           "drop" (handler ::drop (drop-from-channel (:channel component)))}]))
68 | 
69 | ;; While not mandatory, it is common to use a function to construct an
70 | ;; instance of the component. This affords the opportunity to control
71 | ;; the construction with parameters, provide defaults and declare
72 | ;; dependency relationships with other components.
73 | 
74 | (defn new-website []
75 |   (-> (map->Website {})))
76 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/system.clj:
--------------------------------------------------------------------------------
 1 | (ns {{name}}.system
 2 |   "Components and their dependency relationships"
 3 |   (:refer-clojure :exclude (read))
 4 |   (:require
 5 |    [clojure.java.io :as io]
 6 |    [clojure.string :as str]
 7 |    [com.stuartsierra.component :refer (system-map system-using using)]
 8 |    [aero.core :as aero]
 9 |    [schema.core :as s]
10 |    {{#module?.co-dependency}}
11 |    [modular.component.co-dependency :refer (co-using system-co-using)]
12 |    {{/module?.co-dependency}}
13 |    {{#refers}}
14 |    [{{namespace}} :refer ({{{refers}}})]
15 |    {{/refers}}
16 |    ))
17 | 
18 | (def config-schema {{config-schema}})
19 | 
20 | (defn config [] (s/validate config-schema (aero/read-config "config.edn")))
21 | 
22 | (defn make [c config config-path & {:as args}]
23 |   (apply c (apply concat (merge args (when config-path (get-in config config-path))))))
24 | 
25 | {{#modules}}
26 | {{#fname}}
27 | (defn {{fname}}{{{docstring}}}
28 |   [system config]
29 |   (assoc system
30 |     {{#components}}
31 |     {{key}}
32 |     (->
33 |       (make {{constructor}} config {{#config-path}}{{config-path}}{{/config-path}}{{^config-path}}nil{{/config-path}} {{#args}} {{{.}}}{{/args}})
34 |       (using {{using}})
35 |       {{#module?.co-dependency}}
36 |       (co-using {{co-using}})
37 |       {{/module?.co-dependency}}
38 |       )
39 | {{/components}}))
40 | {{/fname}}
41 | 
42 | {{/modules}}
43 | (defn new-system-map
44 |   [config]
45 |   (apply system-map
46 |     (apply concat
47 |       (-> {}{{#modules}}{{#fname}}
48 |           ({{fname}} config){{/fname}}{{/modules}}
49 |           ))))
50 | 
51 | (defn new-dependency-map
52 |   []
53 | {{#dependencies}}
54 | {{.}}
55 | 
56 | {{/dependencies}})
57 | 
58 | (defn new-co-dependency-map
59 |   []
60 | {{#co-dependencies}}
61 | {{.}}
62 | 
63 | {{/co-dependencies}})
64 | 
65 | (defn new-production-system
66 |   "Create the production system"
67 |   []
68 |   (-> (new-system-map (config))
69 |       (system-using (new-dependency-map))
70 |       {{#module?.co-dependency}}
71 |       (system-co-using (new-co-dependency-map))
72 |       {{/module?.co-dependency}}
73 |       ))
74 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/templated-bidi-website/content.html.mustache:
--------------------------------------------------------------------------------
 1 | {{=<< >>=}}
 2 | <div class="container">
 3 |   <div class="page-header">
 4 |     <h1>{{message}}</h1>
 5 |     <p>Your user-agent is <code>{{user-agent}}</code></p>
 6 |   </div>
 7 |   <div style="font-size: smaller">
 8 |     <p>This text can be found in <code>resources/templates/content.html.mustache</code></p>
 9 |   </div>
10 | </div>
11 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/templated-bidi-website/page.html.mustache:
--------------------------------------------------------------------------------
 1 | {{=<< >>=}}
 2 | <!DOCTYPE html>
 3 | <html prefix="dc: http://purl.org/dc/elements/1.1/" lang="en">
 4 |   <head>
 5 |     <meta charset="utf-8"/>
 6 |     <!-- <meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no"/>
 7 | -->
 8 |     <meta http-equiv="X-UA-Compatible" content="IE=edge">
 9 |     <meta name="viewport" content="width=device-width, initial-scale=1">
10 | 
11 |     <meta property="dc:language" content="en"/>
12 |     <meta property="dc:title" content="{{webmeta.title}}"/>
13 |     <meta property="dc:description" content="{{webmeta.description}}"/>
14 | 
15 |     <title> << name >> </title>
16 | 
17 |     <!-- Bootstrap core CSS -->
18 |     <link href="/bootstrap/css/bootstrap.min.css" rel="stylesheet">
19 |     <!-- Bootstrap theme -->
20 |     <link href="/bootstrap/css/bootstrap-theme.min.css" rel="stylesheet">
21 | 
22 |     <link href="/static/theme.css" rel="stylesheet">
23 | 
24 |     <!-- HTML5 shim, for IE6-8 support of HTML5 elements -->
25 |     <!--[if lt IE 9]>
26 |         <script src="/js/html5shiv.min.js"></script>
27 |         <![endif]-->
28 | 
29 | 
30 |   </head>
31 |   <body role="document">
32 | 
33 |     <div class="navbar navbar-inverse navbar-fixed-top" role="navigation">
34 |       <div class="container">
35 |         <div class="navbar-header">
36 |           <button type="button" class="navbar-toggle" data-toggle="collapse" data-target=".navbar-collapse">
37 |             <span class="sr-only">Toggle navigation</span>
38 |             <span class="icon-bar"></span>
39 |             <span class="icon-bar"></span>
40 |             <span class="icon-bar"></span>
41 |           </button>
42 |           <a class="navbar-brand" href="/"> << name >> </a>
43 |         </div>
44 | <<!
45 |         <!-- Collect the nav links, forms, and other content for toggling -->
46 |         <div class="navbar-collapse collapse">
47 |           <ul class="nav navbar-nav">
48 |             <!-- This is contributed by juxt.modular/menu -->
49 |             {{{menu.menu}}}
50 |           </ul>
51 |         </div>
52 | >>
53 |       </div>
54 |     </div>
55 | 
56 | 
57 |     <!-- There should be content here -->
58 |     {{{content}}}
59 | 
60 |     <!-- jQuery (necessary for Bootstrap's JavaScript plugins) -->
61 |     <script src="/jquery/jquery.min.js"></script>
62 | 
63 |     <!-- Include all compiled plugins (below), or include individual files as needed -->
64 |     <script src="/bootstrap/js/bootstrap.min.js"></script>
65 | 
66 | <<!
67 |     <!-- Javascripts that have been contributed by other modules -->
68 |     {{#cljs-builder.javascripts}}
69 |     <script src="{{{.}}}" type="text/javascript"></script>
70 |     {{/cljs-builder.javascripts}}
71 | 
72 |     {{{cljs}}}
73 | >>
74 | 
75 |   </body>
76 | </html>
77 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/templated-bidi-website/website.clj:
--------------------------------------------------------------------------------
 1 | (ns {{name}}.website
 2 |   (:require
 3 |    [clojure.pprint :refer (pprint)]
 4 |    [modular.ring :refer (WebRequestHandler)]
 5 |    [modular.bidi :refer (as-request-handler)]
 6 |    [modular.template :as template :refer (render-template TemplateModel)]
 7 |    [bidi.bidi :refer (path-for RouteProvider tag)]
 8 |    [bidi.ring :refer (redirect)]
 9 |    [hiccup.core :refer (html)]
10 |    [clojure.tools.logging :refer :all]
11 |    [com.stuartsierra.component :refer (using)]))
12 | 
13 | (defn index
14 |   "Render an index page, with the given templater and a template-model
15 |   spanning potentially numerous records satisfying modular.template's
16 |   TemplateModel protocol."
17 |   [templater template-model]
18 |   (fn [req]
19 |     (infof "Rendering template")
20 |     (debugf "Debug")
21 |     {:status 200
22 |      :body
23 |      (render-template
24 |       templater
25 |       "templates/page.html.mustache"
26 |       {:content
27 |        (render-template
28 |         templater
29 |         "templates/content.html.mustache"
30 |         (template/template-model template-model req))})}))
31 | 
32 | (defrecord Website [templater template-model]
33 |   RouteProvider
34 |   (routes [_]
35 |     ["/" {"index.html" (-> (index templater template-model)
36 |                            (tag ::index))
37 |           "" (redirect ::index)}])
38 | 
39 |   WebRequestHandler
40 |   (request-handler [this] (as-request-handler this)))
41 | 
42 | (defn new-website []
43 |   (-> (map->Website {})
44 |       (using [:templater :template-model])))
45 | 
46 | ;; This record is one of the dependencies of template's
47 | ;; aggregate-template-model.
48 | (defrecord ApplicationTemplateModel []
49 |   TemplateModel
50 |   (template-model [component req]
51 |     {:message "Hello!"
52 |      :user-agent (get-in req [:headers "user-agent"])}))
53 | 
54 | (defn new-application-template-model []
55 |   (-> (map->ApplicationTemplateModel {})
56 |       (using [])))
57 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/user.clj:
--------------------------------------------------------------------------------
 1 | (ns user)
 2 | 
 3 | ;; This is an old trick from Pedestal. When system.clj doesn't compile,
 4 | ;; it can prevent the REPL from starting, which makes debugging very
 5 | ;; difficult. This extra step ensures the REPL starts, no matter what.
 6 | 
 7 | (defn dev
 8 |   []
 9 |   (require 'dev)
10 |   (in-ns 'dev))
11 | 
12 | 
13 | (defn go
14 |   []
15 |   (println "Don't you mean (dev) ?"))
16 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/website.clj:
--------------------------------------------------------------------------------
 1 | (ns {{name}}.website
 2 |   (:require
 3 |    [clojure.pprint :refer (pprint)]
 4 |    [com.stuartsierra.component :as component]
 5 |    [modular.ring :refer (WebRequestHandler)]
 6 |    [modular.bidi :refer (as-request-handler)]
 7 |    [modular.web-template :refer (dynamic-template-data)]
 8 |    [hiccup.core :refer (html h)]
 9 |    [bidi.bidi :refer (path-for RouteProvider handler)]
10 |    [bidi.ring :refer (redirect)]
11 |    [clostache.parser :refer (render-resource)]))
12 | 
13 | (defn home-page
14 |   "Define a Liberator resource map for the index (home) page of the website"
15 |   [template-model]
16 |   (fn [req]
17 |     {:status 200
18 |      :body
19 |      (let [model (dynamic-template-data template-model req)]
20 |        (render-resource
21 |         "templates/page.html.mustache"
22 |         (-> model
23 |             (assoc :content (render-resource "templates/home.html.mustache" model)))))}))
24 | 
25 | ;; Consider the component below. It is defined by defrecord.
26 | ;; It satisfies 2 protocols: bidi.RouteProvider and modular.ring.WebRequestHandler
27 | 
28 | ;; To satisfy bidi.RoutepProvider a component must provide a routes
29 | ;; function, which returns a bidi route structure.
30 | 
31 | ;; The use of the bidi 'handler' function is to allow looser coupling
32 | ;; between generated hyperlinks and the request handlers they route
33 | ;; to. Every handler can be targeted by using a keyword in bidi's
34 | ;; path-for function. This eliminates string-munging code that would
35 | ;; otherwise be written to form URIs, with the implicit coupling between
36 | ;; this logic and the route structure that would result. Note it is
37 | ;; idiomatic to use namespaced keywords so that there is less chance of
38 | ;; conflict with other keywords used by other components.
39 | 
40 | ;; By also satisfying the WebRequestHandler protocol, this component can be
41 | ;; made a direct dependency of a Ring-compatible web server like
42 | ;; http-kit or Jetty. Whether this is the only web-serving component in
43 | ;; an application, or one of many (composed together by a router),
44 | ;; depends on the system's dependency map defined in system.clj
45 | 
46 | ;; Finally there is the constructor, a function which creates an
47 | ;; instance of the component record.
48 | 
49 | (defrecord Website []
50 |   RouteProvider
51 |   (routes [_]
52 |     ["/" {"index.html"
53 |           (handler ::index (home-page (:template-model this)))
54 | 
55 |           "" (redirect ::index)}])
56 | 
57 |   WebRequestHandler
58 |   (request-handler [this] (as-request-handler this)))
59 | 
60 | (defn new-website []
61 |   ;; TODO Depending on the size of the template model, we may want to
62 |   ;; limit the template-model to minium keys that are necessary, in the
63 |   ;; case that a SystemDynamicTemplateModel instance is provided.
64 |   (component/using
65 |    (->Website)
66 |    [:template-model]))
67 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/website_tests.clj:
--------------------------------------------------------------------------------
 1 | (ns {{name}}.website-tests
 2 |   (:require
 3 |    [clojure.test :refer :all]
 4 |    [com.stuartsierra.component :as component]
 5 |    dev))
 6 | 
 7 | (def ^:dynamic *system* nil)
 8 | 
 9 | (defmacro with-system [system & body]
10 |   `(let [s# ~system]
11 |      (try
12 |        (component/start s#)
13 |        (binding [*system* s#] ~@body)
14 |        (finally
15 |          (component/stop s#)))))
16 | 
17 | (defn system-fixture [f]
18 |   (with-system (dev/new-dev-system)
19 |     (f)))
20 | 
21 | (use-fixtures :once system-fixture)
22 | 
23 | (deftest server
24 |   (testing "webserver"
25 |     (println "System is " (type *system*))
26 |     (is (= (+ 2 2) 4))))
27 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/yada/README.md:
--------------------------------------------------------------------------------
 1 | # yada demonstrations
 2 | 
 3 | Demonstrations of yada.
 4 | 
 5 | This project is intended to be used both as a 'playground' project and as the basis for your own yada-based web project. You are free to change anything in this project including the license.
 6 | 
 7 | ## Configuration
 8 | 
 9 | Configuration is loaded from `config.edn` using [aero](https://github.com/juxt/aero) and passed to affected components as per the logic in `{{sanitized}}/system.clj`.
10 | 
11 | ## Standalone examples
12 | 
13 | Standalone examples can be found in `{{sanitized}}/examples.clj`.
14 | 
15 | The examples are managed by a component called `Examples` which satisfies the [component](https://github.com/stuartsierra/component) `Lifecycle` so in the `start` phase a new Aleph server instance is started. The port number of this can be found in `config.edn`.
16 | 
17 | ```clojure
18 | {:standalone-examples {:port 3001}
19 |  …
20 | }
21 |  ```
22 | 
23 | ### Routes
24 | 
25 | A single [bidi](https://github.com/juxt/bidi) route structure is created using `make-routes`. This is then injected into the Ring request by the `wrap-inject-routes` Ring middleware.
26 | 
27 | Note, this method of injecting dependency data into the Ring request is not encouraged. [Modular projects](https://modularity.org) have a more general form of dependency injection using [component](https://github.com/stuartsierra/component) dependencies.
28 | 
29 | 
30 | 
31 | ## License
32 | 
33 | The MIT License (MIT)
34 | 
35 | Copyright © 2015 (insert your name/organisation here)
36 | 
37 | Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
38 | 
39 | The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
40 | 
41 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
42 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/yada/config.edn:
--------------------------------------------------------------------------------
1 | {:standalone-examples {:port 3001}
2 |  :http-listener {:port 3000}
3 |  :swagger-ui {}}
4 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/yada/examples.clj:
--------------------------------------------------------------------------------
 1 | (ns {{name}}.examples
 2 |   (:require
 3 |    [clojure.java.io :as io]
 4 |    [com.stuartsierra.component :refer (Lifecycle using)]
 5 |    [modular.component.co-dependency :refer (co-using)]
 6 |    [modular.component.co-dependency.schema :as sc]
 7 |    [aleph.http :as http]
 8 |    [hiccup.core :refer (html)]
 9 |    [bidi.bidi :refer (tag path-for)]
10 |    [bidi.ring :refer (make-handler redirect)]
11 |    [schema.core :as s]
12 |    [yada.yada :refer (yada)]
13 |    yada.file-resource))
14 | 
15 | (defn hello
16 |   "Say hello to an audience"
17 |   [audience]
18 |   (yada (str "Hello " audience "!")))
19 | 
20 | (defn source-code
21 |   "Export a directory of source code to the web"
22 |   []
23 |   (yada (io/file "src")))
24 | 
25 | (defn index
26 |   "An example of how to create an index page of all the other examples."
27 |   []
28 |   (yada
29 |    (fn [ctx] ; we need the context, so we use a function which returns a string
30 |      (let [routes (-> ctx :request :routes)]
31 |        (assert routes "Routes should be injected into the Ring request")
32 |        (html [:ul
33 |               [:li [:a {:href (path-for routes ::hello)} "Hello"]]
34 |               [:li [:a {:href (path-for routes ::src)} "Source code directory"]]])))
35 |    :produces "text/html" ; the content-type for the string should be text/html
36 |    ))
37 | 
38 | (defn make-routes []
39 |   [""
40 |    [["/" [["index.html" (tag (index) ::index)]
41 |           ["" (redirect ::index)]
42 |           ["hello" (-> (hello "World") (tag ::hello))]
43 |           ["src/" (-> (source-code) (tag ::src))]]]
44 |     ;; Provide a catch-all route
45 |     [true (fn [req] {:status 404 :body "No example found"})]]])
46 | 
47 | (defn wrap-inject-routes
48 |   "We use this middleware to inject the bidi route structure into the
49 |   request so it may be used in calls to bidi's path-for
50 |   function. Injecting data in the request like this is not a recommended
51 |   approach but done here for pedagogical reasons. It is recommended that
52 |   larger projects use the more general dependency injection approach
53 |   described at https://modularity.org"
54 |   [h routes]
55 |   (fn [req]
56 |     (h (assoc req :routes routes))))
57 | 
58 | (defn get-handler
59 |   "Create the Ring handler for this server"
60 |   []
61 |   (let [routes (make-routes)]
62 |     (-> (make-handler routes) ; bidi's make-handler
63 |         (wrap-inject-routes routes))))
64 | 
65 | (s/defrecord Examples [port :- (s/named s/Int "Web server port")
66 |                        server :- (s/protocol aleph.netty/AlephServer)]
67 |   Lifecycle
68 |   (start [component]
69 |          ;; We use the start phase to start an Aleph server
70 |          (let [server (http/start-server (get-handler) component)]
71 |            (assoc component
72 |                   :server server
73 |                   :port (if (pos? port) port (aleph.netty/port server)))))
74 |   (stop [component]
75 |         (when-let [server (:server component)] (.close server))
76 |         (dissoc component :server)))
77 | 
78 | (defn new-examples [& {:as opts}]
79 |   (map->Examples opts))
80 | 


--------------------------------------------------------------------------------
/lein-template/src/leiningen/new/modular/yada/swagger_ui.clj:
--------------------------------------------------------------------------------
 1 | (ns {{name}}.swagger-ui
 2 |   (:require
 3 |    [clojure.java.io :as io]
 4 |    [com.stuartsierra.component :refer (using)]
 5 |    [modular.component.co-dependency :refer (co-using)]
 6 |    [modular.component.co-dependency.schema :refer (co-dep)]
 7 |    [hiccup.core :refer (html)]
 8 |    [bidi.bidi :refer (tag path-for RouteProvider)]
 9 |    [schema.core :as s]
10 |    [yada.yada :refer (yada)]
11 |    yada.file-resource)
12 |   (:import (modular.bidi Router)))
13 | 
14 | (defn get-handler []
15 |   (yada "swagger-ui"))
16 | 
17 | (s/defrecord SwaggerUi [*router :- (co-dep Router)]
18 |   RouteProvider
19 |   (routes [_] ["/swagger-ui" (get-handler)]))
20 | 
21 | (defn new-swagger-ui [& {:as opts}]
22 |   (->
23 |    (map->SwaggerUi opts)
24 |    (co-using [:router])))
25 | 


--------------------------------------------------------------------------------
/lein-template/test/generate_test.clj:
--------------------------------------------------------------------------------
  1 | (ns generate-test
  2 |   (:require
  3 |    [clojure.test :refer :all]
  4 |    [clojure.java.io :as io]
  5 |    [clojure.java.shell :refer (sh)]
  6 |    [leiningen.new.modular :refer (modular)])
  7 |   (:import
  8 |    (java.nio.file Files)
  9 |    (java.nio.file.attribute FileAttribute)))
 10 | 
 11 | (defn delete-dir
 12 |   ;; Sometimes we don't want to delete the top-level directory because
 13 |   ;; it forces us to cd back into it from the shell when testing.
 14 |   ([dir] (delete-dir dir false))
 15 |   ([dir inclusive?]
 16 |      (when (.exists dir)
 17 |        (doseq [f (.listFiles dir)]
 18 |          (cond
 19 |           (Files/isSymbolicLink (.toPath f)) (Files/delete (.toPath f))
 20 |           (.isDirectory f) (delete-dir f true)
 21 |           (.isFile f)
 22 |           (io/delete-file f)))
 23 |        (when inclusive? (io/delete-file dir true)))))
 24 | 
 25 | (defn get-tmp-dir []
 26 |   (doto
 27 |       (io/file (System/getProperty "java.io.tmpdir") "modular-lein-template")
 28 |     (.mkdirs)))
 29 | 
 30 | (defn generate-project [name app-template & args]
 31 |   (println "Generate project")
 32 |   (let [dir (get-tmp-dir)
 33 |         projectdir (io/file dir name)]
 34 |     (println "Deleting directory" projectdir)
 35 |     (delete-dir projectdir)
 36 |     (binding [leiningen.new.templates/*dir* projectdir
 37 |               leiningen.new.templates/*force?* true]
 38 |       (println "Applying modular")
 39 |       (try
 40 |         (apply modular name app-template args)
 41 |         (catch Exception e (.printStackTrace e))))))
 42 | 
 43 | (defn generate-checkout [name src project]
 44 |   (println "Generate checkout:" project)
 45 |   (let [dir (get-tmp-dir)
 46 |         projectdir (io/file dir name)
 47 |         checkouts (io/file projectdir "checkouts")]
 48 |     (.mkdirs checkouts)
 49 |     (Files/createSymbolicLink
 50 |      (.resolve (.toPath checkouts) project)
 51 |      (.toPath (io/file src))
 52 |      (make-array FileAttribute 0))))
 53 | 
 54 | #_(defn project-fixture [f]
 55 |   (generate-project "myapp" "hello-world-web")
 56 |   (f))
 57 | 
 58 | #_(use-fixtures :once project-fixture)
 59 | 
 60 | (deftest hello-world-web-tests
 61 |   (let [name "hello-world-web-example"]
 62 |     (generate-project name "hello-world-web")
 63 | 
 64 |     (testing "project file should exist"
 65 |       (is (.exists (io/file (get-tmp-dir) (str name "/project.clj")))))))
 66 | 
 67 | (deftest bidi-hello-world-tests
 68 |   (let [name "bidi-hello-world-example"]
 69 |     (generate-project name "bidi-hello-world")
 70 | 
 71 |     #_(generate-checkout name "/home/malcolm/Dropbox/src/modular/modules/bidi" "modular.bidi")
 72 | 
 73 |     (testing "project file should exist"
 74 |       (is (.exists (io/file (get-tmp-dir) (str name "/project.clj")))))))
 75 | 
 76 | (deftest templated-bidi-website-tests
 77 |   (let [name "templated-bidi-website-example"]
 78 |     (generate-project name "templated-bidi-website")
 79 |     #_(generate-checkout name "/home/malcolm/Dropbox/src/modular/modules/template" "template")
 80 |     #_(generate-checkout name "/home/malcolm/Dropbox/src/modular/modules/clostache" "clostache")
 81 |     #_(generate-checkout name "/home/malcolm/Dropbox/src/modular/modules/bidi" "modular.bidi")
 82 |     ;;(generate-checkout name "/home/malcolm/Dropbox/src/bidi" "bidi")
 83 | 
 84 |     (testing "project file should exist"
 85 |       (is (.exists (io/file (get-tmp-dir) (str name "/project.clj")))))))
 86 | 
 87 | (deftest bootstrap-cover-tests
 88 |   (let [name "bootstrap-cover-example"]
 89 |     (generate-project name "bootstrap-cover")
 90 | 
 91 |     (testing "project file should exist"
 92 |       (is (.exists (io/file (get-tmp-dir) (str name "/project.clj")))))))
 93 | 
 94 | (deftest sse-tests
 95 |   (let [name "sse-example"]
 96 |     (generate-project name "sse")
 97 |     #_(generate-checkout name "/home/malcolm/Dropbox/src/modular/modules/async" "modular.async")
 98 |     #_(generate-checkout name "/home/malcolm/Dropbox/src/modular/modules/http-kit-events" "modular.http-kit-events")
 99 |     (testing "project file should exist"
100 |       (is (.exists (io/file (get-tmp-dir) (str name "/project.clj")))))))
101 | 
102 | (deftest dashboard-tests
103 |   (let [name "dashboard-example"]
104 |     (generate-project name "dashboard")
105 |     #_(generate-checkout name "/home/malcolm/Dropbox/src/modular/modules/cljs" "modular.cljs")
106 |     #_(generate-checkout name "/home/malcolm/Dropbox/src/modular/modules/less" "modular.less")
107 |     (testing "project file should exist"
108 |       (is (.exists (io/file (get-tmp-dir) (str name "/project.clj")))))))
109 | 
110 | (deftest clean-blog-tests
111 |   (let [name "clean-blog-example"]
112 |     (generate-project name "clean-blog")
113 |     (testing "project file should exist"
114 |       (is (.exists (io/file (get-tmp-dir) (str name "/project.clj")))))))
115 | 
116 | (deftest protected-site-tests
117 |   (let [name "protected-site-example"]
118 |     (generate-project name "protected-site")
119 |     (generate-checkout name "/home/malcolm/Dropbox/src/cylon" "cylon")
120 |     (testing "project file should exist"
121 |       (is (.exists (io/file (get-tmp-dir) (str name "/project.clj")))))))
122 | 
123 | (deftest intro-tests
124 |   (let [name "intro-example"]
125 |     (generate-project name "intro")
126 |     (testing "project file should exist"
127 |       (is (.exists (io/file (get-tmp-dir) (str name "/project.clj")))))))
128 | 
129 | (deftest yada-tests
130 |   (let [name "yada-example"]
131 |     (generate-project name "yada")
132 |     (testing "project file should exist"
133 |       (is (.exists (io/file (get-tmp-dir) (str name "/project.clj")))))))
134 | 


--------------------------------------------------------------------------------
/modules/aleph/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (defproject juxt.modular/aleph "0.1.4"
 4 |   :description "A modular extension that provides support for aleph"
 5 |   :url "https://github.com/juxt/modular/tree/master/modules/aleph"
 6 |   :license {:name "The MIT License"
 7 |             :url "http://opensource.org/licenses/MIT"}
 8 |   :dependencies [[aleph "0.4.1-beta3" :exclusions [org.clojure/clojure]]
 9 |                  [prismatic/schema "1.0.4"]
10 |                  [juxt.modular/ring "0.5.3" :exclusions [prismatic/schema]]]
11 |   :profiles {:dev {:dependencies
12 |                    [[org.clojure/clojure "1.7.0"]
13 |                     [com.stuartsierra/component "0.3.1"]]}})
14 | 


--------------------------------------------------------------------------------
/modules/aleph/src/modular/aleph.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (ns modular.aleph
 4 |   (:require
 5 |    [com.stuartsierra.component :refer (Lifecycle)]
 6 |    [schema.core :as s]
 7 |    [modular.ring :refer (request-handler WebRequestHandler)]
 8 |    [aleph.http :as http]
 9 |    ))
10 | 
11 | (defn get-handler
12 |   "Extract the Ring handler from the component"
13 |   [component]
14 |   (or
15 |    ;; Handlers can be specified as a constructor arg
16 |    (when (:handler component) (request-handler (:handler component)))
17 | 
18 |    ;; Or as a dependency (which satisfies WebRequestHandler)
19 |    (when-let [provider (first (filter #(satisfies? WebRequestHandler %) (vals component)))]
20 |      (request-handler provider))
21 | 
22 |    ;; Or an exception is thrown
23 |    (throw (ex-info (format "aleph http server requires a handler, or a dependency that satisfies %s" WebRequestHandler) {}))))
24 | 
25 | (defrecord Webserver [handler]
26 |   Lifecycle
27 |   (start [component]
28 |     (let [server (http/start-server (get-handler component) component)]
29 |       (assoc component :server server)))
30 |   (stop [component]
31 |     (when-let [server (:server component)]
32 |       (.close server))
33 |     (dissoc component :server)))
34 | 
35 | (def new-webserver-schema
36 |   {:port s/Int
37 |    s/Keyword s/Any})
38 | 
39 | (defn new-webserver [& {:as opts}]
40 |   (->> opts
41 |     (merge {:port 0})
42 |     (s/validate new-webserver-schema)
43 |     map->Webserver))
44 | 


--------------------------------------------------------------------------------
/modules/async/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (defproject juxt.modular/async "0.5.3"
 4 |   :description "A modular extension that provides support core.async"
 5 |   :url "https://github.com/juxt/modular/tree/master/modules/async"
 6 |   :license {:name "The MIT License"
 7 |             :url "http://opensource.org/licenses/MIT"}
 8 |   :dependencies [[prismatic/schema "0.2.1"]
 9 |                  [org.clojure/core.async "0.1.346.0-17112a-alpha"]
10 |                  [org.clojure/tools.logging "0.2.6"]])
11 | 


--------------------------------------------------------------------------------
/modules/async/src/modular/async.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (ns modular.async
 4 |   "Make a core.async channel available as a component, so that
 5 |   channels can be named and wired up in the system configuration."
 6 |   (:require
 7 |    [com.stuartsierra.component :as component :refer (Lifecycle using)]
 8 |    [clojure.core.async :refer (chan mult tap)]
 9 |    [clojure.core.async.impl.protocols :as aimpl]
10 |    [schema.core :as s]))
11 | 
12 | (defprotocol ChannelProvider
13 |   (channel [_] "Return a channel"))
14 | 
15 | (defrecord Channel [channel]
16 |   Lifecycle
17 |   (start [component] (assoc component :channel channel))
18 |   (stop [component] component)
19 |   ChannelProvider
20 |   (channel [component] channel))
21 | 
22 | (defn new-channel [& {:as opts}]
23 |   (->> opts
24 |        (s/validate {(s/optional-key :channel) (s/protocol aimpl/Channel)
25 |                     (s/optional-key :size) s/Int})
26 |        (merge {:channel (if-let [size (:size opts)]
27 |                           (chan size)
28 |                           (chan))})
29 |        map->Channel))
30 | 
31 | ;; A Mult accepts a mult and optionally takes a :tap-channel-provider
32 | ;; dependency which will provide channels that can be used with tap.
33 | 
34 | (defrecord Mult [size channel-provider tap-channel-provider]
35 |   Lifecycle
36 |   (start [component]
37 |     (s/validate
38 |      {:channel-provider (s/protocol ChannelProvider)
39 |       :tap-channel-provider (s/maybe (s/protocol ChannelProvider))}
40 |      {:channel-provider channel-provider
41 |       :tap-channel-provider tap-channel-provider})
42 |     (assoc component :mult (mult (channel channel-provider))))
43 |   (stop [component] component)
44 |   ChannelProvider
45 |   (channel [component]
46 |     (tap
47 |      (:mult component)
48 |      (if tap-channel-provider
49 |        (channel tap-channel-provider)
50 |        (if size
51 |          (chan size)
52 |          (chan))))))
53 | 
54 | (defn new-mult [& {:as opts}]
55 |   (->
56 |    (->> opts
57 |         (s/validate {(s/optional-key :size) s/Int})
58 |         map->Mult)
59 |    (using [:channel-provider])))
60 | 


--------------------------------------------------------------------------------
/modules/bidi/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (defproject juxt.modular/bidi "0.9.5"
 4 |   :description "A modular extension that provides support for bidi routing"
 5 |   :url "https://github.com/juxt/modular/tree/master/modules/bidi"
 6 |   :license {:name "The MIT License"
 7 |             :url "http://opensource.org/licenses/MIT"}
 8 |   :dependencies [[com.stuartsierra/component "0.3.1"]
 9 |                  [bidi "1.24.0"]
10 |                  [juxt.modular/ring "0.5.3"]
11 |                  [prismatic/schema "1.0.4"]]
12 |   :profiles {:dev
13 |              {:dependencies [[ring-mock "0.1.5"]]}})
14 | 


--------------------------------------------------------------------------------
/modules/bidi/src/modular/bidi.clj:
--------------------------------------------------------------------------------
  1 | ;; Copyright © 2014 JUXT LTD.
  2 | 
  3 | (ns modular.bidi
  4 |   (:require
  5 |    [schema.core :as s]
  6 |    [modular.ring :refer (WebRequestHandler)]
  7 |    [com.stuartsierra.component :as component :refer (Lifecycle)]
  8 |    [bidi.bidi :as bidi :refer (match-route resolve-handler RouteProvider tag)]
  9 |    [bidi.ring :refer (resources-maybe make-handler redirect archive)]
 10 |    [clojure.java.io :as io]))
 11 | 
 12 | (defrecord WebResources [uri-context resource-prefix key maybe?]
 13 |   RouteProvider
 14 |   (routes [_]
 15 |     [uri-context
 16 |      (-> ((if maybe?
 17 |             bidi.ring/resources-maybe
 18 |             bidi.ring/resources)
 19 |           {:prefix resource-prefix})
 20 |          (tag key))]))
 21 | 
 22 | (def new-web-resources-schema
 23 |   {:uri-context s/Str
 24 |    :resource-prefix s/Str
 25 |    :key s/Keyword
 26 |    :maybe? s/Bool})
 27 | 
 28 | (defn new-web-resources [& {:as opts}]
 29 |   (->> opts
 30 |        (merge {:uri-context "/"
 31 |                :resource-prefix ""
 32 |                :key :web-resources
 33 |                :maybe? true})
 34 |     (s/validate new-web-resources-schema)
 35 |     (map->WebResources)))
 36 | 
 37 | (defrecord ArchivedWebResources [archive uri-context resource-prefix]
 38 |   RouteProvider
 39 |   (routes [_] [uri-context (bidi.ring/archive
 40 |                             {:archive archive
 41 |                              :resource-prefix resource-prefix})]))
 42 | 
 43 | (def new-archived-web-resources-schema
 44 |   {:archive (s/protocol clojure.java.io/IOFactory)
 45 |    :uri-context s/Str
 46 |    :resource-prefix s/Str})
 47 | 
 48 | (defn new-archived-web-resources [& {:as opts}]
 49 |   (->> opts
 50 |        (merge {:uri-context "/"
 51 |                :resource-prefix "/"})
 52 |     (s/validate new-archived-web-resources-schema)
 53 |     (map->ArchivedWebResources)))
 54 | 
 55 | (defrecord Redirect [from to]
 56 |   RouteProvider
 57 |   (routes [_]
 58 |     [from (redirect to)]))
 59 | 
 60 | (defn new-redirect [& {:as opts}]
 61 |   (->> opts
 62 |     (merge {:from "/"})
 63 |     (s/validate {:from s/Str :to (s/either s/Keyword s/Str)})
 64 |     map->Redirect))
 65 | 
 66 | ;; -----------------------------------------------------------------------
 67 | 
 68 | (defn as-request-handler
 69 |   "Convert a RouteProvider component into Ring handler."
 70 |   [service not-found-handler]
 71 |   (assert (satisfies? RouteProvider service))
 72 |   (some-fn
 73 |    (make-handler
 74 |     (cond
 75 |       (satisfies? RouteProvider service)
 76 |       (bidi/routes service)))
 77 | 
 78 |    not-found-handler))
 79 | 
 80 | (defrecord Router [not-found-handler]
 81 |   component/Lifecycle
 82 |   (start [component]
 83 |     (assoc component
 84 |            :routes ["" (vec
 85 |                         (remove nil?
 86 |                                 (for [[ckey v] component]
 87 |                                   (when (satisfies? RouteProvider v)
 88 |                                     (bidi/routes v)))))]))
 89 |   (stop [this] this)
 90 | 
 91 |   RouteProvider
 92 |   (routes [this] (:routes this))
 93 | 
 94 |   WebRequestHandler
 95 |   (request-handler [this] (as-request-handler this not-found-handler)))
 96 | 
 97 | (def new-router-schema
 98 |   {:not-found-handler (s/=>* {:status s/Int
 99 |                               s/Keyword s/Any}
100 |                              [{:uri s/Str
101 |                                s/Keyword s/Any}])})
102 | 
103 | (defn new-router
104 |   "Constructor for a ring handler that collates all bidi routes
105 |   provided by its dependencies."
106 |   [& {:as opts}]
107 |   (->> opts
108 |     (merge {:not-found-handler (constantly {:status 404 :body "Not found"})})
109 |        (s/validate new-router-schema)
110 |        map->Router))
111 | 
112 | (defn path-for
113 |   "Convenience function wrapping bidi's path-for"
114 |   [router target & args]
115 |   #_(assert (satisfies? Router router) "Router argument must satisfy")
116 |   (apply bidi/path-for (:routes router) target args))
117 | 
118 | ;; ------  TODO Router needs to display all possible routes available,
119 | ;; ------  as debug data, so that people can see easily which routes are
120 | ;; ------  available. This addresses one of the more difficult and
121 | ;; ------  potentially frustrating cases of "computer says no" when the
122 | ;; ------  URI doesn't seem to dispatch to anything and no clues as to
123 | ;; ------  why! These routes can be determined by a tree walk.
124 | 


--------------------------------------------------------------------------------
/modules/bootstrap/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (defproject juxt.modular/bootstrap "0.2.0"
 4 |   :description "A modular extension that HTML rendering of components with the Twitter Bootstrap library."
 5 |   :url "https://github.com/juxt/modular/tree/master/modules/bootstrap"
 6 |   :license {:name "The MIT License"
 7 |             :url "http://opensource.org/licenses/MIT"}
 8 |   :exclusions [org.clojure/clojure]
 9 |   :dependencies [[com.stuartsierra/component "0.2.1"]
10 |                  [prismatic/schema "0.2.1"]
11 |                  [prismatic/plumbing "0.2.2"]
12 |                  [hiccup "1.0.5"]
13 |                  [garden "1.1.5"]
14 |                  [juxt.modular/menu "0.5.3"]
15 |                  [juxt.modular/web-template "0.5.1"]
16 |                  [juxt.modular/bidi "0.5.2"]])
17 | 


--------------------------------------------------------------------------------
/modules/bootstrap/src/modular/bootstrap.clj:
--------------------------------------------------------------------------------
1 | (ns modular.bootstrap)
2 | 
3 | (defprotocol ContentBoilerplate
4 |   (wrap-content-in-boilerplate [_ req content]))
5 | 


--------------------------------------------------------------------------------
/modules/bootstrap/src/modular/bootstrap/menu.clj:
--------------------------------------------------------------------------------
 1 | (ns modular.bootstrap.menu
 2 |   (:require
 3 |    [com.stuartsierra.component :as component]
 4 |    [modular.web-template :refer (DynamicTemplateData)]
 5 |    [bidi.bidi :refer (path-for)]
 6 |    [hiccup.core :refer (html)]
 7 |    [schema.core :as s]
 8 |    [modular.menu :refer (menu-items)]))
 9 | 
10 | (defrecord BootstrapMenu []
11 |   DynamicTemplateData
12 |   (dynamic-template-data [this {routes :modular.bidi/routes :as req}]
13 |     (assert routes
14 |             "routes cannot be nil, menus must be fronted with a bidi router component so that uris can be generated")
15 |     (let [menu (menu-items (:menu-index this))]
16 |       {:menu
17 |        (html
18 |         (apply concat
19 |                (for [[parent items] menu]
20 |                  (let [listitems
21 |                        (remove nil?
22 |                                (for [{:keys [target order label args visible?] :or {visible? (constantly true)} :as ctx} items]
23 |                                  (when (visible? (-> ctx
24 |                                                      (assoc :request req)
25 |                                                      (dissoc :visible?)))
26 | 
27 |                                    [:li (when (= label "Starbuck") {:class "active"})
28 |                                     (if target
29 |                                       [:a {:href (apply path-for routes target args)} label]
30 |                                       ;; To render properly in bootstrap, need this to be an a element.
31 |                                       [:a {:href "#"} label])])))]
32 |                    (if parent
33 |                      (list
34 |                       [:li.dropdown
35 |                        [:a.dropdown-toggle {:data-toggle "dropdown"} parent [:b.caret]]
36 |                        [:ul.dropdown-menu listitems]])
37 |                      listitems)))))})))
38 | 
39 | (defn new-bootstrap-menu []
40 |   (component/using (->BootstrapMenu) [:menu-index]))
41 | 
42 | (defrecord SideMenu []
43 |   DynamicTemplateData
44 |   (dynamic-template-data [this {routes :modular.bidi/routes :as req}]
45 |     (let [menu (menu-items (:menu-index this))]
46 |       {:menu
47 |        (html
48 |         (apply concat
49 |                (for [[parent items] menu]
50 |                  (let [listitems
51 |                        (remove nil?
52 |                                (for [{:keys [target order label args visible?] :or {visible? (constantly true)} :as ctx} items]
53 |                                  (when (visible? (-> ctx
54 |                                                      (assoc :request req)
55 |                                                      (dissoc :visible?)))
56 |                                    [:li [:a {:href (apply path-for routes target args)} label]])))]
57 | 
58 |                    (if (and parent (not-empty listitems))
59 |                      (list
60 |                       [:li [:a {:data-toggle "collapse"
61 |                                 :data-parent "#accordion"
62 |                                 :href (str "#" parent)
63 |                                 :class "collapsed"
64 |                                 } parent]]
65 |                       [:div {:id (str parent) :class "collapse out"}
66 |                        [:ul listitems]])
67 |                      listitems
68 |                      )))))})))
69 | 
70 | (defn new-side-menu []
71 |   (component/using (->SideMenu) [:menu-index]))
72 | 


--------------------------------------------------------------------------------
/modules/cassandra/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (defproject juxt.modular/cassandra "0.4.0"
 4 |   :description "A modular extension that provides support for Cassandra (via cassaforte)"
 5 |   :url "https://github.com/juxt/modular/tree/master/modules/cassandra"
 6 |   :license {:name "The MIT License"
 7 |             :url "http://opensource.org/licenses/MIT"}
 8 |   :dependencies [[clojurewerkz/cassaforte "2.0.0"]
 9 |                  [prismatic/schema "0.2.1"]])
10 | 


--------------------------------------------------------------------------------
/modules/cassandra/src/modular/cassandra.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (ns modular.cassandra
 4 |   (:require
 5 |    [schema.core :as s]
 6 |    [com.stuartsierra.component :as component]
 7 |    [clojurewerkz.cassaforte.client :as client]))
 8 | 
 9 | (defrecord Cluster [opts]
10 |   component/Lifecycle
11 |   (start [this]
12 |     (assoc this :cluster (client/build-cluster opts)))
13 |   (stop [this]
14 |     (when-let [cluster (:cluster this)]
15 |       (.shutdown cluster))
16 |     this))
17 | 
18 | (def ClusterSchema
19 |   {:hosts [s/Str]
20 |    :port s/Int})
21 | 
22 | (def ClusterDefaults
23 |   {:hosts ["127.0.0.1"]
24 |    :port 9042})
25 | 
26 | (defn new-cluster [opts]
27 |   (->Cluster (s/validate ClusterSchema (merge ClusterDefaults opts))))
28 | 
29 | (defrecord Session [opts]
30 |   component/Lifecycle
31 |   (start [this]
32 |     (assoc this :session (client/connect (get-in this [:cluster :cluster]) (:keyspace opts))))
33 |   (stop [this]
34 |     (when-let [session (:session this)]
35 |       (.shutdown session))
36 |     this))
37 | 
38 | (def SessionSchema
39 |   {:keyspace s/Keyword})
40 | 
41 | (def SessionDefaults {})
42 | 
43 | (defn new-session [opts]
44 |   (->Session (s/validate SessionSchema (merge SessionDefaults opts))))
45 | 


--------------------------------------------------------------------------------
/modules/cljs/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (defproject juxt.modular/cljs "0.6.0"
 4 |   :description "A modular extension that provides support for ClojureScript building and Javascript serving"
 5 |   :url "https://github.com/juxt/modular/tree/master/modules/cljs"
 6 |   :license {:name "The MIT License"
 7 |             :url "http://opensource.org/licenses/MIT"}
 8 |   :dependencies [[juxt.modular/bidi "0.9.0"]
 9 |                  [juxt.modular/template "0.6.2"]
10 |                  [prismatic/schema "0.3.5"]
11 |                  [thheller/shadow-build "0.5.0" :exclusions [org.clojure/clojurescript]]])
12 | 


--------------------------------------------------------------------------------
/modules/cljs/src/modular/cljs.clj:
--------------------------------------------------------------------------------
  1 | ;; Copyright © 2014 JUXT LTD.
  2 | 
  3 | (ns modular.cljs
  4 |   (:require
  5 |    [com.stuartsierra.component :as component]
  6 |    [modular.template :refer (TemplateModel)]
  7 |    [bidi.bidi :refer (handler RouteProvider)]
  8 |    [bidi.ring :refer (files)]
  9 |    [shadow.cljs.build :as cljs]
 10 |    [clojure.java.io :as io]
 11 |    [schema.core :as s]
 12 |    [com.stuartsierra.dependency :as dep]))
 13 | 
 14 | (def cljs-compiler-state (ref {}))
 15 | 
 16 | (def cljs-compiler-compile-count (ref {}))
 17 | 
 18 | (defn add-modules [state modules]
 19 |   (reduce (fn [state {:keys [name mains dependencies]}]
 20 |             (cljs/step-configure-module state name mains dependencies))
 21 |           state modules))
 22 | 
 23 | (defn compile-cljs [builder modules {:keys [context source-path target-dir work-dir
 24 |                                             optimizations pretty-print]}]
 25 | 
 26 |   (let [state (if-let [s (get @cljs-compiler-state builder)]
 27 |                 (do
 28 |                   (println "cljs: Using existing state")
 29 |                   s)
 30 |                 (do
 31 |                   (println "cljs: Creating new state")
 32 |                   (-> (cljs/init-state)
 33 |                       (cljs/enable-source-maps)
 34 |                       (assoc :optimizations optimizations
 35 |                              :pretty-print pretty-print
 36 |                              :work-dir (io/file work-dir) ;; temporary output path, not really needed
 37 |                              :public-dir (io/file target-dir) ;; where should the output go
 38 |                              :public-path context) ;; whats the path the html has to use to get the js?
 39 |                       (cljs/step-find-resources-in-jars) ;; finds cljs,js in jars from the classpath
 40 |                       (cljs/step-find-resources "lib/js-closure" {:reloadable false})
 41 |                       (cljs/step-find-resources source-path) ;; find cljs in this path
 42 |                       (cljs/step-finalize-config) ;; shouldn't be needed but is at the moment
 43 |                       (cljs/step-compile-core)    ;; compile cljs.core
 44 |                       (add-modules modules)
 45 |                       )))]
 46 | 
 47 |     (let [new-state (-> state
 48 |                         (cljs/step-reload-modified)
 49 |                         (cljs/step-compile-modules)
 50 |                         (cljs/flush-unoptimized))]
 51 |       (dosync
 52 |        (alter cljs-compiler-state (fn [m] (assoc-in m [builder] new-state)))
 53 |        (alter cljs-compiler-compile-count (fn [m] (update-in m [builder] (fnil inc 0))))))
 54 | 
 55 |     (println (format "Compiled %d times since last full compile (%s)" (get @cljs-compiler-compile-count builder) builder)))
 56 | 
 57 |   :done)
 58 | 
 59 | (defprotocol ClojureScriptModule
 60 |   (get-definition [_]
 61 |     "Return a map of :name, :mains and :dependencies."))
 62 | 
 63 | (defn new-cljs-module [& {:as opts}]
 64 |   (let [opts
 65 |         (as-> opts %
 66 |               (merge {:dependencies #{}} %)
 67 |               (s/validate {:name s/Keyword
 68 |                            :mains [s/Any]
 69 |                            :dependencies #{s/Keyword}} %))]
 70 |     (reify ClojureScriptModule
 71 |       (get-definition [_] opts))))
 72 | 
 73 | (defprotocol JavaScripts
 74 |   (get-javascript-paths [_]))
 75 | 
 76 | (def new-cljs-builder-schema
 77 |   {:id s/Keyword
 78 |    :context s/Str
 79 |    :source-path s/Str
 80 |    :target-dir s/Str
 81 |    :work-dir s/Str
 82 |    :optimizations (s/enum :none :whitespace :simple :advanced)
 83 |    :pretty-print s/Bool
 84 |    })
 85 | 
 86 | (defrecord ClojureScriptBuilder [id context target-dir optimizations pretty-print]
 87 |   component/Lifecycle
 88 |   (start [component]
 89 |     (let [modules (map get-definition (filter (partial satisfies? ClojureScriptModule) (vals component)))]
 90 |       (try
 91 |         (compile-cljs id
 92 |                       modules (select-keys component (keys new-cljs-builder-schema)))
 93 |         (cond
 94 |           (and (= optimizations :none)
 95 |                (= pretty-print true))
 96 |           ;; Only do this on optimizations: none and pretty-print: true - do
 97 |           ;; something different for each optimization mode (TODO)
 98 |           (assoc component
 99 |                  :javascripts
100 |                  (for [n (dep/topo-sort
101 |                           ;; Build a dependency graph between all the modules so
102 |                           ;; they load in the correct order.
103 |                           (reduce (fn [g {:keys [name dependencies]}]
104 |                                     (reduce (fn [g d] (dep/depend g name d)) g dependencies))
105 |                                   (dep/graph) modules))]
106 |                    (str context (name n) ".js")))
107 |           :otherwise component)
108 |         (catch Exception e
109 |           (println "ClojureScript build failed:" e)
110 |           (assoc component :error e)))))
111 |   (stop [component] component)
112 | 
113 |   RouteProvider
114 |   (routes [component]
115 |     [context (files {:dir target-dir
116 |                      :mime-types {"map" "application/javascript"}})])
117 | 
118 |   JavaScripts
119 |   (get-javascript-paths [component] (:javascripts component))
120 | 
121 |   TemplateModel
122 |   (template-model [component _] {:javascripts (get-javascript-paths component)}))
123 | 
124 | (defn new-cljs-builder [& {:as opts}]
125 |   (->> opts
126 |        (merge {:id ::default
127 |                :context (if-let [id (:id opts)]
128 |                               (format "/cljs-%s/" (name id))
129 |                               "/cljs/")
130 |                :source-path "src-cljs"
131 |                :target-dir (if-let [id (:id opts)]
132 |                              (str "target/cljs/" (name id))
133 |                              "target/cljs")
134 |                :work-dir "target/cljs-work"
135 |                :optimizations :none
136 |                :pretty-print true})
137 |        (s/validate new-cljs-builder-schema)
138 |        map->ClojureScriptBuilder))
139 | 


--------------------------------------------------------------------------------
/modules/clostache/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (defproject juxt.modular/clostache "0.6.3"
 4 |   :description "A modular extension that provides a Clostache templater for juxt.modular/template"
 5 |   :url "https://github.com/juxt/modular/tree/master/modules/clostache"
 6 |   :license {:name "The MIT License"
 7 |             :url "http://opensource.org/licenses/MIT"}
 8 |   :dependencies [[com.stuartsierra/component "0.2.2"]
 9 |                  [de.ubercode.clostache/clostache "1.4.0"]
10 |                  [juxt.modular/template "0.6.3"]
11 |                  ])
12 | 


--------------------------------------------------------------------------------
/modules/clostache/src/modular/clostache.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (ns modular.clostache
 4 |   (:require
 5 |    [modular.template :refer (Templater)]
 6 |    [clostache.parser :as parser]))
 7 | 
 8 | (defrecord ClostacheTemplater []
 9 |   Templater
10 |   (render-template [_ template model]
11 |     (parser/render-resource template model)))
12 | 
13 | (defn new-clostache-templater [& {:as opts}]
14 |   (->> opts
15 |        map->ClostacheTemplater))
16 | 


--------------------------------------------------------------------------------
/modules/datomic/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (defproject juxt.modular/datomic "0.2.1"
 4 |   :description "A modular extension that provides support for Datomic"
 5 |   :url "https://github.com/juxt/modular/tree/master/modules/datomic"
 6 |   :license {:name "The MIT License"
 7 |             :url "http://opensource.org/licenses/MIT"}
 8 |   :dependencies [[prismatic/schema "0.2.1"]
 9 |                  [org.clojure/tools.reader "0.8.3"]
10 |                  ])
11 | 


--------------------------------------------------------------------------------
/modules/datomic/src/modular/datomic.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (ns modular.datomic
 4 |   (:require
 5 |    [clojure.java.io :as io]
 6 |    [com.stuartsierra.component :as component]
 7 |    [clojure.tools.reader.reader-types :refer (indexing-push-back-reader)]
 8 |    [datomic.api :as d]
 9 |    [schema.core :as s]
10 |    clojure.tools.reader))
11 | 
12 | (defn conn [connection-comp]
13 |       (:connection connection-comp))
14 | 
15 | (defrecord EphemeralDatabase [uri]
16 |   component/Lifecycle
17 |   (start [this]
18 |     (d/create-database uri)
19 |     this)
20 | 
21 |   (stop [this]
22 |     (d/delete-database uri)
23 |     (d/shutdown false)
24 |     this))
25 | 
26 | (defrecord DurableDatabase [uri]
27 |   component/Lifecycle
28 |   (start [this] this)
29 |   (stop [this]
30 |     (d/shutdown false)
31 |     this))
32 | 
33 | (def new-datomic-database-schema
34 |   {:uri s/Str
35 |    :ephemeral? s/Bool})
36 | 
37 | (defn new-datomic-database [& {:as opts}]
38 |   (let [{:keys [uri ephemeral?]} (->> opts
39 |                            (merge {:ephemeral? false})
40 |                            (s/validate new-datomic-database-schema))]
41 |     (if ephemeral?
42 |       (->EphemeralDatabase uri)
43 |       (->DurableDatabase uri))))
44 | 
45 | (defrecord DatomicConnection []
46 |   component/Lifecycle
47 |   (start [this] (assoc this :connection (d/connect (get-in this [:database :uri]))))
48 |   (stop [this] (d/release (:connection this)) (dissoc this :connection)))
49 | 
50 | (defn new-datomic-connection []
51 |   (component/using
52 |    (->DatomicConnection)
53 |    [:database]))
54 | 
55 | (defrecord DatomicSchema [res]
56 |   component/Lifecycle
57 |   (start [this]
58 |     (with-open [rdr (java.io.PushbackReader. (io/reader res))]
59 |       @(d/transact (conn (this :connection))
60 |                    (binding [clojure.tools.reader/*data-readers*
61 |                              {'db/id datomic.db/id-literal
62 |                               'db/fn datomic.function/construct
63 |                               'base64 datomic.codec/base-64-literal}]
64 |                      (clojure.tools.reader/read (indexing-push-back-reader rdr)))))
65 |     this)
66 |   (stop [this] this))
67 | 
68 | (defn new-datomic-schema [res]
69 |   (component/using
70 |    (->DatomicSchema res)
71 |    [:connection]))
72 | 
73 | 
74 | (defn create-functions [functions]
75 |   (vec
76 |    (for [[ident {:keys [doc params path]}] functions]
77 |      {:db/id (d/tempid :db.part/user)
78 |       :db/ident ident
79 |       :db/doc doc
80 |       :db/fn (d/function {:lang "clojure" :params params :code (slurp (io/resource path))})})))
81 | 
82 | (defrecord DatomicFunctions [functions]
83 |   component/Lifecycle
84 |   (start [this]
85 |     @(d/transact (conn (this :connection)) (create-functions functions))
86 |     this)
87 |   (stop [this] this))
88 | 
89 | (defn new-datomic-functions [functions]
90 |   (component/using
91 |    (->DatomicFunctions functions)
92 |    [:connection]))
93 | 


--------------------------------------------------------------------------------
/modules/email/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (defproject juxt.modular/email "0.0.1"
 4 |   :description "A modular extension that represents the an email interface"
 5 |   :url "https://github.com/juxt/modular/tree/master/modules/email"
 6 |   :license {:name "The MIT License"
 7 |             :url "http://opensource.org/licenses/MIT"}
 8 |   :dependencies [[com.stuartsierra/component "0.2.2"]
 9 |                  [prismatic/schema "0.3.2"]]
10 |   :profiles {:dev {:dependencies [[org.clojure/clojure "1.7.0-alpha4"]]}})
11 | 


--------------------------------------------------------------------------------
/modules/email/src/modular/email.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2015 JUXT LTD.
 2 | 
 3 | (ns modular.email
 4 |   (:require
 5 |    [schema.core :as s]
 6 |    [modular.email.protocols :as p]))
 7 | 
 8 | (def MimeType s/Str)
 9 | 
10 | (def FileAttachment
11 |   {:type (s/enum :inline)
12 |    :content-type MimeType
13 |    (s/optional-key :content-id) s/Str
14 |    (s/optional-key :file-name) s/Str
15 |    (s/optional-key :description) s/Str})
16 | 
17 | (def BodyPart
18 |   {:content s/Any
19 |    :type MimeType})
20 | 
21 | (def Multipart
22 |   [(s/one MimeType "mime-type")
23 |    (s/either FileAttachment BodyPart
24 |              (s/recursive #'Multipart))])
25 | 
26 | (s/defschema EmailAddress
27 |   "An email address (relaxed version)"
28 |   (s/pred (fn [s] (re-matches #"\S+@\S+" s))))
29 | 
30 | (s/defschema EmailMessage
31 |   ""
32 |   {:to EmailAddress
33 |    :from EmailAddress
34 |    :subject s/Str
35 |    :body (s/either s/Str Multipart)
36 |    ;; Optional headers allowed
37 |    s/Keyword s/Str})
38 | 
39 | (s/defn send-email! :- nil
40 |   [component :- (s/protocol p/Emailer)
41 |    email :- EmailMessage]
42 |   (p/send-email! component email))
43 | 


--------------------------------------------------------------------------------
/modules/email/src/modular/email/log_emailer.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2015 JUXT LTD.
 2 | 
 3 | (ns modular.email.log-emailer
 4 |   (:require
 5 |    [clojure.tools.logging :refer :all]
 6 |    [modular.email.protocols :as p]))
 7 | 
 8 | (defrecord LogEmailer []
 9 |   p/Emailer
10 |   (send-email! [component email]
11 |     (infof "Sending email: %s" email)))
12 | 
13 | (defn new-log-emailer [& {:as opts}]
14 |   (->> opts
15 |        (merge {})
16 |        map->LogEmailer))
17 | 


--------------------------------------------------------------------------------
/modules/email/src/modular/email/protocols.clj:
--------------------------------------------------------------------------------
1 | ;; Copyright © 2015 JUXT LTD.
2 | 
3 | (ns modular.email.protocols)
4 | 
5 | (defprotocol Emailer
6 |   (send-email! [_ data]
7 |     "Send an email, the receipient, subject, body and other details
8 |     being given as data."))
9 | 


--------------------------------------------------------------------------------
/modules/http-kit-events/README.md:
--------------------------------------------------------------------------------
 1 | # http-kit-events
 2 | 
 3 | Components providing support for HTML5 Server Sent Events
 4 | 
 5 | ## Quick start
 6 | 
 7 |     $ lein new modular +sse
 8 | 
 9 | ## Leiningen
10 | 
11 | Add the following to the `:dependencies` section of your project's `project.clj` file :-
12 | 
13 |     [juxt.modular/http-kit-events "0.5.2"]
14 | 
15 | ## Component constructors
16 | 
17 | ### new event-service
18 | 
19 | #### Example usage
20 | 
21 |     (modular.http-kit.events/new-event-service :)
22 | 


--------------------------------------------------------------------------------
/modules/http-kit-events/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (defproject juxt.modular/http-kit-events "0.6.1"
 4 |   :description "A modular extension that provides support for events over http-kit channels"
 5 |   :url "https://github.com/juxt/modular/tree/master/modules/http-kit-events"
 6 |   :license {:name "The MIT License"
 7 |             :url "http://opensource.org/licenses/MIT"}
 8 |   :dependencies [[juxt.modular/http-kit "0.5.4"]
 9 |                  [juxt.modular/bidi "0.9.2"]
10 |                  [juxt.modular/async "0.5.3"]
11 |                  ])
12 | 


--------------------------------------------------------------------------------
/modules/http-kit-events/src/modular/http_kit/events.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (ns modular.http-kit.events
 4 |   (:require
 5 |    [bidi.bidi :refer (RouteProvider handler)]
 6 |    [clojure.core.async :as async :refer (go <! go-loop)]
 7 |    [com.stuartsierra.component :as component]
 8 |    [modular.async :refer (channel)]
 9 |    [org.httpkit.server :refer (with-channel send! on-close)]
10 |    [schema.core :as s]))
11 | 
12 | (def headers {"Content-Type" "text/event-stream"})
13 | 
14 | (defn ->message [data]
15 |   (str "data: " data "\r\n\r\n"))
16 | 
17 | (defn server-event-source [ch]
18 |   ;; Adding a mult here is dangerous because it bleeds the underlying
19 |   ;; channel dry. We should provide the mult via modular.async
20 |   (let [m (async/mult ch)]
21 |     (fn [req]
22 |       (let [ch (async/chan 16)]
23 |         (async/tap m ch)
24 |         (with-channel req net-ch
25 |           (on-close net-ch (fn [_]
26 |                              (async/untap m ch)
27 |                              (async/close! ch)))
28 |           (send! net-ch {:headers headers} false)
29 |           (go-loop []
30 |             (when-let [data (<! ch)]
31 |               (println "Got data! " data)
32 |               (send! net-ch (->message data) false)
33 |               (recur))))))))
34 | 
35 | (defrecord EventService [channel-provider]
36 |   RouteProvider
37 |   (routes [_]
38 |     ["/events" (handler ::events (server-event-source (channel channel-provider)))]))
39 | 
40 | (defn new-event-service [& {:as opts}]
41 |   (component/using
42 |    (->> opts
43 |         (merge {})
44 |         map->EventService)
45 |    [:channel-provider]))
46 | 


--------------------------------------------------------------------------------
/modules/http-kit/notes.org:
--------------------------------------------------------------------------------
 1 | Ring uses blocking I/O by default, because that's often sufficient for most web servers, and is generally easier to reason about. HTTP works best when the response is returned ASAP, which means blocking I/O typically isn't much of a bottleneck.
 2 | 
 3 | However, since Ring 1.2, all of the standard middleware has also been available to use asynchronously, in order to support frameworks like Pedestal. So it's certainly possible to use Ring in an async environment, at least with the core Ring libs.
 4 | 
 5 | Although HTTP Kit doesn't use core.async channels itself, the async protocol used isn't complex. You should be able to hook up core.async/take! to http-kit/send!. Something like:
 6 | 
 7 |     (defn handler [req]
 8 |       (httpkit/with-channel req http-ch
 9 |         (let [resp-ch (async-handler! req)]
10 |           (httpkit/on-close (fn [_] (a/close! resp-ch)))
11 |           (a/take! resp-ch (fn [resp] (httpkit/send! http-ch resp) (httpkit/close http-ch))))))
12 | 
13 | That said, I'd be wary about having HTTP clients wait around on the server. If it's just a few seconds, that seems reasonable, but any longer and you should consider redirecting to a "job" resource instead.
14 | 
15 | - James
16 | 


--------------------------------------------------------------------------------
/modules/http-kit/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (defproject juxt.modular/http-kit "0.5.4"
 4 |   :description "A modular extension that provides support for http-kit channels"
 5 |   :url "https://github.com/juxt/modular/tree/master/modules/http-kit"
 6 |   :license {:name "The MIT License"
 7 |             :url "http://opensource.org/licenses/MIT"}
 8 |   :dependencies [[http-kit "2.1.18"]
 9 |                  [prismatic/schema "0.2.2"]
10 |                  [juxt.modular/ring "0.5.2"]
11 |                  ])
12 | 


--------------------------------------------------------------------------------
/modules/http-kit/src/modular/http_kit.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (ns modular.http-kit
 4 |   (:require
 5 |    [schema.core :as s]
 6 |    [com.stuartsierra.component :as component]
 7 |    [clojure.tools.logging :refer :all]
 8 |    [modular.ring :refer (request-handler WebRequestHandler)]
 9 |    [org.httpkit.server :refer (run-server)]))
10 | 
11 | (def default-port 3000)
12 | 
13 | (defrecord Webserver [port]
14 |   component/Lifecycle
15 |   (start [this]
16 |     (if-let [provider (first (filter #(satisfies? WebRequestHandler %) (vals this)))]
17 |       (let [h (request-handler provider)]
18 |         (assert h)
19 |         (let [server (run-server h {:port port})]
20 |           (assoc this :server server :port port)))
21 |       (throw (ex-info (format "http-kit module requires the existence of a component that satisfies %s" WebRequestHandler)
22 |                       {:this this}))))
23 | 
24 |   (stop [this]
25 |     (if-let [server (:server this)]
26 |       (server))
27 |     (dissoc this :server)))
28 | 
29 | (defn new-webserver [& {:as opts}]
30 |   (let [{:keys [port]} (->> (merge {:port default-port} opts)
31 |                             (s/validate {:port s/Int}))]
32 |     (->Webserver port)
33 |     ))
34 | 


--------------------------------------------------------------------------------
/modules/less/README.md:
--------------------------------------------------------------------------------
 1 | # modular less
 2 | 
 3 | The Less component compiles [Less](http://lesscss.org/) files to CSS.
 4 | 
 5 | The project contains a vanilla compiler component and one pre-configured for [Bootstrap](http://getbootstrap.com/) customization
 6 | 
 7 | This is demonstrated in modular's dashboard template, which shows how
 8 | Bootstrap can be
 9 | [customized](http://www.smashingmagazine.com/2013/03/12/customizing-bootstrap/)
10 | via the Less files, which is more flexible than overlaying a custom CSS
11 | file.
12 | 
13 | ```
14 | lein new modular foo dashboard
15 | ```
16 | 
17 | # Design and develop in the same environment
18 | 
19 | With this component, it is possible to coordinate development with
20 | designers who can make changes to Less files, run a (reset) and test
21 | their changes against the actual working app.
22 | 
23 | 
24 | # References
25 | 
26 | The default configuration of the Bootstrap component follows the conventions described in this article: http://www.smashingmagazine.com/2013/03/12/customizing-bootstrap/
27 | 


--------------------------------------------------------------------------------
/modules/less/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (defproject juxt.modular/less "0.1.3"
 4 |   :description "A modular extension that lets you compile Less files into CSS"
 5 |   :url "https://github.com/juxt/modular/tree/master/modules/less"
 6 |   :license {:name "The MIT License"
 7 |             :url "http://opensource.org/licenses/MIT"}
 8 |   :dependencies [[prismatic/schema "0.3.5"]
 9 |                  [com.stuartsierra/component "0.2.2"]
10 |                  [malcolmsparks/clj-less "1.7.3"]
11 |                  [juxt.modular/bidi "0.9.0"]]
12 | 
13 |   :profiles {:dev {:dependencies
14 |                    [[org.clojure/clojure "1.6.0"]
15 |                     [org.webjars/bootstrap "3.3.0"]
16 |                     [juxt.modular/test "0.1.0"]]}})
17 | 


--------------------------------------------------------------------------------
/modules/less/src/modular/less.clj:
--------------------------------------------------------------------------------
  1 | ;; Copyright © 2014 JUXT LTD.
  2 | 
  3 | (ns modular.less
  4 |   (:require
  5 |    [bidi.bidi :refer (RouteProvider handler)]
  6 |    [com.stuartsierra.component :refer (Lifecycle)]
  7 |    [schema.core :as s]
  8 |    [clj-less.less :refer (run-compiler)]
  9 |    [clojure.java.io :as io]
 10 |    [ring.util.response :refer (file-response content-type)]))
 11 | 
 12 | (defn source->target [path]
 13 |   (when-let [[_ s] (re-matches #"(.*)\.less" path)]
 14 |     (str s ".css")))
 15 | 
 16 | (defn stale? [source-dir target]
 17 |   (>
 18 |    (apply max (conj (map #(.lastModified %) (.listFiles (io/file source-dir))) 1))
 19 |    (.lastModified (io/file target))))
 20 | 
 21 | (defrecord LessCompiler [uri-context source-dir source-path target-dir target-path]
 22 |   Lifecycle
 23 |   (start [component]
 24 |     (let [target-path (or target-path (source->target source-path))
 25 |           target (io/file target-dir target-path)]
 26 |       (when (stale? source-dir target)
 27 |         (run-compiler
 28 |          (assoc component
 29 |                 :source-path (str source-path)
 30 |                 :target-path (str target))))
 31 |       (assoc component :target target :target-path target-path)))
 32 |   (stop [component] component)
 33 | 
 34 |   RouteProvider
 35 |   (routes [component]
 36 |     [(if (.endsWith uri-context "/")
 37 |        uri-context
 38 |        (str uri-context "/"))
 39 |      [[(:target-path component)
 40 |        (fn [_]
 41 |          (-> (:target component)
 42 |              str file-response
 43 |              (content-type "text/css")))]]]))
 44 | 
 45 | (def default-src-dir "src/less")
 46 | 
 47 | (defn new-less-compiler [& {:as opts}]
 48 |   (->> opts
 49 |     (merge
 50 |      {:engine :nashorn
 51 |       :source-dir default-src-dir
 52 |       :loader #(slurp (str (io/file (or (:source-dir opts) default-src-dir) %)))
 53 |       :target-dir "target/css"
 54 |       :uri-context "/css"})
 55 |     (s/validate
 56 |      {:engine (s/enum :javascript :rhino :nashorn)
 57 |       :loader (s/=> s/Str s/Str)
 58 |       :source-dir s/Str
 59 |       :source-path s/Str
 60 |       :target-dir s/Str
 61 |       ;; target-path, if missing, will be a result of concatenating the
 62 |       ;; target-dir with the source-path (with a css suffix)
 63 |       (s/optional-key :target-path) s/Str
 64 |       :uri-context s/Str})
 65 |     map->LessCompiler))
 66 | 
 67 | (defrecord CustomBootstrapLessCompiler [version resource-dir target-path]
 68 |   Lifecycle
 69 |   (start [component]
 70 |     (io/file resource-dir)
 71 |     (let [custom (let [fl (io/file resource-dir "custom-bootstrap.less")]
 72 |                    (when (and (.exists fl) (.isFile fl))
 73 |                      fl))
 74 |           component
 75 |           (cond->
 76 |               component
 77 |             true (assoc :source-path
 78 |                         (or custom
 79 |                             (str (io/resource (format "META-INF/resources/webjars/bootstrap/%s/less/bootstrap.less" version)))))
 80 |             custom (assoc :loader
 81 |                           (fn [x]
 82 |                             (println "Loading" x)
 83 |                             (slurp
 84 |                              (if-let [bootstrap-path (second (re-matches #"/bootstrap/(.*)" x))]
 85 |                                (let [res-path (format "META-INF/resources/webjars/bootstrap/%s/%s" version bootstrap-path)]
 86 |                                  (io/resource res-path))
 87 |                                x)))))]
 88 |       (if (stale? resource-dir target-path)
 89 |         (do
 90 |           (println "Compiling bootstrap less files")
 91 |           (run-compiler component))
 92 |         (println "No bootstrap less compilation necessary"))
 93 |       component))
 94 |   (stop [component] component)
 95 | 
 96 |   RouteProvider
 97 |   (routes [_]
 98 |     ["/custom-bootstrap/"
 99 |      {"css/bootstrap.css"
100 |       (handler ::bootstrap-css (fn [_] (file-response target-path)))}]))
101 | 
102 | (defn new-bootstrap-less-compiler
103 |   "A constructor returning a configured Less compiler for Twitter Bootstrap resources"
104 |   [& {:keys [version] :or {version "3.3.0"} :as opts}]
105 | 
106 |   (if-not (io/resource (format "META-INF/resources/webjars/bootstrap/%s/less/bootstrap.less" version))
107 |     (throw
108 |      (ex-info
109 |       (format "Bootstrap resources not found on classpath, have you added [org.webjars/bootstrap \"%s\"] to project.clj?" version)
110 |       {})))
111 | 
112 |   (->> opts
113 |     (merge {:engine :nashorn
114 |             :resource-dir "resources/less"
115 |             :version version
116 |             :target-path "target/css/bootstrap.css"})
117 |     (s/validate {:engine (s/enum :javascript :rhino :nashorn)
118 |                  :resource-dir s/Str
119 |                  :version s/Str
120 |                  :target-path s/Str})
121 |     map->CustomBootstrapLessCompiler))
122 | 


--------------------------------------------------------------------------------
/modules/less/test-resources/custom-bootstrap.less:
--------------------------------------------------------------------------------
1 | @import "/bootstrap/less/bootstrap.less";
2 | @import "custom-variables.less";
3 | @import "custom-other.less";
4 | @import "/bootstrap/less/utilities.less";


--------------------------------------------------------------------------------
/modules/less/test-resources/custom-other.less:
--------------------------------------------------------------------------------
1 | // Intentionally empty


--------------------------------------------------------------------------------
/modules/less/test-resources/sample.less:
--------------------------------------------------------------------------------
1 | html { background-color: green; }
2 | 
3 | body { margin: 0; }
4 | 
5 | 


--------------------------------------------------------------------------------
/modules/less/test/modular/less/compilation_test.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (ns modular.less.compilation-test
 4 |   (:require [modular.less :refer (new-less-compiler)]
 5 |             [clojure.test :refer :all]
 6 |             [clj-less.less :refer (run-compiler)]
 7 |             [clojure.java.io :as io]))
 8 | 
 9 | #_(deftest test-bootstrap-resource
10 |   (let [outfile "/tmp/bootstrap.css"]
11 |     (when (.exists (io/file outfile))
12 |       (io/delete-file outfile))
13 |     (time
14 |      (run-compiler
15 |       {:engine :nashorn
16 |        :source-path "jar:file:/home/malcolm/.m2/repository/org/webjars/bootstrap/3.3.0/bootstrap-3.3.0.jar!/META-INF/resources/webjars/bootstrap/3.3.0/less/bootstrap.less"
17 |        :target-path outfile}))
18 |     (let [outfile (io/file outfile)]
19 |       (is (.exists outfile))
20 |       (is (.isFile outfile))
21 |       (is (> (.length outfile) 2000)))))
22 | 
23 | ;;(slurp (io/resource "META-INF/resources/webjars/bootstrap/3.3.0/less/bootstrap.less"))
24 | 
25 | #_(deftest test-custom-bootstrap-resource
26 |   (let [outfile "/tmp/custom-bootstrap.css"]
27 |     (when (.exists (io/file outfile))
28 |       (io/delete-file outfile))
29 |     (run-compiler
30 |      {:engine :nashorn
31 |       :source-path "custom-bootstrap.less"
32 |       :target-path outfile
33 |       :loader
34 |       (fn [x]
35 |         (println "Loading" x)
36 |         (slurp
37 |          (if-let [bootstrap-path (second (re-matches #"../bootstrap/(.*)" x))]
38 |            (io/resource (str "META-INF/resources/webjars/bootstrap/3.3.0/" bootstrap-path))
39 |            (str "resources/" x))))})
40 |     (let [outfile (io/file outfile)]
41 |       (is (.exists outfile))
42 |       (is (.isFile outfile))
43 |       (is (> (.length outfile) 2000)))))
44 | 
45 | #_(deftest test-sample-resource
46 |   (let [outfile "/tmp/custom-bootstrap.css"]
47 |     (when (.exists (io/file outfile))
48 |       (io/delete-file outfile))
49 |     (run-compiler
50 |      {:engine :nashorn
51 |       :project-root "resources"
52 |       :source-path "resources/sample.less"
53 |       :target-path outfile})
54 |     (let [outfile (io/file outfile)]
55 |       (is (.exists outfile))
56 |       (is (.isFile outfile))
57 |       (is (> (.length outfile) 50)))))
58 | 


--------------------------------------------------------------------------------
/modules/less/test/modular/less/component_test.clj:
--------------------------------------------------------------------------------
 1 | (ns modular.less.component-test
 2 |   (:require
 3 |    [clojure.test :refer :all]
 4 |    [com.stuartsierra.component :as component]
 5 |    [modular.less :refer (new-bootstrap-less-compiler)]
 6 |    [modular.test :refer (with-system-fixture *system*)]
 7 |    [clojure.java.io :as io]))
 8 | 
 9 | (defn new-system
10 |   "Define a minimal system which is just enough for the tests in this
11 |   namespace to run"
12 |   []
13 |   (component/system-using
14 |    (component/system-map
15 |     :less (new-bootstrap-less-compiler
16 |            :resource-dir "test-resources"
17 |            :target-path "target/test/less/bootstrap.less"))
18 |    {}))
19 | 
20 | (use-fixtures :each (with-system-fixture new-system))
21 | 
22 | (deftest target-file-should-exist
23 |   (is (.exists (io/file "target/test/less/bootstrap.less")))
24 |   (is (> (.length (io/file "target/test/less/bootstrap.less")) 200)))
25 | 


--------------------------------------------------------------------------------
/modules/maker/project.clj:
--------------------------------------------------------------------------------
1 | ;; Copyright © 2014 JUXT LTD.
2 | 
3 | (defproject juxt.modular/maker "0.5.0"
4 |   :description "A utility library that makes it easier to blend config with kv-based component constructors."
5 |   :url "https://github.com/juxt/modular/tree/master/modules/maker"
6 |   :license {:name "The MIT License"
7 |             :url "http://opensource.org/licenses/MIT"}
8 |   :dependencies [])
9 | 


--------------------------------------------------------------------------------
/modules/maker/src/modular/maker.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (ns modular.maker)
 4 | 
 5 | (defn make-args
 6 |   "In modular, constructors use the variadic keyword arguments
 7 | call-convention. This function allows us to formulate these arguments
 8 | from a config map and a list of specified keys. Each key can take a
 9 | default value, which can be nil, in which case no value is passed and
10 | the constructor will determine the value, unless the key exists in the
11 | config. If the value is the special value of :modular.maker/required, an
12 | exception will be thrown if no value can be found in the config map.
13 | 
14 |  In cases where there is no a correspondence between the keyword
15 | argument required by the constructor and the config map, a mapping
16 | can be given. Instead of using a keyword for the key, a map with a
17 | single kv entry can be given. The key is the one expected by the
18 | constructor. The value can be key or vector of keys, representing the
19 | path in the config where the value should be found.
20 | 
21 | See modular.maker-tests/make-args-test for examples."
22 |   [cfg & args]
23 |   (apply concat
24 |          (for [[k dv]
25 |                (partition 2 args)]
26 |            (let [v (get-in cfg
27 |                            (cond (keyword? k) [k]
28 |                                  (associative? k)
29 |                                  (let [path (second (first (seq k)))]
30 |                                    (cond (keyword? path) [path]
31 |                                          (vector? path) path))))]
32 |              (cond
33 |               (and (= dv :modular.maker/required) (nil? v))
34 |               (throw (ex-info "Configuration value required but couldn't be found" {:key-or-mapping k}))
35 |               (keyword? k) [k (or v dv)]
36 |               (associative? k) [(ffirst (seq k)) (or v dv)])))))
37 | 
38 | (defn make
39 |   "Call the constructor with default keyword arguments, each of which is
40 |    overridden if the entry exists in the given config map."
41 |   ([ctr cfg & kvs]
42 |      (assert fn? ctr)
43 |      (assert (not (keyword? cfg)) "Please specify a config map as the second argument to make")
44 |      (apply ctr (apply make-args cfg kvs)))
45 |   ;; If only the constructor is specified, do the sensible thing.
46 |   ([ctr]
47 |      (make ctr {})))
48 | 


--------------------------------------------------------------------------------
/modules/maker/test/modular/maker_tests.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (ns modular.maker-tests
 4 |   (:use clojure.test modular.maker))
 5 | 
 6 | (deftest make-args-test
 7 |   (testing "Default if no override"
 8 |     (is (= '(:a 1) (make-args {} :a 1))))
 9 |   (testing "No specified value, no arg"
10 |     (is (= '() (make-args {:a 2}))))
11 |   (testing "Config overrides specified value"
12 |     (is (= '(:a 2) (make-args {:a 2} :a 1))))
13 |   (testing "Nil selects config"
14 |     (is (= '(:a 2) (make-args {:a 2} :a nil))))
15 |   (testing "Nil selects config"
16 |     (is (= '(:a 2) (make-args {:a 2} :a :required))))
17 |   (testing "Exception thrown on required"
18 |     (is (thrown? clojure.lang.ExceptionInfo
19 |                  (make-args {} :a :modular.maker/required))))
20 |   (testing "Mapping with a keyword"
21 |     (is (= '(:a 2) (make-args {:b 2} {:a :b} 1))))
22 |   (testing "Mapping with a vector path"
23 |     (is (= '(:a 2) (make-args {:b {:c 2}} {:a [:b :c]} 1)))))
24 | 


--------------------------------------------------------------------------------
/modules/menu/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (defproject juxt.modular/menu "0.5.3"
 4 |   :description "A modular extension that provides support for menus, navbars, and other navigation elements that house hyperlinks."
 5 |   :url "https://github.com/juxt/modular/tree/master/modules/menu"
 6 |   :license {:name "The MIT License"
 7 |             :url "http://opensource.org/licenses/MIT"}
 8 |   :dependencies [[com.stuartsierra/component "0.2.1"]
 9 |                  [prismatic/schema "0.2.1"]
10 |                  ;; menu extends Cylon's login-form
11 |                  [cylon "0.4.1"]])
12 | 


--------------------------------------------------------------------------------
/modules/menu/src/modular/menu.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (ns modular.menu
 4 |   (:require
 5 |    [schema.core :as s]))
 6 | 
 7 | (defprotocol MenuItems
 8 |   (menu-items [_]))
 9 | 
10 | (defrecord MenuIndex []
11 |   MenuItems
12 |   (menu-items [this]
13 |     (->> this
14 |          vals
15 |          (filter (partial satisfies? MenuItems))
16 |          (mapcat menu-items)
17 |          (remove nil?)
18 |          (sort-by :order)
19 |          (group-by :parent)
20 |          seq
21 |          (sort-by (comp nil? first)))))
22 | 
23 | (defn new-menu-index [& {:as opts}]
24 |   (->> opts
25 |        (merge {:comparator :order})
26 |        (s/validate {(s/optional-key :comparator) (s/pred ifn?)})
27 |        map->MenuIndex))
28 | 
29 | (s/defn menu-items+ :- [{:label s/Str
30 |                          :target s/Keyword
31 |                          (s/optional-key :order) s/Any}]
32 |   "A Schema checking version of menu-items."
33 |   [component]
34 |   (s/with-fn-validation
35 |     (menu-items component)))
36 | 


--------------------------------------------------------------------------------
/modules/menu/src/modular/menu/cylon.clj:
--------------------------------------------------------------------------------
 1 | (ns modular.menu.cylon
 2 |   (:require
 3 |    [modular.menu :refer (MenuItems)]
 4 |    [cylon.impl.authentication :as cylon]
 5 |    [schema.core :as s]))
 6 | 
 7 | ;; Cylon
 8 | 
 9 | (defrecord LoginFormMenuItems [label]
10 |   MenuItems
11 |   (menu-items [component]
12 |     [{:label label
13 |       :target :cylon.impl.authentication/GET-login-form
14 |       :order \Z}]))
15 | 
16 | (defn new-login-form-menu-items
17 |   "Create a new login form component that has a specific label for its menu-item.
18 |   menu-items."
19 |   [& {:as opts}]
20 |   (->> opts
21 |        (merge {:label "Login"})
22 |        (s/validate {:label s/Str})
23 |        map->LoginFormMenuItems))
24 | 


--------------------------------------------------------------------------------
/modules/mqtt/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (defproject juxt.modular/mqtt "0.5.0"
 4 |   :description "A modular extension that provides support for MQTT over Netty"
 5 |   :url "https://github.com/juxt/modular/tree/master/modules/mqtt"
 6 |   :license {:name "The MIT License"
 7 |             :url "http://opensource.org/licenses/MIT"}
 8 |   :dependencies [[com.stuartsierra/component "0.2.1"]
 9 |                  [prismatic/schema "0.2.1"]
10 |                  [juxt/clj-mqtt "0.4.6-alpha"]
11 |                  [juxt.modular/netty "0.5.0"]])
12 | 


--------------------------------------------------------------------------------
/modules/mqtt/src/modular/mqtt.clj:
--------------------------------------------------------------------------------
 1 | (ns modular.mqtt
 2 |   (:require
 3 |    [modular.netty :refer (NettyHandlerProvider)]
 4 |    [com.stuartsierra.component :as component]
 5 |    [mqtt.decoder :refer (make-decoder)]
 6 |    [mqtt.encoder :refer (make-encoder)]))
 7 | 
 8 | (defrecord MqttDecoder []
 9 |   component/Lifecycle
10 |   (start [this]
11 |     (assoc this :provider #(make-decoder)))
12 |   (stop [this] this)
13 |   NettyHandlerProvider
14 |   (netty-handler [this] (:provider this))
15 |   (priority [this] 10))
16 | 
17 | (defn new-mqtt-decoder
18 |   []
19 |   (->MqttDecoder))
20 | 
21 | (defrecord MqttEncoder []
22 |   component/Lifecycle
23 |   (start [this]
24 |     (assoc this :provider #(make-encoder)))
25 |   (stop [this] this)
26 |   NettyHandlerProvider
27 |   (netty-handler [this] (:provider this))
28 |   (priority [this] 10))
29 | 
30 | (defn new-mqtt-encoder
31 |   []
32 |   (->MqttEncoder))
33 | 


--------------------------------------------------------------------------------
/modules/netty/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (defproject juxt.modular/netty "0.5.0"
 4 |   :description "A modular extension that provides support for Netty"
 5 |   :url "https://github.com/juxt/modular/tree/master/modules/netty"
 6 |   :license {:name "The MIT License"
 7 |             :url "http://opensource.org/licenses/MIT"}
 8 |   :dependencies [[com.stuartsierra/component "0.2.1"]
 9 |                  [prismatic/schema "0.2.1"]
10 |                  [io.netty/netty-all "5.0.0.Alpha1"]])
11 | 


--------------------------------------------------------------------------------
/modules/netty/src/modular/netty.clj:
--------------------------------------------------------------------------------
 1 | (ns modular.netty
 2 |   (:require
 3 |    [com.stuartsierra.component :as component])
 4 |   (:import
 5 |    (io.netty.channel.nio NioEventLoopGroup)
 6 |    (io.netty.bootstrap ServerBootstrap)
 7 |    (io.netty.channel.socket.nio NioServerSocketChannel)
 8 |    (io.netty.channel ChannelInitializer ChannelHandler ChannelOption)))
 9 | 
10 | (defprotocol NettyHandlerProvider
11 |   (netty-handler [_])
12 |   (priority [_]
13 |     "Will be order by priority, lower value is higher priority. A
14 |      handler with a higher priority will be placed in the handler chain
15 |      first and get to process messages before handlers of lower
16 |      priority."))
17 | 
18 |  (defrecord NettyServer [port options]
19 |    component/Lifecycle
20 |    (start [this]
21 | 
22 |      (let [handlers (->> this vals
23 |                          (filter (partial satisfies? NettyHandlerProvider))
24 |                          (sort-by priority)
25 |                          (map netty-handler)
26 |                          ;; we doall so that errors in netty-handler occur on startup.
27 |                          doall)]
28 | 
29 |        (when (empty? handlers)
30 |          (throw (ex-info "No netty handler dependencies on server" {:component this})))
31 | 
32 |        (let [boss-group     (NioEventLoopGroup.)
33 |              worker-group   (NioEventLoopGroup.)
34 |              pre-configure  (get options :pre-configure  identity)
35 |              post-configure (get options :post-configure identity)]
36 |          (let [b (ServerBootstrap.)]
37 |            (-> b
38 |                pre-configure
39 |                (.group boss-group worker-group)
40 |                (.channel NioServerSocketChannel)
41 |                (.childHandler
42 |                 (proxy [ChannelInitializer] []
43 |                   (initChannel [ch]
44 |                     ;;(debugf "Initializing channel with handlers: %s" (vec handlers))
45 |                     (-> ch (.pipeline) (.addLast (into-array ChannelHandler (map (fn [f] (if (fn? f) (f) f)) handlers)))))))
46 |                (.option ChannelOption/SO_BACKLOG (int (or (:so-backlog options) 128)))
47 |                (.childOption ChannelOption/SO_KEEPALIVE (or (:so-keepalive options) true))
48 |                post-configure)
49 | 
50 |            (assoc this
51 |              :channel (.bind b port)
52 |              :boss-group boss-group
53 |              :worker-group worker-group)))))
54 | 
55 |    (stop [this]
56 |      (let [fut (:channel this)]
57 |        (.awaitUninterruptibly fut)      ; await for it to be bound
58 |        (-> fut (.channel) (.close) (.sync)))
59 |      (.shutdownGracefully (:worker-group this))
60 |      (.shutdownGracefully (:boss-group this))
61 |      this))
62 | 
63 | (defn new-netty-server
64 |   [{:keys [port] :as opts}]
65 |   (assert port)
66 |   (map->NettyServer opts))
67 | 


--------------------------------------------------------------------------------
/modules/postgres/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2015 JUXT LTD.
 2 | 
 3 | (defproject juxt.modular/postgres "0.0.1-SNAPSHOT"
 4 |   :description "A modular extension that provides support for Postgres"
 5 |   :url "https://github.com/juxt/modular/tree/master/modules/postgres"
 6 |   :license {:name "The MIT License"
 7 |             :url "http://opensource.org/licenses/MIT"}
 8 |   :dependencies [[com.mchange/c3p0 "0.9.5-pre8"]
 9 |                  [postgresql/postgresql "9.3-1101.jdbc4"]])
10 | 


--------------------------------------------------------------------------------
/modules/postgres/src/modular/postgres.clj:
--------------------------------------------------------------------------------
 1 | (ns modular.postgres
 2 |   (:require [clojure.tools.logging :as log]
 3 |             [com.stuartsierra.component :as component]
 4 |             [schema.core :as s])
 5 |   (:import com.mchange.v2.c3p0.ComboPooledDataSource))
 6 | 
 7 | (defn- pool
 8 |   [{:keys [url user password max-connections] :or {max-connections 30}}]
 9 |   (doto (ComboPooledDataSource.)
10 |     (.setDriverClass "org.postgresql.Driver")
11 |     (.setJdbcUrl url)
12 |     (.setUser user)
13 |     (.setPassword password)
14 | 
15 |     (.setMinPoolSize 1)
16 |     (.setMaxPoolSize max-connections)
17 |     (.setAcquireIncrement 1)
18 |     (.setPreferredTestQuery "select 1")
19 | 
20 |     (.setTestConnectionOnCheckout true)
21 |     (.setCheckoutTimeout 7000)
22 |     (.setAcquireRetryAttempts 3)
23 |     (.setAcquireRetryDelay 1000)
24 | 
25 |     ;; expire excess connections after 30 minutes of inactivity:
26 |     (.setMaxIdleTimeExcessConnections (* 30 60))
27 |     ;; expire connections after 3 hours of inactivity:
28 |     (.setMaxIdleTime (* 3 60 60))))
29 | 
30 | (defrecord Postgres [url user password]
31 |   component/Lifecycle
32 |   (start [this]
33 |     (log/debug "Starting postgres")
34 |     (assoc this :pool (pool this)))
35 | 
36 |   (stop [{:keys [pool] :as this}]
37 |     (when pool
38 |       (log/debug "Stopping postgres")
39 |       (.close pool)
40 |       (log/debug "Pool closed"))
41 |     (dissoc this :pool)))
42 | 
43 | (defn new-postgres-connection-pool [& {:as opts}]
44 |   (->> opts
45 |        (merge {})
46 |        (s/validate {:url s/Str
47 |                     :user s/Str
48 |                     :password s/Str})
49 |        map->Postgres))
50 | 


--------------------------------------------------------------------------------
/modules/rabbitmq/project.clj:
--------------------------------------------------------------------------------
1 | ;; Copyright © 2014 JUXT LTD.
2 | 
3 | (defproject juxt.modular/rabbitmq "0.5.0"
4 |   :description "A modular extension that provides support for RabbitMQ (via Langohr)"
5 |   :url "https://github.com/juxt/modular/tree/master/modules/rabbitmq"
6 |   :license {:name "The MIT License"
7 |             :url "http://opensource.org/licenses/MIT"}
8 |   :dependencies [[com.novemberain/langohr "3.2.0"]])
9 | 


--------------------------------------------------------------------------------
/modules/rabbitmq/src/modular/rabbitmq.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (ns modular.rabbitmq
 4 |   (:require [langohr.core    :as rmq]
 5 |             [langohr.channel :as lch]
 6 |             [com.stuartsierra.component :as component]))
 7 | 
 8 | ;;
 9 | ;; API
10 | ;;
11 | 
12 | (defrecord Client [opts]
13 |   component/Lifecycle
14 |   (start [this]
15 |     (let [conn (rmq/connect opts)
16 |           ch   (lch/open conn)]
17 |       (assoc this :connection conn :channel    ch)))
18 |   (stop [this]
19 |     (let [conn (:connection this)
20 |           ch   (:channel this)]
21 |       (.abort ch)
22 |       (.abort conn)
23 |       this)))
24 | 
25 | (defn new-rabbitmq-client
26 |   [opts]
27 |   (Client. opts))
28 | 


--------------------------------------------------------------------------------
/modules/reactor/project.clj:
--------------------------------------------------------------------------------
1 | ;; Copyright © 2014 JUXT LTD.
2 | 
3 | (defproject juxt.modular/reactor "0.5.0"
4 |   :description "A modular extension that provides support for Reactor (via Meltdown)"
5 |   :url "https://github.com/juxt/modular/tree/master/modules/reactor"
6 |   :license {:name "The MIT License"
7 |             :url "http://opensource.org/licenses/MIT"}
8 |   :dependencies [[clojurewerkz/meltdown "1.1.0"]])
9 | 


--------------------------------------------------------------------------------
/modules/reactor/src/modular/reactor.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (ns modular.reactor
 4 |   (:require [com.stuartsierra.component :as component]
 5 |             [clojurewerkz.meltdown.reactor :as mr]))
 6 | 
 7 | (defrecord Reactor []
 8 |   component/Lifecycle
 9 |   (start [this]
10 |     (assoc this :reactor (mr/create)))
11 |   (stop [this] this))
12 | 
13 | (defn new-reactor
14 |   []
15 |   (->Reactor))
16 | 


--------------------------------------------------------------------------------
/modules/ring/project.clj:
--------------------------------------------------------------------------------
1 | ;; Copyright © 2014 JUXT LTD.
2 | 
3 | (defproject juxt.modular/ring "0.5.3"
4 |   :description "A modular extension that represents the Ring interface"
5 |   :url "https://github.com/juxt/modular/tree/master/modules/ring"
6 |   :license {:name "The MIT License"
7 |             :url "http://opensource.org/licenses/MIT"}
8 |   :dependencies [[prismatic/schema "0.4.2"]])
9 | 


--------------------------------------------------------------------------------
/modules/ring/src/modular/ring.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (ns modular.ring
 4 |   (:require
 5 |    [com.stuartsierra.component :as component]
 6 |    [schema.core :as s]
 7 |    [clojure.pprint :refer (pprint)]))
 8 | 
 9 | (defprotocol WebRequestHandler
10 |   "A component can satisfy WebRequestHandler if it can respond to a Ring request"
11 |   (request-handler [_]
12 |     "Provide a Ring request handler function, a function that takes the http
13 |     request map as an argument and returns the response"))
14 | 
15 | (extend-protocol WebRequestHandler
16 |   clojure.lang.AFunction
17 |   (^{:doc "An 1-arity function is considered a WebRequestHandler satisfying
18 |            component"}
19 |    request-handler [this] this))
20 | 
21 | (defprotocol WebRequestBinding
22 |   "Component satisfying WebRequestBinding can bind values into the request
23 |    object"
24 |   (request-binding [_]
25 |     "Return a map that will be merged (with merge) into the request
26 |     object"))
27 | 
28 | (defprotocol WebRequestMiddleware
29 |   (request-middleware [_]
30 |     "Return a function that takes a request handler and returns a request
31 |      handler, usually a wrapper that delegates to the given Ring
32 |      handler."))
33 | 
34 | ;; A 1-arity function will be considered a WebRequestMiddleware
35 | ;; satisfying component
36 | (extend-protocol WebRequestMiddleware
37 |   clojure.lang.AFunction
38 |   (request-middleware [this] this))
39 | 
40 | ;; A WebRequestHandlerHead component may be placed 'in front of' a
41 | ;; delegate WebRequestHandler. It allows middleware and bindings to be
42 | ;; added via explicit dependency wiring. The advantage of this approach,
43 | ;; in comparison to traditional Ring middleware chaining, is that this
44 | ;; opens middleware chains for extension. The 'open for extension'
45 | ;; principle (also exhibited by Clojure's multimethods and records) is
46 | ;; an important feature of a modular application and considered worth
47 | ;; the extra effort required in understanding it.
48 | 
49 | (defrecord WebRequestHandlerHead []
50 |   WebRequestHandler
51 |   (request-handler [this]
52 |     (let [dlg (when-let [wrh (or (:request-handler this) ; explicit delegate
53 |                                  ;; or implicitly discovered
54 |                                  (->> this vals
55 |                                       (filter (partial satisfies? WebRequestMiddleware))
56 |                                       ;; choose a winner
57 |                                       first))]
58 |                 (request-handler wrh))
59 |           middleware (->> (vals this)
60 |                           (filter (partial satisfies? WebRequestMiddleware))
61 |                           (map request-middleware)
62 |                           (apply comp))]
63 |       (middleware
64 |        (fn [req]
65 |          (let [bindings
66 |                (->> this vals
67 |                     (filter (partial satisfies? WebRequestBinding))
68 |                     (map #(request-binding %))
69 |                     (apply merge-with merge))]
70 |            (if dlg
71 |              (dlg (merge req bindings))
72 |              ;; A nicer (than nil) default :-
73 |              {:status 200 :body (str "No request handler dependency, request is \n"
74 |                                      (with-out-str (pprint (merge req bindings))))})))))))
75 | 
76 | (defn new-web-request-handler-head
77 |   "Returns a record satisfying WebRequestHandler request handler component adapts a request-handler with the various middleware and request bindings it depends on."
78 |   [& {:as opts}]
79 |   (->> opts
80 |        (merge {})
81 |        (s/validate {})
82 |        map->WebRequestHandlerHead))
83 | 


--------------------------------------------------------------------------------
/modules/selmer/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2015 JUXT LTD.
 2 | 
 3 | (defproject juxt.modular/selmer "0.1.0"
 4 |   :description "A modular extension that provides a Selmer templater for juxt.modular/template"
 5 |   :url "https://github.com/juxt/modular/tree/master/modules/selmer"
 6 |   :license {:name "The MIT License"
 7 |             :url "http://opensource.org/licenses/MIT"}
 8 |   :dependencies [[com.stuartsierra/component "0.2.3"]
 9 |                  [selmer "0.8.2"]
10 |                  [juxt.modular/template "0.6.3"]])
11 | 


--------------------------------------------------------------------------------
/modules/selmer/src/modular/selmer.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2015 JUXT LTD.
 2 | 
 3 | (ns modular.selmer
 4 |   (:require [modular.template :refer [Templater]]
 5 |             [selmer.parser :refer [render]]))
 6 | 
 7 | (defrecord SelmerTemplater []
 8 |   Templater
 9 |   (render-template [_ template model]
10 |     (render template model)))
11 | 
12 | (defn new-selmer-templater [& {:as opts}]
13 |   (->> opts
14 |        map->SelmerTemplater))
15 | 


--------------------------------------------------------------------------------
/modules/sendgrid/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2015 JUXT LTD.
 2 | 
 3 | (defproject juxt.modular/sendgrid "0.0.1"
 4 |   :description "A modular extension for sending emails via SendGrid"
 5 |   :url "https://github.com/juxt/modular/tree/master/modules/sendgrid"
 6 |   :license {:name "The MIT License"
 7 |             :url "http://opensource.org/licenses/MIT"}
 8 |   :dependencies [[com.stuartsierra/component "0.2.2"]
 9 |                  [prismatic/schema "0.3.2"]
10 |                  [juxt.modular/email "0.0.1"]
11 |                  [http-kit "2.1.18"]]
12 |   :profiles {:dev {:dependencies [[org.clojure/clojure "1.7.0-alpha4"]]}})
13 | 


--------------------------------------------------------------------------------
/modules/sendgrid/src/modular/sendgrid.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2015 JUXT LTD.
 2 | 
 3 | (ns modular.sendgrid
 4 |   (:require
 5 |    [modular.email.protocols :as p]
 6 |    [org.httpkit.client :refer (request)]
 7 |    [schema.core :as s]
 8 |    [modular.sendgrid.schema :as sc]
 9 |    [modular.email :as e]))
10 | 
11 | (defrecord SendgridEmailer [sendgrid]
12 |   p/Emailer
13 |   (send-email! [component email]
14 |     (let [response
15 |           @(request
16 |             (merge
17 |              {:method :post
18 |               :url "https://api.sendgrid.com/api/mail.send.json"
19 |               :headers
20 |               {"Content-Type" "application/json"
21 |                "Accept" "application/json"}}
22 |              {:form-params
23 |               {"api_user" (:user sendgrid)
24 |                "api_key" (:password sendgrid)
25 |                "to" (:to email)
26 |                "from" (:from email)
27 |                "text" (:body email)
28 |                "subject" (:subject email)
29 |                }})
30 |             identity)]
31 |       response)))
32 | 
33 | (defn new-sendgrid-mailer [& {:as opts}]
34 |   (->> opts
35 |        (merge {})
36 |        (s/validate sc/SendgridEmailer)
37 |        ->SendgridEmailer))
38 | 


--------------------------------------------------------------------------------
/modules/sendgrid/src/modular/sendgrid/schema.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2015 JUXT LTD.
 2 | 
 3 | (ns modular.sendgrid.schema
 4 |   (:require
 5 |    [schema.core :as s]))
 6 | 
 7 | (def SendgridEmailer
 8 |   {:sendgrid
 9 |    {:api-user s/Str
10 |     :api-password s/Str}})
11 | 


--------------------------------------------------------------------------------
/modules/stencil/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2015 JUXT LTD.
 2 | 
 3 | (defproject juxt.modular/stencil "0.1.1"
 4 |   :description "A modular extension that provides a Stencil templater for juxt.modular/template"
 5 |   :url "https://github.com/juxt/modular/tree/master/modules/stencil"
 6 |   :license {:name "The MIT License"
 7 |             :url "http://opensource.org/licenses/MIT"}
 8 |   :dependencies [[com.stuartsierra/component "0.2.2"]
 9 |                  [stencil "0.5.0"]
10 |                  [juxt.modular/template "0.6.3"]
11 |                  ])
12 | 


--------------------------------------------------------------------------------
/modules/stencil/src/modular/stencil.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2015 JUXT LTD.
 2 | 
 3 | (ns modular.stencil
 4 |   (:require
 5 |    [modular.template :refer (Templater)]
 6 |    [stencil.core :as stencil]))
 7 | 
 8 | (defrecord StencilTemplater []
 9 |   Templater
10 |   (render-template [_ template model]
11 |     (stencil/render-file template model)))
12 | 
13 | (defn new-stencil-templater [& {:as opts}]
14 |   (->> opts
15 |        map->StencilTemplater))
16 | 


--------------------------------------------------------------------------------
/modules/template/README.md:
--------------------------------------------------------------------------------
 1 | # Modular template
 2 | 
 3 | With templating, we often want a model to be merged from multiple
 4 | contributors.
 5 | 
 6 | For example, you may have a template model that incorporates the title
 7 | and metadata of a web page, with some table data you want displayed.
 8 | 
 9 | ```clojure
10 | {:title "Console"
11 |  :description "Data console"
12 |  :copyright "Copyright 2015 © Grocers Ltd."
13 | 
14 |  :data [{:fruit "apple"}
15 |         {:fruit "banana"}]
16 | }
17 | ```
18 | 
19 | In this case, where should you create the template model? You might have
20 | to create it in the code that renders your table data, but then you'd
21 | need to pass in the title and metadata of the webpage, simply to you
22 | could pass those details on to the templating process when constructing
23 | a page.
24 | 
25 | Instead, we can think of a template model as aggregating the
26 | contributions of data from a number of sources. If we are using
27 | _component_, we can consider each source to be a separate component or
28 | module. We can then use explicit dependency declarations as the
29 | mechanism for loosely coupling the template model with its sources.
30 | 
31 | For this case, we would create a `AggregateTemplateModel` component, and bind one or more (usually more) dependencies, each of which satisfy the `modular.template.TemplateModel` protocol.
32 | 


--------------------------------------------------------------------------------
/modules/template/project.clj:
--------------------------------------------------------------------------------
1 | ;; Copyright © 2014 JUXT LTD.
2 | 
3 | (defproject juxt.modular/template "0.6.3"
4 |   :description "A modular extension that provides support for templates (Mustache, etc.)"
5 |   :url "https://github.com/juxt/modular/tree/master/modules/template"
6 |   :license {:name "The MIT License"
7 |             :url "http://opensource.org/licenses/MIT"}
8 |   :dependencies [[com.stuartsierra/component "0.2.2"]])
9 | 


--------------------------------------------------------------------------------
/modules/template/src/modular/template.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014-2015 JUXT LTD.
 2 | 
 3 | (ns modular.template
 4 |   (:require
 5 |    [com.stuartsierra.component :as component]
 6 |    [schema.core :as s]
 7 |    [clojure.tools.logging :refer :all]))
 8 | 
 9 | (defprotocol TemplateModel
10 |   (template-model [_ context]
11 |     "Returns a map of data, which can determined by the given context"))
12 | 
13 | (defrecord StaticTemplateModel []
14 |   TemplateModel
15 |   (template-model [component context] component))
16 | 
17 | (defn new-static-template-model
18 |   "Construct a component that will provide the given k-v arguments as
19 |   template data"
20 |   [& {:as static}]
21 |   (map->StaticTemplateModel static))
22 | 
23 | (defrecord AggregateTemplateModel [static]
24 |   TemplateModel
25 |   (template-model [component context]
26 |     (reduce merge static
27 |             (for [[_ v] component
28 |                   :when (satisfies? TemplateModel v)]
29 |               (template-model v context)))))
30 | 
31 | (defn new-aggregate-template-model [& {:as static}]
32 |   (->AggregateTemplateModel static))
33 | 
34 | (defprotocol Templater
35 |   (render-template [_ template model]))
36 | 


--------------------------------------------------------------------------------
/modules/template/src/modular/template/util.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014-2015 JUXT LTD.
 2 | 
 3 | (ns modular.template.util
 4 |   (:require
 5 |    [clojure.walk :refer (postwalk)]))
 6 | 
 7 | (defprotocol TemplateDataValue
 8 |   (as-template-data-value [_]
 9 |     "Turn Clojure things into strings (useful for a Mustache template model)"))
10 | 
11 | (extend-protocol TemplateDataValue
12 |   nil
13 |   (as-template-data-value [_] "")
14 |   clojure.lang.Keyword
15 |   (as-template-data-value [k] (name k))
16 |   Object
17 |   (as-template-data-value [s] s ))
18 | 
19 | (defn stringify-map-values [a]
20 |   (if (and (vector? a) (= (count a) 2))
21 |     [(first a) (as-template-data-value (second a))]
22 |     a))
23 | 
24 | (defn model->template-model
25 |   "Some pre-processing on the model provided by Cylon"
26 |   [model]
27 |   (postwalk stringify-map-values model))
28 | 


--------------------------------------------------------------------------------
/modules/test/README.md:
--------------------------------------------------------------------------------
 1 | # modular test
 2 | 
 3 | Create a function (new-system) which creates a system, with component/system-user, and use like this :-
 4 | 
 5 | ```clojure
 6 | (ns my.project.ns
 7 |   (:require
 8 |    [clojure.test :refer :all]
 9 |    [modular.test :refer (with-system-fixture *system*])
10 |   ))
11 | 
12 | (defn new-system
13 |   "Define a minimal system which is just enough for the tests in this
14 |   namespace to run"
15 |   []
16 |   (component/system-using
17 |    (component/system-map
18 |     :some-component (new-some-component))
19 |     {}))
20 | 
21 | (use-fixtures :each (with-system-fixture new-system))
22 | 
23 | (deftest some-test
24 |   (println "System is" *system*))
25 | ```
26 | 


--------------------------------------------------------------------------------
/modules/test/project.clj:
--------------------------------------------------------------------------------
1 | ;; Copyright © 2014 JUXT LTD.
2 | 
3 | (defproject juxt.modular/test "0.1.0"
4 |   :description "A modular extension that provides test support"
5 |   :url "https://github.com/juxt/modular/tree/master/modules/test"
6 |   :license {:name "The MIT License"
7 |             :url "http://opensource.org/licenses/MIT"}
8 |   :dependencies [[org.clojure/tools.logging "0.2.6"]])
9 | 


--------------------------------------------------------------------------------
/modules/test/src/modular/test.clj:
--------------------------------------------------------------------------------
 1 | (ns modular.test
 2 |   (:require
 3 |    [com.stuartsierra.component :as component]
 4 |    [clojure.tools.logging :refer :all])
 5 |   )
 6 | 
 7 | (def ^:dynamic *system* nil)
 8 | 
 9 | (defmacro with-system
10 |   [system & body]
11 |   `(let [s# (component/start ~system)]
12 |      (try
13 |        (binding [*system* s#] ~@body)
14 |        (finally
15 |          (component/stop s#)))))
16 | 
17 | (defn with-system-fixture
18 |   [system]
19 |   (fn [f]
20 |     (with-system (system)
21 |       (f))))
22 | 


--------------------------------------------------------------------------------
/modules/wire-up/project.clj:
--------------------------------------------------------------------------------
1 | ;; Copyright © 2014 JUXT LTD.
2 | 
3 | (defproject juxt.modular/wire-up "0.5.0"
4 |   :description "A library that contains utility functions for wiring up the dependencies between components."
5 |   :url "https://github.com/juxt/modular/tree/master/modules/wire-up"
6 |   :license {:name "The MIT License"
7 |             :url "http://opensource.org/licenses/MIT"}
8 |   :dependencies [])
9 | 


--------------------------------------------------------------------------------
/modules/wire-up/src/modular/wire_up.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | (ns modular.wire-up)
 4 | 
 5 | (defn ensure-map
 6 |   "Turn vector style into map style, if necessary. For example: [:a :b :c] -> {:a :a, :b :b, :c :c}"
 7 |   [x]
 8 |   (if (sequential? x)
 9 |     (apply zipmap (repeat 2 x))
10 |     x))
11 | 
12 | (defn normalize-dependency-map
13 |   "component/using and system/using accept vectors as well as maps. This
14 |   makes it difficult to process (merge, extract, etc.) dependency
15 |   trees. Use this function to normalise so that only the map form is
16 |   used."
17 |   [m]
18 |   (reduce-kv
19 |    (fn [s k v]
20 |      (assoc s k (ensure-map v)))
21 |    {} m))
22 | 
23 | (defn autowire-dependencies-satisfying
24 |   "Return a dependency map, adding dependencies between the given
25 |   key (of the dependant) and any components in the given system map that
26 |   satisfy the given protocol."
27 |   [dependency-map system-map dependant-key proto]
28 |   (->> {dependant-key (vec (keep (fn [[k v]] (when (and (satisfies? proto v) (not= dependant-key k)) k)) (seq system-map)))}
29 |        normalize-dependency-map
30 |        (merge-with merge dependency-map)))
31 | 
32 | (defn interpose-component
33 |   "Splice in a component between a dependant component and its
34 |   dependencies. The dependant component will depend on the interposed
35 |   component and the interposed component will depend on the dependant's
36 |   former dependencies. For example, (A -> B, A Z) becomes A -> Z -> B"
37 |   [dependency-map dependant-key component-key]
38 |   (-> dependency-map
39 |       (update-in [component-key] merge (into {} (remove #(= (second %) component-key) (seq (or (dependant-key dependency-map) {})))))
40 |       (assoc dependant-key {component-key component-key})))
41 | 
42 | (defn merge-dependencies [dependency-map & new-deps]
43 |   (apply merge-with merge dependency-map (map normalize-dependency-map new-deps)))
44 | 


--------------------------------------------------------------------------------
/project.clj:
--------------------------------------------------------------------------------
 1 | ;; Copyright © 2014 JUXT LTD.
 2 | 
 3 | ; The version here doesn't really matter because it's the subprojects
 4 | ; we're interested in
 5 | (defproject juxt/modular "0.5.1"
 6 |   :description "FIXME: write description"
 7 |   :url "http://github.com/mastodonc/kixi.stentor"
 8 |   :license {:name "The MIT License"
 9 |             :url "http://opensource.org/licenses/MIT"}
10 | 
11 |   :plugins [[lein-sub "0.2.3"]]
12 | 
13 |   :sub [
14 |         ;; Uncomment these when they need a new release
15 |         "modules/ring"
16 |         "modules/http-kit"
17 |         "modules/bidi"
18 |         ;; "modules/cassandra"
19 |         "modules/datomic"
20 | 
21 |         "modules/netty"
22 |         "modules/mqtt"
23 | 
24 |         "modules/template"
25 |         "modules/web-template"
26 |         "modules/cljs"
27 | 
28 |         ;; "modules/menu"
29 |         "modules/maker"
30 |         "modules/wire-up"
31 | 
32 |         ;; New modules to be released (snapshots)
33 |         "modules/http-kit-events"
34 |         "modules/async"
35 |         "modules/menu"
36 |         "modules/boilerplate"
37 | 
38 |         ;; Modules that still need to be ported over from Jig 1.x
39 |         ;;        "modules/async" ; core.async channels that can be shared by dependants
40 |         ;;        "modules/compojure" ; URI routing library
41 |         ;;        "modules/jetty" ; HTTP server
42 |         ]
43 | 
44 |   :dependencies [[org.clojure/clojure "1.6.0"]
45 |                  [org.clojure/tools.logging "0.2.6"]]
46 | 
47 |   :repl-options {:prompt (fn [ns] (str "modular " ns "> "))}
48 | 
49 |   :aliases {"deploy-all" ["sub" "deploy" "clojars"]
50 |             "install-all" ["sub" "install"]})
51 | 


--------------------------------------------------------------------------------