laserpants

/*
   http://griddlegriddle.github.io/Griddle/index.html
 
   <Griddle useGriddleStyles={false} tableClassName="table" showFilter={true} useCustomPagerComponent="true" customPagerComponent={BootstrapPager} results={this.state.data} />
*/

var BootstrapPager = React.createClass({
    getDefaultProps: function() {
        return {
            "maxPage": 0,

laserpants

var React     = require('react');
var Bootstrap = require('react-bootstrap');

var Input = Bootstrap.Input;

var NameInput = React.createClass({
    getInitialState: function() {
        return {
            value: '',
            hint: null,

laserpants

var Hello = React.createClass({
    getInitialState: function() {
        return {
            value: 1,
            editMode: false
        };
    },
    edit: function() {
        this.setState({editMode: true});
    },

laserpants

const BootstrapPager = React.createClass({
    getDefaultProps() {
        return {
            currentPage : 0,
            maxPage     : 0,
            maxButtons  : 10
        }
    },
    handleSelect(event, selectedEvent) {
        let page = selectedEvent.eventKey

laserpants

<?xml version="1.0" encoding="utf-8"?>
<LinearLayout
    xmlns:android="http://schemas.android.com/apk/res/android"
    android:orientation="vertical"
    android:layout_width="match_parent"
    android:layout_height="match_parent">

    <RelativeLayout
        xmlns:android="http://schemas.android.com/apk/res/android"
        android:layout_weight="1"

laserpants

package org.farmradio.fessbox;

public interface WebSocketMessageListener {
    void onMessage(String message);
}

laserpants

package org.farmradio.fessbox;

import android.app.Service;
import android.content.Intent;
import android.os.Binder;
import android.os.IBinder;
import android.support.annotation.Nullable;
import android.util.Log;

import de.tavendo.autobahn.WebSocketConnection;

laserpants

module Main where

(.?.) :: Bool -> (a, a) -> a
(.?.) True  = fst
(.?.) False = snd 

infixl 3 .?. 

(>:<) :: a -> b -> (a, b)
(>:<) = (,)

laserpants

module Main

import Prelude.Functor

total ap : Applicative f => f (a -> b) -> f a -> f b
ap = (<*>)

total maybeAdd1 : Num a => Maybe a -> Maybe a -> Maybe a
maybeAdd1 x y = do x' <- x
                   y' <- y

laserpants

'atom-workspace':
  'ctrl-shift-0': 'ide-haskell:toggle-output'