Clojureアプリケーションを動的に書き換える

May 20th, 2013

nREPLサーバをClojureアプリケーションに組み込んでおくと、動作中のClojureアプリケーションに接続して、デバッグを行ったり、動作を書き換えたりすることができます。

試しに、デスクトップGUIアプリケーションを動的に書き換えてみます。
Clojureからは、JavaのSwingを直接利用できますが、せっかくなので、よりClojureっぽく書けるSeesawを使ってみます。

project.cljは以下のとおり。

(defproject nrepl-test "0.1.0-SNAPSHOT" :description "FIXME: write description" :url "http://example.com/FIXME" :license {:name "Eclipse Public License" :url "http://www.eclipse.org/legal/epl-v10.html"} :dependencies [[org.clojure/clojure "1.4.0"] [seesaw "1.4.2"] [org.clojure/tools.nrepl "0.2.3"]] :main nrepl-test.core)

アプリケーションのコードは以下のとおり。

(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 (label "")) (defn set-msg! [msg] (config! lbl-msg :text msg)) (def btn-show-msg (button :text "Show Message")) (def content (vertical-panel :items [lbl-msg btn-show-msg])) (defn -main [& args] (invoke-later (listen btn-show-msg :action (fn [e] (set-msg! msg) (-> e .getSource to-root pack!))) (-> (frame :title "Hello", :content content, :on-close :exit) pack! show!)))

6行目でnREPLサーバを起動しています。

アプリケーションを起動

$ lein run

以下のようなウィンドウが表示されます。

ウィンドウ

「Show Message」ボタンを押すとメッセージが表示されます。

ウィンドウ

このアプリケーションにnREPLクライアントで接続し、動作を書き換えてみます。
nREPLクライアントとして、nrepl.elを利用する場合、Emacs内で以下のコマンドを実行します。

M-x nrepl
Host: 127.0.0.1
Port: 7888

Portで指定するのは、アプリケーション中のstart-serverで指定したポート番号です。以下のようにnREPLプロンプトが表示されます。

; nREPL 0.1.7
user> 

表示されるメッセージを変化させてみます。

