From: Eshel Yaron Date: Sat, 14 May 2022 21:37:25 +0000 (+0300) Subject: consult-push-button: Replace newlines with spaces in the button label X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b3866d67bbeedbd1f739a312a9c4ad6daf593cbd;p=dotfiles.git consult-push-button: Replace newlines with spaces in the button label --- diff --git a/.emacs.d/esy.org b/.emacs.d/esy.org index 979c9d5..fc0885a 100644 --- a/.emacs.d/esy.org +++ b/.emacs.d/esy.org @@ -1317,8 +1317,11 @@ Add the timezones of places of interest to the list of clocks shown by (buttons nil)) (while button (setq buttons - (cons `(,(concat (truncate-string-to-width (button-label button) - 64 nil ?\s t) + (cons `(,(concat (truncate-string-to-width + (string-replace "\n" + " " + (button-label button)) + 64 nil ?\s t) " " (propertize (format "[%d]" index) 'invisible t)) .