multiPPFormat :: (PP -> X String) -> PP -> PP -> X ()
multiPPFormat dynlStr focusPP unfocusPP = do
  (_, dsbInfoHandles) <- XS.get >>= return . unzip . dsbInfo
  multiPP' dynlStr focusPP unfocusPP dsbInfoHandles
multiPPFormat :: (PP -> X String) -> PP -> PP -> X ()
multiPPFormat dynlStr focusPP unfocusPP = do
  (_, dsbInfoHandles) <- XS.get >>= return . unzip . dsbInfo
  multiPP' dynlStr focusPP unfocusPP dsbInfoHandles
multiPPFormat dynlStr focusPP unfocusPP = do
  (_, dsbInfoHandles) <- XS.get >>= return . unzip . dsbInfo
  multiPP' dynlStr focusPP unfocusPP dsbInfoHandles