Skip to content

Instantly share code, notes, and snippets.

View austintaylor's full-sized avatar

Austin Taylor austintaylor

View GitHub Profile
@austintaylor
austintaylor / userscript.css
Last active February 17, 2016 22:58 — forked from banderson623/userscript.js
My customizations for Slack in Fluid.app
.bot_message {
background: #F2F2F2 !important;
border-top: 8px solid #F2F2F2;
color: #666;
margin: 0 !important;
}
.message {
margin: 4px 0;
}
@austintaylor
austintaylor / DateSelect.hs
Created April 19, 2011 19:26 — forked from aiwilliams/date_select.js.coffee
CoffeeScript vs. Ruby/Haml vs. Haskell
import Text.Html
dateSelect year = dateSelect "born_on_month" [1..12] monthName
+++ dateSelect "born_on_day" [1..31] show
+++ dateSelect "born_on_year" [year-80..year] show
where monthName x = words "January February March April May June July August September October November December" !! (x - 1)
dateSelect n xs f = (select << map (dateOption f) xs) ! [name n]
dateOption f x = (option << f x) ! [value $ show x]