I hereby claim:
- I am doppioslash on github.
- I am doppioslash (https://keybase.io/doppioslash) on keybase.
- I have a public key ASDpjoxejMflRNmc3e7UeuPekw9Tj-6mgo2lMSKLRvzDBQo
To claim this, I am signing this object:
| import Signal | |
| import Time exposing (every, second) | |
| import Date exposing (..) | |
| import Graphics.Element exposing (show) | |
| currentTime t = | |
| let date' = fromTime t | |
| sameMonth = Jun == (month date') | |
| sameDay = 11 == (day date') | |
| in |
| import Graphics.Element exposing (..) | |
| import Mouse | |
| clickCount : Signal Int | |
| clickCount = | |
| Signal.foldp (\click total -> total + 1) 0 Mouse.clicks | |
| main : Signal Element | |
| main = Signal.map show clickCount |
| import Graphics.Element exposing (..) | |
| import Mouse | |
| type alias Model = ((Int, Int), Int) | |
| model : Signal Model | |
| model = Signal.map2 (,) Mouse.position clickCount | |
| clickCount : Signal Int | |
| clickCount = |
| import Html exposing (..) | |
| import Html.App as Html | |
| import Time exposing (Time, second) | |
| import Html.Events exposing (..) | |
| main = | |
| Html.program | |
| { init = init | |
| , update = update | |
| , view = view |
| import Html exposing (..) | |
| import Html.App as Html | |
| import Html.Attributes exposing (..) | |
| import Html.Events exposing (onInput) | |
| import String exposing (length) | |
| main = | |
| Html.beginnerProgram | |
| { model = model | |
| , view = view |
I hereby claim:
To claim this, I am signing this object:
| #! /bin/sh | |
| ### BEGIN INIT INFO | |
| # Provides: phd | |
| # Required-Start: $remote_fs $syslog | |
| # Required-Stop: $remote_fs $syslog | |
| # Default-Start: 2 3 4 5 | |
| # Default-Stop: 0 1 6 | |
| # Short-Description: phabricator | |
| # Description: manages phd | |
| ### END INIT INFO |