edw

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

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

edw

[  ⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀]

edw

;;; 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))

edw

(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))

edw

> (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)))

edw

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

edw

(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))))

edw

Zippers

Please see .

edw

;; 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)