near/computersandblues.frantisek
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Improve wording

Browse source
This commit is contained in:
Arne Schlüter 2019-01-15 23:02:21 +01:00
commit bd114d4ae0
2 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/heyarne/frantisek_kafka/samsa.clj
View file

@ -1,7 +1,6 @@
(ns heyarne.frantisek-kafka.samsa
"Create your own Kafka."
(:require [clojure.java.io :as io]
[clojure.string :as str]
(:require [clojure.string :as str]
[clojure.tools.cli :refer [parse-opts]]
[taoensso.timbre :as log]
[clj-http.client :as http]
@ -19,19 +18,19 @@
(def sentence-ending? #(some? (re-find #"[.?!]$" %)))
(defn valid-start? [elem]
(some? (re-find #"^[A-Z]" (first elem))))
(defn sentence-start? [state]
(some? (re-find #"^[A-Z]" (first state))))
(defn generate-sentence [markov-chain]
(let [start (->> (markov/elements markov-chain)
(filter valid-start?)
(let [start (->> (markov/states markov-chain)
(filter sentence-start?)
(rand-nth))]
(str/join " " (markov/generate markov-chain start sentence-ending?))))
;; interacting with the API
(defn environment-setup? []
(and (and (:mastodon-instance env) (:access-token env))))
(and (:mastodon-instance env) (:access-token env)))
(defn send-toot! [text]
(when (environment-setup?)