Re: "modern" colors Re: Changes for emacs 28

[TEC]

Alfred M. Szmidt <ams@gnu.org> writes:
> Let me try to reiterate again, could you point out a handful of
> differences in colors and/or fonts (to keep it simple) between Emacs
> and some other editor (one is fine, several would be interesting too
> but I understand that can be taxing) that you find more modern than in
> Emacs?

Hopefully this is in line with what you're looking for:

editor-styling.svg
Description: image/svg

I did some basic analysis with R (the language is a pain, but it's well
suited for quick stuff like this).

* Basic editor theme comparison

#+NAME: editor-themes
| Editor   | Popularity | Year | DarkDefault | Bluey | Line Numbers | 
StatusBarMatchBackground |
|----------+------------+------+-------------+-------+--------------+--------------------------|
| vscode   |       0.51 | 2015 |           1 |     1 |            1 |           
             0 |
| vs       |       0.32 | 1997 |           1 |     1 |            1 |           
             0 |
| npp      |       0.24 | 2003 |           0 |     0 |            1 |           
             1 |
| intellij |       0.24 | 2001 |           1 |     0 |            1 |           
             1 |
| vim      |       0.24 | 1991 |           1 |     0 |            0 |           
             1 |
| sublime  |       0.23 | 2008 |           1 |     1 |            1 |           
             1 |
| eclipse  |       0.14 | 2001 |           0 |     1 |            1 |           
             1 |
| pycharm  |       0.13 | 2014 |           1 |     1 |            1 |           
             1 |
| atom     |       0.13 | 2015 |           1 |     1 |            1 |           
             1 |
| brackets |          0 | 2014 |           0 |     1 |            1 |           
             1 |

#+BEGIN_SRC R :var editors=editor-themes
library(orgutils)
editors$Popularity <- editors$Popularity / sum(editors$Popularity)
editors$Age <- (editors$Year - min(editors$Year)) / diff(range(editors$Year))
editors$Age <- editors$Age / sum(editors$Age)
dim(editors)
#+END_SRC

#+RESULTS:
| 10 |
|  8 |

#+BEGIN_SRC R :results output raw
means <- colMeans(editors[,4:7])
popularityWeighted <- as.data.frame(round(colSums(editors[,4:7] * 
editors$Popularity), 2))
ageWeighted <- as.data.frame(round(colSums(editors[,4:7] * editors$Age), 2))
weightedValues <- cbind(means, popularityWeighted, ageWeighted)
colnames(weightedValues) <- c("mean", "popularity weighted", "age weighted")
toOrg(weightedValues)
#+END_SRC

#+RESULTS:
| row.names                | mean | popularity weighted | age weighted |
|--------------------------+------+---------------------+--------------|
| DarkDefault              |  0.7 |                0.83 |          0.7 |
| Bluey                    |  0.7 |                0.67 |         0.85 |
| Line.Numbers             |  0.9 |                0.89 |            1 |
| StatusBarMatchBackground |  0.8 |                0.62 |          0.8 |

Hopefully this is of some interest :)

Timothy