While I have been doing a lot of hacking onblogmore.el, I haven't forgottenmy plan to revisit and refresh some of my older personal packages. Thisevening I've paid some attention toexpando.el.This started life a long time ago, as part of my grab-bag of handyfunctions that got carried around and copied from machine to machine, untilI did a big tidy-up of everything back in 2017 and turned various thingsinto packages that I managed via a self-hosted (well, GitHub pages hosted)package index.It's a pretty simple but very useful bit of code that lets me quicklymacroexpand a sexp at point and pretty print it into a display window.I've often found it indispensable when it came to writing my own macros.This release simply adds a lexical-binding header to the file, and alsoadds a q key binding to the resulting view window so that it can bequickly and easily closed.Also, as with all my other personal packages, I've swapped away from usingdelpa to simply using :vc to pull it in.(use-package expando :vc (:url "https://github.com/davep/expando.el" :rev :newest) :bind ("C-c e" . expando-macro))Or perhaps I should say...(progn (use-package-vc-install '(expando (:url "https://github.com/davep/expando.el") nil) nil) (defvar use-package--warning69 #'(lambda (keyword err) (let ((msg (format "%s/%s: %s" 'expando keyword (error-message-string err)))) (display-warning 'use-package msg :error)))) (condition-case err (progn (if (fboundp 'expando-macro) nil (autoload #'expando-macro "expando" nil t)) (let* ((name "C-c e") (key [3 101]) (kmap (or (if (and nil (symbolp nil)) (symbol-value nil) nil) global-map)) (kdesc (cons (if (stringp name) name (key-description name)) (if (symbolp nil) nil 'nil))) (binding (lookup-key kmap key))) (require 'bind-key) (let ((entry (assoc kdesc personal-keybindings)) (details (list #'expando-macro (if (numberp binding) nil binding)))) (if entry (setcdr entry details) (add-to-list 'personal-keybindings (cons kdesc details)))) (define-key kmap key #'expando-macro))) ((debug error) (funcall use-package--warning69 :catch err))))