Skip to content

Instantly share code, notes, and snippets.

package info.justaway.display;
import android.graphics.Bitmap;
import android.graphics.Bitmap.Config;
import android.graphics.BitmapShader;
import android.graphics.Canvas;
import android.graphics.Paint;
import android.graphics.RectF;
import android.graphics.Shader;
import Foundation
import SwifteriOS
struct TwitterVia {
let name: String
let URL: NSURL?
struct Static {
static let regexp = NSRegularExpression(pattern: "<a href=\"(.+)\" rel=\"nofollow\">(.+)</a>", options: NSRegularExpressionOptions(0), error: nil)!
}
@s-aska
s-aska / GoogleChrome.swift
Created May 18, 2015 12:55
任意のURLをブラウザ(Chrome)で開いた際に遷移元アプリに戻る導線を付ける
//
// GoogleChrome.swift
// Justaway
//
// Created by Shinichiro Aska on 5/18/15.
// Copyright (c) 2015 Shinichiro Aska. All rights reserved.
//
import UIKit
#!/bin/bash
# exit if a command fails
set -e
echo ""
echo "-----------------------"
echo "Installing dependencies"
echo "-----------------------"
# Homebrew
@s-aska
s-aska / mail_header_get.pl
Created November 16, 2010 10:58
Mail Header Fast Get
my $header;
my $buf;
my $term = "\n\n";
my $term_buf = '';
open($fh, $path) || die "$path $!";
while (read($fh, $buf, 4096)) {
$buf=~tr/\r//;
my $pos = index($term_buf . $buf, $term);
if ($pos >= 0) {
my $pos2 = $pos - length($term_buf);
@s-aska
s-aska / Dispatcher
Created December 8, 2010 04:39
よく使うDispatcher
package MasterSpark::Web::Dispatcher;
use strict;
use warnings;
use Amon2::Web::Dispatcher::RouterSimple;
connect '/{action}' => { controller => 'Root' };
connect '/{controller}/{action}' => {}, {
on_match => sub {
@s-aska
s-aska / simple-app.psgi
Created December 14, 2010 09:59
app.psgi snippet
use lib qw(lib);
use Plack::Request;
use Plack::Builder;
use Plack::Session::Store::File;
use Plack::Session::State::Cookie;
use String::Urandom;
my $secure = 1; # use SSL
my $httponly = 1; # only HTTP
@s-aska
s-aska / app.psgi
Created February 18, 2011 09:11
Markdown Reader
use strict;
use Data::Section::Simple;
use Encode;
use JSON;
use Path::Class;
use Plack::Builder;
use Plack::Request;
use Text::Markdown;
use Text::Xslate;
@s-aska
s-aska / Model.pm
Created February 28, 2011 04:45
reconnect and datetime auto Model.pm
package Hamburger::Model;
use parent 'Teng';
use DateTime;
sub dbh {
my $self = shift;
$self->SUPER::dbh;
$self->connect unless $self->{dbh};
$self->{dbh};
@s-aska
s-aska / get_tweet_count
Created March 24, 2011 04:40
Twitter URL API
#!/usr/bin/env perl
use WebService::Simple;
print WebService::Simple->new(
base_url => 'http://urls.api.twitter.com/1/urls/count.json',
response_parser => 'JSON'
)->get( { url => shift } )->parse_response->{count}, "\n";