let frontend show movie genre aloneside with movie name

Author: humorless

Diff for: resources/sql/queries.sql

@@ -25,11 +25,6 @@ WHERE sess = :sess
 DELETE FROM users
 WHERE id = :id
 
--- :name create-genres! :! :n
--- :doc create multiple genres with :tuple* parameter type
-INSERT INTO genres (id, unkonwn, action, animation, children, comedy, crime, documentary, drama, fantasy, film_noir, horror, musical, mystery, romance, sci_fi, thriller, war, western) 
-VALUES :tuple*:genres
-
 -- :name create-ratings! :! :n
 -- :doc create multiple rating records with :tuple* parameter type
 INSERT INTO ratings (user_id, item_id, rating)

Diff for: resources/templates/rated.html

@@ -17,6 +17,9 @@ <h2>
             <th>
                 movie name
             </th>
+            <th>
+                movie genre
+            </th>
             <th>
                 my rating
             </th>
@@ -31,6 +34,13 @@ <h2>
                 <td>
                     {{movie.name}}
                 </td>
+                <td>
+                   <ul>
+                     {% for genre in  movie.genre %}
+                     <li>{{genre}}</li>
+                     {% endfor %}
+                   </ul>
+                </td>
                 <td>
                     {{movie.r}}
                 </td>

Diff for: resources/templates/root.html

@@ -17,6 +17,9 @@ <h2>
             <th>
                 movie name
             </th>
+            <th>
+                movie genre
+            </th>
             <th>
                 average rating
             </th>

Diff for: resources/templates/user.html

@@ -17,6 +17,9 @@ <h2>
             <th>
                 movie name
             </th>
+            <th>
+                movie genre
+            </th>
             <th>
                 guessing rating
             </th>

Diff for: resources/u.genre

@@ -0,0 +1,20 @@
+unknown|0
+Action|1
+Adventure|2
+Animation|3
+Children's|4
+Comedy|5
+Crime|6
+Documentary|7
+Drama|8
+Fantasy|9
+Film-Noir|10
+Horror|11
+Musical|12
+Mystery|13
+Romance|14
+Sci-Fi|15
+Thriller|16
+War|17
+Western|18
+

Diff for: src/clj/intowow/core.clj

@@ -1,5 +1,6 @@
 (ns intowow.core
-  (:require [intowow.handler :as handler]
+  (:require [intowow.data :as data]
+            [intowow.handler :as handler]
             [luminus.repl-server :as repl]
             [luminus.http-server :as http]
             [luminus-migrations.core :as migrations]
@@ -41,8 +42,8 @@
     (log/info "model training starts at" (time/now))
     (try
       (spark/re-train)
-        (catch Exception e
-          (log/error "Error in model training :" e)))
+      (catch Exception e
+        (log/error "Error in model training :" e)))
     (log/info "model training ends at" (time/now))))
 
 (defn init-spark
@@ -66,6 +67,7 @@
                         :started)]
     (log/info component "started"))
   (init-spark)
+  (data/init-genre!)
   (.addShutdownHook (Runtime/getRuntime) (Thread. stop-app)))
 
 (defn -main [& args]

Diff for: src/clj/intowow/data.clj

@@ -26,13 +26,22 @@
          (map line->item-tuple)
          (into {}))))
 
+(def genre-data (atom []))
+
+(defn get-genre-by-id
+  "for every id, return the genre as
+   the form [children horror]"
+  [id]
+  (let [index (dec id)]
+    (mapv name (map key (filter #(= (val %) 1) (remove #(= (key %) :id) (get @genre-data index)))))))
+
 (defn line->genre-tuple [line]
   (let [line-list (s/split line #"\|")
         genre (drop 5 line-list)
         id (first line-list)]
     (->> (cons id genre)
          (map to-long)
-         (zipmap [:id :unknown :action :animation :children :comedy :crime :documentary :drama :fantasy :film_noir :horror :musical :mystery :romance :sci_fi :thriller :war :western]))))
+         (zipmap [:id :unknown :action :adventure :animation :children :comedy :crime :documentary :drama :fantasy :film_noir :horror :musical :mystery :romance :sci_fi :thriller :war :western]))))
 
 (defn load-genres
   "return vector as:
@@ -43,6 +52,14 @@
          (map line->genre-tuple)
          (into []))))
 
+(defn init-genre!
+  "initialize the genre-data as an array of map.
+  movie item id 1    ---> array index 0
+  movie item id 1682 ---> array index 1681
+  "
+  []
+  (reset! genre-data (load-genres "u.item")))
+
 (defn item->name [file]
   (let [items (load-items file)]
     (fn [{:keys [id]}]

Diff for: src/clj/intowow/routes/home.clj

@@ -1,5 +1,6 @@
 (ns intowow.routes.home
-  (:require [intowow.sparkling :as spk]
+  (:require [intowow.data :as data]
+            [intowow.sparkling :as spk]
             [intowow.layout :as layout]
             [compojure.core :refer [defroutes GET POST]]
             [ring.util.http-response :as response]
@@ -20,7 +21,7 @@
   (let [raw-data (try
                    (spk/recommend uid number)
                    (catch Exception e nil))]
-    (log/info "recommend raw data with data type as: " (class raw-data) )
+    (log/info "recommend raw data with data type as: " (class raw-data))
     (if (nil? raw-data)
       (db/get-movie-average)
       (map #(zipmap [:item_id :name :r] %) raw-data))))
@@ -50,13 +51,18 @@
          [:input {:type "hidden" :name "itemid" :value (str iid)}]
          [:input {:type "submit" :value "Submit"}]]))
 
+(defn get-genre-by-id [id]
+  (html [:ul
+         (for [x (data/get-genre-by-id id)]
+           [:li x])]))
+
 (defn guest-data-page [{{start "start" length "length" draw "draw"}
                         :form-params :as req}]
   (let [s (Integer/parseInt start)
         len (Integer/parseInt length)
         d (Integer/parseInt draw)
         data (db/get-movie-average)
-        page (mapv #(vector (:item_id %) (:name %) (:r %))
+        page (mapv #(vector (:item_id %) (:name %) (get-genre-by-id (:item_id %)) (:r %))
                    (drop s (take (+ s len) data)))]
     (generate-string
      {:draw d
@@ -73,7 +79,7 @@
         len (Integer/parseInt length)
         d (Integer/parseInt draw)
         data (recommend-movies u)
-        page  (mapv #(vector (:item_id %) (:name %)  (:r %)  (user-submit-form  (:item_id %)))
+        page  (mapv #(vector (:item_id %) (:name %) (get-genre-by-id (:item_id %)) (:r %) (user-submit-form  (:item_id %)))
                     (drop s (take (+ s len) data)))]
     (log/info (take 2 data))
     (generate-string
@@ -93,7 +99,7 @@
 (defn rated-page [{{user-sess-id :identity} :session :as req}]
   (let [{id :id  :as user} (db/get-user-by-sess  {:sess user-sess-id})]
     (layout/render "rated.html"
-                   {:movies (db/get-movie-rating-by-id {:id id}) :h2 (:email user)})))
+                   {:movies (map #(assoc % :genre (data/get-genre-by-id (:item_id %))) (db/get-movie-rating-by-id {:id id})) :h2 (:email user)})))
 
 (defn get-login []
   (layout/render "login.html"))