sentiments.clj

(def nlp
  (let [props (new java.util.Properties)]
    (.setProperty props "annotators" "tokenize,ssplit,parse,sentiment")
    (new edu.stanford.nlp.pipeline.StanfordCoreNLP props)))

(defn find-sentiment
  "Determines the sentiment of each sentence in a given glob of text. Results in a collection of integers ranging from [0-4]: where 0 is 'Very negative', 2 is 'neutral', and 4 is 'Very positive'"
  [^String glob]
  (let [main-sentiment 0
        longest 0]
    (if (and (not (nil? glob)) (> (count glob) 0))
      (let [annotation (.process nlp glob)]
        (for [sentence (.get annotation edu.stanford.nlp.ling.CoreAnnotations$SentencesAnnotation)]
          (let [tree (.get sentence edu.stanford.nlp.sentiment.SentimentCoreAnnotations$AnnotatedTree)
                sentiment (edu.stanford.nlp.neural.rnn.RNNCoreAnnotations/getPredictedClass tree)
                part-text (.toString sentence)]
              (if (> (.length part-text) longest)
                (int sentiment)))))))))