People
 :bowtie: |
😄 :smile: |
😆 :laughing: |
|---|---|---|
😊 :blush: |
😃 :smiley: |
:relaxed: |
😏 :smirk: |
😍 :heart_eyes: |
😘 :kissing_heart: |
😚 :kissing_closed_eyes: |
😳 :flushed: |
😌 :relieved: |
😆 :satisfied: |
😁 :grin: |
😉 :wink: |
😜 :stuck_out_tongue_winking_eye: |
😝 :stuck_out_tongue_closed_eyes: |
😀 :grinning: |
😗 :kissing: |
😙 :kissing_smiling_eyes: |
😛 :stuck_out_tongue: |
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.
| # Makefile for building keil projects | |
| KEIL=wine "/home/bliker/.wine/drive_c/Keil/UV4/UV4.exe" | |
| TMP=/tmp/keil.out | |
| NULL=/dev/null | |
| # Will prevent it from exiting even when somehing failied | |
| build: | |
| -@$(KEIL) -j0 -b -o $(TMP) *.uvproj 2> $(NULL); | |
| @cat $(TMP) |
| (defun event-p (x) t) ;; constantly t | |
| (defun key-p (x) t) ;; constantly t | |
| ;; w/o defpattern | |
| (match event | |
| ((and (sdl:event- (type (eq :key-down-event))) | |
| ;;^^^^^^^^^^ this specify the container type | |
| ;;^^^^ this is a slot | |
| ;; ^^^^^^^^^^^^^^^^^^ and this specifies the type of the slot. | |
| (sdl::key- (key (eq :sdl-key-z)) state))) |
| (define root 52) | |
| (define scale (pc:scale 4 'aeolian)) | |
| (define right-hand | |
| (lambda (beat dur) | |
| (play sampler | |
| (pc:quantize (cosr (+ root 24) (cosr 5 3 1/2) 7/3) scale) | |
| (cosr 80 20 7/3) | |
| (* 2.0 dur)) | |
| (if (> (random) .6) |
| xkb_keymap { | |
| xkb_keycodes "evdev+aliases(qwerty)" { | |
| minimum = 8; | |
| maximum = 255; | |
| <ESC> = 9; | |
| <AE01> = 10; | |
| <AE02> = 11; | |
| <AE03> = 12; | |
| <AE04> = 13; | |
| <AE05> = 14; |
| ;; Make narrowing nicer | |
| ; this makes sure we have a way to get the name of the current function | |
| (which-function-mode) | |
| (defadvice narrow-to-defun (before narrow-in-new-buffer activate) | |
| "When using `narrow-to-defun', narrow in an indirect buffer whose | |
| name is the original buffer's name augmented by the function | |
| being focused." | |
| (let ((parent-name (buffer-name)) | |
| (name (concatenate 'string | |
| (buffer-name) |
| ; This code is hereby released by its author (Per Vognsen) into the public domain. | |
| ; It's mostly a proof of concept though it was surprisingly usable for how simple it was to code. | |
| ; If you want to use it as a starting point for a more polished package, go right ahead. | |
| (require 'cl) | |
| (defstruct wm-window buffer (point 0) (start 0) (hscroll 0) dedicated) | |
| (defvar wm-windows) | |
| (defvar wm-windows-alist) |
| #.(progn | |
| (ql:quickload '(:alexandria :cl-dot)) | |
| '(ql:quickload '(:alexandria :cl-dot))) | |
| ;; TODO: look at http://metamodular.com/Rewrite/rewrite.html for inspiration | |
| #| | |
| digraph G { | |
| compound=true; | |
| subgraph cluster_foo { |
