Skip to content

Commit 5ccae65

Browse files
committed
Remove doall and dorun from clojureRepeat and lispwords
Removal from clojureRepeat: - These are not looping macros like doseq, dotimes, and while Removal from lispwords: - These functions are not macros with binding forms - More in common with `take` than `doseq`
1 parent b97c34e commit 5ccae65

3 files changed

Lines changed: 8 additions & 8 deletions

File tree

clj/src/vim_clojure_static/generate.clj

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -109,7 +109,7 @@
109109
if-some when when-first when-let when-not
110110
when-some}]
111111
;; Imperative looping constructs (not sequence functions)
112-
["Repeat" '#{doall dorun doseq dotimes while}]]
112+
["Repeat" '#{doseq dotimes while}]]
113113
coresyms (set/difference (set (keys (ns-publics 'clojure.core)))
114114
(set (mapcat peek builtins)))
115115
group-preds [["Define" #(re-seq #"\Adef(?!ault)" (str %))]
@@ -162,10 +162,10 @@
162162
defn- defonce defprotocol defrecord defstruct deftest deftest- deftype
163163
extend extend-protocol extend-type fn ns proxy reify set-test}
164164
;; Binding forms
165-
'#{as-> binding doall dorun doseq dotimes doto for if-let if-some let
166-
letfn locking loop testing when-first when-let when-some with-bindings
167-
with-in-str with-local-vars with-open with-precision with-redefs
168-
with-redefs-fn with-test}
165+
'#{as-> binding doseq dotimes doto for if-let if-some let letfn locking
166+
loop testing when-first when-let when-some with-bindings with-in-str
167+
with-local-vars with-open with-precision with-redefs with-redefs-fn
168+
with-test}
169169
;; Conditional branching
170170
'#{case cond-> cond->> condp if if-not when when-not while}
171171
;; Exception handling

ftplugin/clojure.vim

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -44,7 +44,7 @@ setlocal commentstring=;\ %s
4444
"
4545
" -*- LISPWORDS -*-
4646
" Generated from https://github.com/guns/vim-clojure-static/blob/%%RELEASE_TAG%%/clj/src/vim_clojure_static/generate.clj
47-
setlocal lispwords=as->,binding,bound-fn,case,catch,cond->,cond->>,condp,def,definline,definterface,defmacro,defmethod,defmulti,defn,defn-,defonce,defprotocol,defrecord,defstruct,deftest,deftest-,deftype,doall,dorun,doseq,dotimes,doto,extend,extend-protocol,extend-type,fn,for,if,if-let,if-not,if-some,let,letfn,locking,loop,ns,proxy,reify,set-test,testing,when,when-first,when-let,when-not,when-some,while,with-bindings,with-in-str,with-local-vars,with-open,with-precision,with-redefs,with-redefs-fn,with-test
47+
setlocal lispwords=as->,binding,bound-fn,case,catch,cond->,cond->>,condp,def,definline,definterface,defmacro,defmethod,defmulti,defn,defn-,defonce,defprotocol,defrecord,defstruct,deftest,deftest-,deftype,doseq,dotimes,doto,extend,extend-protocol,extend-type,fn,for,if,if-let,if-not,if-some,let,letfn,locking,loop,ns,proxy,reify,set-test,testing,when,when-first,when-let,when-not,when-some,while,with-bindings,with-in-str,with-local-vars,with-open,with-precision,with-redefs,with-redefs-fn,with-test
4848

4949
" Provide insert mode completions for special forms and clojure.core. As
5050
" 'omnifunc' is set by popular Clojure REPL client plugins, we also set

0 commit comments

Comments
 (0)