Instantly share code, notes, and snippets.

Working from home

Kazufumi Ohkawa kzfm

View GitHub Profile
import openbabel as ob
import os.path,sys,re
from tempfile import mkstemp
def to_gasfile(input,type="sdf"):
""" convert file to gaston format"""
(n,gastonfile) = mkstemp()
f = open(gastonfile, 'w')
import openbabel as ob
from tempfile import mkstemp, mkdtemp
from os import removedirs, unlink, system, environ
import re
import os.path
import string
from random import choice
def randstr(n):
View table.html
<td>Coffee mug</td>
View jqmtweet.jade
!!! 5
title jqm Tweet
link(rel="stylesheet", href="")
meta(name="viewport", content="width=device-width, initial-scale=1")
View gist:2318538
$ ->
Todo = Backbone.Model.extend(
defaults: ->
title: "empty todo..."
order: Todos.nextOrder()
done: false
initialize: ->
@set title: @defaults.title unless @get("title")
View googlemaptest.html
<!DOCTYPE html><html><head><script type="text/javascript" src=""></script><link rel="stylesheet" href="style.css"><script>var map;
function initialize() {
var myLatlng = new google.maps.LatLng(35.360556,138.727778);
var myOptions = {
zoom: 11,
center: myLatlng,
mapTypeId: google.maps.MapTypeId.ROADMAP
map = new google.maps.Map(document.getElementById("map_canvas"), myOptions);
import openbabel
# Copyright 2009 TJ O'Donnell
class recap:
# RECAP-Retrosynthetic Combinatorial Analysis Procedure
# J. Chem. Inf. Comput. Sci. 1998, 38, 511-522
def __init__(self, mol, minsize=5):
self.mol = mol;
# minimum allowed size (atom count) of fragment
self.minsize = minsize;
# bonded atom pairs populated by the apply method,
View hasflymake
(autoload 'ghc-init "ghc" nil t)
(add-hook 'haskell-mode-hook '(lambda ()
(local-set-key "\C-j" (lambda () (interactive)(insert " -> ")))
(local-set-key "\M-j" (lambda () (interactive)(insert " => ")))
(local-set-key "\C-l" (lambda ()(interactive)(insert " <- ")))
(defadvice inferior-haskell-load-file (after change-focus-after-load)
"Change focus to GHCi window after C-c C-l command"
View sample.el
;;; packages.el
(require 'package)
(add-to-list 'package-archives '("melpa" . "") t)
(add-to-list 'package-archives '("marmalade" . ""))
; 言語を日本語にする
(set-language-environment 'Japanese)
; 極力UTF-8とする
View gist:5472037
ufo <- read.delim("data/ufo/ufo_awesome.tsv", sep="\t", stringsAsFactors=FALSE, header=FALSE, na.strings="")
names(ufo) <- c("DateOccurred", "DateReported", "Location", "ShortDescription", "Duration", "LongDescription")
good.rows <- ifelse(nchar(ufo$DateOccurred) !=8 | nchar(ufo$DateReported) !=8, FALSE, TRUE)
ufo <- ufo[good.rows,]
ufo$DateOccurred <- as.Date(ufo$DateOccurred, format="%Y%m%d")
ufo$DateReported <- as.Date(ufo$DateReported, format="%Y%m%d")
get.location <- function(l) {
split.location <- tryCatch(strsplit(l,",")[[1]], error= function(e) return(c(NA, NA)))
clean.location <- gsub("^ ", "", split.location)