PuercoPop

Non controversial things to Add

Promises

• https://github.com/orthecreedence/blackbird

Serialization (aka Pick)

• https://github.com/conspack/cl-conspack

Pattern matching

PuercoPop

/* 
   Testing if "private/tmp/com.apple.launchd.EauNyeZmg1/org.macosforge.xquartz" is a valid display name

   For more information see:
   - http://www.x.org/releases/current/doc/libX11/libX11/libX11.html#XOpenDisplay
   - http://cgit.freedesktop.org/~chr/libxcb/tree/src/xcb_util.c
*/

#include <stdio.h>
#include <xcb/xcbext.h>

PuercoPop

(defpackage :slynk-websocket-proxy
  (:use :cl :hunchensocket))
(in-package :slynk-websocket-proxy)

(defclass ws-proxy (websocket-resource)
  ((slynk-channel :initarg :channel
                  :initform (make-instance 'slynk::channel)
                  :reader channel
                  :documentation "The slynk part")
   (%thread :accessor %thread)))

PuercoPop

;; Ported from is Max Mikhanosha's code.
(require 'ansi-color)

(define-sly-contrib sly-repl-ansi-color
  "Turn on ANSI colors in the mREPL output"
  (:authors "Max Mikhanosha")
  (:license "GPL")
  (:sly-dependencies sly-mrepl)
  (:on-load (progn
              (sly-repl-ansi-on)

PuercoPop

var gulp = require('gulp');
var less = require('gulp-less');
var watch = require('gulp-watch');

gulp.task('minify', function () {
  return gulp.src('source/static/styles/*.less')
    .pipe(less({})).on('error', function () {})
    .pipe(gulp.dest('source/static/styles'));
});

PuercoPop

(require ometa)

(define-ometa-namespace parser)

(define-ometa py-parser
  (literal (seq (list (atom lit) (bind value (atom anything)))
                (-> value))))

(omatch
 py-parser

PuercoPop

Preambulo

Show me your code and conceal your data structures, and I shall continue to be
mystified. Show me your data structures, and I won't need your code.

PuercoPop

(require 'creole)
(require 'cl)

(defun creole-extract-heading-level (heading)
  (string-to-number (save-match-data
                      (string-match
                       (rx "heading" (group (+ digit)))
                       heading)
                      (match-string 1 heading))))

PuercoPop

(defpackage #:ngit
  (:use :cl :chipz :babel))

(in-package #:ngit)

(defun from-first-space (string)
  (subseq string (1+ (position #\Space string))))

(defclass git-repo ()
  ((path :initarg :path :reader path)))

PuercoPop

(with-current-buffer "grovel.lisp"
  (while (not (eq (point) (point-max)))
    (when (search-forward "/**" (line-end-position) t)
      (backward-char 3) 
      (delete-region (point) (line-end-position)))
    (forward-line)))

(with-current-buffer "grovel.lisp"
  (while (not (eq (point) (point-max)))
    (when (looking-at "#")