 (defn platform
 	[[db event-chan] request]
 	(let [host (host-of request)
-				pl   (hsm.helpers/pl->lang (id-of request :platform))
-				top-projects (hsm.actions/list-top-proj db pl 10)]
+				pl   (pl->lang (id-of request :platform))
+				top-projects (list-top-proj db pl 10)]
 		(html-resp 
 			(layout host
 				[:div 

	(:require 
		[hsm.ring 		:refer [html-resp]]
		[hsm.views 		:refer :all]
		[hsm.utils 		:refer [host-of id-of]]))

(defn homepage
	[[db event-chan] request]

										(for [x top-projects]
											[:li 
												[:a {:href (str "/p/"(:full_name x))} (:full_name x)
												[:p {:style "color:gray"} (cutoff (:description x) 50)]]
												]
											)]]]]]]))))
