0. #lang racket
1.  
2. (require
3.   (for-syntax
4.    syntax/parse))
5.  
6. (define (create-catalog-item
7.          #:item-id id
8.          #:fancy-name name)
9.   (list id name))
10.  
11. (define-syntax-rule (create-item name)
12.   (define name
13.     (create-catalog-item
14.      #:item-id 'name
15.      #:fancy-name (string-titlecase (symbol->string 'name))
16.      )))
17.  
18. (define-syntax (create-item* stx)
19.   (syntax-parse stx
20.     ((_ name:id #:fancy-name fancy-name)
21.      #'(define name
22.          (create-catalog-item
23.           #:item-id 'name
24.           #:fancy-name fancy-name
25.           )))
26.  
27.     ((_ name:id)
28.      #'(create-item* name (string-titlecase (symbol->string 'name)))
29.      )))
30.  
31. (create-item flobber)
32. (create-item rabber)
33. (create-item* trubble
34.               #:fancy-name "DubbleTrubble")
35.  
36. (define *items*
37.   (list
38.    flobber
39.    rabber
40.    trubble
41.    ))
42.  
43. *items*
44.  

=>

'((flobber "Flobber") (rabber "Rabber") (trubble "DubbleTrubble"))