Programs as Elisp Macros
This evening I came across an interesting idea:
using system programs as functions. The original idea goes to
sh, a Python module that
exposes system programs as functions. There’s also a Clojure library
shake to do the same thing in Clojure.
Thanks to symbols, I think the idea maps especially well onto Lisp because arguments don’t need to be provided as strings. Here are some examples,
(ls -lh) (uname -a) (cat /etc/debian_version) (git checkout -b foo)
It’s easy to achieve the same effect in Elisp,
;;; -*- lexical-binding: t; -*- (require 'cl) (defun make-shell-macro (program) (fset program (cons 'macro (lambda (&rest args) `(with-temp-buffer (funcall #'call-process ,(symbol-name program) nil t nil ,@(mapcar #'prin1-to-string args)) (buffer-string)))))) (let ((path (mapcan #'directory-files (parse-colon-path (getenv "PATH"))))) (dolist (program (remove-if (lambda (f) (member f '("." ".."))) path)) (let ((symbol (intern program))) (unless (fboundp symbol) (make-shell-macro symbol)))))
Evaluating the above will install macros for all programs in your
PATH, except where you already have functions or macros defined. I
messed up on the latter point while writing this and broke Emacs
enough to require a restart. The system program is called
synchronously and the output is returned as a string.
However, because arguments aren’t evaluated (macros) this has limited usefulness. These function calls are static and can’t be passed variable arguments. In order to do that arguments would need to be evaluated and symbols would need to be quoted. For example,
(defun git-checkout (branch) (git 'checkout branch)) (defun ls-l (file) (ls '-l file))
So I think I’d prefer this interface to the one provided by Clojure’s
shake (and my Elisp code at the top). I have little need to call
programs with static arguments.