eihli
/
darklimericks
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Rename to RhymeStorm

Browse Source
main
Eric Ihli 3 years ago
parent 133de3ad23
commit 836f17b0f6
17 changed files with 41 additions and 1164 deletions
Show Stats Download Patch File Download Diff File

9
README.org
Unescape Escape View File

@ -1,10 +1,5 @@
#+TITLE: RhymeStorm™ #+TITLE: RhymeStorm™
* WGU Evaluator Notes
See [[file:web/README_WGU.org][the WGU Readme]].
* How To Initialize Development Environment * How To Initialize Development Environment
** Required Software ** Required Software
@ -18,7 +13,7 @@ See [[file:web/README_WGU.org][the WGU Readme]].
1. Run ~./db/run.sh && ./kv/run.sh~ to start the docker containers for the database and key-value store. 1. Run ~./db/run.sh && ./kv/run.sh~ to start the docker containers for the database and key-value store.
a. The ~run.sh~ scripts only need to run once. They initialize development data containers. Subsequent development can continue with ~docker start db && docker start kv~. a. The ~run.sh~ scripts only need to run once. They initialize development data containers. Subsequent development can continue with ~docker start db && docker start kv~.
2. Start a Clojure REPL in Emacs, evaluate the ~dev/user.clj~ namespace, and run ~(init)~ 2. Start a Clojure REPL in Emacs, evaluate the ~dev/user.clj~ namespace, and run ~(init)~
3. Visit ~http://localhost:8000/wgu~ 3. Visit ~http://localhost:8000~
* How To Run Software Locally * How To Run Software Locally
@ -33,7 +28,7 @@ See [[file:web/README_WGU.org][the WGU Readme]].
a. The ~run.sh~ scripts only need to run once. They initialize development data containers. Subsequent development can continue with ~docker start db && docker start kv~. a. The ~run.sh~ scripts only need to run once. They initialize development data containers. Subsequent development can continue with ~docker start db && docker start kv~.
2. The application's ~jar~ builds with a ~make~ run from the root directory. (See [[file:../Makefile][Makefile]]). 2. The application's ~jar~ builds with a ~make~ run from the root directory. (See [[file:../Makefile][Makefile]]).
3. Navigate to the root directory of this git repo and run ~java -jar darklimericks.jar~ 3. Navigate to the root directory of this git repo and run ~java -jar darklimericks.jar~
4. Visit http://localhost:8000/wgu 4. Visit http://localhost:8000

1118
web/README_WGU.org
View File

File diff suppressed because it is too large Load Diff

0
web/wgu-app/.gitignore → web/app/.gitignore vendored
Unescape Escape View File

2
web/wgu-app/package-lock.json → web/app/package-lock.json generated
Unescape Escape View File

