Веб-приложение на Clojure. Часть 2

(defproject notes "0.1.0-SNAPSHOT"
  :description "Менеджер заметок"
  :min-lein-version "2.0.0"
  :dependencies [; Да-да, сам Clojure тоже подключаем
                 ; как зависимость
                 [org.clojure/clojure "1.6.0"]

                 ; Маршруты для GET и POST запросов
                 [compojure "1.3.1"]

                 ; Обертка (middleware) для наших
                 ; маршрутов
                 [ring/ring-defaults "0.1.5"]

                 ; Шаблонизатор
                 [selmer "0.8.2"]

                 ; Добавляем Monger
                 [com.novemberain/monger "2.0.1"]

                 ; Дата и время
                 [clojure.joda-time "0.6.0"]]

  ; Поскольку веб-сервер подключать мы будем в
  ; следующей статье, пока доверим это дело
  ; Ring'у в который включен свой веб-сервер Jetty
  :plugins [[lein-ring "0.8.13"]]

  ; При запуске приложения Ring будет
  ; использовать переменную app содержащую
  ; маршруты и все функции которые они содержат
  :ring {:handler notes.handler/app}
  :profiles {:dev
             {:dependencies
              [[javax.servlet/servlet-api "2.5"]
               [ring-mock "0.1.5"]]}})

(ns notes.handler
  (:require

   ; Маршруты приложения
   [notes.routes :refer [notes-routes]]

   ; Стандартные настройки middleware
   [ring.middleware.defaults :refer [wrap-defaults site-defaults]]))

; Обернем маршруты в middleware
(def app
  (wrap-defaults notes-routes site-defaults))

(ns notes.routes
  (:require

   ; Работа с маршрутами
   [compojure.core :refer [defroutes GET POST]]
   [compojure.route :as route]

   ; Контролеры запросов
   [notes.controllers :as c]

   ; Отображение страниц
   [notes.views :as v]

   ; Функции для взаимодействия с БД
   [notes.db :as db]))

; Объявляем маршруты
(defroutes notes-routes

  ; Страница просмотра заметки
  (GET "/note/:id"
       [id]

       ; Получим нашу заметку по ее ObjectId
       ; и передадим данные в отображение
       (let [note (db/get-note id)]
         (v/note note)))

  ; Контролер удаления заметки по ее ObjectId
  (GET "/delete/:id"
       [id]
       (c/delete id))

  ; Обработчик редактирования заметки
  (POST "/edit/:id"
        request
        (-> c/edit))

  ; Страница редактирования заметки
  ; на деле, полагаю использовать
  ; ObjectId документа в запросах
  ; плохая идея, но в качестве
  ; примера сойдет.
  (GET "/edit/:id"
       [id]

       ; Получим нашу заметку по ее ObjectId
       ; и передадим данные в отображение
       (let [note (db/get-note id)]
         (v/edit note)))

  ; Обработчик добавления заметки
  (POST "/create"

        ; Можно получить необходимые нам значения
        ; в виде [title text], но мы возьмем
        ; request полностью и положим
        ; эту работу на наш обработчик
        request

        ; Этот синтаксический сахар аналогичен
        ; выражению: (create-controller request)
        (-> c/create))

  ; Страница добавления заметки
  (GET "/create"
       []
       (v/create))

  ; Главная страница приложения
  (GET "/"
       []

       ; Получим список заметок и
       ; передадим его в fn отображения
       (let [notes (db/get-notes)]
         (v/index notes)))

  ; Ошибка 404
  (route/not-found "Ничего не найдено"))

(ns notes.controllers
  (:require

   ; Функция редиректа
   [ring.util.response :refer [redirect]]

   ; Функции для взаимодействия с БД
   [notes.db :as db]))

(defn delete
  "Контролер удаления заметки"
  [id]
  (do
    (db/remove-note id)
    (redirect "/")))

(defn edit
  "Контролер редактирования заметки"
  [request]

  ; Получаем данные из формы
  (let [note-id (get-in request [:form-params "id"])
        note {:title (get-in request [:form-params "title"])
              :text (get-in request [:form-params "text"])}]

    ; Проверим данные
    (if (and (not-empty (:title note))
             (not-empty (:text note)))

      ; Если все ОК
      ; обновляем документ в БД
      ; переносим пользователя
      ; на главную страницу
      (do
        (db/update-note note-id note)
        (redirect "/"))

      ; Если данные пусты тогда ошибка
      "Проверьте правильность введенных данных")))

