babashka bookmark plugin for nnn

bookmark

#!/usr/bin/env bb

; kolja (@01k) 2020
; 
; usage:
; 
; create a directory where you would like to keep your bookmarks.
; create an env variable NNN_BMDIR with the path to that directory (e.g. "~/.config/nnn/bookmarks")
; save this file in ~/.config/nnn/plugins as "bookmark" (for example)
; 
; example: 
;
; export NNN_BMDIR="~/.config/nnn/bookmarks"
; export NNN_BMS="b:${NNN_BMDIR}"
; export NNN_PLUG="b:bookmark"
;
; then it's ";b" to bookmark a file or directory 
; and "bb" to change change to the bookmarks folder.

(ns bookmark

  (:require [clojure.java.io :as io]
            [clojure.java.shell :refer [sh]]
            [clojure.string :as str]))

  (defn expand-home [bmdir]
    (if (.startsWith bmdir "~")
        (clojure.string/replace-first bmdir "~" (System/getProperty "user.home")) 
        bmdir))

  (defn input [message]
    (do
        (print message)
        (flush)
        (-> (io/reader *in*) line-seq first)))

  (let [[target pwd] *command-line-args*
        bookmark_dir (expand-home (System/getenv "NNN_BMDIR"))
        bookmark_name (input (str "Bookmark " pwd "/" target " as: "))
        {:keys [:exit :err :out]} (sh "ln" "-s" 
                                      (str pwd "/" target) 
                                      (str bookmark_dir "/" bookmark_name))]
    (if (zero? exit) 
        (println out)
        (do (println "ERROR:" err) 
            (System/exit 1))))