Skip to content

Instantly share code, notes, and snippets.

Working from home

Kazufumi Ohkawa kzfm

Working from home
Block or report user

Report or block kzfm

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
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):
kzfm / table.html
Created Dec 4, 2011
HTML5 table sample
View table.html
<td>Coffee mug</td>
kzfm / jqmtweet.jade
Created Mar 20, 2012
jQuery Mobile Tweet
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")
kzfm / googlemaptest.html
Created May 10, 2012
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,
kzfm / hasflymake
Created Nov 24, 2012
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"
kzfm / sample.el
Created Nov 24, 2012
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)
You can’t perform that action at this time.