                         (println e))))))))
 
 (defn set-word-status
+    "Set or change status of given word in the dictionary (:deleted, :undeleted)."
     [word dictionary-type status]
     (try
         (jdbc/update! db-spec/zg-db
-                      :dictionary {:deleted (status->int status)} ["word = ? and dictionary = ?" word (dictionary-type->char dictionary-type)])
+                      :dictionary {:deleted (status->int status)}
+                                   ["word = ? and dictionary = ?" word (dictionary-type->char dictionary-type)])
         (catch Exception e
             (println e)
             [])))

(require '[zg.format-date :as format-date])

(defn status->int
    [status]
    (if (= status :deleted)
        1
        0))

(defn dictionary-type->char
    [dictionary-type]
    (condp = dictionary-type
        :whitelist "w"

;  http://www.eclipse.org/legal/epl-v10.html
;
;  Contributors:
;      Pavel Tisnovsky
;

(ns zg.db-interface
