takuji31

fun MutableLiveData<Boolean>.bindTo(viewLifecycleOwner: LifecycleOwner, snackbar: Snackbar) {
    observe(viewLifecycleOwner) { isVisible ->
        if (isVisible && !snackbar.isShownOrQueued) {
            snackbar.show()
        } else if (!isVisible && snackbar.isShownOrQueued) {
            snackbar.dismiss()
        }
    }

    val callback = object : Snackbar.Callback() {

takuji31

data class User(val firstName: String, val lastName: String, val gender: Gender)

enum class Gender {
  Male, Female, Other
}

class HogeActivity: Activity() {
  lateinit var user: User
  fun onCreate(savedInstanceState: Bundle) {
    user = //なんかで作る

takuji31

import android.support.v4.widget.DrawerLayout
import android.support.v4.widget.DrawerLayout.SimpleDrawerListener
import android.view.View
fun DrawerLayout.closeDrawerAndRun(drawerView: View, block: DrawerLayout.(view: View?) -> Unit): Unit {
    addDrawerListener(object : SimpleDrawerListener() {
        override fun onDrawerClosed(drawerView: View?) {
            this@closeDrawerAndRun.block(drawerView)
            this@closeDrawerAndRun.removeDrawerListener(this)
        }
    })

takuji31

#!/usr/bin/env perl
use 5.018_001;
use warnings;
use Web::Query;

my $q = Web::Query->new_from_file("data.html");

my $table = [];
$q->find('table.csv2table-table tr')->each(
    sub  {

takuji31

takuji31

buildscript {
    repositories {
        mavenCentral()
    }
    dependencies {
        classpath 'com.android.tools.build:gradle:0.5.+'
    }
}
apply plugin: 'android'

takuji31

#!/bin/sh

GIT_VER=1.8.0

mkdir -p /usr/local/src
cd /usr/local/src

curl -LO "http://git-core.googlecode.com/files/git-$GIT_VER.tar.gz"
tar zxvf git-$GIT_VER.tar.gz
cd git-$GIT_VER

takuji31

use 5.014001;
use warnings;
package Xpost::Email {
    use Data::Recursive::Encode;
    use Email::Sender::Simple qw(sendmail);
    use Email::Sender::Transport::SMTP::TLS;
    use Email::Simple;
    use Email::Simple::Creator;
    use Encode;
    use File::Spec;

takuji31

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

# 入力ファイルはこんなかんじで
# .......
# ...AA..
# ..BB...
# ..BBC..

takuji31

use strict;
use warnings;

use SWF::Editor;
use SWF::Editor::Tag::DoAction::SetVariables;

my $editor = SWF::Editor->new(file => '/path/to/file.swf');

my $tag = SWF::Editor::Tag::DoAction::SetVariables->new(
    vars => {