user> (in-ns 'nrepl-test.core) ;namespaceセット
nrepl-test.core> (def msg "Changed Message.") ;msgを再定義

ボタンを押すと、メッセージが変化します。

ウィンドウ

ログ機能を付けてみます。

nrepl-test.core> (let [old show-msg-actn]
    (defn show-msg-actn
        [e]
        (println "LOG: show-msg-actn") (old e))) ;show-msg-actnを再定義

ボタンを押すと、コンソールにログが表示されるようになりました。

screen内のEmacsでparedit.elを使う

May 15th, 2013

Clojureなど、Lisp系言語の編集に便利なparedit.elですが、GNU screen内で起動したEmacsで利用しようとしたところ、Ctrl-矢印キーが使えず(5C, 5Dなどと入力される)、飲み込みや吐き出しの操作ができませんでした。

emacs起動時のコマンドでTERM変数を指定しておくと、とりあえず解決するようです。

TERM=xterm emacs -nw somefile

参考にしたURL http://lists.gnu.org/archive/html/screen-users/2009-12/msg00037.html

Clojureのuseをrequireで置き換える

May 10th, 2013

Clojureで他の名前空間を参照する方法として、requireとuseがありますが、Clojure1.4以降では、require単独でuseと同様にプレフィックス無しでの参照ができるようになっています。

requireにまとめることで、コードが若干すっきりするかもしれません。
サンプルコード

Clojure開発環境インストール手順(Emacs)

Apr 19th, 2013

推奨環境、手順はこまめに変化するようなので、2013年4月時点での手順のメモ。

2014/07/16 nrepl.el -> ciderに変更、リンク先修正。
2014/08/13 CIDER 0.7.0 リリースに合わせて、leinプラグインの記述を追加

利用するのは、Emacs+CIDER。
ちなみに、Clojure Programmingで紹介されているSLIME, swankの利用はdeprecatedとのこと。

Javaのインストール

オラクルのサイト
OpenJDKをインストールする場合

Ubuntuの場合

$ sudo apt-get install openjdk-7-jdk

CentOSの場合

$ sudo yum install java-1.7.0-openjdk

leiningenインストール

$ curl -O https://raw.github.com/technomancy/leiningen/stable/bin/lein  
$ mv lein ~/bin  
$ chmod 755 ~/bin/lein  

Emacsのインストール

Emacs24以降のバージョンを利用すると、パッケージ管理システムが標準で同梱されているので、以降の手順が簡単。

.emacsに以下追記

追記後、Emacs上で以下のコマンドを実行すると、直ちに有効になる。

M-x eval-buffer

ここでインストールされるパッケージは以下のとおり。

clojure-mode
Clojure編集の基本機能を追加するモード。インデントやシンタックスハイライトなど。
ParEdit
括弧のペアを管理してくれるモード。開き括弧の入力時に自動的に閉じ括弧を入れてくれたり、括弧(S式)単位での編集ができたり。
動作が直感的でないところもあるので、チュートリアルで勉強。
CIDER
Emacsから、nREPL(ネットワーク経由で利用できるREPL)にアクセスするための機能。
nREPLサーバをアプリケーションに組み込んでおくと、動作中のアプリケーションの情報を取得したり、動的にパッチを当てたり、色々できる。
RainbowDelimiters
Lispにありがちな多重括弧を、キレイに色付けしてくれるモード。

cider-nreplプラグインインストール

CIDER 0.7.0以降では、leinプラグインと協調して動作するようになっています。インストールのために、以下の記述を~/.lein/profiles.cljに追記します。

:plugins [[cider/cider-nrepl "0.7.0"]]

~/.lein/profiles.cljが存在しない場合は、以下の内容で新規に作成します。

{:user {:plugins [[cider/cider-nrepl "0.7.0"]]}}

Clojureプロジェクト作成

$ lein new demo

Emacs上でnREPL起動

$ cd demo
$ emacs src/demo/core.clj

Emacs上で

M-x cider-jack-in

lib-noirを利用したフォームバリデーション

Feb 28th, 2013

Compojureプロジェクトの作成手順はこちら

Compojureベースのウェブアプリケーションで、フォームバリデーションを行います。

ウェブアプリケーション用ライブラリlib-noirを利用するコードを紹介します。

依存ライブラリのインストール

lib-noirとHTML生成ライブラリのHiccupを追記します。
project.clj

(defproject helloworld "0.1.0-SNAPSHOT" :description "FIXME: write description" :url "http://example.com/FIXME" :dependencies [[org.clojure/clojure "1.4.0"] [compojure "1.1.5"] [lib-noir "0.4.6"] [hiccup "1.0.2"]] :plugins [[lein-ring "0.8.2"]] :ring {:handler helloworld.handler/app} :profiles {:dev {:dependencies [[ring-mock "0.1.3"]]}})

:dependenciesに追記後、以下のコマンドでライブラリをインストールします。

$ lein deps

lib-noir/validationを使ってフォームバリデーション

フォームからPOSTされた日付データ、時刻データを、正規表現でチェックするコードです。バリデーションが失敗した場合は、エラーメッセージを表示しています。
handler.clj

(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] (html [:head [:title "Form validation using lib-noir."]] [:body content])) ;; エラーメッセージ (defn error-message [[first-error]] [:span.error first-error]) ;; 日付・時刻をPOSTするフォーム (defn date-time-form [& [{:keys [date time]}]] (layout (form/form-to [:post "."] [:div (form/label "date" "日付") (form/text-field "date" date) ;; バリデーション失敗時はエラーメッセージ (vali/on-error :date error-message)] [:div (form/label "time" "時刻") (form/text-field "time" time) ;; バリデーション失敗時はエラーメッセージ (vali/on-error :time error-message)] [:div (form/submit-button "送信")]))) ;;日付チェック用正規表現 (def regex-date-pattern (re-pattern "^\\d{4}/(1[0-2]|0?[1-9])/(0?[1-9]|[1-2][0-9]|3[01])$")) ;;時刻チェック用正規表現 (def regex-time-pattern (re-pattern "^([01]?[0-9]|2[0-3]):([0-5][0-9])$")) ;;POSTデータのバリデーションルール (defn valid-date-time? [{:keys [date time]}] ;; dateをバリデート (vali/rule (re-matches regex-date-pattern date) ;; 失敗したら :date にエラーメッセージ追加 [:date "日付を入力してください(yyyy/MM/dd)"]) ;; timeをバリデート (vali/rule (re-matches regex-time-pattern time) ;; 失敗したら :time にエラーメッセージ追加 [:time "時刻を入力してください(HH:mm)"]) ;; バリデーション結果を返す (not (vali/errors? :date :time))) ;; POSTされた値を表示 (defn show-date-time [{:keys [date time]}] (layout [:p (str "日付は「" date "」です。")] [:p (str "時刻は「" time "」です。")])) (defroutes app-routes (GET "/" [] (date-time-form)) (POST "/" {param :params} (if (valid-date-time? param) ;; バリデーション成功 (show-date-time param) ;; バリデーション失敗 (date-time-form param))) (route/not-found "Not Found")) (def app (-> app-routes ;;バリデーション用ミドルウェア vali/wrap-noir-validation handler/site))

