Darren DarrenN

Hofstadter on Lisp

In the mid-80s, while reading through my roommate's collection of Scientific American back issues, I encountered this introduction to Lisp written by Douglas Hofstadter. I found it very charming at the time, and provide it here (somewhat illegally) for the edification of a new generation of Lispers.

In a testament to the timelessness of Lisp, you can still run all the examples below in emacs if you install these aliases:

(defalias 'plus #'+)
(defalias 'quotient #'/)
(defalias 'times #'*)
(defalias 'difference #'-)

Locate the section for your github remote in the .git/config file. It looks like this:

[remote "origin"]
	fetch = +refs/heads/*:refs/remotes/origin/*
	url = [email protected]:joyent/node.git

Now add the line fetch = +refs/pull/*/head:refs/remotes/origin/pr/* to this section. Obviously, change the github url to match your project's URL. It ends up looking like this:

Essential JavaScript Links

A curated list by Eric Elliott and friends. Suggest links in the comments below.

This is a very exclusive collection of only must-have JavaScript links. I'm only listing my favorite links. Nothing else makes the cut. Feel free to suggest links if you think they're good enough to make this list. The really curious should feel free to browse the comments to find other links. I can't guarantee the quality of links in the comments.

Full Disclosure

Some of these links are affiliate links, meaning that if you make a purchase, I might earn a little money. This has absolutely no bearing on whether or not links make the list. None, whatsoever. However, it does allow me more resources to fight poverty with code. Every little bit counts.

	<!DOCTYPE html>
	<html lang="en">
	<head>
	<meta charset="UTF-8">
	<meta name="viewport" content="width=device-width, initial-scale=1.0">
	<title>Fullscreen Image Viewer</title>
	<style>
	body {
	font-family: Arial, sans-serif;
	}

	#lang racket/base

	; One way to define a logger
	(define lg (make-logger 'my-logger))
	; Define a receiver for this logger, along with a log level
	(define rc (make-log-receiver lg 'error)) ; also try with 'debug

	; Another way to define a logger, with additional forms
	(define-logger lg2)
	(define rc2 (make-log-receiver lg2-logger 'debug))

	#lang racket/base

	(require racket/format
	racket/list
	racket/match
	racket/trace)

	(provide (all-defined-out)
	(all-from-out racket/trace))

	syntax where = function(ctx) {
	const binaryOps = ["or", "and", "==", ">", "<", "-", "+", "*", "/", "."];
	const dummy = #`dummy`.get(0);

	function matchNext(names) {
	const marker = ctx.mark();
	const next = ctx.next();
	ctx.reset(marker);
	return !next.done && names.includes(next.value.val());
	}

	# Version key/value should be on his own line
	PACKAGE_VERSION=$(cat package.json \
	\| grep version \
	\| head -1 \
	\| awk -F: '{ print $2 }' \
	\| sed 's/[",]//g')

	echo $PACKAGE_VERSION

	#!/bin/sh

	git rev-parse 2>/dev/null

	if [[ $? != 0 ]]
	then
	echo "Not a git repo"
	return
	fi

	(ns user)

	(def app
	"Intenal Helper"
	(fnil conj []))

	(defprotocol PathSeq
	(path-seq* [form path] "Helper for path-seq"))

	(extend-protocol PathSeq