clapper.hs

#!/usr/bin/env stack
-- stack --resolver=lts-8.2 runghc --package text
{-# LANGUAGE OverloadedStrings #-}

-- example usage:
-- $ clapper "I wrote this to troll @peterb"
-- yields
-- I 👏 wrote 👏 this 👏 to 👏 troll 👏 peterb 👏

import           Data.List (intersperse)
import qualified Data.Text as Text
import qualified Data.Text.IO as Text
import           Control.Monad
import           System.Environment
import           System.Exit

main :: IO ()
main = do
  args <- fmap Text.pack <$> getArgs
  when (length args == 0) (die "Usage: clapper [SEPARATOR] STRING")

  let (separator, message) =
        if length args >= 2
           then (args !! 0, args !! 1)
           else ("👏", args !! 0)
  
  let asWords = Text.words message
      punctuated = intersperse separator asWords ++ [separator]
      glued = Text.unwords punctuated

  Text.putStrLn glued

You are the Blighttown beneath my Dark Souls game.