Octopressのスタイルシートを変更

Feb 28th, 2013

ドキュメントにあるとおり、Octopressでは、ソースコードを簡単に貼り付けできます。 gistのコードを埋め込むには以下のように記述します。

{% gist gist_id [filename] %}

このgistの埋め込み結果なのですが、Octopressのデフォルトのスタイルだと、テーブルの枠幅がでこぼこになって見た目が悪かったので、スタイルシートを微調整しました。 sassディレクトリ以下のscssファイルを修正すると、サイトに反映されるようです。

今回はsass/custom/_styles.scssに以下を追記しました。

.gist .line-data { width: 100% }

近いうちに本体でも修正されるとは思いますが。

Friendを利用したフォーム認証

Feb 5th, 2013

Compojureプロジェクトの作成手順はこちら

Compojureベースのウェブアプリケーションで、フォーム認証を行なってみます。

Friendという認証／認可用のライブラリを利用できます。

依存ライブラリインストール

project.cljの:dependenciesにFriend、HTML生成ライブラリのHiccupを追記します。

(defproject helloworld "0.1.0-SNAPSHOT" :description "FIXME: write description" :url "http://example.com/FIXME" :dependencies [[org.clojure/clojure "1.4.0"] [compojure "1.1.5"] [hiccup "1.0.2"] [com.cemerick/friend "0.1.3"]] :plugins [[lein-ring "0.8.2"]] :ring {:handler helloworld.handler/app} :profiles {:dev {:dependencies [[ring-mock "0.1.3"]]}})

:dependenciesに追記後、以下のコマンドでライブラリをインストールします。

$ lein deps

Friendを使ってフォーム認証

仮アカウントとしてadmin、userを用意し、それぞれ閲覧できるページが異なる設定にしています。認証に伴うリダイレクト処理はFriendが行ってくれます。
サンプルコード

