;; I'm able to shell out to grep with both babashka.process and bash.

;; bash:
;;
;;   $ grep no <<EOF
;;   no u
;;   lol u
;;   EOF
;;
;; Press enter, and watch:
;;
;;   no u

;; translated to babashka.process:
(let [in-str
"no u
lol u"]
  (-> @(process/process ["grep" "no"]
                        {:in in-str
                         :out :string})
      :out))
;; ... works as expected.

;; I'm able to shell out to fzf with bash:
;;
;;   $ fzf <<EOF
;;   no u
;;   lol u
;;   EOF
;;
;; ... here we can select the right candidate interactively ...
;;
;;   lol u

;; But when I try with babashka.process, I'm not able to select anything interactively:
(let [in-str
"no u
lol u"]
  (-> @(process/process ["fzf"]
                        {:in in-str
                         :out :string})
      :out))

I think you need to do :err :inherit

You're right!

Any idea why that did the trick? I didn't expect that "inheriting stderr" would fix fzf interactivity.

this is because fzf prints its menu to stderr

Never knew that before now. But it makes sense, considering how you can control both stdin and stdout. Thanks!

Ahh, I had missed that babashka project. 🙂 That might work well, if I create a little babashka project to house my little babaska snippets.

here's the whole source:

(ns bink
  (:require [babashka.fs :as fs]
            [clojure.edn :as edn]
            [babashka.process :as process]
            [clojure.string :as str]))

(defn providers []
  ;; Per 2022-09-14, we only support EDN links.
  (let [support-json false]
    (if support-json
      (fs/glob (fs/expand-home "~/.config/bink/provider") "*.{edn,json}")
      (fs/glob (fs/expand-home "~/.config/bink/provider") "*.edn"))))

(defn all-links []
  (mapcat (fn [p]
            (:links (edn/read-string (slurp (str p)))))
          (providers)))

(defn fzf [options]
  (-> @(process/process ["fzf"] {:in (str/join "\n" options)
                                 :out :string
                                 :err :inherit})
      :out
      str/trim))

(defn firefox [url]
  (process/process ["firefox" url]))

;; get links
(let [links (all-links)
      links-by-title (into {}
                           (for [l links]
                             [(:title l) l]))
      _ (assert (= (count links) (count links-by-title)) "Duplicate titles are not allowed")
      choice-title (fzf (map :title links))
      choice (get links-by-title choice-title)
      _ (firefox (:href choice))
      ])

Can we install it with bbin?

Not sure, haven't had the chance to provide a bbin-installable script before. I can have a look.

This will be a good test :)

Quick status: 1. Got bbin installed. I'm using GRML ZSH config (https://grml.org/zsh/), so I had to read install scripts to understand what they were doing in order to understand how to install bbin. 2. Had to wait a while for a full system update. bbin required a later babashka version than the one I had installed 3. Looked for docs on how to make my script available for install with bbin, coudn't find any 4. Just tried bbin install , which worked! So to install with bbin:

$ bbin install 

^ @rads some feedback

@U3X7174KS I got:

Visiting /Users/borkdude/.config/bink/provider failed

probably I should create .config/bink myself?

yeah, you populate the EDN files yourself.

edn files?

Gimme a sec

it works :)

Nice 🙂

except that shelling out to firefox didn't work ;)

perhaps you should just use browse-url?

anyway, the bbin install worked, but the docs should probably be more clear than just give brief examples without any comments

(I was referring to the bbin docs)

Yeah, super rough edges so far. I tried browse-url first, but I couldn't get it working. I assumed it wasn't included in babashka, but perhaps it is?

it is

but with a different implementation

Try this:

bb -e '(clojure.java.browse/browse-url "")'

works :thumbsup:

Not sure how updates / reinstallation works with bbin. But if you get the latest bink on master now, you'll get browse-url rather than firefox.

I think installing again should overwrite the old one

I'll try

yep, worked :)

@U3X7174KS This is super cool.

And @rads: the installation via bbin worked super smoothly. Great job both.

@borkdude thanks a lot for the feedback 👍 Since your first test run, I've improved the getting started experience. bink should now give some helpful output if there are no links.