@ -1,5 +1,5 @@
{ {
"name": "wgu-app", "name": "rhymestorm-app",
"version": "0.0.1", "version": "0.0.1",
"lockfileVersion": 1, "lockfileVersion": 1,
"requires": true, "requires": true,

2
web/wgu-app/package.json → web/app/package.json
Unescape Escape View File

@ -1,5 +1,5 @@
{ {
"name": "wgu-app", "name": "rhymestorm-app",
"version": "0.0.1", "version": "0.0.1",
"private": true, "private": true,
"devDependencies": { "devDependencies": {

4
web/wgu-app/shadow-cljs.edn → web/app/shadow-cljs.edn
Unescape Escape View File

@ -17,9 +17,9 @@
:builds :builds
{:frontend {:frontend
{:target :browser {:target :browser
:output-dir "../resources/public/wgu/" :output-dir "../resources/public/rhymestorm/"
:assets-path "/assets/" :assets-path "/assets/"
:modules {:main {:init-fn wgu.app/init}} :modules {:main {:init-fn rhymestorm.app/init}}
:devtools {:preloads [day8.re-frame-10x.preload]} :devtools {:preloads [day8.re-frame-10x.preload]}
:dev {:compiler-options :dev {:compiler-options
{:closure-defines {:closure-defines

2
web/wgu-app/src/main/wgu/app.cljs → web/app/src/main/rhymestorm/app.cljs
Unescape Escape View File

@ -1,4 +1,4 @@
(ns wgu.app (ns rhymestorm.app
(:require ["chart.js/auto" :as chart] (:require ["chart.js/auto" :as chart]
[oz.core :as oz] [oz.core :as oz]
[reagent.dom :as rdom] [reagent.dom :as rdom]

2
web/dev/user.clj
Unescape Escape View File

@ -147,7 +147,7 @@
(:template (:template
(reitit/match-by-path (reitit/match-by-path
(-> state/system :com.darklimericks.server.router/router) (-> state/system :com.darklimericks.server.router/router)
"/wgu/foo.html")) "/rhymestorm/foo.html"))
) )

38
web/resources/public/README_WGU.htm → web/resources/public/README.htm
Unescape Escape View File

@ -6,7 +6,7 @@
<!-- 2021-07-23 Fri 17:16 --> <!-- 2021-07-23 Fri 17:16 -->
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" /> <meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1" /> <meta name="viewport" content="width=device-width, initial-scale=1" />
<title>RhymeStorm™ - WGU CSCI Capstone Project</title> <title>RhymeStorm™ - RHYMESTORM CSCI Capstone Project</title>
<meta name="author" content="Eric Ihli" /> <meta name="author" content="Eric Ihli" />
<meta name="generator" content="Org Mode" /> <meta name="generator" content="Org Mode" />
<style type="text/css"> <style type="text/css">
@ -218,12 +218,12 @@
</head> </head>
<body> <body>
<div id="content"> <div id="content">
<h1 class="title">RhymeStorm™ - WGU CSCI Capstone Project</h1> <h1 class="title">RhymeStorm™ - RHYMESTORM CSCI Capstone Project</h1>
<div id="table-of-contents"> <div id="table-of-contents">
<h2>Table of Contents</h2> <h2>Table of Contents</h2>
<div id="text-table-of-contents"> <div id="text-table-of-contents">
<ul> <ul>
<li><a href="#orgd38ae05">1. WGU Evaluator Notes</a></li> <li><a href="#orgd38ae05">1. RHYMESTORM Evaluator Notes</a></li>
<li><a href="#orgc9caa35">2. Evaluation Technical Documentation</a> <li><a href="#orgc9caa35">2. Evaluation Technical Documentation</a>
<ul> <ul>
<li><a href="#org4f30257">2.1. How To Initialize Development Environment</a> <li><a href="#org4f30257">2.1. How To Initialize Development Environment</a>
@ -338,7 +338,7 @@
</div> </div>
<div id="outline-container-orgd38ae05" class="outline-2"> <div id="outline-container-orgd38ae05" class="outline-2">
<h2 id="orgd38ae05"><span class="section-number-2">1</span> WGU Evaluator Notes</h2> <h2 id="orgd38ae05"><span class="section-number-2">1</span> RHYMESTORM Evaluator Notes</h2>
<div class="outline-text-2" id="text-1"> <div class="outline-text-2" id="text-1">
<p> <p>
Hello! I hope you enjoy your time with this evaluation! Hello! I hope you enjoy your time with this evaluation!
@ -353,7 +353,7 @@ The document you are reading now contains or points to each of the requirements
</p> </p>
<p> <p>
The section immediately following this contains notes on how to view and run the software locally. In addition, I&rsquo;m hosting a demo of the application at <a href="https://darklimericks.com/wgu">https://darklimericks.com/wgu</a>. The section immediately following this contains notes on how to view and run the software locally. In addition, I&rsquo;m hosting a demo of the application at <a href="https://darklimericks.com/rhymestorm">https://darklimericks.com/rhymestorm</a>.
</p> </p>
<p> <p>
@ -366,7 +366,7 @@ After I describe the steps to initialize a development environment, you&rsquo;ll
<h2 id="orgc9caa35"><span class="section-number-2">2</span> Evaluation Technical Documentation</h2> <h2 id="orgc9caa35"><span class="section-number-2">2</span> Evaluation Technical Documentation</h2>
<div class="outline-text-2" id="text-2"> <div class="outline-text-2" id="text-2">
<p> <p>
It&rsquo;s probably not necessary for you to replicate my development environment in order to evaluate this project. You can access the deployed application at <a href="https://darklimericks.com/wgu">https://darklimericks.com/wgu</a> and the libraries and supporting code that I wrote for this project at <a href="https://github.com/eihli/clj-tightly-packed-trie">https://github.com/eihli/clj-tightly-packed-trie</a>, <a href="https://github.com/eihli/syllabify">https://github.com/eihli/syllabify</a>, and <a href="https://github.com/eihli/prhyme">https://github.com/eihli/prhyme</a>. The web server and web application is not hosted publicly but you will find it uploaded with my submission as a <code>.tar</code> archive. It&rsquo;s probably not necessary for you to replicate my development environment in order to evaluate this project. You can access the deployed application at <a href="https://darklimericks.com/rhymestorm">https://darklimericks.com/rhymestorm</a> and the libraries and supporting code that I wrote for this project at <a href="https://github.com/eihli/clj-tightly-packed-trie">https://github.com/eihli/clj-tightly-packed-trie</a>, <a href="https://github.com/eihli/syllabify">https://github.com/eihli/syllabify</a>, and <a href="https://github.com/eihli/prhyme">https://github.com/eihli/prhyme</a>. The web server and web application is not hosted publicly but you will find it uploaded with my submission as a <code>.tar</code> archive.
</p> </p>
</div> </div>
@ -394,7 +394,7 @@ It&rsquo;s probably not necessary for you to replicate my development environmen
<li>The <code>run.sh</code> scripts only need to run once. They initialize development data containers. Subsequent development can continue with <code>docker start db &amp;&amp; docker start kv</code>.</li> <li>The <code>run.sh</code> scripts only need to run once. They initialize development data containers. Subsequent development can continue with <code>docker start db &amp;&amp; docker start kv</code>.</li>
</ol></li> </ol></li>
<li>Start a Clojure REPL in Emacs, evaluate the <code>dev/user.clj</code> namespace, and run <code>(init)</code></li> <li>Start a Clojure REPL in Emacs, evaluate the <code>dev/user.clj</code> namespace, and run <code>(init)</code></li>
<li>Visit <code>http://localhost:8000/wgu</code></li> <li>Visit <code>http://localhost:8000/rhymestorm</code></li>
</ol> </ol>
</div> </div>
</div> </div>
@ -424,7 +424,7 @@ It&rsquo;s probably not necessary for you to replicate my development environmen
</ol></li> </ol></li>
<li>The application&rsquo;s <code>jar</code> builds with a <code>make</code> run from the root directory. (See <a href="../Makefile">Makefile</a>).</li> <li>The application&rsquo;s <code>jar</code> builds with a <code>make</code> run from the root directory. (See <a href="../Makefile">Makefile</a>).</li>
<li>Navigate to the root directory of this git repo and run <code>java -jar darklimericks.jar</code></li> <li>Navigate to the root directory of this git repo and run <code>java -jar darklimericks.jar</code></li>
<li>Visit <a href="http://localhost:8000/wgu">http://localhost:8000/wgu</a></li> <li>Visit <a href="http://localhost:8000/rhymestorm">http://localhost:8000/rhymestorm</a></li>
</ol> </ol>
</div> </div>
</div> </div>
@ -803,7 +803,7 @@ The trained data model and web interface has been deployed at the following addr
</p> </p>
<p> <p>
<a href="https://darklimericks.com/wgu">Web GUI and Documentation</a> <a href="https://darklimericks.com/rhymestorm">Web GUI and Documentation</a>
</p> </p>
</div> </div>
</div> </div>
@ -1680,7 +1680,7 @@ For example, the phrase <code>don't bother me</code> returns the following resul
</table> </table>
<p> <p>
The interactive query for the above can be found at <a href="https://darklimericks.com/wgu/lyric-from-seed?seed=don%27t+bother+me">https://darklimericks.com/wgu/lyric-from-seed?seed=don%27t+bother+me</a>. Note that, since these lyrics are randomly generated, your results will vary. The interactive query for the above can be found at <a href="https://darklimericks.com/rhymestorm/lyric-from-seed?seed=don%27t+bother+me">https://darklimericks.com/rhymestorm/lyric-from-seed?seed=don%27t+bother+me</a>. Note that, since these lyrics are randomly generated, your results will vary.
</p> </p>
</div> </div>
</div> </div>
@ -1782,7 +1782,7 @@ For example, let&rsquo;s say a songwriter liked the phrase <code>rejected by soc
</table> </table>
<p> <p>
The interactive query for the above can be found at <a href="https://darklimericks.com/wgu/rhyming-lyric?rhyming-lyric-target=rejected+by+society">https://darklimericks.com/wgu/rhyming-lyric?rhyming-lyric-target=rejected+by+society</a>. Note again that your results will vary. The interactive query for the above can be found at <a href="https://darklimericks.com/rhymestorm/rhyming-lyric?rhyming-lyric-target=rejected+by+society">https://darklimericks.com/rhymestorm/rhyming-lyric?rhyming-lyric-target=rejected+by+society</a>. Note again that your results will vary.
</p> </p>
</div> </div>
</div> </div>
@ -2073,7 +2073,7 @@ The server also includes the <code>certbot</code> script for updating and mainta
<h3 id="orgc6266b7"><span class="section-number-3">5.12</span> A User-Friendly, Functional Dashboard That Includes At Least Three Visualization Types</h3> <h3 id="orgc6266b7"><span class="section-number-3">5.12</span> A User-Friendly, Functional Dashboard That Includes At Least Three Visualization Types</h3>
<div class="outline-text-3" id="text-5-12"> <div class="outline-text-3" id="text-5-12">
<p> <p>
You can access an example of the user interface at <a href="https://darklimericks.com/wgu">https://darklimericks.com/wgu</a>. You can access an example of the user interface at <a href="https://darklimericks.com/rhymestorm">https://darklimericks.com/rhymestorm</a>.
</p> </p>
<p> <p>
@ -2090,7 +2090,7 @@ The first visualization is a scatter plot of rhyming words with the &ldquo;quali
<div id="org6aa1adf" class="figure"> <div id="org6aa1adf" class="figure">
<p><img src="images/wgu-vis.png" alt="wgu-vis.png" /> <p><img src="images/rhymestorm-vis.png" alt="rhymestorm-vis.png" />
</p> </p>
</div> </div>
@ -2100,7 +2100,7 @@ The second visualization is a word cloud where the size of each word is based on
<div id="org950c96a" class="figure"> <div id="org950c96a" class="figure">
<p><img src="images/wgu-vis-cloud.png" alt="wgu-vis-cloud.png" /> <p><img src="images/rhymestorm-vis-cloud.png" alt="rhymestorm-vis-cloud.png" />
</p> </p>
</div> </div>
@ -2110,7 +2110,7 @@ The third visualization is a table that lists all of the rhymes, their pronuncia
<div id="org215dc00" class="figure"> <div id="org215dc00" class="figure">
<p><img src="images/wgu-vis-table.png" alt="wgu-vis-table.png" /> <p><img src="images/rhymestorm-vis-table.png" alt="rhymestorm-vis-table.png" />
</p> </p>
</div> </div>
</div> </div>
@ -2488,7 +2488,7 @@ This is just one of many possible assessment techniques we could use. It&rsquo;s
<pre class="src src-clojure"><span style="color: #51afef;">(</span>require '<span style="color: #c678dd;">[</span>com.darklimericks.linguistics.core <span style="color: #a9a1e1;">:as</span> linguistics<span style="color: #c678dd;">]</span> <pre class="src src-clojure"><span style="color: #51afef;">(</span>require '<span style="color: #c678dd;">[</span>com.darklimericks.linguistics.core <span style="color: #a9a1e1;">:as</span> linguistics<span style="color: #c678dd;">]</span>
'<span style="color: #c678dd;">[</span>com.owoga.prhyme.nlp.core <span style="color: #a9a1e1;">:as</span> nlp<span style="color: #c678dd;">]</span><span style="color: #51afef;">)</span> '<span style="color: #c678dd;">[</span>com.owoga.prhyme.nlp.core <span style="color: #a9a1e1;">:as</span> nlp<span style="color: #c678dd;">]</span><span style="color: #51afef;">)</span>
<span style="color: #5B6268;">;; </span><span style="color: #5B6268;">wgu-lyric-suggestion returns 20 suggestions. Each suggestion is a vector of</span> <span style="color: #5B6268;">;; </span><span style="color: #5B6268;">rhymestorm-lyric-suggestion returns 20 suggestions. Each suggestion is a vector of</span>
<span style="color: #5B6268;">;; </span><span style="color: #5B6268;">the rhyming word/quality/frequency and the sentence/parse. This function</span> <span style="color: #5B6268;">;; </span><span style="color: #5B6268;">the rhyming word/quality/frequency and the sentence/parse. This function</span>
<span style="color: #5B6268;">;; </span><span style="color: #5B6268;">returns just the sentences. The sentences can be further filtered using</span> <span style="color: #5B6268;">;; </span><span style="color: #5B6268;">returns just the sentences. The sentences can be further filtered using</span>
<span style="color: #5B6268;">;; </span><span style="color: #5B6268;">OpenNLP to only those that are grammatically valid english sentences.</span> <span style="color: #5B6268;">;; </span><span style="color: #5B6268;">OpenNLP to only those that are grammatically valid english sentences.</span>
@ -2496,7 +2496,7 @@ This is just one of many possible assessment techniques we could use. It&rsquo;s
<span style="color: #51afef;">(</span><span style="color: #51afef;">defn</span> <span style="color: #c678dd;">sample-of-20</span> <span style="color: #51afef;">(</span><span style="color: #51afef;">defn</span> <span style="color: #c678dd;">sample-of-20</span>
<span style="color: #c678dd;">[]</span> <span style="color: #c678dd;">[]</span>
<span style="color: #c678dd;">(</span><span style="color: #51afef;">-&gt;&gt;</span> <span style="color: #98be65;">"technology"</span> <span style="color: #c678dd;">(</span><span style="color: #51afef;">-&gt;&gt;</span> <span style="color: #98be65;">"technology"</span>
<span style="color: #ECBE7B;">linguistics</span>/wgu-lyric-suggestions <span style="color: #ECBE7B;">linguistics</span>/rhymestorm-lyric-suggestions
<span style="color: #98be65;">(</span>map <span style="color: #a9a1e1;">(</span>comp first second<span style="color: #a9a1e1;">)</span><span style="color: #98be65;">)</span><span style="color: #c678dd;">)</span><span style="color: #51afef;">)</span> <span style="color: #98be65;">(</span>map <span style="color: #a9a1e1;">(</span>comp first second<span style="color: #a9a1e1;">)</span><span style="color: #98be65;">)</span><span style="color: #c678dd;">)</span><span style="color: #51afef;">)</span>
<span style="color: #51afef;">(</span><span style="color: #51afef;">defn</span> <span style="color: #c678dd;">average-valid-of-100-suggestions</span> <span style="color: #c678dd;">[]</span> <span style="color: #51afef;">(</span><span style="color: #51afef;">defn</span> <span style="color: #c678dd;">average-valid-of-100-suggestions</span> <span style="color: #c678dd;">[]</span>
@ -2673,7 +2673,7 @@ This application is not publicly available. I&rsquo;ll upload it with submission
<li>The <code>run.sh</code> scripts only need to run once. They initialize development data containers. Subsequent development can continue with <code>docker start db &amp;&amp; docker start kv</code>.</li> <li>The <code>run.sh</code> scripts only need to run once. They initialize development data containers. Subsequent development can continue with <code>docker start db &amp;&amp; docker start kv</code>.</li>
</ol></li> </ol></li>
<li>Start a Clojure REPL in Emacs, evaluate the <code>dev/user.clj</code> namespace, and run <code>(init)</code></li> <li>Start a Clojure REPL in Emacs, evaluate the <code>dev/user.clj</code> namespace, and run <code>(init)</code></li>
<li>Visit <code>http://localhost:8000/wgu</code></li> <li>Visit <code>http://localhost:8000/rhymestorm</code></li>
</ol> </ol>
</div> </div>
</li> </li>
@ -2703,7 +2703,7 @@ This application is not publicly available. I&rsquo;ll upload it with submission
</ol></li> </ol></li>
<li>The application&rsquo;s <code>jar</code> builds with a <code>make</code> run from the root directory. (See <a href="../Makefile">Makefile</a>).</li> <li>The application&rsquo;s <code>jar</code> builds with a <code>make</code> run from the root directory. (See <a href="../Makefile">Makefile</a>).</li>
<li>Navigate to the root directory of this git repo and run <code>java -jar darklimericks.jar</code></li> <li>Navigate to the root directory of this git repo and run <code>java -jar darklimericks.jar</code></li>
<li>Visit <a href="http://localhost:8000/wgu">http://localhost:8000/wgu</a></li> <li>Visit <a href="http://localhost:8000/rhymestorm">http://localhost:8000/rhymestorm</a></li>
</ol> </ol>
</div> </div>
</li> </li>

BIN
web/resources/public/images/proud-garages-128.png
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 266 B

0
web/resources/public/images/wgu-vis-cloud.png → web/resources/public/images/vis-cloud.png
Unescape Escape View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 87 KiB

After

Width:  |  Height:  |  Size: 87 KiB

0
web/resources/public/images/wgu-vis-table.png → web/resources/public/images/vis-table.png
Unescape Escape View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 91 KiB

After

Width:  |  Height:  |  Size: 91 KiB

0
web/resources/public/images/wgu-vis.png → web/resources/public/images/vis.png
Unescape Escape View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 65 KiB

After

Width:  |  Height:  |  Size: 65 KiB

4
web/src/com/darklimericks/linguistics/core.clj
Unescape Escape View File

@ -452,7 +452,7 @@
(sort-by (comp - second)) (sort-by (comp - second))
first))) first)))
(defn wgu-lyric-suggestions (defn rhymestorm-lyric-suggestions
"Returns lyrics rhyming with a seed phrase. "Returns lyrics rhyming with a seed phrase.
Groups rhymes by quality then orders each grouping by frequency. Groups rhymes by quality then orders each grouping by frequency.
@ -493,7 +493,7 @@
(comp - last second second)))))) (comp - last second second))))))
(comment (comment
(take 5 (wgu-lyric-suggestions "technology")) (take 5 (lyric-suggestions "technology"))
(phrase->quality-of-rhyme "boss hog" "brain fog") (phrase->quality-of-rhyme "boss hog" "brain fog")

6
web/src/com/darklimericks/server/handlers.clj
Unescape Escape View File

@ -256,7 +256,7 @@
{} {}
(views/submit-limericks request []))}))) (views/submit-limericks request []))})))
(defn wgu [db cache] (defn rhymestorm [db cache]
(fn [request] (fn [request]
{:status 200 {:status 200
:headers {"Content-Type" "text/html; charset=utf-8"} :headers {"Content-Type" "text/html; charset=utf-8"}
@ -264,7 +264,7 @@
{:db db {:db db
:request request :request request
:opts {}} :opts {}}
(views/wgu request {}))})) (views/rhymestorm request {}))}))
(defn rhyming-lyric [db cache] (defn rhyming-lyric [db cache]
(fn [request] (fn [request]
@ -329,4 +329,4 @@
:opts {}} :opts {}}
(views/lyrics-from-seed (views/lyrics-from-seed
request request
(linguistics/wgu-lyric-suggestions target)))}))) (linguistics/rhymestorm-lyric-suggestions target)))})))

