jmorton

(ns lcmap-data-clj.logger
  (:require [clojure.logging.impl :as log-impl])
  (:import [ch.qos.logback.classic Level]))


(comment "Usage example"
  (set-level! 'lcmap-data-clj :debug)
  (set-level! '[org.apache org.gdal] :info)
  (set-level! '[com.datastax.driver co.paralleluniverse] :error))

jmorton

(defrecord Accept [media-range quality accept-extension])

(defn accept [str]
  "Parse a single accept string into a map"
  ; according to RFC2616, the "q" parameter must precede the accept-extension
  (let [pattern #"([^;]+)\s*(?:;q=([0-9+\.]+))?\s*(;.+)*"
        matches (re-find pattern str)
        [_ media-range qvalue accept-extension] matches
        quality (java.lang.Double/parseDouble (or qvalue "1"))]
    (Accept. media-range quality accept-extension)))

jmorton

""" Moo.
"""

import gdal
import osr
import math
import subprocess
import time

jmorton

(ns shokunin.euler)

;; sum of multiples of 3 and 5 < 1000
;; https://projecteuler.net/problem=1

(defn multiple-seq [n]
  (iterate (partial + n) n))

(let [x3 (take-while #(< % 1000) (multiple-seq 3))
      x5 (take-while #(< % 1000) (multiple-seq 5))

jmorton

Counting Words

Get:

• Ten most frequently occurring non-stop words in a text file (including how often they occur).
• Alphabetized list of words occurring exactly three times.

Considerations:

• Stop words
• Stemming
• Laziness

jmorton

(ns accept.core)

;; Content Type matters in a REST API.

(defrecord Accept [media-range quality accept-extension])


(defn accept [str]
  "Parse a single accept string into a map"
  ; according to RFC2616, the "q" parameter must precede the accept-extension

jmorton

FROM centos:centos6
MAINTAINER jmorton@usgs.gov

# Apache
RUN yum install -y httpd httpd-devel
RUN chkconfig httpd on
RUN apachectl start

# Dependencies
RUN yum groupinstall -y "Development tools"

jmorton

require 'em-imap'
require 'logger'
require 'yaml'

#
# Watch IMAP mailboxes for messages and react however you like.
#
# Usage Example:
#
#   Mailbag.run do |message|

jmorton

(defn fizzer [n]
  (if (= 0 (mod n 3)) "Fizz"))

(defn buzzer [n]
  (if (= 0 (mod n 5)) "Buzz"))

(defn fizzerbuzzer [num]
  (let [res [(fizzer num) (buzzer num)]]
    (if (every? nil? res) num (apply str res))))

jmorton

/**
 * Usage:
 * 
 *   <script src="augmenter.js" type="text/javascript"></script>
 *   <script>
 *     new Augmenter({ attr: 'data-employee', url: '/employee?id=' })
 *   </script>
 * 
 * Any elements like this in your document:
 *