Modify an action to integrate it with RefocusLast.

ThenRefocusAfter.hs

module ThenRefocusAfter where

import XMonad
import XMonad.Hooks.RefocusLast (refocusWhen)
import XMonad.Util.NamedScratchpad
  (NamedScratchpads, query, namedScratchpadAction)
import qualified XMonad.StackSet as W

thenRefocusAfter :: Query Bool -> X a -> X a
p `thenRefocusAfter` act = do
  tag     <- gets (W.currentTag . windowset)
  refocus <- refocusWhen p tag
  act <* windows refocus

isScratchpad :: NamedScratchpads -> Query Bool
isScratchpad = foldr (\ns b -> query ns <||> b) (pure False)

namedScratchpadActionRL :: NamedScratchpads -> String -> X ()
namedScratchpadActionRL nsps sp =
  isScratchpad nsps `thenRefocusAfter` namedScratchpadAction nsps sp

Also referenced here: https://gist.github.com/zim0369/87b4c1ff2572191ac17db32a09be3c07