🎉 Add maintenance tasks.

backend/src/app/util/time.clj

@@ -53,15 +53,15 @@
 (defn duration
   [ms-or-obj]
   (cond
+    (string? ms-or-obj)
+    (Duration/parse (str "PT" ms-or-obj))
+
     (duration? ms-or-obj)
     ms-or-obj
 
     (integer? ms-or-obj)
     (Duration/ofMillis ms-or-obj)
 
-    (string? ms-or-obj)
-    (Duration/parse ms-or-obj)
-
     :else
     (obj->duration ms-or-obj)))
 
@@ -71,7 +71,7 @@
 
 (defn parse-duration
   [s]
-  (Duration/parse (str "PT" s)))
+  (Duration/parse s))
 
 (extend-protocol clojure.core/Inst
   java.time.Duration
@@ -79,7 +79,7 @@
 
 (defmethod print-method Duration
   [mv ^java.io.Writer writer]
-  (.write writer (str "#app/duration \"" (.toString ^Duration mv) "\"")))
+  (.write writer (str "#app/duration \"" (subs (str mv) 2) "\"")))
 
 (defmethod print-dup Duration [o w]
   (print-method o w))

backend/src/app/util/workers.clj

@@ -1,74 +0,0 @@
-;; This Source Code Form is subject to the terms of the Mozilla Public
-;; License, v. 2.0. If a copy of the MPL was not distributed with this
-;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
-;;
-;; Copyright (c) 2016 Andrey Antukh <niwi@niwi.nz>
-
-(ns app.util.workers
-  "A distributed asynchronous tasks queue implementation on top
-  of PostgreSQL reliable advirsory locking mechanism."
-  #_(:require
-     [suricatta.core :as sc]
-     [app.db :as db]))
-
-;; (defn- poll-for-task
-;;   [conn queue]
-;;   (let [sql (sql/acquire-task {:queue queue})]
-;;     (sc/fetch-one conn sql)))
-
-;; (defn- mark-task-done
-;;   [conn {:keys [id]}]
-;;   (let [sql (sql/mark-task-done {:id id})]
-;;     (sc/execute conn sql)))
-
-;; (defn- mark-task-failed
-;;   [conn {:keys [id]} error]
-;;   (let [sql (sql/mark-task-done {:id id :error (.getMessage error)})]
-;;     (sc/execute conn sql)))
-
-;; (defn- watch-unit
-;;   [conn queue callback]
-;;   (let [task (poll-for-task conn queue)]
-;;     (if (nil? task)
-;;       (Thread/sleep 1000)
-;;       (try
-;;         (sc/atomic conn
-;;           (callback conn task)
-;;           (mark-task-done conn task))
-;;         (catch Exception e
-;;           (mark-task-failed conn task e))))))
-
-;; (defn- watch-loop
-;;   "Watch tasks on the specified queue and executes a
-;;   callback for each task is received.
-;;   NOTE: This function blocks the current thread."
-;;   [queue callback]
-;;   (try
-;;     (loop []
-;;       (with-open [conn (db/connection)]
-;;         (sc/atomic conn (watch-unit conn queue callback)))
-;;       (recur))
-;;     (catch InterruptedException e
-;;       ;; just ignoring
-;;       )))
-
-;; (defn watch!
-;;   [queue callback]
-;;   (let [runnable #(watch-loop queue callback)
-;;         thread (Thread. ^Runnable runnable)]
-;;     (.setDaemon thread true)
-;;     (.start thread)
-;;     (reify
-;;       java.lang.AutoCloseable
-;;       (close [_]
-;;         (.interrupt thread)
-;;         (.join thread 2000))
-
-;;       clojure.lang.IDeref
-;;       (deref [_]
-;;         (.join thread))
-
-;;        clojure.lang.IBlockingDeref
-;;        (deref [_ ms default]
-;;          (.join thread ms)
-;;          default))))