| ;;;; code to extract keep notes from google takeout into org-mode files | |
| ;; It's messy code it the result of an interactive coding session. | |
| (in-package #:common-lisp-user) | |
| (ql:quickload '(alexandria zip cl-ppcre cl-json flexi-streams)) | |
| (defpackage #:scratch-keep |
Custom search
w: https://www.wikipedia.org/w/index.php?title=Special:Search&search=%s Wikipedia
man: https://www.die.net/search/?q=%s
whois: https://www.whois.com/whois/%s
isup: http://www.isup.me/%s Is it down for Everyone or Just Me?
ql: http://quickdocs.org/search?q=%s Quickdocs
cl: https://duckduckgo.com/?q=common+lisp+%s Common Lisp
| (defun box (thing) (cons :box thing)) | |
| (defun ref (box) | |
| (assert (eq (car box) :box)) | |
| (cdr box)) | |
| (defun (setf ref) (value box) | |
| (assert (eq (car box) :box)) | |
| (setf (cdr box) value)) |
| #! /usr/bin/env gforth | |
| ( n -- ) | |
| : fizz? 3 mod 0= if ." Fizz" then ; | |
| ( n -- ) | |
| : buzz? 5 mod 0= if ." Buzz" then ; | |
| ( n -- ) | |
| : fizzbuzz? dup fizz? buzz?; |
| ;; To be able to load hunchentoot without openSSL | |
| (push :hunchentoot-no-ssl *features*) |
| (ignore-errors (require 'sb-aclrepl)) | |
| (when (find-package 'sb-aclrepl) | |
| (push :aclrepl cl:*features*)) | |
| (require 'sb-aclrepl) | |
| #+aclrepl | |
| (progn | |
| (sb-aclrepl:alias ("ql" 1 "Load system with quicklisp") (sys) (ql:quickload sys)) |
| (require 'cl-ppcre) | |
| (defpackage :cffi) | |
| (defparameter cffi::*foreign-library-directories* | |
| `(,(merge-pathnames ".nix-profile/lib/" | |
| (user-homedir-pathname)) | |
| ,@(loop for path in (cl-ppcre:all-matches-as-strings | |
| "-L[-\\w/.]+" | |
| (uiop:getenv "NIX_LDFLAGS")) |
| (defparameter *tests* (make-hash-table)) | |
| (defun make-test (package body) | |
| (list package body)) | |
| (defmacro deftest (name &body body) | |
| (check-type name symbol) | |
| `(setf (gethash ',name *tests*) (make-test *package* '(progn ,@body)))) | |
| (defun run-test (name) |
| ;; a.k.a restricted damereau-levenshtein distance | |
| (defun optimal-string-alignment-distance (vec-a vec-b) | |
| (let ((d (make-array (list (1+ (length vec-a)) | |
| (1+ (length vec-b))) | |
| :element-type 'integer))) | |
| ;; Initialize the matrix | |
| (loop :for i :upto (length vec-a) :do | |
| (setf (aref d i 0) i)) | |
| (loop :for i :upto (length vec-b) :do |
| [guid]::newguid() | set-clipboard |