From 68b36fc9228f6ef95b873ab0a0c31a8e46826357 Mon Sep 17 00:00:00 2001 From: Bram Schoenmakers Date: Thu, 15 Feb 2024 21:27:23 +0100 Subject: [PATCH] Make QR code buffer readonly --- gists.org | 2 ++ gists/generate-qr.el | 2 ++ 2 files changed, 4 insertions(+) diff --git a/gists.org b/gists.org index 817aab9..d03afd4 100644 --- a/gists.org +++ b/gists.org @@ -931,6 +931,7 @@ Which covers my (potential) GPG/SSH usage within Emacs. Now, anytime a I perform (with-current-buffer (get-buffer-create "*qr*") ;; in case the buffer still exists and image-mode is active (fundamental-mode) + (read-only-mode -1) (erase-buffer) (insert text) (let ((file-format @@ -938,6 +939,7 @@ Which covers my (potential) GPG/SSH usage within Emacs. Now, anytime a I perform (call-process-region nil nil "qrencode" t t nil "-o" "-" "-t" file-format) (when (and (display-graphic-p) (string= file-format "PNG")) (image-mode))) + (read-only-mode) (display-buffer (current-buffer)))) #+end_src diff --git a/gists/generate-qr.el b/gists/generate-qr.el index eda0a16..81ecb42 100644 --- a/gists/generate-qr.el +++ b/gists/generate-qr.el @@ -17,6 +17,7 @@ This function relies on qrencode(1) being present in your $PATH." (with-current-buffer (get-buffer-create "*qr*") ;; in case the buffer still exists and image-mode is active (fundamental-mode) + (read-only-mode -1) (erase-buffer) (insert text) (let ((file-format @@ -24,4 +25,5 @@ This function relies on qrencode(1) being present in your $PATH." (call-process-region nil nil "qrencode" t t nil "-o" "-" "-t" file-format) (when (and (display-graphic-p) (string= file-format "PNG")) (image-mode))) + (read-only-mode) (display-buffer (current-buffer))))