PageRenderTime 53ms CodeModel.GetById 27ms RepoModel.GetById 1ms app.codeStats 0ms

/analytics.clj/src/analytics/clj/core.clj

https://github.com/trydionel/misc.clj
Clojure | 79 lines | 64 code | 15 blank | 0 comment | 0 complexity | f6da49d7e106a07aea73bcd7dfc861ce MD5 | raw file
    

  1. (ns analytics.clj.core
    2. 

  2.   (:require redis)
    3. 

  3.   (:use aleph
    4. 

  4. 	analytics.clj.routing
    5. 

  5. 	clojure.contrib.str-utils
    6. 

  6. 	[clojure.contrib.duck-streams :only [pwd]])
    7. 

  7.   (:import java.io.File)
    8. 

  8.   (:gen-class))
    9. 

  9. 

  10. (def *redis-server* {:host "127.0.0.1", :port 6379, :db 1})
    11. 

  11. 

  12. (defmacro redis-request [& forms]
    13. 

  13.   "Issues the given forms against the redis-server"
    14. 

  14.   `(redis/with-server
    15. 

  15.      *redis-server*
    16. 

  16.      (do ~@forms)))
    17. 

    18. 

  18. (defn now
    19. 

  19.   "Returns the current time in nanos since Jan 1 1970"
    20. 

  20.   []
    21. 

  21.   (System/nanoTime))
    22. 

    23. 

  23. (defn record-event [sid event]
    24. 

  24.   (redis-request
    25. 

  25.    (redis/zadd sid (now) event)
    26. 

  26.    (redis/rpush "sids" sid)))
    27. 

    28. 

  28. (defn get-events [sid]
    29. 

  29.   (redis-request
    30. 

  30.    (redis/zrange sid 0 -1)))
    31. 

    32. 

  32. (defmacro with-layout [& forms]
    33. 

  33.   `(str "<html><body>" ~@forms "</body></html>"))
    34. 

  34. 

  35. (defn make-response [body]
    36. 

  36.   {:status 200
    37. 

  37.    :headers {"Content-Type" "text/html",
    38. 

  38. 	     "Content-Length" (count body)}
    39. 

  39.    :body body})
    40. 

  40. 

  41. (defn not-found-response
    42. 

  42.   {:status 404
    43. 

  43.    :headers {"Content-Type" "text/html"}
    44. 

  44.    :body nil})
    45. 

  45. 

  46. (defn serve-file [name]
    47. 

  47.   (File. (str (pwd) "/public/" name)))
    48. 

  48. 

  49. (defn home-response [request]
    50. 

  50.   (respond! request
    51. 

  51. 	    {:status 200
    52. 

  52. 	     :headers {"Content-Type" "text/html"}
    53. 

  53. 	     :body (serve-file "index.html")}))
    54. 

  54. 

  55. (defn new-event-response [request]
    56. 

  56.   (do
    57. 

  57.     (future (record-event ((request :params) :sid) ((request :params) :event)))
    58. 

  58.     (respond! request (make-response "OK"))))
    59. 

  59. 

  60. (defn get-events-response [request]
    61. 

  61.   (future
    62. 

  62.    (let [events (get-events ((request :params) :sid))
    63. 

  63. 	 body (str "{events:[" (str-join "," events) "]}")]
    64. 

  64.      (respond! request (make-response body)))))
    65. 

  65. 

  66. (defn javascript-response [request]
    67. 

  67.   (future
    68. 

  68.    (respond! request {:status 200
    69. 

  69. 		      :headers {"Content-Type" "text/javascript"}
    70. 

  70. 		      :body (serve-file (str ((request :params) :file) ".js"))})))
    71. 

  71. 

  72. (defrouter router
    73. 

  73.   (route "/" home-response)
    74. 

  74.   (route "/events/new" new-event-response)
    75. 

  75.   (route "/events/:sid" get-events-response)
    76. 

  76.   (route "/:file.js" javascript-response))
    77. 

  77. 

  78. (defn -main [& args]
    79. 

  79.   (run-aleph router {:port 8080}))
    80.