From 42352a69ece3f28d1d70ab4f98fa88318ec18a00 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Fri, 7 Nov 2025 13:23:33 -0500 Subject: Add update --- 2023/talks/flat.md | 37 ++++++++++++++++++++++++++----------- 1 file changed, 26 insertions(+), 11 deletions(-) diff --git a/2023/talks/flat.md b/2023/talks/flat.md index bf579540..cb4e5398 100644 --- a/2023/talks/flat.md +++ b/2023/talks/flat.md @@ -43,17 +43,32 @@ activities. - A: About a 20-line patch. - Q: Could you please share the code for copy and paste? Thx! - A:  - - (defun flat-style(theme &rest args) - -   (custom-set-faces - -    `(mode-line - -      ((t (:inherit mode-line - -                    :box (:line-width ,mode-line-height :style - flat-button)))) t) - -    `(mode-line-inactive - -      ((t (:inherit mode-line-inactive - -                    :box (:line-width ,mode-line-height :style - flat-button)))) t))) - - (advice-add 'load-theme :after #'flat-style) + ``` + (defun flat-style (theme &rest args) + (custom-set-faces + `(mode-line + ((t (:inherit mode-line + :box (:line-width ,mode-line-height :style + flat-button)))) t) + `(mode-line-inactive + ((t (:inherit mode-line-inactive + :box (:line-width ,mode-line-height :style + flat-button)))) t))) + (advice-add 'load-theme :after #'flat-style) + ``` + - **Important change 2 years later.** + CHANGES IN EMACS MASTER make the code above CRASH. Emacs, + The new flat-style function uses set-face-attribute: + ``` + (defvar mode-line-height 8 "Size of the box arounf the mode line") + + (defun lat-style (theme &rest _) + (set-face-attribute 'mode-line nil + :box (list :line-width mode-line-height :style 'flat-button)) + (set-face-attribute 'mode-line-inactive nil + :box (list :line-width mode-line-height :style 'flat-button))) + ``` + - Q: Do you teach Emacs to any of your university students? - A: No teaching, but a lot of introdcuing ;-) -- cgit v1.2.3