(in-package #:inangulis.utils)

(defmacro with-db (&body b)
  `(postmodern:with-connection (ubiquitous:value :db)
     ,@b))

(defmacro cdr-assoc (&whole lis item alist &key key test test-not)
  `(cdr (assoc ,@(cdr lis))))

(defun str-assoc (param params &key (test #'equal) key)
  (cdr-assoc param params :test test :key key))

(defun current-date-string ()
  "Returns current date as a string."
  (local-time:format-timestring nil (local-time:now) 
                                :format local-time:+rfc-1123-format+))