the80srobot

#!/usr/bin/perl

#
# Markdown -- A text-to-HTML conversion tool for web writers
#
# Copyright (c) 2004 John Gruber
# <http://daringfireball.net/projects/markdown/>
#

the80srobot

package rk

import (
	"regexp"
	"strings"
	"testing"

	"github.com/cloudflare/ahocorasick"
)

the80srobot

(defmacro define-entity-template
  [n & cs]
  (let [macro-name (->> n (str "def") symbol)
        docstring (if (string? (first cs)) (first cs) "")
        cs (if docstring (rest cs) cs)]
    ;; This is where it gets slightly insane...
    `(defmacro ~macro-name ~docstring
      [n# & cs#]
      (let [docstring# (if (string? (first cs#)) (first cs#) "")
            cs# (if docstring# (rest cs#) cs#)]

the80srobot

(ns geotools.shape-viewer
  (:import [org.geotools.data CachingFeatureSource FeatureSource FileDataStore FileDataStoreFinder])
  (:import [org.geotools.map DefaultMapContext MapContext])
  (:import [org.geotools.swing JMapFrame])
  (:import [org.geotools.swing.data JFileDataStoreChooser]))

(defn show-shapefile
  "Prompts the user for a shapefile and displays its content"
  []
  (if-let [shapefile (JFileDataStoreChooser/showOpenFile "shp" nil)]