Clojurians Log v2

I was experimenting with ways to make it more ergonomic to work with routes, i.e. defining them and referencing them. I've settled on some things that feel pretty good so far. example of the old way:

(def do-something
  ["/do/something/:id"
   {:name :
    :post (lib.pipe/make
           :start (fn ...)
           ...)}])

(def page-route
  ["/some/page"
   {:name :app.some/page
    :get (lib.pathom/handler
          [:session/user ...]
          (fn [{:keys [biff/router] :as ctx} {:session/keys [user] ...}]
            ...
            [:button
             {:hx-post (lib.route/path router : {:id "abc123"})}
             ...]))}])

(defpost add-rss
  :start
  (fn [{{:keys [url]} :params}]
    ...)

  :add-urls
  (fn [{:keys [biff/db session biff.pipe.http/output]}]
    (let [...]
      (if (empty? feed-urls)
        ;; redirect is like href but it wraps the URL in {:status 303 :headers ...}
        (redirect `page-route {:error "invalid-rss-feed" :url (:url output)})
        ...))))

(defget page-route "/dev/subscriptions/add"
  [:app.shell/app-shell
   {(? :user/current) [:xt/id
                       (? :user/email-username)
                       (? :user/suggested-email-username)]}]

  (fn [{:keys [params] :as ctx}
       {:keys [app.shell/app-shell] user :user/current}]
    ...
    (biff/form
      {:action (href add-rss)}
      (ui/form-input ...))
    ...))

(def module
  {:routes [page-route
            ["" {:middleware [lib.middle/wrap-signed-in]}
             add-rss
             ...]]})

;; With just defpost
(defpost do-something
  ; expands to `:start (fn [_] {:biff.pipe/next [:biff.pipe/pathom :end],
  ;                             :biff.pipe.pathom/query [:foo :bar]})`
  :start (lib.pipe/pathom-query [:foo :bar] :end)
  :end (fn [{{:keys [foo bar]} :biff.pipe.pathom/output :as ctx}]
         ...))

;; Same as the above
(defpost-pathom do-something
  [:foo :bar]
  (fn [ctx {:keys [foo bar]}]
    ...))

Some files to peruse for more examples of the above: • https://github.com/jacobobryant/yakread/blob/master/src/com/yakread/app/subscriptions.clj • https://github.com/jacobobryant/yakread/blob/master/src/com/yakread/app/subscriptions/add.clj • https://github.com/jacobobryant/yakread/blob/master/src/com/yakread/app/subscriptions/view.clj

In the actual feature work department, last week I wrote a https://github.com/jacobobryant/yakread/commit/2a726accf101522d30168d233390c56dcfb27a8e#diff-cb7696bf3ffe500266b7d659d588ecbad8bf513503712ace7357601ca50ec8c4 for receiving emails. Previously I've done that in a bespoke way, taking the https://docs.oracle.com/javaee/6/api/javax/mail/internet/MimeMessage.html and pulling out the bits I needed into a data structure in whatever format the app (Yakread / The Sample) needed. This time, I made the component turn the MimeMessage into a https://github.com/jacobobryant/yakread/blob/26747d0b2a2bed4acb3fc73ec9161dd86a972f89/src/com/yakread/lib/smtp.clj#L97 with everything in it, and then you pass https://github.com/jacobobryant/yakread/blob/39d444193aebb49ee9a23306a83f7954fda83719/src/com/yakread/smtp.clj#L38 to the component that's used to do your app-specific stuff. There are also a few helper functions for various things, e.g. to test emails in local dev, you can download the raw text of an email from your actual email client and then give the path to https://github.com/jacobobryant/yakread/blob/39d444193aebb49ee9a23306a83f7954fda83719/src/com/yakread/lib/smtp.clj#L40 that will send it to localhost:2525.