Skip to content

Instantly share code, notes, and snippets.

@pstephens
Created November 15, 2015 04:25
Show Gist options
  • Save pstephens/9480678688e3f106c539 to your computer and use it in GitHub Desktop.
Save pstephens/9480678688e3f106c539 to your computer and use it in GitHub Desktop.
Simple node.js style 'hello world' web server in ClojureScript
(ns biblecli.commands.serve
(:require
[cljs.nodejs :as nodejs]
[clojure.string :as string]
[goog.object]))
(def node-http (nodejs/require "http"))
(defn process-request [req res]
(goog.object/set res "statusCode" 200)
(.setHeader res "content-type", "text/plain")
(.setHeader res "content-length" "11")
(.end res "hello world" "utf8"))
(defn serve []
(let [server (.createServer node-http process-request)]
(.listen server 8080)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment