@@ -239,9 +239,9 @@ if a third argument (the value) is provided.
239
239
(defconst clojure-ts--typedef-symbol-regexp
240
240
(eval-and-compile
241
241
(rx line-start
242
- (or " defprotocol" " defmulti" " deftype" " defrecord"
243
- " definterface" " defmethod" " defstruct" )
244
- line-end))
242
+ (or " defprotocol" " defmulti" " deftype" " defrecord"
243
+ " definterface" " defmethod" " defstruct" )
244
+ line-end))
245
245
" A regular expression matching a symbol used to define a type." )
246
246
247
247
(defconst clojure-ts--type-symbol-regexp
@@ -773,7 +773,7 @@ forms like deftype, defrecord, reify, proxy, etc."
773
773
774
774
(defun clojure-ts--match-fn-docstring (node )
775
775
" Match NODE when it is a docstring for PARENT function definition node."
776
- ; ; A string that is the third node in a function defn block
776
+ ; ; A string that is the third node in a function defn block
777
777
(let ((parent (treesit-node-parent node)))
778
778
(and (treesit-node-eq node (treesit-node-child parent 2 t ))
779
779
(let ((first-auncle (treesit-node-child parent 0 t )))
@@ -854,11 +854,11 @@ forms like deftype, defrecord, reify, proxy, etc."
854
854
(defconst clojure-ts--thing-settings
855
855
`((clojure
856
856
(sexp ,(regexp-opt clojure-ts--sexp-nodes)
857
- text ,(regexp-opt '(" comment" ))))))
857
+ text ,(regexp-opt '(" comment" ))))))
858
858
859
859
(defvar clojure-ts-mode-map
860
860
(let ((map (make-sparse-keymap )))
861
- ; (set-keymap-parent map clojure-mode-map)
861
+ ; ; (set-keymap-parent map clojure-mode-map)
862
862
map))
863
863
864
864
(defvar clojurescript-ts-mode-map
0 commit comments