Note: You may want to check out parinferish, which implements a parinfer-like mode in pure Clojure(Script).

Introduction

A Clojure and ClojureScript library that wraps parinfer.js and parinfer-jvm so it is accessible on both platforms with the same functions. It supplies paren-mode and indent-mode functions, both of which take the text, the cursor's x position, and the line (the latter two are zero-based).

(paren-mode "(+ 1\n1)" 0 0)
; => {:x 0, :text "(+ 1\n 1)"}

(indent-mode "(+ 1 1" 6 0)
; => {:x 6, :text "(+ 1 1)"}

Additionally, it provides a function called add-indent to add indentation where appropriate. It takes a map containing the text, a cursor position (a vector with two numbers representing the begin and end cursor, which are the same number if there is no selection), and the indent type. The possible indent types are :return, :forward, and :back, which should be supplied when the user types the return key, tab key, or shift+tab key respectively. Examples:

(add-indent {:text "(+ 1 1\n)" :cursor-position [7 7] :indent-type :return})
; => {:cursor-position [10 10], :text "(+ 1 1\n   )"}

(add-indent {:text "(+ 1 1)\n(+ 1 1)" :cursor-position [0 10] :indent-type :forward})
; => {:cursor-position [0 19], :text "  (+ 1 1)\n  (+ 1 1)"}

The add-indent function has an additional indent type, :normal, which you can use during all other editing actions. It will run the code through parinfer's indent mode, but when necessary it will also automatically adjust the indentation in a way that is similar to aggressive-indent-mode. You can think of it as a compromise between indent and paren mode. Example:

(add-indent {:text "(def nums [1\n2\n3])" :cursor-position [10 10] :indent-type :normal})
; => {:cursor-position [10 10], :text "(def nums [1\n           2\n           3])"}

Usage

You can include this library in your project dependencies using the version number in the badge above.

To experiment with this library in a REPL, you can use the Clojure CLI tool. In this directory, run clj to start a Clojure REPL, or clj -A:dev -m cljs.repl.node to start a ClojureScript REPL. When the REPL is up, enter the main namespace with (require 'cross-parinfer.core) (in-ns 'cross-parinfer.core).

Licensing

All files that originate from this project are dedicated to the public domain. I would love pull requests, and will assume that they are also dedicated to the public domain.