kkazuo

(custom-set-variables
 '(gnutls-algorithm-priority "normal:-vers-tls1.3"))

kkazuo

[@bs.module "react-virtualized"]
external reactClass: ReasonReact.reactClass = "List";

[@bs.deriving abstract]
type cellProps = {
  index: int,
  isScrolling: bool,
  isVisible: bool,
  key: string,
  style: ReactDOMRe.Style.t,

kkazuo

open Core.Std
open Async.Std

module Http = Cohttp_async

let ssl_config =
  Conduit_async.Ssl.configure ~version:Tlsv1_2 ()

let main key () =
  Http.Client.get Uri.(of_string key) ~ssl_config >>= fun (res, body) ->

kkazuo

#!/bin/sh -e

mkdir -p ~/.local/bin
cd ~/.local/bin
curl -LO https://github.com/commercialhaskell/stack/releases/download/v0.1.0.0/stack-0.1.0.0-x86_64-osx.gz
gunzip stack-0.1.0.0-x86_64-osx.gz
mv stack-0.1.0.0-x86_64-osx stack
chmod +x stack
mkdir /tmp/ghcmod
cd /tmp/ghcmod

kkazuo

var dia = new Window("dialog", "ハイフンあげ", [0, 0, 250, 110]);
dia.pane1 = dia.add("panel", [5, 10, 240, 60], "0.5");
dia.tex1 = dia.pane1.add("edittext", [10, 10, 100, 30]);
dia.add("statictext", [110, 30, 240, 50], "pt");
dia.bot1 = dia.add("button", [10, 70, 100, 100], "実行", {
    name: "OK"
});
dia.tex1.text = 0.5;
dia.center();
dia.show();

kkazuo

<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  <PropertyGroup>
    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
    <ProductVersion>9.0.30729</ProductVersion>
    <SchemaVersion>2.0</SchemaVersion>
    <ProjectGuid>{C1154025-FCAB-40AF-A715-91D10420C321}</ProjectGuid>
    <OutputType>Library</OutputType>
    <AppDesignerFolder>Properties</AppDesignerFolder>

kkazuo

> [obj message1].[message2].[message3:arg1].[message4:arg2 with:arg3];

is equive to

> [[[[obj message1] message2] message3:arg1] message4:arg2 with:arg3];

just propose.

kkazuo

# brew install c-kermit

set modem type none
set line /dev/tty.usbserial-FTFLINQT
set carrier-watch off
set speed 9600
set parity even
set stop-bits 1
set flow xon/xoff
eightbit

kkazuo

// AUTHOR: Kazuo Koga
// LICENSE: MIT
#import <Foundation/Foundation.h>

@interface NSObject (KVOHelper)

- (id)addObserveBlockForKeyPath:(NSString *)keyPath options:(NSKeyValueObservingOptions)options with:(void (^)(NSDictionary *change))block;
- (void)removeObserveBlockForKeyPath:(NSString *)keyPath withID:(id)contextID;
+ (NSString *)descriptionOfObserveBlock;