kikairoya

(function() {
    function _onkeypress(key) {
        switch (key.key) {
        case "h":
        case "H":
            window.scrollBy(-100, 0);
            return false;
        case "j":
        case "J":
            window.scrollBy(0, 100);

kikairoya

ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQDv94WPz35cGOR+OSae2rW+VLcx0L0stOAPZy8Ft1Ci6dzTNfKRhn1vHLIy85isZGf8r+ZsF04FGA7arcAuRxX5Zt6Gx10JLUN1PBRFEaoHKvKfYc/CezJlIINLXSOyiT8lUX6YQ7fYA4W4fDXWaat2UWdOQIh97sZngUxpWtknQ6lL4VqQaz2y5n0lHyCtBgGGEsExBe0haY2aLRykgygQfX8QufR7T5/6odjClRNLPdWAagg6fL/6ltTq6d1d7q8AQyxbPT6vvCtH+Vk3+VPGKBz+0bQWNI7jpnOgdLAK5e7wxQZ7OertXESfsGw/imBb+MM8UiRnuJVi4RsZjceH kikairoya@x240

kikairoya

#!/usr/bin/python

from sys import argv, version_info
import json
from urllib2 import urlopen, Request

def print_usage():
    print("usage: {} compiler {{options}} srcfile".format(argv[0]))
    print("       {} --list-compilers".format(argv[0]))
    print("       {} --list-options compiler".format(argv[0]))

kikairoya

(defun fmap (f m)
  (funcall (get (si:*structure-definition-name (si:*structure-definition m)) 'fmap) f m))
(defun >>= (m f)
  (funcall (get (si:*structure-definition-name (si:*structure-definition m)) '>>=) m f))
(defun >> (m a)
  (funcall (get (si:*structure-definition-name (si:*structure-definition m)) '>>) m a))

(defstruct maybe
  has-value

kikairoya

(defun resolve-bind-args (bindexpr args)
  (mapcar
   (lambda (x)
     (cond
      ((bind-subexpression-p x) (call (resolve-bind-args x args)))
      ((bind-placeholder-p x) (nth (1- (bind-placeholder-position x)) args))
      (t x)))
   (bind-subexpression-bounds bindexpr)))
(defmacro bind (&rest bounds)

kikairoya

; 雀の往来

(require "isearch")
(require "ni/setup")
(require "wandbox")
(ni-autoload)

(setq-default backup-by-copying t)
(setf
 (symbol-function 'backward-delete-char-untabify-or-selection) #'delete-backward-char-or-selection

kikairoya

// ==UserScript==
// @name    geocities
// @include http://www.geocities.jp/*
// ==/UserScript==

(function () {
  document.addEventListener('DOMContentLoaded', function () {
    var n = document.getElementById("y_gc_div_adcntr");
    if (n) n.parentNode.removeChild(n);
  }, false);

kikairoya

{
 "network":{
  "listen-port":2012,
 },
 "jail":{
  "jail":"ptracer.exe",
  "basedir":"/tmp/wandbox",
  "max-address-space":1073741824,
  "max-cpu-time":600,
  "max-data-segment":134217728,

kikairoya

// ==UserScript==
// @name    tumblr
// @include http://*.tumblr.com/post/*
// ==/UserScript==

(function () {
  document.addEventListener('DOMContentLoaded', function () {
    var n = document.getElementsByClassName("source_link")[0];
    if (n) location.href = n.attributes["href"].nodeValue;
  }, false);

kikairoya

// ==UserScript==
// @name    hatebu
// @include http://b.hatena.ne.jp/entry/*
// ==/UserScript==

(function () {
  document.addEventListener('DOMContentLoaded', function () {
    var n = document.getElementById("head-entry-link");
    if (n) location.href = n.attributes["href"].nodeValue;
  }, false);