cleanup

src/poalses/jonathan/dialect/dialect_nlp.clj

@@ -70,11 +70,21 @@
 
 (defn detect-sentence-dialect [sentence]
   (let [token-text (dl/text (dl/tokens sentence))
-        dialects1  (if (some australian-words token-text) :australian (when ((apply some-fn australian-predicates) sentence) :australian))
-        dialects2  (if (some scottish-words token-text) :scottish (when ((apply some-fn scottish-predicates) sentence) :scottish))
-        dialects3  (if (some american-words token-text) :american (when ((apply some-fn american-predicates) sentence) :american))
+        dialects1  (if (some australian-words token-text)
+                     :australian
+                     (when ((apply some-fn australian-predicates) sentence) :australian))
+        dialects2  (if (some scottish-words token-text)
+                     :scottish
+                     (when ((apply some-fn scottish-predicates) sentence) :scottish))
+        dialects3  (if (some american-words token-text)
+                     :american
+                     (when ((apply some-fn american-predicates) sentence) :american))
         dialects   (remove nil? [dialects1 dialects2 dialects3])]
-    (if (empty? dialects) [:standard] dialects)))
+    (if (empty? dialects)
+      [:standard]
+      dialects)))
+
+(cond)
 
 
 ;; Take a text sample and separate it into its sentences, then for each sentence find its dialects, and return the most common dialect