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 try-itext-compojure.handler | |
(:require [ring.util.response :as response] | |
[compojure.core :refer [defroutes GET]] | |
[compojure.handler :as handler] | |
[compojure.route :as route] | |
[korma.db :refer [defdb sqlite3]] | |
[korma.core :as korma]) | |
(:import [com.itextpdf.text | |
Document PageSize Paragraph Font] | |
[com.itextpdf.text.pdf |
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 try-itext.core | |
(:import [com.itextpdf.text | |
Document PageSize Paragraph Font | |
pdf.PdfWriter pdf.BaseFont] | |
[java.io FileOutputStream]) | |
(:gen-class)) | |
(defn create-pdf [] | |
(with-open [pdf-doc (Document. PageSize/A4 50 50 50 40)] | |
(doto pdf-doc |
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 try-typed.core | |
(:require [clojure.core.typed :refer :all])) | |
; String型の引数をとりnilを返す | |
(ann foo [String -> nil]) | |
(defn foo | |
"I don't do a whole lot." | |
[x] | |
(println x "Hello, World!")) |
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)) |
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 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
;; 以下は同じ意味 | |
(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
(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
#*# | |
*~ | |
*.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
(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]])) | |
;; ページレイアウト |