(defn create
  "Контролер создания заметки"
  [request]

  ; Получаем данные из формы
  ; не будем плодить переменные
  ; и сразу создадим hash-map
  ; (ассоциативный массив)
  (let [note {:title (get-in request [:form-params "title"])
              :text (get-in request [:form-params "text"])}]

    ; Проверим данные
    (if (and (not-empty (:title note))
             (not-empty (:text note)))

      ; Если все ОК
      ; добавляем их в БД
      ; перенесем пользователя
      ; на главную страницу
      (do
        (db/create-note note)
        (redirect "/"))

      ; Если данные пусты тогда ошибка
      "Проверьте правильность введенных данных")))

(ns notes.db
  (:require

   ; Непосредственно Monger
   monger.joda-time ; для добавления времени и даты
   [monger.core :as mg]
   [monger.collection :as m]
   [monger.operators :refer :all]

   ; Время и дата
   [joda-time :as t])

  ; Импортируем методы из Java библиотек
  (:import org.bson.types.ObjectId
           org.joda.time.DateTimeZone))

; Во избежание ошибок нужно указать часовой пояс
(DateTimeZone/setDefault DateTimeZone/UTC)

; Создадим переменную соединения с БД
(defonce db
  (let [uri "mongodb://127.0.0.1/notes_db"
        {:keys [db]} (mg/connect-via-uri uri)]
    db))

; Приватная функция создания штампа даты и времени
(defn- date-time
  "Текущие дата и время"
  []
  (t/date-time))

(defn remove-note
  "Удалить заметку по ее ObjectId"
  [id]

  ; Переформатируем строку в ObjectId
  (let [id (ObjectId. id)]
    (m/remove-by-id db "notes" id)))

(defn update-note
  "Обновить заметку по ее ObjectId"
  [id note]

  ; Переформатируем строку в ObjectId
  (let [id (ObjectId. id)]

    ; Здесь мы используем оператор $set
    ; с его помощью если в документе имеются
    ; другие поля они не будут удалены
    ; обновятся только те которые есть
    ; в нашем hash-map + если он включает
    ; поля которых нет в документе они
    ; они будут добавлены к нему.
    ; Так-же обновлять документы можно
    ; по их ObjectId с помощью
    ; функции update-by-id,
    ; для наглядности я оставил обновление
    ; по любым параметрам
    (m/update db "notes" {:id id}

              ; Обновим помимо документа
              ; дату его создания
              {$set (assoc note
                      :created (date-time))})))

(defn get-note
  "Получить заметку по ее ObjectId"
  [id]

  ; Если искать документ по его :_id
  ; и в качестве значения передать
  ; ему строку а не ObjectId
  ; мы получим ошибку, поэтому
  ; переформатируем его в тип ObjectId
  (let [id (ObjectId. id)]

    ; Эта функция вернет hash-map найденного документа
    (m/find-map-by-id db "notes" id)))

(defn get-notes
  "Получить все заметки"
  []

  ; Find-maps возвращает все документы
  ; из коллеции в виде hash-map
  (m/find-maps db "notes"))

(defn create-note
  "Создать заметку в БД"

  ; Наша заметка принимается от котролера
  ; и имеет тип hash-map c видом:
  ; {:title "Заголовок" :text "Содержание"}
  [note]

  ; Monger может сам создать ObjectId
  ; но разработчиками настоятельно рекомендуется
  ; добавить это поле самостоятельно
  (let [object-id (ObjectId.)]

    ; Нам остается просто передать hash-map
    ; функции создания документа, только
    ; добавим в него сгенерированный ObjectId
    ; и штамп даты и времени создания
    (m/insert db "notes" (assoc note
                           :_id object-id
                           :created (date-time)))))

(ns notes.views
  (:require

   ; "Шаблонизатор"
   [selmer.parser :as parser]
   [selmer.filters :as filters]

   ; Время и дата
   [joda-time :as t]

   ; Для HTTP заголовков
   [ring.util.response :refer [content-type response]]

   ; Для CSRF защиты
   [ring.util.anti-forgery :refer [anti-forgery-field]]))

