I actually have this half done in a branch, and it’s still slated for the next release.

googling for clojure string clipboard gave me https://gist.github.com/brake/c944229350e91f295a1762d3274393ef

Your google fu is more powerful than mine 🙂

Thanks!

I think it would probably be easier to go straight to the clipboard from clojure than get intellij involved

I had assumed that intellij had to be involved but your solution is better

putting to the clipboard is just another side effect, like printing to out is

makes sense

https://github.com/AvisoNovate/pretty has io.aviso.clipboard/{copy,paste}, which uses the same approach as the mentioned gist. in that past at least, that approach had the side-effect of opening a window-less app on macOS and it also took quite some time to initialize the graphical subsystem in java, before u could talk to the clipboard. so u might want to just shell out instead and use pbcopy / pbpaste on macOS, for example. it's not very cross platform of course...

(defn pbpaste [] (-> "pbpaste" direnv/stdout-of))

where direnv/stdout-of is defined as

(ns ginoco.direnv
  (:require
    [clojure.java.shell :as shell]
    [clojure.string :as str]))

(defn env+
  "Merge extra env vars into the specified or current process environment."
  ([extra-env]
   (env+ (System/getenv) extra-env))
  ([current-env extra-env]
   (reduce into {} [current-env extra-env])))

(def muted-direnv {"DIRENV_LOG_FORMAT" ""})

(comment
  (env+ muted-direnv))

(defn stdout-of
  "Returns the standard output of the specified command line, also trimming the
   last newline from it.

   If the standard error is not empty, then throws an exception with it as
   the exception message."
  [& args]
  (let [{:keys [out err exit] :as res} (apply shell/sh args)]
    ;(prn res)
    (if (zero? exit)
      (if (string? out)
        (str/trim-newline out)
        out)
      (-> (str (vec args) " exited with status: " exit "\n" out err)
          (ex-info res)
          throw))))

(comment
  (stdout-of "echo" "blah")
  (stdout-of "/usr/bin/false")
  )

(defn exec
  "Eg:
     (direnv/exec \"firefox\" \"--profile\" \"test\")

   which translates to:

     DIRENV_LOG_FORMAT='' direnv exec . firefox --profile test"
  [& args]
  (shell/with-sh-env
    (env+ muted-direnv)
    (apply stdout-of "direnv" "exec" "." args)))

(defn which [prg] (exec "which" prg))

(comment
  (exec "bash" "-c" "type $SHELL")
  (which "clojure")
  )