commit 3f12bfdb6b4e8a4ced4d5a2ff23ad464c78bfa9f Spenser Truex <web@spensertruex.com> 2020-03-26 16:25:25 -0700 Support variable whitespace between sigil and symbol Example: $$$sigil $$$<TAB>sigil $$$ sigil All can be expected to work.
sigil.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/sigil.lisp b/sigil.lisp index 86b48fd..adbf4f7 100644 --- a/sigil.lisp +++ b/sigil.lisp @@ -44,7 +44,7 @@ (with-gensyms (os line sym var) `(push (lambda (,os ,line) (ppcre:register-groups-bind (,sym) - (,(format nil "~@{~A~}" "^" macro "\\W(.*)") ,line) + (,(format nil "~@{~A~}" "^" macro "(\\W)*(.*)") ,line) (let* ((,var (find-symbol (string-upcase ,sym) :stumpwm)) (,var (cond ((eql ',specializer 'function) (symbol-function ,var))