kei-q

test = undefined

kei-q

module Main(main) where

import Util

import System.Environment (getArgs)
import Control.Monad (forever)
import Data.List (intercalate, scanl1)

main :: IO ()
main = do

kei-q

module Main where

import FRP.Reactive
import FRP.Reactive.LegacyAdapters
import System.IO
import Control.Concurrent
import Control.Applicative
import Control.Monad
import Data.List

kei-q

module DyreExample
  ( Config(..)
  , defaultConfig
  , dyreExample
  ) where

import qualified Config.Dyre as Dyre (wrapMain, defaultParams, Params(..))
import Config.Dyre.Relaunch (restoreTextState, relaunchMaster, saveTextState)

import System.IO (hFlush, stdout)

kei-q

sinatra + slim + coffee-script
enable shotgun

kei-q

module Nimmt where

import Control.Applicative ((<$>))
import Control.Monad.Trans.Maybe
import Control.Monad.IO.Class (liftIO)
import Control.Monad (when)

cls :: IO ()
cls = putStr "\ESC[2J"

kei-q

Backbone.sync = (method, model, success, error) ->
  success()

class Item extends Backbone.Model
  defaults:
    part1: 'hello'
    part2: 'world'

  swap: ->

kei-q

class User extends Backbone.Model
  validate: (attr) ->
    if attr.name is ''
      return '一文字以上名前を入力してください'

class Users extends Backbone.Collection
  model: User
  url: '/users'

class UserView extends Backbone.View

kei-q

import Data.Time.Calendar
isPrime n=all ((/=0) . mod n) $ takeWhile (\i->i*i<=n) (2:[3,5..])
days=map (filter (/= '-') . show) $ [fromGregorian 2012 1 1 .. fromGregorian 2013 1 1]
main=mapM_ print $ filter (isPrime.read) days

kei-q

diff --git a/lib/CoffeeTags/parser.rb b/lib/CoffeeTags/parser.rb
index ee7501c..58860a9 100644
--- a/lib/CoffeeTags/parser.rb
+++ b/lib/CoffeeTags/parser.rb
@@ -17,7 +17,7 @@ module Coffeetags
 
       # regexes
       @block = /^\s*(if|unless|switch|loop|do)/
-      @class_regex = /^\s*class\s*([\w\.]*)/
+      @class_regex = /^\s*class\s*([@\w\.]*)/