ponkore

1. gem の最新化 ===============

   bash$ sudo gem update --system Updating rubygems-update Fetching: rubygems-update-2.2.2.gem (100%) Successfully installed rubygems-update-2.2.2 Parsing documentation for rubygems-update-2.2.2 Installing ri documentation for rubygems-update-2.2.2 Installing darkfish documentation for rubygems-update-2.2.2

ponkore

$ sudo pkg install postgis
Updating repository catalogue
The following 6 packages will be installed:

	Installing proj: 4.8.0_2
	Installing geos: 3.4.2
	Installing json-c: 0.11
	Installing postgresql90-client: 9.0.15
	Installing postgresql90-server: 9.0.15
	Installing postgis: 2.1.0_1

ponkore

# work in progress...
davinci.name=Da Vinci 32U
davinci.upload.tool=avrdude
davinci.upload.protocol=avr109
davinci.upload.maximum_size=28672
davinci.upload.maximum_data_size=2560
davinci.upload.speed=57600
davinci.upload.disable_flushing=true
davinci.upload.use_1200bps_touch=true
davinci.upload.wait_for_upload_port=true

ponkore

(ns parser.core
  (:require [clojure.java.io :as io]
            [clojure.string :as str]
            [clojure.edn :as edn]
            [instaparse.core :as insta]))

;; TODO comment and newline support
;;  newline = '\n' | '\r\n'
;;  <comment-start> = ';'
;;  <comment> = comment-start #'.*' newline

ponkore

(defn quit 
  ([] (System/exit 0))
  ([status] (System/exit status)))

ponkore

;;; http://jutememo.blogspot.com/2012/03/blog-post.html
;;; in Emacs Scratch Buffer

(setq x 7)
7

(defun g () x)
g

(defun f ()

ponkore

user=> (def x 7)
#'user/x
user=> (defn g [] x)
#'user/g
user=> (defn f [] (let [x 9] (g)))
#'user/f
user=> (f)
7
user=> 

ponkore

;; v1: "lein ring server"
(defproject compojure-example "1.0.0-SNAPSHOT"
  :description "Simple compojure example project"
  :dependencies [[org.clojure/clojure "1.3.0"]
                 [compojure "1.0.1"]]
  :dev-dependencies [[lein-ring "0.5.0"]] ; 0.6.1 では NG だった
  :ring {:handler compojure-example.core/app})

ponkore

(ns compojure-example.core
  (:use compojure.core
        [hiccup.middleware :only (wrap-base-url)])
  (:require [compojure.route :as route]
            [compojure.handler :as handler]))

(defn index-page [] "<H1>Hello, world</H1>")

(defroutes main-routes
  (GET "/" [] (index-page))

ponkore

(ns compojure-example.core
  (:use compojure.core
        ring.adapter.jetty  ; <- added
        [hiccup.middleware :only (wrap-base-url)])
  (:require [compojure.route :as route]
            [compojure.handler :as handler]))

(defn index-page [] "<H1>Hello, world</H1>")

(defroutes main-routes