blob: 1509b1551ee1e1e9cb37bd568ebd27eab07a6a09 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
;;;; macro.lisp --- macros used in nEXT
(in-package :next)
;; used to provide input to buffers, "function" must accept input from
;; the minibuffer
(defmacro :input (function)
`#'(lambda () (input #',function)))
;; used to provide input to buffers with an optional completion
;; function, the completion function must narrow a list of candidates
;; when given input
(defmacro :input-complete (function completion)
`#'(lambda () (input #',function #',completion)))
|