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)))