xenia/kakoune
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use a here-document for clojure.kak awk script

Browse Source
This commit is contained in:
Maxime Coste 2019-01-19 10:42:46 +11:00
parent 7df7f5d38b
commit 2f7ec014b7
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rc/base/clojure.kak
View File

@ -28,7 +28,7 @@ hook global WinSetOption filetype=clojure %{
} }
evaluate-commands %sh{ evaluate-commands %sh{
exec awk ' exec awk -f - <<'EOF'
BEGIN{ BEGIN{
symbol_char="[^\\s()\\[\\]{}\"\\;@^`~\\\\%/]"; symbol_char="[^\\s()\\[\\]{}\"\\;@^`~\\\\%/]";
in_core="(clojure\\.core/|(?<!/))"; in_core="(clojure\\.core/|(?<!/))";
@ -39,7 +39,7 @@ evaluate-commands %sh{
"when-some . ..", keywords); "when-some . ..", keywords);
split( \ split( \
"* *'\'' + +'\'' - -'\'' -> ->> ->ArrayChunk ->Eduction ->Vec ->VecNode ->VecSeq / < "\ "* *' + +' - -' -> ->> ->ArrayChunk ->Eduction ->Vec ->VecNode ->VecSeq / < "\
"<= = == > >= StackTraceElement->vec Throwable->map accessor aclone "\ "<= = == > >= StackTraceElement->vec Throwable->map accessor aclone "\
"add-classpath add-watch agent agent-error agent-errors aget alength alias "\ "add-classpath add-watch agent agent-error agent-errors aget alength alias "\
"all-ns alter alter-meta! alter-var-root amap ancestors and any? apply "\ "all-ns alter alter-meta! alter-var-root amap ancestors and any? apply "\
@ -54,7 +54,7 @@ evaluate-commands %sh{
"clojure-version coll? comment commute comp comparator compare "\ "clojure-version coll? comment commute comp comparator compare "\
"compare-and-set! compile complement completing concat conj conj! cons "\ "compare-and-set! compile complement completing concat conj conj! cons "\
"constantly construct-proxy contains? count counted? create-ns "\ "constantly construct-proxy contains? count counted? create-ns "\
"create-struct cycle dec dec'\'' decimal? declare dedupe default-data-readers "\ "create-struct cycle dec dec' decimal? declare dedupe default-data-readers "\
"delay delay? deliver denominator deref derive descendants disj disj! "\ "delay delay? deliver denominator deref derive descendants disj disj! "\
"dissoc dissoc! distinct distinct? do doall dorun doseq dosync dotimes doto "\ "dissoc dissoc! distinct distinct? do doall dorun doseq dosync dotimes doto "\
"double double-array double? doubles drop drop-last drop-while eduction "\ "double double-array double? doubles drop drop-last drop-while eduction "\
@ -67,7 +67,7 @@ evaluate-commands %sh{
"future-done? future? gen-class gen-interface gensym get get-in get-method "\ "future-done? future? gen-class gen-interface gensym get get-in get-method "\
"get-proxy-class get-thread-bindings get-validator group-by halt-when hash "\ "get-proxy-class get-thread-bindings get-validator group-by halt-when hash "\
"hash-map hash-ordered-coll hash-set hash-unordered-coll ident? identical? "\ "hash-map hash-ordered-coll hash-set hash-unordered-coll ident? identical? "\
"identity ifn? import in-ns inc inc'\'' indexed? init-proxy inst-ms inst? "\ "identity ifn? import in-ns inc inc' indexed? init-proxy inst-ms inst? "\
"instance? int int-array int? integer? interleave intern interpose into "\ "instance? int int-array int? integer? interleave intern interpose into "\
"into-array ints io! isa? iterate iterator-seq juxt keep keep-indexed key "\ "into-array ints io! isa? iterate iterator-seq juxt keep keep-indexed key "\
"keys keyword keyword? last lazy-cat lazy-seq line-seq list list* list? "\ "keys keyword keyword? last lazy-cat lazy-seq line-seq list list* list? "\
@ -161,7 +161,8 @@ evaluate-commands %sh{
print_static_words(core_fns); print_static_words(core_fns);
print_static_words(core_vars); print_static_words(core_vars);
printf("\n }\n"); printf("\n }\n");
}' }
EOF
} }
# Commands # Commands