zkat

CREATE TABLE user_account (
   id SERIAL
);

CREATE TABLE id_code (
   user_account_id BIGINT,
   code_type TEXT,
   value TEXT
);

zkat

;;;
;;; Connection pooling
;;;
(defparameter *connection-pool-lock* (bt:make-lock))
(defparameter *max-pooled-connections* 50)
(defvar *connection-pool* (make-queue *max-pooled-connections*))

(defun get-connection ()
  (or (bt:with-lock-held (*connection-pool-lock*)
        (unless (queue-empty-p *connection-pool*)

zkat

(defun die-roll ()
  (=let* ((num-dice (=or (natural-number) (result 1)))
          (_ (=char #\d))
          (die-faces (natural-number)))
    (result (loop repeat num-dice
               summing (random die-faces)))))

(defun chained-roll ()
  (=let* ((first-roll (=or (die-roll)
                           (smug::sophisticated-int)))

zkat

WebDriverException - Element is not clickable at point (81.5, 218). Other element would receive the click:  (WARNING: The server did not provide any stacktrace information); duration or timeout: 65 milliseconds
Build info: version: '2.11.0', revision: '14431', time: '2011-10-28 16:27:42'
System info: os.name: 'Linux', os.arch: 'amd64', os.version: '2.6.32-33-server', java.version: '1.6.0_20'
Driver info: driver.version: RemoteWebDriver' ; Screenshot: available via screen ; Stacktrace: Method newInstance threw an error in None 

zkat

// Paste this into a console on the Facebook poke page, challenge a friend.
setInterval(function () {
    var iterator = document.evaluate("//a[contains(@ajaxify, 'poke_inline.php')]", document, null, XPathResult.UNORDERED_NODE_ITERATOR_TYPE, null);
    try {
        var thisNode = iterator.iterateNext();
        while (thisNode) {
            console.log('poking');
            thisNode.click();
            thisNode = iterator.iterateNext();
        }

zkat

(defmacro with-fdefinition ((name lambda-list &body tmp-body) &body body)
  (let ((old-fdef-var (gensym "OLD-FDEF"))
        (name-var (gensym "NAME")))
   `(let* ((,name-var ',name)
           (,old-fdef-var (fdefinition ,name-var)))
      (unwind-protect
           (progn
             (setf (fdefinition ,name-var)
                   (lambda ,lambda-list ,@tmp-body))
             ,@body)

zkat

(global-set-key (kbd "C-M-s") 'save-current-point)
;; (global-set-key (kbd "C-c p") 'load-last-point)
(global-set-key (kbd "C-M-y") 'yank-to-last-point-and-indent)

(defun save-current-point ()
 (interactive)
 (point-to-register 'p)
 (message "Current point saved"))

(defun load-last-point ()

zkat

;; Somewhat similar to mouse-copy functionality, but no rat involved

(defun save-current-point ()
 (interactive)
 (point-to-register 'p)
 (message "Current point saved"))

(defun load-last-point ()
 (interactive)
 (jump-to-register 'p))

zkat

    cowboy:start_http(
      ?MODULE, 100,
      [{port, Port}],
      [{dispatch,
        [{'_',
          [{[<<"static">>, '...'],
            cowboy_static,
            [{directory,
              {priv_dir, mymod,
               [<<"www">>, <<"static">>]}},

zkat

/*
 * Some quick hand-translations of code found in http://coffeescript.org/
 * I know they're trying to show off random features, but going through these
 * makes me wonder how much convenience CS actually adds.
 */

// # Assignment:
// number   = 42
// opposite = true
var number = 42;