Clojurians Log v2

and

(j/defn apply-input-method [^js view ^:js {insert :detail} from to]
  (.dispatch view (j/lit {:changes     [{:from   (dec from)
                                         :to     to
                                         :insert insert}]
                          :selection   {:anchor (+ (dec from) (count insert))}
                          :annotations (u/user-event-annotation "noformat")})))

j comes from [applied-science.js-interop :as j] and [nextjournal.clojure-mode.util :as u]

@mkvlr thanks! that helps. trying to figure what is token-before, is this something available or I have to implement?

oh, that’s this:

(defn token-before [^js state pos]
  (j/let [^:js {line-from :from :keys [text]} (.. state -doc (lineAt pos))]
    (if-let [text (re-find #"\\[^ ]*$" (subs text 0 (- pos line-from)))]
      {:from (- pos (count text))
       :to   pos
       :text text}
      (j/let [^:js {:as node :keys [from to]} (n/tree state pos -1)]
        ;; TODO: for python completions are currently broken in cm6 because
        ;; given a line `pandas.|` this would only return the dot.
        {:from from
         :to   to
         :text (subs text (- from line-from) (- to line-from))}))))

cool, thanks! one more thing, can you tell me what is the expected format of suggestions and matches? or that input-method/suggestions fn 🙂

see below but that’s more incidental to our problem (we’re using a trie because the lookup table is very large)

(defn suggestions
  "Takes a (possibly empty) `prefix` string, returns exact `matches` and
   all possible leaves in the prefix trie branching."
  [prefix]
  (let [subtrie (get-in keymap-trie prefix)]
    {:matches (get subtrie ">>" [])
     :suggestions (into ()
                        (comp (filter vector?) ;; find all leaves
                              (take 400)) ;; only relevant for an empty prefix
                        (tree-seq map? branch-fn (dissoc subtrie ">>")))}))

gotcha, this is been very helpful 🙂

this is all a bit complex in our Nextjournal code because we still support cm5 & 6, probably better to stick to the cm6 apis directly instead of copying all that

now I'm trying to figure how to send some dynamic data to use on my completion

because the keywords that I'm going to use as the list, they are dynamic and can keep changing

but since we pass input-method-completion-source, I'm not sure how to add something to read during its runtime

I guess there may be a codemirror way to pass this, but I'm very noob at it 😅

yeah, you can return a promise from a completion source

https://codemirror.net/6/docs/ref/#autocomplete.CompletionSource

not the issue in this case, is more how can I send this from a parent part of the process down?

and you have the state as an argument in the completion source, so you should be able to do anything you want (check where you’re at in the doc and what the context is etc)

but nice to hear it supports promises

> from a parent part of the process down? not sure I follow, can you explain more?

yes, when I run input-method-completion-source, since I'm just passing the function (and CM calls it), CM sends ctx in that call, and only that

so Im trying to find a wya to add data to ctx, so I can read there

maybe somehow when I construct the extensions?

at Nextjournal we apply codemirrors transactions through re-frame/dispatch-sync

oh yes, you can do that when creating the extension

cool, do you have an example?

(.. EditorView -editable (of editable?))

you have the ctx you want at EditorState creation time, correct?

this of thing is where I get confused on CM6

yeah, this is a Facet, see https://codemirror.net/6/docs/guide/

I'm creating it like this:

(.create EditorState #js {:doc        (or (if state @state source) "")
                                                         :extensions (cond-> #js [extensions]
                                                                       readonly
                                                                       (.concat #js [(.of (.-editable EditorView) "false")])

                                                                       state
                                                                       (.concat #js [(.of (.-updateListener EditorView)
                                                                                       (fn [^js v]
                                                                                         (let [str (.. v -state -doc toString)]
                                                                                           (if (not= str @state)
                                                                                             (state str)))))]))})

ok, and what’s the context you need in the completions?

lets say I have a vector with all the keywords I use to complete

how I setup the editor so its available at ctx when CM6 calls input-method-completion-source?

I think the easiest thing you can try is https://codemirror.net/6/docs/ref/#autocomplete.completeFromList

(given the list doesn’t change)

but maybe it even can change and will be called every time if you return a promise

makes sense

cool, so I create an instance of CompletionSource and drop in my extensions?

yes

got it working, thank you very much!