0. #lang racket
1.  
2. #|
3. I'm trying to create a macro which takes lists of symbols and generates
4. a function, like so:
5.   (my-macro (req req2) (opt opt2))
6. would expand to...
7.   (lambda (req req2 #:opt [opt ""] #:opt2 [opt2 ""])
8.     ...)
9. Now for the life of me, I can't figure out how to generate the keyword arguments.
10. Here's what I have to generate the required arguments, and it works great:
11. |#
12.  
13. (define-syntax (argreq stx)
14.   (syntax-parse stx
15.     [(_ (req:id ...))
16.      #'(lambda (req ...)
17.          (list (cons (quote req) req) ...))]))
18. ; When called like this, it works great
19. ((argreq (req req2)) "val1" "val2")
20.  
21. ;; I can even expand this macro to allow for optional arguments relatively easily
22. (define-syntax (argboth stx)
23.   (syntax-parse stx
24.     [(_ (req:id ...) (opt:id ...))
25.      #'(lambda (req ... [opt ""] ...)
26.          (list (cons (quote req) req) ... (cons (quote opt) opt) ...))]))
27.  
28. ;;
29. ;; But _how_ can I generate keywords for all the optional arguments
30. ;; I came up with this to generate a single keyword from a symbol, but I can't figure out
31. ;; how to 1) accept more than one symbol, or 2) apply this to the above macro to interweave
32. ;; the keywords with their optional arguments
33. ;;
34. (define-syntax (testkey stx)
35.   (syntax-parse stx
36.     [(_ symb:id)
37.      (with-syntax ([key (datum->syntax stx
38.                                        (string->keyword (symbol->string (syntax->datum #'symb))))])
39.        #'(list (quote key)))]))

=>