Skip to content

Instantly share code, notes, and snippets.

@ponkore
ponkore / README.md
Last active Aug 18, 2020
OpenLayers を使って、電車の路線図を書く試み
View README.md

OpenLayers を使って鉄道路線図を書いてみる

データを入手

まずは国土数値情報ダウンロードサービスより、「JPGIS2.1(GML)準拠及びSHAPE形式データのダウンロード」をクリックし、そのページの下の方の「国土骨格」のカテゴリにある「鉄道時系列(線、点)」をクリック。(要するにここ )。

下の方にデータ選択ボタンがあるので選んで先に進む。用途とかのアンケートにちゃんと答えてからダウンロードする。

必要なデータのみに絞る

@ponkore
ponkore / emacs-27.1.ime.diff
Last active Aug 13, 2020
Windows IME Patch for Emacs27.1 on Windows (derived from https://gist.github.com/rzl24ozi/b4f4b4d729035d3c439b )
View emacs-27.1.ime.diff
diff --git a/lisp/loadup.el b/lisp/loadup.el
index 97525b2..634e6a0 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -311,7 +311,9 @@
(load "w32-vars")
(load "term/w32-win")
(load "disp-table")
+ (load "international/w32-ime")
(when (eq system-type 'windows-nt)
@ponkore
ponkore / problem_11.clj
Created Dec 23, 2012
Project Euler Problem 11
View problem_11.clj
;;; In the 20x20 grid below, four numbers along a diagonal line have been marked in red.
;;; :
;;; (snip)
;;; :
;;; The product of these numbers is 26 * 63 * 78 * 14 = 1788696.
;;; What is the greatest product of four adjacent numbers
;;; in any direction (up, down, left, right, or diagonally) in the 20x20 grid?
(ns projecteuler.problem-11
(:use clojure.test))
@ponkore
ponkore / clojure-reader-macro.md
Created Dec 3, 2012
Clojure のリーダーマクロについて (lisp reader macro advent calendar 2012 の記事です)。
View clojure-reader-macro.md

Clojure のリーダーマクロについて

この記事は、lispリーダーマクロアドベントカレンダー の4日目の記事です。 タイトルにある通り、Clojure でのリー ダーマクロについて取り扱います(対象とする Clojure のバージョンは 1.4)。

はじめに

@ponkore
ponkore / memo.sh
Created Aug 3, 2012
github上でgithubにフォークしたリモートリポジトリを本家リモートリポジトリに追随する
View memo.sh
# http://d.hatena.ne.jp/haru-s/20110405/1302006637 に答えがそのままあるが、一応メモ
# github fork 追従 で見つけた
$ git remote
origin
# 本家のリモートリポジトリの短縮名を登録する.
$ git remote add github git://github.com/liquidz/misaki.git
# 本家の更新をローカルで反映させる.
@ponkore
ponkore / problem-1-1.clj
Created Dec 7, 2012
Project Euler Problem 1
View problem-1-1.clj
;;; Project Euler Problem 1
;;; http://odz.sakura.ne.jp/projecteuler/index.php?cmd=read&page=Problem%201
;;;
;;; 10未満の自然数のうち、3 もしくは 5 の倍数になっているものは 3, 5, 6, 9 の4つがあり、 これらの合計は 23 になる。
;;; 同じようにして、1,000 未満の 3 か 5 の倍数になっている数字の合計を求めよ。
;;; 3 もしくは 5の倍数の場合 true、そうでない場合 false を返す filter 判定用関数
(defn fizz-or-buzz?
"3か5で割り切れるならtrue、そうでないならfalseを返す。"
[n]
@ponkore
ponkore / .eslintrc
Created Apr 15, 2018
.eslintrc (厳しい感じ)
View .eslintrc
module.exports = {
"extends": "eslint:recommended",
"env": {
"browser": false,
"node": true,
"es6": true
},
"rules": {
"arrow-body-style": "error",
"arrow-parens": "error",
@ponkore
ponkore / clojure-poi-memo.md
Created Dec 5, 2012
Clojure から POI ってみる
View clojure-poi-memo.md

Clojure から POI ってみる

この記事は、変態アドベントカレンダー 6日目の記事です。前日は はがねのつるぎさん でした。

このアドベントカレンダーは、意識もスキルも高い変態勇者がハイテクを駆使してかくもの、と思ってらっしゃる方にはちょっと申し訳ありません。若干変態度もハイテク度も低めで肩透かしを食らうことになりますが、しばしお付き合いください。

今日のネタは、私自身の日々の切実な課題である、Excel文書と戦うための準備、といったところです。

Excel ドキュメントにに対する不満

@ponkore
ponkore / gist:2021925
Created Mar 12, 2012
clj-webdriver tiny example
View gist:2021925
(ns clj-selenium-test.core
(:use [clj-webdriver.taxi]))
(defn auto-login []
"http://www.walk-21.com に自動ログインする。REPL にて
user=> (use 'clj-selenium-test.core)
user=> (auto-login)
"
;; top 画面を表示
(set-driver! {:browser :firefox} "http://www.walk-21.com/")
@ponkore
ponkore / grep.clj
Created Apr 12, 2012
Cheap grep by Clojure
View grep.clj
;;;
;;; 簡単 grep。のつもりが、あんまりかっこ良くないorz
;;;
(use '[clojure.java.io :as io])
(defn indexed [coll]
(map vector (iterate inc 1) coll))
(defn grep [re file]
(with-open [rdr (io/reader file)]
You can’t perform that action at this time.