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

[TEC]

Forgot to mention: "Popularity" comes from the 2019 stack overflow survey.

TEC <tecosaur@gmail.com> writes:

> Hopefully this is in line with what you're looking for:
>
>
> 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