; Подскажем Selmer где искать наши шаблоны
(parser/set-resource-path! (clojure.java.io/resource "templates"))

; Чтобы привести дату в человеко-понятный формат
(defn format-date-and-time
  "Отформатировать дату и время"
  [date]
  (let [formatter (t/formatter "yyyy-MM-dd в H:m:s" :date-time)]
    (when date
      (t/print formatter date))))

; Добавим фильтр для использования в шаблоне
(filters/add-filter! :format-datetime
                     (fn [content]
                       [:safe (format-date-and-time content)]))

; Добавим тэг с полем для форм в нем будет находится
; автоматически созданное поле с anti-forgery ключом
(parser/add-tag! :csrf-field (fn [_ _] (anti-forgery-field)))

(defn render [template & [params]]
  "Эта функция будет отображать наши html шаблоны
  и передавать в них данные"
  (-> template
      (parser/render-file

        ; Добавим к получаемым данным постоянные
        ; значения которые хотели бы получать
        ; на любой странице
        (assoc params
          :title "Менеджер заметок"
          :page (str template)))

      ; Из всего этого сделаем HTTP ответ
      response
      (content-type "text/html; charset=utf-8")))

(defn note
  "Страница просмотра заметки"
  [note]
  (render "note.html"

          ; Передаем данные в шаблон
          {:note note}))

(defn edit
  "Страница редактирования заметки"
  [note]
  (render "edit.html"

          ; Передаем данные в шаблон
          {:note note}))

(defn create
  "Страница создания заметки"
  []
  (render "create.html"))

(defn index
  "Главная страница приложения. Список заметок"
  [notes]
  (render "index.html"

          ; Передаем данные в шаблон
          ; Если notes пуст вернуть false
          {:notes (if (not-empty notes)
                    notes false)}))

<!DOCTYPE html>
<html>
<head>

    <META http-equiv="Content-Type" content="text/html; charset=UTF-8">
    <title>{{title}}</title>

</head>
<body>

    <ul>
        <li>
            {% ifequal page "index.html" %}
            <strong>Все заметки</strong>
            {% else %}
            <a href="/">Все заметки</a>
            {% endifequal %}
        </li>
        <li>
            {% ifequal page "create.html" %}
            <strong>Добавить заметку</strong>
            {% else %}
            <a href="/create">Добавить заметку</a>
            {% endifequal %}
        </li>
    </ul>

    {% block content %}
    {% endblock %}

</body>
</html>

{% extends "base.html" %}
{% block content %}

<h1>Создать заметку</h1>

<form action="POST">

    {% csrf-field %}

    <p>
        <label>Заголовок</label><br>
        <input type="text" name="title" placeholder="Заголовок">
    </p>

    <p>
        <label>Заметка</label><br>
        <textarea name="text"></textarea>
    </p>

    <input type="submit" value="Создать">

</form>

{% endblock %}

{% extends "base.html" %}
{% block content %}

<h1>Редактировать заметку</h1>

<form method="POST">

    {% csrf-field %}

    <input type="hidden" name="id" value="{{note._id}}">

    <p>
        <label>Заголовок</label><br>
        <input type="text" name="title" value="{{note.title}}">
    </p>

    <p>
        <label>Заметка</label><br>
        <textarea name="text">{{note.text}}</textarea>
    </p>

    <input type="submit" value="Сохранить">
    
</form>

{% endblock %}

{% extends "base.html" %}
{% block content %}

<h1>{{note.title}}</h1>
<small>{{note.created|format-datetime}}</small>

<p>{{note.text}}</p>

{% endblock %}

{% extends "base.html" %}
{% block content %}

<h1>Заметки</h1>

{% if notes %}
<ul>

    {% for note in notes %}
    <li>
        <h4><a href="/note/{{note._id}}">{{note.title}}</a></h4>
        <small>{{note.created|format-datetime}}</small>
        <hr>
        <a href="/edit/{{note._id}}">Редактировать</a> | <a href="/delete/{{note._id}}">Удалить</a>
    </li>
    {% endfor %}

</ul>
{% else %}
<strong>Заметок еще нет</strong>
{% endif %}

{% endblock %}