notes.rkt

#lang racket
(provide notes-syntax-parser)
(require
 (for-syntax syntax/parse
             racket/function ;; curry
             racket/syntax
             syntax/id-set))
;; Also the `partial` from (require rackjure) can be used
#;(require (rename-in racket/function
                    (curry partial)))

(define-syntax (notes-syntax-parser form)
  (syntax-parse form
    ((notes-syntax-parser
      text:string
      case-sensitivity:string
      colorize-matches:boolean
      note:expr ...)
     (begin
       #`(begin
           '(#,@((compose
                 (curry map bytes->string/utf-8)
                 #;
                 (lambda (s)
                   (display (format "matches: ~a\n" s))
                   s)
                 (curry filter
                        (curry regexp-match
                               #;#px"^.*labor.*" #;#rx"^.*labor.*"
                               ((compose
                                 ;; See also the regexp-split-match in the main.rkt
                                 #;
                                 (lambda (s)
                                   (display (format "notes: ~a\n" s))
                                   s)
                                 ;; regexp   ;; #rx
                                 pregexp  ;; #px - posix
                                 #;
                                 (lambda (s)
                                   (display (format "notes: ~a\n" s))
                                   s))
                                (format
                                 ;; match the whole line containing pattern
                                 "(?~a:^.*~a.*)"
                                 (syntax->datum #`case-sensitivity)
                                 (syntax->datum #`text)))))
                 (curry map syntax->datum))
                (syntax->list #`(note ...)))))))))