Skip to content

Instantly share code, notes, and snippets.

View mopemope's full-sized avatar
🏠
Working from home

Yutaka Matsubara mopemope

🏠
Working from home
View GitHub Profile
@mopemope
mopemope / config.fish
Created August 24, 2016 22:59
2016 config.fish
set fish_greeting ""
set -x LC_CTYPE ja_JP.UTF-8
set -x LANG ja_JP.UTF-8
set -x ANSIBLE_NOCOWS 1
set -x EDITOR emacsclient
set -x LOLCOMMITS_FORK true
set -x FZF_DEFAULT_COMMAND 'ag -g ""'
set -x FZF_DEFAULT_OPTS '--ansi --inline-info'
set -x JAVA_HOME /usr/lib/jvm/default
set -x ANT_HOME "$HOME/opt/ant"
@mopemope
mopemope / init.el
Created January 12, 2016 17:07
emacs init.el
(require 'package)
(add-to-list 'package-archives
'("marmalade" . "http://marmalade-repo.org/packages/"))
(add-to-list 'package-archives
'("melpa" . "http://melpa.milkbox.net/packages/") t)
(add-to-list 'package-archives
'("gnu" . "http://elpa.gnu.org/packages/") t)
(package-initialize)
@mopemope
mopemope / trade-call.lfe
Created April 16, 2015 07:06
trade fsm
(defmodule trade-call
(export all))
(defun sync1 (pid)
(! pid (self))
(receive
('ack 'ok)))
(defun sync2 ()
(receive
@mopemope
mopemope / Echo.java
Created December 11, 2013 01:34
FiberServerSocketChannel example
package com.mycompany.fiber;
import java.io.IOException;
import java.net.InetSocketAddress;
import co.paralleluniverse.fibers.Fiber;
import co.paralleluniverse.fibers.SuspendExecution;
import co.paralleluniverse.fibers.io.FiberSocketChannel;
import co.paralleluniverse.fibers.io.FiberServerSocketChannel;
import co.paralleluniverse.strands.SuspendableRunnable;
import java.nio.ByteBuffer;
@mopemope
mopemope / App.java
Created December 10, 2013 04:26
Simple Fiber park/unpark example
package com.mycompany.fiber;
import co.paralleluniverse.fibers.Fiber;
import co.paralleluniverse.fibers.SuspendExecution;
import co.paralleluniverse.strands.SuspendableRunnable;
import co.paralleluniverse.strands.channels.Channel;
import co.paralleluniverse.strands.channels.Channels;
public class App
{
@mopemope
mopemope / init.el
Created October 15, 2013 13:05
emacs init.el
;; package
(require 'package)
(add-to-list 'package-archives
'("marmalade" . "http://marmalade-repo.org/packages/"))
(add-to-list 'package-archives
'("melpa" . "http://melpa.milkbox.net/packages/") t)
@mopemope
mopemope / init.el
Last active December 22, 2015 06:38
auto install example
;; package
(require 'package)
(add-to-list 'package-archives
'("marmalade" . "http://marmalade-repo.org/packages/"))
(add-to-list 'package-archives
'("melpa" . "http://melpa.milkbox.net/packages/") t)
@mopemope
mopemope / core.clj
Last active December 21, 2015 18:59
hentai4.me crawler example
(ns hentai.core
(:require
[clojure.core.async :as async :refer :all])
(:use
[hentai.crawler]
[clojure.tools.logging]))
(defn- zip [a b]
(map (fn [x y] (vector x y)) a b))
@mopemope
mopemope / cert.clj
Last active December 21, 2015 02:59
Get peer certificate
(ns cert
(import
(javax.net.ssl HttpsURLConnection SSLSession SSLSocket SSLSocketFactory)))
(defn- get-sever-certs [host port]
(let [factory (HttpsURLConnection/getDefaultSSLSocketFactory)]
(with-open [socket (doto
(.createSocket factory host port)
(.startHandshake))]
(->
@mopemope
mopemope / main.go
Created July 26, 2013 02:13
reflect example
package main
import (
"log"
"reflect"
"strings"
)
type Person struct {
Name string