diff --git a/.gitignore b/.gitignore
index 8f5f26dd..9e12cf98 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,4 @@
+.cpcache
 docs/apidocs
 target
 build
diff --git a/docs/Getting Started.md b/docs/Getting Started.md
index 9882817a..c0d2f1c9 100644
--- a/docs/Getting Started.md	
+++ b/docs/Getting Started.md	
@@ -144,6 +144,7 @@ var width = 640;
 var height = 480;
 
 // Create window
+glfwInit();
 glfwWindowHint(GLFW_VISIBLE, GLFW_FALSE);
 glfwWindowHint(GLFW_RESIZABLE, GLFW_TRUE);
 long windowHandle = glfwCreateWindow(width, height, "Skija LWJGL Demo", NULL, NULL);
diff --git a/examples/clojure/deps.edn b/examples/clojure/deps.edn
new file mode 100644
index 00000000..3d65902c
--- /dev/null
+++ b/examples/clojure/deps.edn
@@ -0,0 +1,8 @@
+{:deps {org.jetbrains.skija/skija-macos {:mvn/version "0.6.6"}
+        org.lwjgl/lwjgl {:mvn/version "3.2.3"}
+        org.lwjgl/lwjgl$natives-macos {:mvn/version "3.2.3"}
+        org.lwjgl/lwjgl-glfw {:mvn/version "3.2.3"}
+        org.lwjgl/lwjgl-glfw$natives-macos {:mvn/version "3.2.3"}
+        org.lwjgl/lwjgl-opengl {:mvn/version "3.2.3"}
+        org.lwjgl/lwjgl-opengl$natives-macos {:mvn/version "3.2.3"}}
+ :mvn/repos {"space-maven" {:url "https://packages.jetbrains.team/maven/p/skija/maven"}}}
\ No newline at end of file
diff --git a/examples/clojure/script/run.sh b/examples/clojure/script/run.sh
new file mode 100755
index 00000000..ee997a9d
--- /dev/null
+++ b/examples/clojure/script/run.sh
@@ -0,0 +1,5 @@
+#!/bin/bash
+set -o errexit -o nounset -o pipefail
+cd "`dirname $0`/.."
+
+clj -J-XstartOnFirstThread -X lwjgl.main/-main
\ No newline at end of file
diff --git a/examples/clojure/src/lwjgl/main.clj b/examples/clojure/src/lwjgl/main.clj
new file mode 100644
index 00000000..2c60566c
--- /dev/null
+++ b/examples/clojure/src/lwjgl/main.clj
@@ -0,0 +1,47 @@
+(ns lwjgl.main
+  (:import
+   [org.jetbrains.skija BackendRenderTarget Canvas ColorSpace DirectContext FramebufferFormat Paint Rect Surface SurfaceColorFormat SurfaceOrigin]
+   [org.lwjgl.glfw GLFW]
+   [org.lwjgl.opengl GL GL11]
+   [org.lwjgl.system MemoryUtil]))
+
+(set! *warn-on-reflection* true)
+
+(defn color [^long l]
+  (.intValue (Long/valueOf l)))
+
+(defn draw [^Canvas canvas]
+  (.clear canvas (color 0xFFFFFFFF))
+  (let [layer (.save canvas)
+        paint (doto (Paint.) (.setColor (color 0xFFCC3333)))]
+    (.translate canvas 320 240)
+    (.rotate canvas (mod (/ (System/currentTimeMillis) 10) 360))
+    (.drawRect canvas (Rect/makeXYWH -50 -50 100 100) paint)
+    (.restoreToCount canvas layer)))
+
+(defn -main [& args]
+  (GLFW/glfwInit)
+  (GLFW/glfwWindowHint GLFW/GLFW_VISIBLE GLFW/GLFW_FALSE)
+  (GLFW/glfwWindowHint GLFW/GLFW_RESIZABLE GLFW/GLFW_TRUE)
+  (let [width 640
+        height 480
+        window (GLFW/glfwCreateWindow width height "Skija LWJGL Demo" MemoryUtil/NULL MemoryUtil/NULL)]
+    (GLFW/glfwMakeContextCurrent window)
+    (GLFW/glfwSwapInterval 1)
+    (GLFW/glfwShowWindow window)  
+    (GL/createCapabilities)
+
+    (let [context (DirectContext/makeGL)
+          fb-id   (GL11/glGetInteger 0x8CA6)
+          target  (BackendRenderTarget/makeGL width height 0 8 fb-id FramebufferFormat/GR_GL_RGBA8)
+          surface (Surface/makeFromBackendRenderTarget context target SurfaceOrigin/BOTTOM_LEFT SurfaceColorFormat/RGBA_8888 (ColorSpace/getSRGB))
+          canvas  (.getCanvas surface)]
+      (loop []
+        (when (not (GLFW/glfwWindowShouldClose window))
+          (draw canvas)
+
+          (.flush context)
+          (GLFW/glfwSwapBuffers window)
+          (GLFW/glfwPollEvents)
+          (recur)))
+    )))