matstani

(ns helloworld.handler
  (:require [ring.util.response :as response]
            [compojure.core :refer :all]
            [compojure.handler :as handler]
            [compojure.route :as route]
            [hiccup.page :refer [html5]]
            [hiccup.element :refer [link-to]]
            [hiccup.form :as form]
            [cemerick.friend :as friend]
            (cemerick.friend [workflows :as workflows]

matstani

(ns helloworld.handler
  (:require [compojure.core :refer :all]
            [compojure.handler :as handler]
            [compojure.route :as route]
            [korma.db :refer [defdb sqlite3]]
            [korma.core :as korma]
            [hiccup.core :refer [html]]))

;;データベース定義
(defdb db (sqlite3

matstani

(ns helloworld.handler
  (:use compojure.core)
  (:require [compojure.handler :as handler]
            [compojure.route :as route]
            [hiccup.form :as form]
            [hiccup.core :refer [html]]
            [noir.validation :as vali]))

;; レイアウト
(defn layout [& content]

matstani

(ns helloworld.handler
  (:use compojure.core)
  (:require [clojure.java.io :as io]
            [ring.util.response :as response]
            [compojure.handler :as handler]
            [compojure.route :as route]
            [hiccup.form :as form]
            [hiccup.core :refer [html]]))

;; ページレイアウト

matstani

#*#
*~
*.swp
data/cache/*
data/Smarty/templates_c/*
data/logs/*
data/upload/*
html/upload/*
data/download/*
data/downloads/*

matstani

(require 'package)
(add-to-list 'package-archives
  '("melpa" . "http://melpa.milkbox.net/packages/") t)
(package-initialize)

(defvar clojure-packages '(clojure-mode
                           paredit
                           cider
                           rainbow-delimiters))
(dolist (p clojure-packages)

matstani

;; 以下は同じ意味
(use 'clojure.java.io)
(require '[clojure.java.io :refer :all])

;; 以下も同じ意味
(use '[clojure.java.io :only [file]])
(require '[clojure.java.io :refer [file]])

;; nsマクロ内では
(ns helloworld.core

matstani

(ns nrepl-test.core
  (:require [seesaw.core :refer :all]
            [clojure.tools.nrepl.server :refer [start-server]])
  (:gen-class))

(defonce server (start-server :port 7888))

(def msg "Hello, Seesaw.")

(def lbl-msg

matstani

;; 引数の個数（アリティ）でわける方法
(defn myfunc1
  ([arg] (myfunc1 arg "default"))
  ([arg opt] (format "arg=[%s] opt=[%s]" arg opt)))

(myfunc1 "argument")
; => "arg=[argument] opt=[default]"
  
(myfunc1 "argument" "option")
; => "arg=[argument] opt=[option]"

matstani

(ns async-test.core
  (:require [clojure.core.async :as async :refer [<! >! <!! chan go]]))

(defn generate
  []
  (let [ch (chan)]
    (go
     (doseq [e (iterate inc 2)]
       (>! ch e)))
    ch))