Larry Gouger lgouger

lgouger / find_in_bucket.clj

Last active January 12, 2021 20:14

A method for paging through AWS results. *paging-invoke*

	#!/usr/bin/env bb

	(require '[babashka.pods :as pods])

	(pods/load-pod 'org.babashka/aws "0.0.1")

	(require '[pod.babashka.aws :as aws])
	(require '[clojure.tools.cli :refer [parse-opts]])

lgouger / elementValue.cljs

Created April 6, 2018 22:59

Clojurescript elementValue that supports multi-select options

	(defmulti elementText (fn [element] (.-nodeType element)))
	(defmethod elementText :default
	[element]
	(mapcat #(elementText %) element))
	(defmethod elementText 1
	[element]
	(.-textContent element))
	(defmethod elementText 9
	[element]
	(.-textContent element))

lgouger / elementValue.cljs

Created February 26, 2018 16:45

Processing the multiple return values from a select/option input group.

	;; modeled on jQuery's .val()
	;; the elementText and elementValue multi-methods work together to return a single item when the select is used as a select-one,
	;; but return a collection of values when used with a multiple select.

	(defmulti elementText (fn [element] (.-nodeType element)))
	(defmethod elementText :default
	[element]
	(mapcat #(elementText %) element))
	(defmethod elementText 1
	[element]

lgouger / index.html

Last active February 28, 2017 19:04

	<!DOCTYPE html>
	<meta charset="utf-8">
	<script src="https://d3js.org/d3.v3.min.js" charset="utf-8"></script>
	<style>
	.chart div {
	font: 10px sans-serif;
	background-color: steelblue;
	text-align: right;
	padding: 3px;
	margin: 1px;