__ disco0

Reader Macros in Common Lisp

This post also appears on lisper.in.

Reader macros are perhaps not as famous as ordinary macros. While macros are a great way to create your own DSL, reader macros provide even greater flexibility by allowing you to create entirely new syntax on top of Lisp.

Paul Graham explains them very well in [On Lisp][] (Chapter 17, Read-Macros):

The three big moments in a Lisp expression's life are read-time, compile-time, and runtime. Functions are in control at runtime. Macros give us a chance to perform transformations on programs at compile-time. ...read-macros... do their work at read-time.

#README:

This script for mpv intends to offer the fastest and simplest way to convert parts of a video—while you’re watching it and not really more work intensive than making a screenshot. A short demonstration: https://d.maxfile.ro/omdwzyhkoa.webm

##Installation:

You need:

yad (at least 0.26) (AUR)

Simple Output Formatter

Output formatters could simply apply a apply filter to objects to display in the Object Inspecter if certain criteria are met. Changes to the display would propagate back to the object being displayed (its grip, really) via a number of propertyCallbacks. Whenever we click an object that this formatter matches, we open a new tab alongside the normal inspecter to display it in (after the given formatting has been applied).

main.js

const formatters = require('sdk/devtools/output-formatter');

var formatter = formatters.Formatter({

/* The title to display for this formatter in the Object Inspecter tab created

	--
	-- Source: Padraic Renaghan [email protected] https://gist.github.com/prenagha/8372844
	--
	-- launchbar integration applescript for command-c
	-- http://danilo.to/command-c/
	--
	-- set the variable "theDevice" below as needed to the device name you want to send to
	-- Put script in Launchbar actions folder
	-- ~/Library/Application Support/Launchbar/Actions
	--

	(ns clojure.core.typed.test.trampoline
	(:require [clojure.core.typed :as t]))

	(declare funb)

	(t/ann-many [Number -> (Rec [f]
	(U Number [-> (U Number f)]))]
	funa funb)
	(defn funa [n]
	(if (= n 0)

	(* Launches Google Chrome with web security disabled.
	This disables the same origin policy for API calls and can
	ease development from a dev environment not in a server's CORS settings *)
	(* This same command can be sent to Canary by changing
	'Google Chrome.app' to 'Google Chrome Canary.app' *)

	do shell script "open -a 'Google Chrome.app' --args --disable-web-security --allow-running-insecure-content"

	(* If you want to not use your current user in Chrome you can set --user-data-dir to point to /tmp

	# Usage: powershell ExportSchema.ps1 "SERVERNAME" "DATABASE" "C:\<YourOutputPath>"


	# Start Script
	Set-ExecutionPolicy RemoteSigned

	# Set-ExecutionPolicy -ExecutionPolicy:Unrestricted -Scope:LocalMachine
	function GenerateDBScript([string]$serverName, [string]$dbname, [string]$scriptpath)
	{
	[System.Reflection.Assembly]::LoadWithPartialName("Microsoft.SqlServer.SMO") \| Out-Null

	-- Replace "[Pushover_user_key]" on line #42 with your Pushover accout's user
	-- key. (You can find it here: <https://pushover.net/dashboard>)

	-- You should probably also replace the app token provided on line #41 with one
	-- of your own. (They can be generated here: <https://pushover.net/apps/build>)

	on URL_encode(a)
	set safe_characters to "abcdefghijklmnopqrstuvwxyz0123456789~-_."
	set hex to {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"}
	set a_encoded to ""

	/* *******************************************************************************************
	* THE UPDATED VERSION IS AVAILABLE AT
	* https://github.com/LeCoupa/awesome-cheatsheets
	* ******************************************************************************************* */


	// 0. Synopsis.
	// http://nodejs.org/api/synopsis.html

	// ==UserScript==
	// @name GM_download emulation
	// @namespace http://tampermonkey.net/
	// @version 0.1
	// @description emulate GM_download functionality
	// @require https://github.com/eligrey/FileSaver.js/raw/master/FileSaver.js
	// @match http://tampermonkey.net/empty.html
	// @grant GM_xmlhttpRequest
	// @copyright 2014, Jan Biniok
	// ==/UserScript==