cape-keyword: Add scheme-mode keywords

See https://github.com/company-mode/company-mode/pull/1326

1 files changed, 55 insertions, 0 deletions

diff --git a/cape-keyword.el b/cape-keyword.el
index 65f4c9a..92987c0 100644
--- a/cape-keyword.el
+++ b/cape-keyword.el
@@ -245,6 +245,61 @@
      "new" "null" "object" "override" "package" "private" "protected" "return"
      "sealed" "super" "this" "throw" "trait" "true" "try" "type" "val" "var"
      "while" "with" "yield")
+    (scheme-mode ;; R7RS-small: https://small.r7rs.org/
+     "abs" "acos" "angle" "append" "apply" "asin" "assoc" "assq" "assv" "atan"
+     "binary-port?" "body" "boolean=?" "boolean?" "bytevector"
+     "bytevector-append" "bytevector-copy" "bytevector-copy!"
+     "bytevector-length" "bytevector-u8-ref" "bytevector-u8-set!" "bytevector?"
+     "caaaar" "caaadr" "caaar" "caadar" "caaddr" "caadr" "caar" "cadaar"
+     "cadadr" "cadar" "caddar" "cadddr" "caddr" "cadr" "call-with-port"
+     "call-with-values" "car" "car-internal" "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-ci>=?" "char-ci>?" "char-downcase"
+     "char-foldcase" "char-lower-case?" "char-numeric?" "char-ready?"
+     "char-upcase" "char-upper-case?" "char-whitespace?" "char<=?" "char<?"
+     "char=?" "char>=?" "char>?" "char?" "close-input-port" "close-output-port"
+     "close-port" "command-line" "complex?" "cons" "cos" "current-error-port"
+     "current-input-port" "current-jiffy" "current-output-port" "current-second"
+     "delete-file" "denominator" "digit-value" "display" "dynamic-wind"
+     "emergency-exit" "environment" "eof-object" "eof-object?" "eq?" "equal?"
+     "eqv?" "error" "error-object-irritants" "error-object-message"
+     "error-object?" "eval" "even?" "exact" "exact-integer-sqrt"
+     "exact-integer?" "exact?" "exit" "exp" "expt" "features" "file-error?"
+     "file-exists?" "finite?" "floor" "floor-quotient" "floor-remainder"
+     "floor/" "flush-output-port" "gcd" "get-environment-variable"
+     "get-environment-variables" "get-output-bytevector" "get-output-string"
+     "imag-part" "inexact" "inexact?" "infinite?" "input-port-open?"
+     "input-port?" "integer->char" "integer?" "interaction-environment"
+     "jiffies-per-second" "lcm" "length" "list" "list->string" "list->vector"
+     "list-copy" "list-ref" "list-set!" "list-tail" "list?" "load" "log"
+     "magnitude" "make-bytevector" "make-list" "make-parameter" "make-polar"
+     "make-promise" "make-rectangular" "make-string" "make-vector" "max"
+     "member" "memq" "memv" "min" "modulo" "nan?" "negative?" "newline" "nil"
+     "not" "null-environment" "null?" "number->string" "number?" "numerator"
+     "odd?" "open-binary-input-file" "open-binary-output-file"
+     "open-input-bytevector" "open-input-file" "open-input-string"
+     "open-output-bytevector" "open-output-file" "open-output-string"
+     "output-port-open?" "output-port?" "pair?" "peek-char" "peek-u8" "port?"
+     "positive?" "procedure?" "promise?" "quasiquote" "quote" "quotient" "raise"
+     "raise-continuable" "rational?" "rationalize" "read" "read-bytevector"
+     "read-bytevector!" "read-char" "read-error?" "read-line" "read-string"
+     "read-u8" "real-part" "real?" "remainder" "reverse" "round"
+     "scheme-report-environment" "set!" "set-car!" "set-cdr!" "setcar" "sin"
+     "sqrt" "square" "string" "string->list" "string->number" "string->symbol"
+     "string->utf" "string->vector" "string-append" "string-ci<=?" "string-ci<?"
+     "string-ci=?" "string-ci>=?" "string-ci>?" "string-copy" "string-copy!"
+     "string-downcase" "string-fill!" "string-foldcase" "string-for-each"
+     "string-length" "string-map" "string-ref" "string-set!" "string-upcase"
+     "string<=?" "string<?" "string=?" "string>=?" "string>?" "string?"
+     "substring" "symbol->string" "symbol=?" "symbol?" "tan" "textual-port?"
+     "truncate" "truncate-quotient" "truncate-remainder" "truncate/" "u8-ready?"
+     "unquote" "unquote-splicing" "utf->string" "values" "vector" "vector->list"
+     "vector->string" "vector-append" "vector-copy" "vector-copy!"
+     "vector-fill!" "vector-for-each" "vector-length" "vector-map" "vector-ref"
+     "vector-set!" "vector?" "with-exception-handler" "with-input-from-file"
+     "with-output-to-file" "write" "write-bytevector" "write-char"
+     "write-shared" "write-simple" "write-string" "write-u8" "zero?")
     (swift-mode
      "Protocol" "Self" "Type" "and" "as" "assignment" "associatedtype"
      "associativity" "available" "break" "case" "catch" "class" "column"