(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] [credentials :as creds]))) ;; 仮のアカウント定義 (def users {"admin" {:username "admin" :password (creds/hash-bcrypt "adminpassword") :roles #{::admin}} "user" {:username "user" :password (creds/hash-bcrypt "userpassword") :roles #{::user}}}) ;; ::admin ロールは ::user ロールを兼ねる (derive ::admin ::user) ;; ページレイアウト (defn layout [& content] (html5 [:head [:title "auth and authz using friend."]] [:body content])) ;; 認証が必要なページの定義 (defroutes secure-routes ;; /admin以下は ::admin ロールが必要 (context "/admin" request (friend/wrap-authorize (routes (GET "/page1" [] (layout "admin page1.")) (GET "/page2" [] (layout "admin page2."))) #{::admin})) ;; /user以下は ::user ロールが必要 (context "/user" request (friend/wrap-authorize (GET "/private" [] (layout "private page.")) #{::user}))) ;; indexページ (def index (layout [:div [:ul [:li (link-to "/admin/page1" "Admin page1")] [:li (link-to "/admin/page2" "Admin page2")] [:li (link-to "/user/private" "User's private page.")]]] [:div (link-to "/login" "Login")] [:div (link-to "/logout" "Logout")])) (def index-handler (GET "/" [] index)) ;; ログインフォーム (def login-form (layout (form/form-to [:post "/login"] [:div [:div (form/label "username" "user name:") (form/text-field "username")] [:div (form/label "password" "password:") (form/password-field "password")] [:div (form/submit-button "login!")]]))) (def login-handler (GET "/login" [] login-form)) (defroutes app-routes index-handler login-handler secure-routes ;;ログアウトページ (friend/logout (ANY "/logout" request (response/redirect "/"))) (route/not-found "Not Found")) (def app (-> app-routes ;;認証用ミドルウェア（依存ミドルウェアの内側に置く） (friend/authenticate {:credential-fn (partial creds/bcrypt-credential-fn users) :workflows [(workflows/interactive-form)]}) handler/site))

Compojureでファイルアップロード

Jan 31st, 2013

Compojureプロジェクトの作成手順はこちら

Compojureベースのウェブアプリケーションで、ファイルアップロードを行います。

依存ライブラリのインストール

HTML生成ライブラリとしてHiccupを利用するので、以下のように追記します。
project.clj

(defproject helloworld "0.1.0-SNAPSHOT" :description "FIXME: write description" :url "http://example.com/FIXME" :dependencies [[org.clojure/clojure "1.4.0"] [compojure "1.1.5"] [hiccup "1.0.2"]] :plugins [[lein-ring "0.8.2"]] :ring {:handler helloworld.handler/app} :profiles {:dev {:dependencies [[ring-mock "0.1.3"]]}})

:dependenciesに追記後、以下のコマンドでライブラリをインストールします。

$ lein deps

ファイルアップロード

アップロードされたファイルを、プロジェクトのルートディレクトリに保存するコードです。
handler.clj

(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]])) ;; ページレイアウト (defn layout [& content] (html [:head [:title "file upload with compojure."]] [:body content])) ;; ファイルアップロード用フォーム (def upload-form (layout (form/form-to {:enctype "multipart/form-data"} [:post "/file"] (form/file-upload "file") (form/submit-button "submit")))) ;; アップロード成功 (def success (layout [:h1 "File uploaded successfully!"])) ;; アップロードされたファイルを保存する (defn save-file [filename tempfile] (io/copy tempfile (io/file filename)) (io/delete-file tempfile)) (defroutes app-routes (GET "/" [] upload-form) (GET "/success" [] success) (POST "/file" {{{:keys [filename tempfile]} :file} :params} (save-file filename tempfile) (response/redirect "/success")) (route/not-found "Not Found")) (def app (handler/site app-routes))

KormaでDBアクセス

Jan 23rd, 2013

Compojureプロジェクトの作成手順はこちら

Compojureベースのウェブアプリケーションで、データベースから読みだした値を表示してみます。

ClojureのJDBCラッパーも十分に高機能なのですが、より柔軟にSQLを構築できるKormaというライブラリを使う手順を紹介します。なお、以下の手順ではSQLiteを使っています。

データベース準備

$ mkdir db
$ sqlite3 db/helloworld.sqlite3 "CREATE TABLE items (id INTEGER PRIMARY KEY AUTOINCREMENT, title TEXT);"
$ sqlite3 db/helloworld.sqlite3 "INSERT INTO items (title) VALUES ('最初のアイテム');"
$ sqlite3 db/helloworld.sqlite3 "INSERT INTO items (title) VALUES ('2つ目のアイテム');"

