From 940261786ad7eaa2672479f026475ef62de3d720 Mon Sep 17 00:00:00 2001 From: Ohad Livne Date: Wed, 4 Jun 2025 22:46:49 +0300 Subject: [PATCH] Generate QR codes via a key binding --- .config/emacs/init.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/.config/emacs/init.el b/.config/emacs/init.el index 6668595..419efd6 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -295,3 +295,15 @@ When DEBUG is set, run the test in the debugger." (emms-player-list '(emms-player-mpv)) ; keep-sorted end ) + +(defun my-qr-selection () + (interactive) + (if (use-region-p) + (qrencode-region (region-beginning) (region-end)) + (let ((url (thing-at-point-url-at-point))) + (if (null url) + (call-interactively #'qrencode-string) + (qrencode--encode-to-buffer url))))) + +(use-package qrencode + :bind (("C-z q" . my-qr-selection)))