package Ġorg . jetbrains . r . r interop . rst udio api Ċ Ċ import Ġcom . intellij . ui . JB Color Ċ import Ġcom . intellij . util . ui . UI Util Ċ import Ġorg . jetbrains . r . r interop . R Object Ċ import Ġorg . jetbrains . r . r interop . rst udio api . R Studio Api Utils . to R Boolean Ċ import Ġorg . jetbrains . r . r interop . rst udio api . R Studio Api Utils . to R String Ċ import Ġjava . awt . Color Ċ import Ġjavax . swing . UI Manager Ċ Ċ object ĠTheme Utils Ġ{ ĊĠ Ġfun Ġget Theme Info (): ĠR Object Ġ{ ĊĠĠĠ Ġreturn ĠR Object . newBuilder () ĊĠĠĠĠĠ Ġ. set Named List ( R Object . Named List . newBuilder () ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. add R Objects ( 0 , ĠR Object . KeyValue . newBuilder (). set Key (" editor "). setValue ( UI Manager . get Look And Feel (). name . to R String ())) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. add R Objects ( 1 , ĠR Object . KeyValue . newBuilder (). set Key (" global "). setValue (" Mod ern ". to R String ())) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. add R Objects ( 2 , ĠR Object . KeyValue . newBuilder (). set Key (" dark "). setValue ( UI Util . is Under Dar cul a (). to R Boolean ())) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. add R Objects ( 3 , ĠR Object . KeyValue . newBuilder (). set Key (" foreground "). setValue ( ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġcolor Helper ( JB Color . foreground ()). to R String ()) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. add R Objects ( 4 , ĠR Object . KeyValue . newBuilder (). set Key (" background "). setValue ( ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġcolor Helper ( JB Color . background ()). to R String ()) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ) ĊĠĠĠĠĠ Ġ). build () ĊĠ Ġ} ĊĊĠ Ġprivate Ġfun Ġcolor Helper ( color : ĠColor ): ĠString Ġ{ ĊĠĠĠ Ġreturn Ġ" rgb (${ color . red }, Ġ${ color . green }, Ġ${ color . blue })" ĊĠ Ġ} Ċ }