依存ライブラリインストール

project.cljの:dependenciesにJDBCドライバーとKorma、HTML生成ライブラリのHiccupを追記します。
project.clj

(defproject helloworld "0.1.0-SNAPSHOT" :description "FIXME: write description" :url "http://example.com/FIXME" :dependencies [[org.clojure/clojure "1.4.0"] [compojure "1.1.5"] [org.xerial/sqlite-jdbc "3.7.2"] [korma "0.3.0-RC2"] [hiccup "1.0.2"]] :plugins [[lein-ring "0.8.2"]] :ring {:handler helloworld.handler/app} :profiles {:dev {:dependencies [[ring-mock "0.1.3"]]}})

:dependenciesに追記後、以下のコマンドでライブラリをインストールします。

$ lein deps

Kormaを使ってデータベースから読み出し

handler.clj

(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 ;;データベースファイルのパスを指定 {:db "db/helloworld.sqlite3"})) ;;itemsテーブルに対応するEntity定義 (korma/defentity items) ;;itemsテーブルから全てのレコードを読み出し (def all-items (korma/select items)) ;;htmlのリストに変換する関数 (defn to-html [items] (html [:head [:title "Access DB using Korma."]] [:body [:ul (map (fn [i] [:li (:title i)]) items)]])) (defroutes app-routes ;;データベースから読みだしたレコードをリストに変換して表示 (GET "/" [] (to-html all-items)) (route/not-found "Not Found")) (def app (handler/site app-routes))

Clojureインストール、Compojureプロジェクト作成

Jan 23rd, 2013

Clojureには、Leiningenという管理ツールがあり、Clojure本体のインストールや、各種ライブラリのインストール、プロジェクトの作成などがとても簡単にできるようになっています。

Clojureがインストールされていない状態から、ウェブアプリケーションフレームワークCompojureを利用したウェブアプリケーションの開発用プロジェクトを作成するまでの手順は以下のとおりです。

Javaがインストールされていることを確認

$ java -version

Leiningenインストール

leinスクリプトをダウンロード

$ curl -O https://raw.github.com/technomancy/leiningen/stable/bin/lein

ダウンロードしたスクリプトをPATHの通った場所に置き、実行権を付与

$ mv lein ~/bin
$ chmod 755 ~/bin/lein 

compojureプロジェクトの作成（初回は時間かかる）

$ lein new compojure helloworld 

開発用HTTPサーバ起動（初回は時間かかる）

$ cd helloworld
$ lein ring server-headless 

Port3000でHTTPサーバが起動されるので、ブラウザで確認します。

Blog Archives Newer →

/home/matstani/weblog

programming log.

Clojureアプリケーションを動的に書き換える

screen内のEmacsでparedit.elを使う

Clojureのuseをrequireで置き換える

Clojure開発環境インストール手順(Emacs)

Javaのインストール

leiningenインストール

Emacsのインストール

.emacsに以下追記

cider-nreplプラグインインストール

Clojureプロジェクト作成

Emacs上でnREPL起動

lib-noirを利用したフォームバリデーション

依存ライブラリのインストール

lib-noir/validationを使ってフォームバリデーション

Octopressのスタイルシートを変更

Friendを利用したフォーム認証

依存ライブラリインストール

Friendを使ってフォーム認証

Compojureでファイルアップロード

依存ライブラリのインストール

ファイルアップロード

KormaでDBアクセス

データベース準備

依存ライブラリインストール

Kormaを使ってデータベースから読み出し

Clojureインストール、Compojureプロジェクト作成

Javaがインストールされていることを確認

Leiningenインストール

leinスクリプトをダウンロード

ダウンロードしたスクリプトをPATHの通った場所に置き、実行権を付与

compojureプロジェクトの作成（初回は時間かかる）

開発用HTTPサーバ起動（初回は時間かかる）