[xmonad] X.A.GridSelect spawnSelected colorized

[Dave Macias]

Thank you for the reply.
That helped me to figure it out.
But I had to create a separate *Colorizer*. (see below)
Is there a way to use the same colorizer as goToSelected?
Thanks!

myGSFont            = "xft:Noto Sans CJK KR:bold:pixelsize=10"
myColorizer  :: Window -> Bool -> X (String, String)
myColorizer  = colorRangeFromClassName
                  (0x31,0x2e,0x39) -- lowest inactive bg
                  (0x31,0x2e,0x39) -- highest inactive bg
                  (0x78,0x3e,0x57) -- active bg
                  (0xc0,0xa7,0x9a) -- inactive fg
                  (0xff,0xff,0xff) -- active fg



*gridColorizer :: a -> Bool -> X (String, String)gridColorizer _ True =
return ("#00aa00", "black")gridColorizer _ False = return ("#333333",
"#cccccc")*

myGSConfig :: t -> GSConfig Window
myGSConfig colorizer = (buildDefaultGSConfig myColorizer)
    { gs_cellheight   = 30
    , gs_cellwidth    = 200
    , gs_cellpadding  = 6
    , gs_originFractX = 0.5
    , gs_originFractY = 0.5
    , gs_colorizer = myColorizer
    , gs_font         = myGSFont
    }

-- spawnSelected Redefine
spawnSelected' :: [(String, String)] -> X ()
spawnSelected' lst = gridselect conf lst >>= flip whenJust spawn
    where conf = def
                   { gs_cellheight   = 30
                   , gs_cellwidth    = 200
                   , gs_cellpadding  = 6
                   , gs_originFractX = 0.5
                   , gs_originFractY = 0.5

*                  , gs_colorizer = gridColorizer*                   ,
gs_font         = myGSFont
                  }


 , ((mod4Mask, xK_g), goToSelected  $ myGSConfig myColorizer)

* , ((mod4Mask, xK_y), spawnSelected' myAppGrid) * , ((mod4Mask, xK_u),
runSelectedAction (buildDefaultGSConfig gridColorizer)
                                        [ ("Chromium", spawnHere "chromium")
                                        , ("Hexchat", spawnHere "hexchat")

On Sat, Aug 8, 2020 at 8:46 AM Platon Pronko <platon7pronko at gmail.com>
wrote:

> Hi!
>
> Your spawnSelected' has one argument [(String, String)], but you try to
> invoke it with two - myAppGrid and winconfig. I'd remove winconfig argument
> and instead stick it into gs_colorizer field in your GSConfig constructor.
>
> Best regards,
> Platon Pronko
>
> On 2020-08-07 17:13, Dave Macias wrote:
> > Hello,
> >
> > Apologies for the repost....i had posted here:
> https://www.reddit.com/r/xmonad/comments/hvaug9/xagridselect_spawnselected_colorized/ but
> no response for some time now. So I want to try here.
> >
> > Basically, I am trying to custom colorize spawnSelected grid apps.
> > I was able to do this with goToSelected and I really like the color
> scheme.
> >
> > Was hoping to use the same color scheme that i use for goToSelected
> applied to spawnSelected.
> >
> > Any input is much appreciated!
> >
> > Stay safe.
> >
> > -Dave
> >
> > _______________________________________________
> > xmonad mailing list
> > xmonad at haskell.org
> > http://mail.haskell.org/cgi-bin/mailman/listinfo/xmonad
> >
> _______________________________________________
> xmonad mailing list
> xmonad at haskell.org
> http://mail.haskell.org/cgi-bin/mailman/listinfo/xmonad
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/xmonad/attachments/20200810/c115e442/attachment.html>