66 lines
1.9 KiB
Haskell
66 lines
1.9 KiB
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- | Functions for formatting and sending notifications
|
|
--
|
|
-- NOTE I use the DBus.Notify lib even though I don't actually use the DBus for
|
|
-- notifications (just formation them into 'notify-send' commands and spawn a
|
|
-- shell since that works more consistently with my current commands). If I ever
|
|
-- decide to switch to using the DBus it will be easy.
|
|
|
|
module XMonad.Internal.Notify
|
|
( Note(..)
|
|
, Body(..)
|
|
, defNote
|
|
, defNoteInfo
|
|
, defNoteError
|
|
, fmtNotifyCmd
|
|
, spawnNotify
|
|
) where
|
|
|
|
import Control.Monad.IO.Class
|
|
import Data.Maybe
|
|
|
|
import DBus.Notify
|
|
|
|
import qualified RIO.Text as T
|
|
|
|
import XMonad.Internal.Shell
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- | Some nice default notes
|
|
|
|
defNote :: Note
|
|
defNote = blankNote { summary = "\"xmonad\"" }
|
|
|
|
defNoteInfo :: Note
|
|
defNoteInfo = defNote
|
|
{ appImage = Just $ Icon "dialog-information-symbolic" }
|
|
|
|
defNoteError :: Note
|
|
defNoteError = defNote
|
|
{ appImage = Just $ Icon "dialog-error-symbolic" }
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- | Format a 'notify-send' command to be send to the shell
|
|
|
|
parseBody :: Body -> Maybe T.Text
|
|
parseBody (Text s) = Just $ T.pack s
|
|
parseBody _ = Nothing
|
|
|
|
fmtNotifyCmd :: Note -> T.Text
|
|
fmtNotifyCmd = fmtCmd "notify-send" . fmtNotifyArgs
|
|
|
|
spawnNotify :: MonadIO m => Note -> m ()
|
|
spawnNotify = spawnCmd "notify-send" . fmtNotifyArgs
|
|
|
|
fmtNotifyArgs :: Note -> [T.Text]
|
|
fmtNotifyArgs n = getIcon n ++ getSummary n ++ getBody n
|
|
where
|
|
-- TODO add the rest of the options as needed
|
|
getSummary = (:[]) . doubleQuote . T.pack . summary
|
|
getIcon n' =
|
|
maybe [] (\i -> ["-i", T.pack $ case i of { Icon s -> s; File s -> s }])
|
|
$ appImage n'
|
|
getBody n' = maybeToList $ (fmap doubleQuote . parseBody) =<< body n'
|