clerk.el

(setq clerk-viewer-list '("default"
                          ":html"
                          ":latex"
                          "nextjournal.clerk.viewer/html-viewer"
                          "nextjournal.clerk.viewer/vl-viewer"
                          "nextjournal.clerk.viewer/map-viewer"
                          "nextjournal.clerk.viewer/markdown-viewer"
                          "nextjournal.clerk.viewer/katex-viewer"
                          "nextjournal.clerk.viewer/fallback-viewer"
                          "nextjournal.clerk.viewer/string-viewer"))

(defun clerk-tap-last-sexp-with-viewer (viewer)
  (interactive
   (list (completing-read "Choose viewer: " clerk-viewer-list nil t)))

  (let ((tapped-form (concat "(clojure.core/->> "
                             (cider-last-sexp)
                             (if (equal "default" viewer)
                                 (concat " (nextjournal.clerk/with-viewer {:transform-fn identity})")
                               (if (string-prefix-p ":" viewer)
                                   (concat " (nextjournal.clerk/with-viewer " "(keyword \"" (substring viewer 1) "\")" ")")
                                   (concat " (nextjournal.clerk/with-viewer " "(symbol \"" viewer "\")" ")"))
                               )

                             " (clojure.core/tap>))")))
    (cider-interactive-eval tapped-form
                            nil
                            nil
                            (cider--nrepl-pr-request-map))))


(defun clerk-tap-sexp-at-point-with-viewer (viewer)
  (interactive
   (list (completing-read "Choose viewer: " clerk-viewer-list  nil t)))

  (save-excursion
    (goto-char (cadr (cider-sexp-at-point 'bounds)))
    (clerk-tap-last-sexp-with-viewer viewer)))

(defun clerk-open-tap-inspector ()
  (interactive)
  (cider-nrepl-sync-request:eval
   (concat "(require '[nextjournal.clerk :as clerk])"
           "(clerk/serve! {:browse true})"
           "(Thread/sleep 1000)"
           "(nextjournal.clerk/show! 'nextjournal.clerk.tap)")


   ))