(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+))