ScreenLock.hs

-----------------------------------------------------------------------------
-- |
-- Module      : System.Taffybar.Information.ScreenLock
-- Copyright   : (c) Ivan A. Malison
-- License     : BSD3-style (see LICENSE)
--
-- Maintainer  : Ivan A. Malison
-- Stability   : unstable
-- Portability : unportable
--
-- This module provides screen lock functionality as a thin wrapper around
-- "System.Taffybar.Information.Inhibitor". It re-exports the inhibitor
-- management functions and adds a 'lockScreen' action that spawns hyprlock.
-----------------------------------------------------------------------------
module System.Taffybar.Information.ScreenLock
  ( -- * Re-exports from Inhibitor
    getInhibitorChan
  , getInhibitorState
  , toggleInhibitor
    -- * Screen Lock
  , lockScreen
  ) where

import Control.Monad (void)
import Control.Monad.IO.Class
import System.Process (spawnCommand)

import System.Taffybar.Information.Inhibitor
  ( getInhibitorChan
  , getInhibitorState
  , toggleInhibitor
  )

-- | Lock the screen by spawning hyprlock. Output is redirected to
-- @\/dev\/null@ to avoid flooding taffybar's log with hyprlock's
-- verbose Wayland messages.
lockScreen :: MonadIO m => m ()
lockScreen = liftIO $ void $ spawnCommand "hyprlock >/dev/null 2>&1"