attentive

window.Mapnificent = (function (window, document, $, undefined) {
    var getOSMMapType = function () {
            return new google.maps.ImageMapType({
                getTileUrl: function (coord, zoom) {
                    return "http://tile.openstreetmap.org/" + zoom + "/" + coord.x + "/" + coord.y + ".png"
                },
                tileSize: new google.maps.Size(256, 256),
                isPng: true,
                maxZoom: 18,
                name: "OSM"

attentive

(ns postgis 
  (:require [clj-json.core :as json])
  (:use korma.core korma.db korma.sql.engine))

(defn intersects [first-geom second-geom]
  "An extended Korma predicate that uses the PostGIS function ST_Intersects." 
  (sql-func "ST_Intersects" first-geom second-geom))

(defn from-wkt [wkt]
  "Create a PostGIS geometry with geographic SRID from WKT using ST_GeomFromText."

attentive

(ns leaflet-helloworld
  (:require [om.core :as om :include-macros true]
            [om.dom :as dom :include-macros true]))

(defn map-view [_ owner]
  (reify
    om/IRender
    (render [_]
      (dom/div #js {:id "the-map"} nil))
    om/IDidMount

attentive

(ns gist.conduit
  (:use [net.cgrand enlive-html tagsoup]))

; The implementations of conduit and defconduit are modified versions of 
; the macros template and deftemplate from the guts of Enlive. 

; They're named 'conduit' because the selectors and transformations serve as a 
; channel between the scaffold of HTML and some data provided as an argument.

; Tagsoup is used to parse a list of HTML nodes from a specified input file at runtime.

attentive

(ns goban
  (:require [clojure.string :as string]
            hiccup.core))

(let [CEL 5.0   ; cell dimension in SVG viewport units
      BDR 3.0   ; border width
      PXR 10    ; ratio of pixels to SVG vw
      BOA (* CEL 18) ; board side
      DIM (+ BOA (* BDR 2))] ; goban side

attentive

(ns vchain.graph
  (:require [om.core :as om :include-macros true]
            [cljs.core.async :as async :refer [put! chan mult]]
            [clojure.string :as string :refer [join]]
            [sablono.core :as html :refer-macros [html]]
            [strokes :refer [d3]]
            vchain.links
            vchain.routes
            vchain.slug
            vchain.wrap))

attentive

(ns project.leaflet
  (:require-macros [project.macros :as m])
  (:require [rum.core :as rum]
            cljsjs.react-leaflet)) ;; js/ReactLeaflet

(m/adapt-react leaflet-map js/ReactLeaflet.Map)
(m/adapt-react tile-layer js/ReactLeaflet.TileLayer)
(m/adapt-react marker js/ReactLeaflet.Marker)
(m/adapt-react popup js/ReactLeaflet.Popup)

attentive

(def current (atom 1))
(def previous (atom nil))

(add-watch current :dontcare
           (fn [_ _ old-state _] 
               (reset! previous old-state)))
         
(repeatedly 10 #(do (swap! current * 2)
                    (println "Current:" @current "Previous:" @previous)))

attentive

(ns fizzbuzz
  (:require [clojure.core.match :refer [match]]))

(defn interpret [x y i]
  (match [x y i]
         [true true _] "FizzBuzz"
         [true false _] "Fizz"
         [false true _] "Buzz"
         :else i))

attentive

# This rigmarole should connect successfully first
ogrinfo PG:"dbname='databasename' host='addr' port='5432' user='x' password='y'" layername

# Requires GDAL 2.3 or higher (current stable Ubuntu packages for Bionic are only 2.2.x)  
ogr2ogr -f MVT out.mbtiles PG:"dbname='databasename' host='addr' port='5432' user='x' password='y'" layername