commit 5d1feb5abdddc6ffc99acf07f04f39bffef5efbc parent f633680fb67946473dbb11d73f58f147475dc17f Author: Lukas Henkel <lh@entf.net> Date: Thu, 31 Mar 2022 22:28:03 +0200 Add util for inserting a number from a register formatted Diffstat:
M | lisp/utils.el | | | 6 | ++++++ |
1 file changed, 6 insertions(+), 0 deletions(-)
diff --git a/lisp/utils.el b/lisp/utils.el @@ -15,4 +15,10 @@ (interactive) (insert (sha1 (number-to-string (random))))) +(defun util-insert-number-from-register-format (register format-string) + (interactive (list (register-read-with-preview "Insert register: ") + (read-string "Format String: "))) + (let ((val (get-register register))) + (insert (format format-string val)))) + (provide 'utils)