<commit_before>module Console (..) where

{-|
Helpers for writting to Standard Out

@docs log, print

# Colors
@docs blue, cyan, green, purple, red, white, yellow
-}

import Process.Streams exposing (..)
import Streams.String exposing (..)
import Task exposing (Task)
import Console.Color exposing (..)


{-| -}
log : String -> Task x ()
log message =
    message
        |> write standardOut


{-| -}
print : a -> Task x ()
print =
    toString >> log


{-| -}
red : String -> Task x ()
red =
    regular Red >> log


{-| -}
green : String -> Task x ()
green =
    regular Green >> log


{-| -}
yellow : String -> Task x ()
yellow =
    regular Yellow >> log


{-| -}
blue : String -> Task x ()
blue =
    regular Blue >> log


{-| -}
purple : String -> Task x ()
purple =
    regular Purple >> log


{-| -}
cyan : String -> Task x ()
cyan =
    regular Cyan >> log


{-| -}
white : String -> Task x ()
white =
    regular White >> log<commit_msg>more helpers<commit_after>module Console (..) where

{-|
# Helpers for writting to Standard Out

@docs log, print

## Colors
@docs blue, cyan, green, purple, red, white, yellow, scare, caution

# Error
@docs error
-}

import Process.Streams exposing (..)
import Streams.String exposing (..)
import Task exposing (Task)
import Console.Color exposing (..)


{-| -}
log : String -> Task x ()
log message =
    message
        |> write standardOut


{-| -}
print : a -> Task x ()
print =
    toString >> log


{-| -}
red : String -> Task x ()
red =
    regular Red >> log


{-| -}
green : String -> Task x ()
green =
    regular Green >> log


{-| -}
yellow : String -> Task x ()
yellow =
    regular Yellow >> log


{-| -}
blue : String -> Task x ()
blue =
    regular Blue >> log


{-| -}
purple : String -> Task x ()
purple =
    regular Purple >> log


{-| -}
cyan : String -> Task x ()
cyan =
    regular Cyan >> log


{-| -}
white : String -> Task x ()
white =
    regular White >> log


{-| -}
scare : String -> Task x ()
scare =
    background Red >> log


{-| -}
caution : String -> Task x ()
caution =
    background Yellow >> log


{-| Prints to strerr
-}
error : String -> Task x ()
error =
    write standardError
{'fraction_non_alphanumeric': 0.16359447004608296, 'fraction_numerical': 0.0, 'mean_word_length': 2.365891472868217, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 62, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3342681', 'n_tokens_mistral': 755, 'n_tokens_neox': 713, 'n_words': 243}