Skip to content

Instantly share code, notes, and snippets.

(defrecord Server [service-map]
component/Lifecycle
(start [component]
(info :msg "Starting server.")
(let [server (bootstrap/create-server (:service-map service-map))]
(bootstrap/start server)
(assoc component :server server)))
(stop [component]
(info :msg "Stopping server.")
(update-in component [:server] bootstrap/stop)))
@dadair-ca
dadair-ca / SDL-CMakeLists.txt
Created November 25, 2012 03:14
Minimal SDL CMakeLists.txt
project (PROJECT_NAME)
find_package (SDL REQUIRED)
set (SRC file1.cpp file2.cpp)
add_executable (EXECUTABLE_NAME ${SRC})
target_link_libraries(EXECUTABLE_NAME ${SDL_LIBRARY})
@gorsuch
gorsuch / gist:1418850
Created December 1, 2011 18:37
clojure uuid
(defn uuid [] (str (java.util.UUID/randomUUID)))