werenall

;; Instead of doing
(if (and (some? "checking if displaying it should even be considered")
         (some->> txt (vector :div))
  (some->> txt (vector :div)))
;; => [:div txt]

;; Consider doing
(and (some? "checking if displaying it should even bbe considered")
     (some->> txt (vector :div))
;; => [:div txt]

werenall

Keybase proof

I hereby claim:

• I am werenall on github.
• I am werenall (https://keybase.io/werenall) on keybase.
• I have a public key ASDLJxc_verqripryeV1ReE_Z86hTaPpDVj6VrDKhYIyYQo

To claim this, I am signing this object:

werenall

(let [display-tooltip? (r/atom false)]
  (fn []
    [:div.tooltip-controller
     [:button
      {:on-click #(swap! display-tooltip? not)}
      "spawn tooltip"]
     (when @display-tooltip?
       [:div.tooltip.tooltip--bottom
        [:button {:on-click #(reset! display-tooltip? false)} "x"]
        [:p "Hello there!"]])]))

werenall

(defn find-tooltip-controller-class [node]
  (or (some-> node
              .-classList
              (.contains "js-tooltip-controller"))
      (some-> (.-parentNode node) (find-tooltip-controller-class))))

(defn tooltip [display-tooltip?]
  (let [click-handler (fn [e]
                        (.stopPropagation e)
                        (when-not (find-tooltip-controller-class (.. e -target))

werenall

(ns myapp.client
  (:require [myapp.client.todo :as todo]))

(defn app []
  [:div.app-container
   {:on-click #(tooltip/destroy-on-click-out (.. % -target))}
   [main]])

werenall

.canvas {
  width: 600px;
  display: flex;
}
.canvas__left {
  display: flex;
  flex: 1;
  flex-shrink: 0;
}
.canvas__right {

werenall

{;;... ...
 :duct.migrator/ragtime {:database #ig/ref :duct.database/sql
                          :logger #ig/ref :duct/logger
                          :strategy :raise-error
                          :migrations-paths ["myproject/migrations/001-create-initial-schema"
                                             "myproject/migrations/002-rename-foo-column"
                                             "myproject/migrations/003-add-foreign-keys"]}
 ;;... ...}

werenall

{
  ... ...
  :mocks.boundary.adapter.logger/noop {}
  :duct.middleware.web/log-requests {:logger #ig/ref :mocks.boundary.adapter.logger/noop}
  ... ...
 }

werenall

function tangle {
    path=$(realpath $1)
    emacs --batch --eval "(require 'org)" --eval '(org-babel-tangle-file "'$path'")'
}

# consider putting it in .bash_profile along with the line below:
export -f tangle

# USAGE:
# $ tangle README.org