6
web/src/com/darklimericks/server/router.clj
Unescape Escape View File

@ -34,10 +34,10 @@
:parameters {:path {:artist-id int?}} :parameters {:path {:artist-id int?}}
:get {:handler (handlers/artist-get-handler db)}}]] :get {:handler (handlers/artist-get-handler db)}}]]
["/assets/*" handlers/file-handler] ["/assets/*" handlers/file-handler]
["/wgu" ["/rhymestorm"
["" [""
{:name ::wgu {:name ::rhymestorm
:get {:handler (handlers/wgu db cache)} :get {:handler (handlers/rhymestorm db cache)}
:post {:handler (handlers/rhyming-lyric db cache)}}] :post {:handler (handlers/rhyming-lyric db cache)}}]
["/rhyme" ["/rhyme"
{:name ::rhyme {:name ::rhyme

12
web/src/com/darklimericks/server/views.clj
Unescape Escape View File

@ -280,7 +280,7 @@
(for [line (string/split (:limerick/text limerick) #"\n")] (for [line (string/split (:limerick/text limerick) #"\n")]
[:div line])]]))]) [:div line])]]))])
(defn wgu (defn rhymestorm
[request {:keys [rhymes rhyming-lyrics lyrics-from-seed]}] [request {:keys [rhymes rhyming-lyrics lyrics-from-seed]}]
[:div [:div
[:h1 "RhymeStorm™"] [:h1 "RhymeStorm™"]
@ -371,7 +371,7 @@ prefixes to that rhyming phrase."]
(defn lyric-suggestions (defn lyric-suggestions
[request suggestions] [request suggestions]
[:div [:div
(wgu (rhymestorm
request request
{:rhyming-lyrics {:rhyming-lyrics
[:table {:style "margin: auto;"} [:table {:style "margin: auto;"}
@ -392,7 +392,7 @@ prefixes to that rhyming phrase."]
(defn show-rhyme-suggestion (defn show-rhyme-suggestion
[request suggestions] [request suggestions]
[:div [:div
(wgu (rhymestorm
request request
{:rhymes {:rhymes
(for [[suggestion p1 freq _ p2 quality] suggestions] (for [[suggestion p1 freq _ p2 quality] suggestions]
@ -417,7 +417,7 @@ prefixes to that rhyming phrase."]
(juxt (comp - :rhyme-quality) (juxt (comp - :rhyme-quality)
(comp - :freq)) (comp - :freq))
top-20-by-quality))] top-20-by-quality))]
(wgu (rhymestorm
request request
{:rhymes {:rhymes
[:div [:div
@ -513,9 +513,9 @@ Words may appear twice if they have multiple pronunciations."]
(defn lyrics-from-seed (defn lyrics-from-seed
[request seed] [request seed]
(let [suggestions (linguistics/wgu-lyric-suggestions (let [suggestions (linguistics/rhymestorm-lyric-suggestions
(-> request :params :seed))] (-> request :params :seed))]
(wgu (rhymestorm
request request
{:lyrics-from-seed {:lyrics-from-seed
[:div [:div

Write Preview
Loading…
Cancel
Save