module Data.Time.Format.Human.Locales
( spanishHumanTimeLocale
) where
import Data.Time
import Data.Time.Format.Human
spanishHumanTimeLocale :: HumanTimeLocale
spanishHumanTimeLocale = HumanTimeLocale
{ justNow = "Justo ahora"
, secondsAgo = \f x -> (dir f ++ " " ++ x ++ " segundos")
, oneMinuteAgo = \f -> dir f ++ " un minuto"
, minutesAgo = \f x -> (dir f ++ " " ++ x ++ " minutos")
, oneHourAgo = \f -> dir f ++ " una hora"
, aboutHoursAgo = \f x -> dir f ++ " aproximadamente " ++ x ++ " horas"
, at = \_ -> ("El " ++)
, daysAgo = \f x -> (dir f ++ " " ++ x ++ " dias")
, weekAgo = \f x -> (dir f ++ " " ++ x ++ " semana")
, weeksAgo = \f x -> (dir f ++ " " ++ x ++ " semanas")
, onYear = ("En " ++)
, locale = spanishTimeLocale
, timeZone = utc
, dayOfWeekFmt = "%A a las %l:%M %p"
, thisYearFmt = "%b/%e"
, prevYearFmt = "%Y/%b/%e"
}
where
dir True = "Dentro de"
dir False = "Hace"
spanishTimeLocale = TimeLocale {
wDays = [("Domingo", "Dom"), ("Lunes", "Lun"),
("Martes", "Mar"), ("Miercoles", "Mie"),
("Jueves", "Jue"), ("Viernes", "Vie"),
("Sabado", "Sab")],
months = [("Enero", "Ene"), ("Febrero", "Feb"),
("Marzo", "Mar"), ("Abril", "Abr"),
("Mayo", "May"), ("Junio", "Jun"),
("Julio", "Jul"), ("Agosto", "Ago"),
("Septiembre", "Sep"), ("Octubre", "Oct"),
("Noviembre", "Nov"), ("Diciembre", "Dec")],
amPm = ("AM", "PM"),
dateTimeFmt = "%a %b %e %H:%M:%S %Z %Y",
dateFmt = "%y/%m/%d",
timeFmt = "%H:%M:%S",
time12Fmt = "%I:%M:%S %p",
knownTimeZones =
[
TimeZone 0 False "UT",
TimeZone 0 False "GMT",
TimeZone (5 * 60) False "EST",
TimeZone (4 * 60) True "EDT",
TimeZone (6 * 60) False "CST",
TimeZone (5 * 60) True "CDT",
TimeZone (7 * 60) False "MST",
TimeZone (6 * 60) True "MDT",
TimeZone (8 * 60) False "PST",
TimeZone (7 * 60) True "PDT"
]
}