| (defun diff-last-two-kills (&optional ediff?) | |
| "Diff last couple of things in the kill-ring. With prefix open ediff." | |
| (interactive "P") | |
| (let* ((old "/tmp/old-kill") | |
| (new "/tmp/new-kill") | |
| (prev-ediff-quit-hook ediff-quit-hook)) | |
| (cl-flet ((kill-temps | |
| () | |
| (dolist (f (list old new)) | |
| (kill-buffer (find-buffer-visiting f))) |
Chaining promises in ClojureScript is best done using the thread-first macro, ->. Here's an example of using the fetch API:
(-> (js/fetch "/data")
(.then (fn [r]
(when-not (.-ok r)
(throw (js/Error. "Could not fetch /data")))
(.json r)))
| (defn- attach | |
| "Takes a function to clone and a map of CSF related values | |
| including: | |
| - :args | |
| - :arg-types | |
| - :parameters | |
| These are then properly named and assigned to the template prototype |