Edwin Watkeys edw

Docs for Writing Clojure Web Sites

In no particular order.

JSON: https://github.com/dakrone/cheshire
Templating: https://github.com/weavejester/comb
Web server: https://github.com/ring-clojure/ring
JDBC_DATABASE_URL env var in Heroku: https://devcenter.heroku.com/articles/connecting-to-relational-databases-on-heroku-with-java
Composing infrasturcture and interactive development: https://github.com/weavejester/integrant
Embracing SQL in Clojure: https://www.hugsql.org

> (load "/Users/edw/dev/i7t/thunknyc/names/index.ss")
"/Users/edw/dev/i7t/thunknyc/names/index.ss"
> (def e (all-exports))
> (hash-ref e 'display)
((gerbil/compiler/ssxi (imported syntax))
 (gerbil/core (imported syntax))
 (scheme/r5rs (imported syntax))
 (scheme/write (imported syntax))
 (std/parser/grammar (imported syntax)))

In Gerbil Scheme, how do I …

Import R7RS libraries?

In the root of the directory structure that contains your libraries:

$ cat > gerbil.pkg
(prelude: :scheme/r7rs)
^D

Zippers

Please see .

	(defn get-pid
	"Get pid under Linux for older Java implementations"
	[]
	(-> (java.io.File. "/proc/self")
	.getCanonicalFile
	.getName
	Integer/parseInt))

	;;; Solution to https://projecteuler.net/problem=61

	(defn quadratic-formula [a b c]
	(let [x (Math/sqrt (- (* b b) (* 4 a c)))]
	(set [(/ (+ (* -1 b) x) (* 2 a))
	(/ (- (* -1 b) x) (* 2 a))])))

	(defn whole-number? [n]
	(when (and (number? n)
	(== (Math/round n) n))

	(add-hook 'before-save-hook 'whitespace-cleanup)

	(defun smart-open-line-above ()
	"Insert an empty line above the current line.
	Position the cursor at it's beginning, according to the current mode."
	(interactive)
	(move-beginning-of-line nil)
	(newline-and-indent)
	(forward-line -1)
	(indent-according-to-mode))

	(define-library (example bad)
	(export Bad bad)
	(import (scheme base))
	(begin (define-record-type Bad
	(make-bad a)
	bad?
	(a bad-a))
	(define (bad a)
	(make-bad a))))

	;; Incrément: A Scheme based on an enhanced EDN-like reader
	;;
	;; Edwin Watkeys, Thunk NYC Corp.
	;; <edw@poseur.com>
	;; 13 December 2018
	;; http://github.com/thunknyc/i7t
	;;

	(import (scheme red)