diff options
| author | Sacha Chua <sacha@sachachua.com> | 2025-11-07 13:28:17 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2025-11-07 13:28:17 -0500 |
| commit | 4d56e5a1edc53973b2d778dd690afa9206485ba7 (patch) | |
| tree | 5e004d052d9b895e67c049be740796b3ec970571 /2023 | |
| parent | 2d0652e729e3d85d855e7b8c52a31c00dbb1c7d4 (diff) | |
| download | emacsconf-wiki-4d56e5a1edc53973b2d778dd690afa9206485ba7.tar.xz emacsconf-wiki-4d56e5a1edc53973b2d778dd690afa9206485ba7.zip | |
Try to tweak markdown
Diffstat (limited to '')
| -rw-r--r-- | 2023/talks/flat.md | 27 |
1 files changed, 13 insertions, 14 deletions
diff --git a/2023/talks/flat.md b/2023/talks/flat.md index cb4e5398..6afcd8cc 100644 --- a/2023/talks/flat.md +++ b/2023/talks/flat.md @@ -42,26 +42,25 @@ activities. in Emacs core? - A: About a 20-line patch. - Q: Could you please share the code for copy and paste? Thx! - - A: + - 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: + 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)) |