-
Notifications
You must be signed in to change notification settings - Fork 0
/
clojure.html
73 lines (71 loc) · 47.1 KB
/
clojure.html
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
<!DOCTYPE html>
<link rel="stylesheet" type="text/css" href="//fonts.googleapis.com/css?family=Open+Sans" />
<link rel="stylesheet" type="text/css" href="//fonts.googleapis.com/css?family=Droid+Sans+Mono" />
<link rel="stylesheet" type="text/css" href="//cdnjs.cloudflare.com/ajax/libs/octicons/3.0.1/octicons.min.css"/>
<link rel="stylesheet" type="text/css" href="main.css" />
<body><header>
<a href="index.html">maybe-hugs</a>
</header>
<nav>
<a href="bash.html">bash</a>
<a href="c.html">c</a>
<a href="cplusplus.html">c++</a>
<a href="clojure.html">clojure</a>
<a href="commonlisp.html">commonlisp</a>
<a href="csharp.html">csharp</a>
<a href="elixir.html">elixir</a>
<a href="elm.html">elm</a>
<a href="erlang.html">erlang</a>
<a href="go.html">go</a>
<a href="haskell.html">haskell</a>
<a href="hy.html">hy</a>
<a href="idris.html">idris</a>
<a href="java.html">java</a>
<a href="javascript.html">javascript</a>
<a href="ocaml.html">ocaml</a>
<a href="ocaml-cps.html">ocaml-cps</a>
<a href="perl.html">perl</a>
<a href="perl6.html">perl6</a>
<a href="php.html">php</a>
<a href="purescript.html">purescript</a>
<a href="python.html">python</a>
<a href="racket.html">racket</a>
<a href="ruby.html">ruby</a>
<a href="rust.html">rust</a>
<a href="sass.html">sass</a>
<a href="scala.html">scala</a>
</nav>
<div id="container">
<main>
<h1 id="user-content-maybe-hugs" class="deep-link"><a href="#maybe-hugs">maybe-hugs</a></h1>
<p>A Clojure implementation of zkat's maybe-hugs</p>
<h2 id="user-content-installation" class="deep-link"><a href="#installation">Installation</a></h2>
<p>Download from https://github.com/zkat/maybe-hugs</p>
<h2 id="user-content-usage" class="deep-link"><a href="#usage">Usage</a></h2>
<p>Run the maybe-hugs program with a list of names like this:</p>
<pre><code>$ lein run Sean Jay And Other People You Might Know
</code></pre>
<p>Run the maybe-hugs tests like this:</p>
<pre><code>$ lein test
</code></pre>
<p>If you don't have Leiningen installed, see http://leiningen.org</p>
<h6 id="user-content-gitignore" class="deep-link"><a href="#gitignore">.gitignore</a></h6>
<pre class="editor editor-colors"><div class="line"><span class="text"><span>/target</span></span></div><div class="line"><span class="text"><span>/classes</span></span></div><div class="line"><span class="text"><span>/checkouts</span></span></div><div class="line"><span class="text"><span>pom.xml</span></span></div><div class="line"><span class="text"><span>pom.xml.asc</span></span></div><div class="line"><span class="text"><span>*.jar</span></span></div><div class="line"><span class="text"><span>*.class</span></span></div><div class="line"><span class="text"><span>/.lein-*</span></span></div><div class="line"><span class="text"><span>/.nrepl-port</span></span></div><div class="line"><span class="text"><span>.hgignore</span></span></div><div class="line"><span class="text"><span>.hg/</span></span></div><div class="line"><span class="text"><span> </span></span></div></pre>
<h6 id="user-content-projectclj" class="deep-link"><a href="#projectclj">project.clj</a></h6>
<pre class="editor editor-colors"><div class="line"><span class="source"><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="keyword control"><span>defproject</span></span><span> </span><span class="meta symbol"><span>maybe</span></span><span>-</span><span class="meta symbol"><span>hugs</span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>0.1.0-SNAPSHOT</span><span class="punctuation string end"><span>"</span></span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span>  </span><span class="constant keyword"><span>:description</span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>A Clojure implementation of zkat's maybe-hugs</span><span class="punctuation string end"><span>"</span></span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span>  </span><span class="constant keyword"><span>:url</span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span class="markup underline link hyperlink"><span>https://github.com/zkat/maybe-hugs/</span></span><span class="punctuation string end"><span>"</span></span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span>  </span><span class="constant keyword"><span>:license</span></span><span> </span><span class="meta"><span>{</span><span class="constant keyword"><span>:name</span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>CC0 1.0 Universal</span><span class="punctuation string end"><span>"</span></span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta"><span>            </span><span class="constant keyword"><span>:url</span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span class="markup underline link hyperlink"><span>https://github.com/zkat/maybe-hugs/blob/master/LICENSE</span></span><span class="punctuation string end"><span>"</span></span></span><span>}</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span>  </span><span class="constant keyword"><span>:dependencies</span></span><span> </span><span class="meta"><span>[</span><span class="meta"><span>[</span><span class="meta symbol"><span>org</span></span><span>.</span><span class="meta symbol"><span>clojure</span></span><span>/</span><span class="meta symbol"><span>clojure</span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>1.7.0</span><span class="punctuation string end"><span>"</span></span></span><span>]</span></span><span>]</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span>  </span><span class="constant keyword"><span>:main</span></span><span> ^:</span><span class="meta symbol"><span>skip</span></span><span>-</span><span class="meta symbol"><span>aot</span></span><span> </span><span class="meta symbol"><span>maybe</span></span><span>-</span><span class="meta symbol"><span>hugs</span></span><span>.</span><span class="meta symbol"><span>core</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span>  </span><span class="constant keyword"><span>:target-path</span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>target/%s</span><span class="punctuation string end"><span>"</span></span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span>  </span><span class="constant keyword"><span>:profiles</span></span><span> </span><span class="meta"><span>{</span><span class="constant keyword"><span>:uberjar</span></span><span> </span><span class="meta"><span>{</span><span class="constant keyword"><span>:aot</span></span><span> </span><span class="constant keyword"><span>:all</span></span><span>}</span></span><span>}</span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="invalid trailing-whitespace"><span> </span></span></span></div></pre>
<h6 id="user-content-coreclj" class="deep-link"><a href="#coreclj">core.clj</a></h6>
<pre class="editor editor-colors"><div class="line"><span class="source"><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta global"><span class="keyword control"><span>ns</span></span><span> </span><span class="entity global"><span>maybe-hugs.core</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span>  </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>Some cuties want hugs, some cuties just want empathy!</span><span class="punctuation string end"><span>"</span></span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span>  </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="constant keyword"><span>:gen-class</span></span><span class="punctuation section end"><span>)</span></span></span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="invalid trailing-whitespace"><span> </span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="keyword control"><span>defprotocol</span></span><span> </span><span class="meta symbol"><span>MaybeHuggable</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span>  </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>huggable</span></span><span>? </span><span class="meta"><span>[</span><span>_</span><span>]</span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>Ask if they want a hug?</span><span class="punctuation string end"><span>"</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="invalid trailing-whitespace"><span> </span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="keyword control"><span>defprotocol</span></span><span> </span><span class="meta symbol"><span>Huggable</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span>  </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>hug</span></span><span> </span><span class="meta"><span>[</span><span>_</span><span>]</span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>Give them a hug!</span><span class="punctuation string end"><span>"</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="invalid trailing-whitespace"><span> </span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="keyword control"><span>defprotocol</span></span><span> </span><span class="meta symbol"><span>Empathic</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span>  </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>empathy</span></span><span> </span><span class="meta"><span>[</span><span>_</span><span>]</span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>Comfort them with empathy.</span><span class="punctuation string end"><span>"</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="invalid trailing-whitespace"><span> </span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="keyword control"><span>defrecord</span></span><span> </span><span class="meta symbol"><span>HuggableCutie</span></span><span> </span><span class="meta"><span>[</span><span class="meta symbol"><span>name</span></span><span>]</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span>  </span><span class="meta symbol"><span>MaybeHuggable</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span>  </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>huggable</span></span><span>? </span><span class="meta"><span>[</span><span>_</span><span>]</span></span><span> </span><span class="constant language boolean"><span>true</span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span>  </span><span class="meta symbol"><span>Huggable</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span>  </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>hug</span></span><span> </span><span class="meta"><span>[</span><span class="meta symbol"><span>this</span></span><span>]</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>str</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="constant keyword"><span>:name</span></span><span> </span><span class="meta symbol"><span>this</span></span><span class="punctuation section end"><span>)</span></span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span> gets a hug!</span><span class="punctuation string end"><span>"</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="invalid trailing-whitespace"><span> </span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="keyword control"><span>defrecord</span></span><span> </span><span class="meta symbol"><span>EmpathicCutie</span></span><span> </span><span class="meta"><span>[</span><span class="meta symbol"><span>name</span></span><span>]</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span>  </span><span class="meta symbol"><span>MaybeHuggable</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span>  </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>huggable</span></span><span>? </span><span class="meta"><span>[</span><span>_</span><span>]</span></span><span> </span><span class="constant language boolean"><span>false</span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span>  </span><span class="meta symbol"><span>Empathic</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span>  </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>empathy</span></span><span> </span><span class="meta"><span>[</span><span class="meta symbol"><span>this</span></span><span>]</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>str</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="constant keyword"><span>:name</span></span><span> </span><span class="meta symbol"><span>this</span></span><span class="punctuation section end"><span>)</span></span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span> is comforted by your empathy - thank you!</span><span class="punctuation string end"><span>"</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="invalid trailing-whitespace"><span> </span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta global"><span class="keyword control"><span>defn</span></span><span> </span><span class="entity global"><span>conditional-hug</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span>  </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>Given a cutie, either hug them comfort them.</span><span class="punctuation string end"><span>"</span></span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span>  </span><span class="meta"><span>[</span><span class="meta symbol"><span>cutie</span></span><span>]</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span>  </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="storage control"><span>if</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>huggable</span></span><span>? </span><span class="meta symbol"><span>cutie</span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span class="meta"><span>    </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>hug</span></span><span> </span><span class="meta symbol"><span>cutie</span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span class="meta"><span>    </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>empathy</span></span><span> </span><span class="meta symbol"><span>cutie</span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="invalid trailing-whitespace"><span> </span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta global"><span class="keyword control"><span>defn</span></span><span> </span><span class="entity global"><span>cutie</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span>  </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>Given a name, create a cutie who may or may not want hugs.</span><span class="punctuation string end"><span>"</span></span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span>  </span><span class="meta"><span>[</span><span class="meta symbol"><span>name</span></span><span>]</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span>  </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="storage control"><span>let</span></span><span> </span><span class="meta"><span>[</span><span class="meta symbol"><span>cutie</span></span><span>-</span><span class="meta symbol"><span>maker</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="storage control"><span>if</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>even</span></span><span>? </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>rand</span></span><span>-</span><span class="meta symbol"><span>int</span></span><span> </span><span class="constant numeric decimal"><span>100</span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span><span> -></span><span class="meta symbol"><span>HuggableCutie</span></span><span> -></span><span class="meta symbol"><span>EmpathicCutie</span></span><span class="punctuation section end"><span>)</span></span></span><span>]</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span class="meta"><span>    </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>cutie</span></span><span>-</span><span class="meta symbol"><span>maker</span></span><span> </span><span class="meta symbol"><span>name</span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="invalid trailing-whitespace"><span> </span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta global"><span class="keyword control"><span>defn</span></span><span> </span><span class="entity global"><span>-main</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span>  </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>I create cuties and try to hug them!</span><span class="punctuation string end"><span>"</span></span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span>  </span><span class="meta"><span>[</span><span>& </span><span class="meta symbol"><span>args</span></span><span>]</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span>  </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="storage control"><span>if</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>seq</span></span><span> </span><span class="meta symbol"><span>args</span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span class="meta"><span>    </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>doseq</span></span><span> </span><span class="meta"><span>[</span><span class="meta symbol"><span>name</span></span><span> </span><span class="meta symbol"><span>args</span></span><span>]</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span class="meta"><span class="meta"><span>      </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>println</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>conditional</span></span><span>-</span><span class="meta symbol"><span>hug</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>cutie</span></span><span> </span><span class="meta symbol"><span>name</span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span class="meta"><span>    </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>println</span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>usage: lein run {list of cutie names}</span><span class="punctuation string end"><span>"</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="invalid trailing-whitespace"><span> </span></span></span></div></pre>
<h6 id="user-content-core_testclj" class="deep-link"><a href="#core_testclj">core_test.clj</a></h6>
<pre class="editor editor-colors"><div class="line"><span class="source"><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta global"><span class="keyword control"><span>ns</span></span><span> </span><span class="entity global"><span>maybe-hugs.core-test</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span>  </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="constant keyword"><span>:require</span></span><span> </span><span class="meta"><span>[</span><span class="meta symbol"><span>clojure</span></span><span>.</span><span class="meta symbol"><span>test</span></span><span> </span><span class="constant keyword"><span>:refer</span></span><span> </span><span class="constant keyword"><span>:all</span></span><span>]</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span class="meta"><span>            </span><span class="meta"><span>[</span><span class="meta symbol"><span>maybe</span></span><span>-</span><span class="meta symbol"><span>hugs</span></span><span>.</span><span class="meta symbol"><span>core</span></span><span> </span><span class="constant keyword"><span>:refer</span></span><span> </span><span class="constant keyword"><span>:all</span></span><span>]</span></span><span class="punctuation section end"><span>)</span></span></span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="invalid trailing-whitespace"><span> </span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta global"><span class="keyword control"><span>deftest</span></span><span> </span><span class="entity global"><span>hug-tests</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span>  </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>testing</span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>HuggableCutie likes hugs</span><span class="punctuation string end"><span>"</span></span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span class="meta"><span>    </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="storage control"><span>let</span></span><span> </span><span class="meta"><span>[</span><span class="meta symbol"><span>cutie</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span>-></span><span class="meta symbol"><span>HuggableCutie</span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>Test</span><span class="punctuation string end"><span>"</span></span></span><span class="punctuation section end"><span>)</span></span></span><span>]</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span class="meta"><span class="meta"><span>      </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>is</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>huggable</span></span><span>? </span><span class="meta symbol"><span>cutie</span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span class="meta"><span class="meta"><span>      </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>is</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span>= </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>Test gets a hug!</span><span class="punctuation string end"><span>"</span></span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>hug</span></span><span> </span><span class="meta symbol"><span>cutie</span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span>  </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>testing</span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>EmpathicCutie doesn't want hugs</span><span class="punctuation string end"><span>"</span></span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span class="meta"><span>    </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="storage control"><span>let</span></span><span> </span><span class="meta"><span>[</span><span class="meta symbol"><span>cutie</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span>-></span><span class="meta symbol"><span>EmpathicCutie</span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>Test</span><span class="punctuation string end"><span>"</span></span></span><span class="punctuation section end"><span>)</span></span></span><span>]</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span class="meta"><span class="meta"><span>      </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>is</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>not</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>huggable</span></span><span>? </span><span class="meta symbol"><span>cutie</span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span class="meta"><span class="meta"><span>      </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>is</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>thrown</span></span><span>? </span><span class="meta symbol"><span>IllegalArgumentException</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>hug</span></span><span> </span><span class="meta symbol"><span>cutie</span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="invalid trailing-whitespace"><span> </span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta global"><span class="keyword control"><span>deftest</span></span><span> </span><span class="entity global"><span>empathy-tests</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span>  </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>testing</span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>EmpathicCutie likes empathy</span><span class="punctuation string end"><span>"</span></span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span class="meta"><span>    </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="storage control"><span>let</span></span><span> </span><span class="meta"><span>[</span><span class="meta symbol"><span>cutie</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span>-></span><span class="meta symbol"><span>EmpathicCutie</span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>Test</span><span class="punctuation string end"><span>"</span></span></span><span class="punctuation section end"><span>)</span></span></span><span>]</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span class="meta"><span class="meta"><span>      </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>is</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>not</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>huggable</span></span><span>? </span><span class="meta symbol"><span>cutie</span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span class="meta"><span class="meta"><span>      </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>is</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span>= </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>Test is comforted by your empathy - thank you!</span><span class="punctuation string end"><span>"</span></span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>empathy</span></span><span> </span><span class="meta symbol"><span>cutie</span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span>  </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>testing</span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>HuggableCutie doesn't want empathy</span><span class="punctuation string end"><span>"</span></span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span class="meta"><span>    </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="storage control"><span>let</span></span><span> </span><span class="meta"><span>[</span><span class="meta symbol"><span>cutie</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span>-></span><span class="meta symbol"><span>HuggableCutie</span></span><span> </span><span class="string quoted double"><span class="punctuation string begin"><span>"</span></span><span>Test</span><span class="punctuation string end"><span>"</span></span></span><span class="punctuation section end"><span>)</span></span></span><span>]</span></span><span class="invalid trailing-whitespace"><span> </span></span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span class="meta"><span class="meta"><span>      </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>is</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>huggable</span></span><span>? </span><span class="meta symbol"><span>cutie</span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></span></span></span></span></div><div class="line"><span class="source"><span class="meta"><span class="meta global"><span class="meta"><span class="meta"><span>      </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>is</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>thrown</span></span><span>? </span><span class="meta symbol"><span>IllegalArgumentException</span></span><span> </span><span class="meta"><span class="punctuation section begin"><span>(</span></span><span class="meta symbol"><span>empathy</span></span><span> </span><span class="meta symbol"><span>cutie</span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span><span class="punctuation section end"><span>)</span></span></span></span><span class="punctuation section end"><span>)</span></span><span class="meta"><span> </span></span></span></span></div><div class="line"><span class="source"><span class="invalid trailing-whitespace"><span> </span></span></span></div></pre>
</main>
</div>
<footer>
<a href="https://github.com/zkat/maybe-hugs">
<span class="mega-octicon octicon-mark-github"></span>
</a>
<a href="http://creativecommons.org/publicdomain/zero/1.0/">
<img src="https://camo.githubusercontent.com/c5160f944848828fa33126d9a697e9abe43ea98f/687474703a2f2f692e6372656174697665636f6d6d6f6e732e6f72672f702f7a65726f2f312e302f38387833312e706e67"/>
</a>
</footer>
<script src="bundle.js"></script>
</body>