mtm

Keybase proof

I hereby claim:

• I am mtm on github.
• I am forthdude (https://keybase.io/forthdude) on keybase.
• I have a public key ASDY0uhMNp6NmGrmturO_l3MRzQinnp1N3A7jINgIcoOtwo

To claim this, I am signing this object:

mtm

[
  {
    "css": ".keylabel2 { color: #65dbdb;}\n.keylabel6 { color: #111111;}\n"
  },
  [
    {
      "c": "#adadad",
      "t": "#000000\n#1e877d\n#b06e20",
      "f": 2,
      "fa": [

mtm

;;;
;;; jabber stuff
;;;

(require 'jabber)
(setq jabber-account-list
    '(("[email protected]" 
       (:network-server . "talk.google.com")
       (:connection-type . ssl))))

mtm

(def ^{:dynamic true} *print-progress* true)

(defmacro defn-do-periodic [name args [var period] body]
  `(let [counter# (atom 0)]
     (defn ~name [~@args]
       (swap! counter# inc)
       (when (and *print-progress*
                  (zero? (mod @counter# ~period)))
         (let [~var @counter#]
           ~body)))))

mtm

(def ^{:dynamic true} *print-progress* true)

(defmacro with-progress
  "Bind a `reportfn` function, and evaluate `body` wherein
  calling (report!) will invoke the report function with the current
  state of the iteration."
  [reportfn & body]
  `(let [iter# (atom 0)
         reporter# ~reportfn]
     (letfn [(~'report! []

mtm

(defun port-availablep (port)
  (condition-case nil
      (let ((p (make-network-process :name "port-checker" :buffer nil :host "localhost" :service port)))
        (delete-process p))
    (file-error t)))