From f0a27bb652e25aebae2d9f8f4d5f4a3c0adf57cf Mon Sep 17 00:00:00 2001 From: Ben Davenport-Ray Date: Mon, 23 Jul 2018 15:54:35 -0400 Subject: [PATCH 1/2] Ben Davenport-Ray Copyright Waiver I dedicate any and all copyright interest in this software to the public domain. I make this dedication for the benefit of the public at large and to the detriment of my heirs and successors. I intend this dedication to be an overt act of relinquishment in perpetuity of all present and future rights to this software under copyright law. From dca6ad4822576f38f6a18e34a726d86379090205 Mon Sep 17 00:00:00 2001 From: Ben Davenport-Ray Date: Sat, 6 Jan 2018 14:37:43 -0500 Subject: [PATCH 2/2] Add Scheme support --- rc/extra/scheme.kak | 132 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 132 insertions(+) create mode 100644 rc/extra/scheme.kak diff --git a/rc/extra/scheme.kak b/rc/extra/scheme.kak new file mode 100644 index 000000000..741e9c0d7 --- /dev/null +++ b/rc/extra/scheme.kak @@ -0,0 +1,132 @@ +# http://www.scheme-reports.org +# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾ + +# require lisp.kak + +# Detection +# ‾‾‾‾‾‾‾‾‾ + +hook global BufCreate (.*/)?(.*\.(scm|ss|sld)) %{ + set-option buffer filetype scheme +} + +# Highlighters +# ‾‾‾‾‾‾‾‾‾‾‾‾ + +add-highlighter shared/scheme regions +add-highlighter shared/scheme/code default-region group + +add-highlighter shared/scheme/string region '"' (? > >=' + + # Procedures that create a base type and their predicates (for easier type checking) + types="list vector bytevector cons string boolean? list? pair? + vector? bytevector? string? char? complex? eof-object? input-port? + null? number? output-port? procedure? symbol?" + + # R5RS available procedures + builtins="abs acos angle append apply asin assoc assq assv atan + caaaar caaadr caaar caadar caaddr caadr + caar cadaar cadadr cadar caddar cadddr caddr cadr + call-with-current-continuation call-with-input-file + call-with-output-file call-with-values car cdaaar cdaadr cdaar + cdadar cdaddr cdadr cdar cddaar cddadr cddar cdddar cddddr cdddr + cddr cdr ceiling char->integer char-alphabetic? char-ci<=? + char-ci=? char-ci>? char-downcase + char-lower-case? char-numeric? char-ready? char-upcase + char-upper-case? char-whitespace? char<=? char=? char>? close-input-port close-output-port cons cos + current-input-port current-output-port denominator display + dynamic-wind else eq? equal? eqv? eval even? exact->inexact + exact? exp expt floor for-each force gcd imag-part inexact->exact + inexact? integer->char integer? interaction-environment lcm + length list list->string list->vector list-ref list-tail load log + magnitude make-polar make-rectangular make-string make-vector + map max member memq memv min modulo negative? newline not + null-environment number->string numerator odd? open-input-file + open-output-file or peek-char positive? quasiquote quote quotient + rational? rationalize read read-char real-part real? remainder + reverse round scheme-report-environment set-car! set-cdr! sin + sqrt string->list string->number string->symbol string-append + string-ci<=? string-ci=? + string-ci>? string-copy string-fill! string-length string-ref + string-set! string<=? string=? string>? + substring symbol->string tan truncate values vector + vector->list vector-fill! vector-length vector-ref vector-set! + with-input-from-file with-output-to-file write write-char zero?" + + join () { printf "%s" "$1" | tr -s ' \n\t' "$2"; } + + printf '%s\n' "hook global WinSetOption filetype=scheme %{ + set-option window static_words '$(join "$keywords:$meta:$operators:$builtins" ':' )' + }" + + exact_quote () { + for symbol in "$@" + do + printf '\\Q%s\\E ' "$symbol" + done + } + + qkeys=$(join "$(exact_quote $keywords)" '|') + qmeta=$(join "$(exact_quote $meta)" '|') + qops=$(join "$(exact_quote "$operators")" '|') + qbuiltins=$(join "$(exact_quote $builtins)" '|') + qtypes=$(join "$(exact_quote $types)" '|') + + non_word_chars='[\s\(\)\[\]\{\};\|]' + normal_identifiers='-!$%&\*\+\./:<=>\?\^_~a-zA-Z0-9' + identifier_chars="[${normal_identifiers}][${normal_identifiers},#]*" + + add_highlighter () { + printf '%s\n' "add-highlighter shared/scheme/code/ regex \"$1\" $2" + } + + add_highlighter "${non_word_chars}+(${qkeys})${non_word_chars}" "1:keyword" + add_highlighter "${non_word_chars}+(${qmeta})${non_word_chars}" "1:meta" + add_highlighter "${non_word_chars}+(${qops})${non_word_chars}" "1:operator" + add_highlighter "${non_word_chars}+(${qbuiltins})${non_word_chars}" "1:builtin" + add_highlighter "${non_word_chars}+('${identifier_chars})" "1:attribute" + add_highlighter "${non_word_chars}+(${qtypes})${non_word_chars}" "1:type" + add_highlighter "\(define\W+\(($identifier_chars)" "1:function" + add_highlighter "\(define\W+($identifier_chars)\W+\(lambda" "1:function" +} + +# Initialization +# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾ + +hook -group scheme-highlight global WinSetOption filetype=scheme %{ + add-highlighter window/scheme ref scheme +} + +hook -group scheme-highlight global WinSetOption filetype=(?!scheme).* %{ + remove-highlighter window/scheme +} + +hook global WinSetOption filetype=scheme %{ + set-option -add buffer extra_word_chars %{-:!:%:?:<:>:=} + hook window InsertEnd .* -group scheme-hooks lisp-filter-around-selections + hook window InsertChar \n -group scheme-indent lisp-indent-on-new-line +} + +hook global WinSetOption filetype=(?!scheme).* %{ + remove-hooks window scheme-indent + remove-hooks window scheme-hooks +}