Skip to content

Instantly share code, notes, and snippets.

View minikomi's full-sized avatar
🍕
I like pizza

minikomi

🍕
I like pizza
188 followers · 7 following
  • Tokyo, Japan
View GitHub Profile
@minikomi
minikomi / japan.js
Created September 4, 2014 13:02
define([], function(){
return {paths: [
"M152.425 186.338c-0.266-0.402-1.148-3.341-1.568-3.054c0.016-0.016 0.038-0.025 0.06-0.032 c0.662-0.352-5.527 6.146-5.966 3.993c0 0-0.733 2.521-1.784 1.342c-1.226 1.345-1.044 0.254-0.796 1.92 c-1.073-0.566-2.385 0.324-3.943-0.175c-0.625 1.055-1.905-1.548-1.564-1.551c-0.107-0.277 1.438-0.786 0.759-0.604l0.007-0.006 c-0.069 0.021-0.129 0.06-0.177 0.116l0.117-0.078c-0.297 1.01 1.21 1.32 0.59 2.067c1.032-0.14 0.253-2.014-0.127-2.114 c0-0.366-0.732-1.862-1.635-2.159c-0.256 0.53-2.64-1.213-2.956-1.282c0.142 0.449-0.473 0.8-0.271 1.46 c0.088 0.28 0.05 0.71 0.09 0.946c-1.221-0.928-0.647 2.032-0.647 2.142c-0.021 0.81 0.97 0.56 1.51 1.02 c0.516 0.47 1.51 0.97 1.39 1.701c-0.054 0.262-1.312 1.404-1.479 1.312c-0.043-0.023-0.909-0.398-1.082-0.405 c-0.616-0.042-1.285 0.649-2.1 0.655c-0.233 0.001-1.456-0.123-1.413-0.299c-0.736 0.187-0.394 0.002-1.023 0.86 c-0.314 0.442-1.648 0.25-2.178 0.594c-1.242 0.756-0.105 0.568-1.287 0.044c-0.28-0.13-1.334 0.325-1.771 0.27 c-0.041-0.387 0.021-1.438
@minikomi
minikomi / tumblrsearch.cljs
Last active August 29, 2015 14:05
tumblr search for clojurescript/om
(ns tumblrsearch.core
(:require-macros [cljs.core.async.macros :refer [go]
])
(:require ;[clojure.browser.repl]
[cljs.core.async :as async :refer [put! chan <!]]
[om.core :as om :include-macros true]
[om.dom :as dom :include-macros true]
[clojure.string :as s :refer [replace]]
;[figwheel.client :as fw :include-macros true]
; routing
@minikomi
minikomi / hover.cljs
Last active August 29, 2015 14:05
Hover style for om
(def app-state {:boxes (vec (take 10 (repeat {:value 0})))})
(defn box [n owner]
(reify
om/IInitState
(init-state [_] {:hovered false})
om/IRenderState
(render-state [_ {:keys [hovered]}]
(dom/p #js {:onClick (fn [e]
(.preventDefault e)
@minikomi
minikomi / handle-change.cljs
Last active August 29, 2015 14:05
Om basic tutorial -
;; Editing a class name and making it blank results in the following error:
;; Uncaught Error: No protocol method ITransact.-transact! defined for type string:
; I changed:
(defn handle-change [e text owner]
(om/transact! text (fn [_] (.. e -target -value))))
; to:
@minikomi
minikomi / Chat.hs
Created August 25, 2014 03:00
Haskell telnet chat
module Main where
import Prelude hiding (catch)
import Control.Concurrent
import Control.Concurrent.Chan
import Control.Exception
import Network
import System.IO
import System.IO.Error
import Control.Monad
@minikomi
minikomi / index.html
Last active August 29, 2015 14:04
Instagram Likes
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8" />
<title>Instagram Likes</title>
<style>
.axis text {
font: 10px sans-serif;
}
@minikomi
minikomi / advanced-ant.rkt
Last active August 29, 2015 14:04
Racket solution to reddit Daily Programmer #173
#lang racket
; http://www.reddit.com/r/dailyprogrammer/comments/2c4ka3/7302014_challenge_173_intermediate_advanced/
(require 2htdp/universe
2htdp/image)
(define possible-colors
(list->vector
(map (λ (c) (apply make-color c))
@minikomi
minikomi / main.less
Created June 11, 2014 04:59
Pure css sidebar layout - less
@import "./pure-min.css";
@import "./side-menu.less";
@minikomi
minikomi / tictactoe.rkt
Created April 10, 2014 11:10
(define (splice lst idx new)
(append (take lst idx)
(cons new (drop lst (add1 idx)))))
(define combinations
'(; rows
(0 1 2)(3 4 5)(6 7 8)
; cols
(0 3 6)(1 4 7)(2 5 8)
; diags
@minikomi
minikomi / sprunge-like.clj
Created March 31, 2014 10:17
clojure sprunge-like for GAE
(ns sprulj.core
(:use compojure.core
[appengine-magic.multipart-params :only [wrap-multipart-params]])
(:require [appengine-magic.core :as ae]
[appengine-magic.services.datastore :as ds]
))
(def VALID-CHARS
(->>
(concat (range 48 58)