This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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]])) | |
;; ページレイアウト |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#*# | |
*~ | |
*.swp | |
data/cache/* | |
data/Smarty/templates_c/* | |
data/logs/* | |
data/upload/* | |
html/upload/* | |
data/download/* | |
data/downloads/* |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; 以下は同じ意味 | |
(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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; 引数の個数(アリティ)でわける方法 | |
(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]" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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)) |
OlderNewer