From c3002ce69e069369d064b2bb48988e9626c2ffe8 Mon Sep 17 00:00:00 2001 From: plugd Date: Thu, 29 Jul 2021 10:31:22 +0200 Subject: [PATCH] Clicking the current context now toggles zoom. --- lurk.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lurk.el b/lurk.el index 535b990..edfb66f 100644 --- a/lurk.el +++ b/lurk.el @@ -472,7 +472,10 @@ portion of the source component of the message, as LURK doesn't use this.") (buffer-string))) (defun lurk--context-button-action (button) - (lurk-set-current-context (button-get button 'context))) + (let ((context (button-get button 'context))) + (if (eq lurk-current-context context) + (lurk-toggle-zoom) + (lurk-set-current-context context)))) (defun lurk-display-string (context prefix &rest strings) (with-current-buffer "*lurk*" -- 2.20.1