blob: c18df9ed08c3526f5f3e6e1bd7dec21b50c058d9 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
[[!meta title="A modern Emacs look-and-feel without pain"]]
[[!meta copyright="Copyright © 2023 Pedro A. Aranda"]]
[[!inline pages="internal(2023/info/flat-nav)" raw="yes"]]
<!-- Initially generated with emacsconf-publish-talk-page and then left alone for manual editing -->
<!-- You can manually edit this file to update the abstract, add links, etc. --->
# A modern Emacs look-and-feel without pain
Pedro A. Aranda (he)
[[!inline pages="internal(2023/info/flat-before)" raw="yes"]]
In my talk I will show how to enrich themes without having to write them
from scratch, using the flat-button style. This gives you the possibility
of creating a nice Emacs GUI with minimal extra ELISP.
About the speaker:
Pedro A. Aranda is a 30+ year Emacs user, who started on an HP mainframe
and soon started using the DJGPP port of emacs on a 386 at home. Currently
lecturing at a university in Madrid, he uses emacs for most of his teaching
activities.
# Discussion
## Questions and answers
- Q: Do you plan to upstream this style into core Emacs?
- A: It's in core emacs
- Q: How difficult is it to modify face styles like this internally?
- A: It's very simple, just set the :style of the :box face
attribute.
- Q: How much work was involved in implementing this style internally
in Emacs core?
- 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)
- Q: Do you teach Emacs to any of your university students?
- A: No teaching, but a lot of introdcuing ;-)
## Notes
- It looks great, thanks for upstreaming it in GNU Emacs core as well!
[[!inline pages="internal(2023/info/flat-after)" raw="yes"]]
[[!inline pages="internal(2023/info/flat-nav)" raw="yes"]]
|
